The Best of Windows 95.com 1996 December/WIN95_DEC_1996_4.ISO/finance/bilpwrnt.exe/BILLPOWR.EXE/0/RCDATA/TSCHEDEDIT/TSCHEDEDIT.txt

Text File | 1996-12-15 | 23KB | 1,112 lines

object SchedEdit: TSchedEdit
  Left = 1
  Top = 42
  BorderStyle = bsSingle
  Caption = 'Event Creation or Editing'
  ClientHeight = 400
  ClientWidth = 630
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Menu = MakeMenu
  OnClose = FormClose
  OnKeyDown = KeyDown
  OnKeyPress = Keypress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object TimeLineBox: TShape
    Left = 6
    Top = 264
    Width = 275
    Height = 29
  end
  object TimeLine: TImage
    Left = 8
    Top = 278
    Width = 269
    Height = 15
    OnMouseDown = TimeLineMouseDown
    OnMouseMove = TimeLineMouseMove
    OnMouseUp = TimeLineMouseUp
  end
  object CatLabel: TLabel
    Left = 10
    Top = 272
    Width = 62
    Height = 16
    Caption = 'Category'
  end
  object WorkTimerNotice: TLabel
    Left = 306
    Top = 20
    Width = 175
    Height = 23
    Alignment = taCenter
    AutoSize = False
    Caption = 'Timer is Running...'
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object InvoiceLbl: TLabel
    Left = 8
    Top = 4
    Width = 47
    Height = 16
    Caption = 'Invoice'
  end
  object ActualDateTimeLbl: TLabel
    Left = 306
    Top = 2
    Width = 109
    Height = 16
    Caption = 'Actual Date/Time'
    Visible = False
  end
  object BeginDateBox: TGroupBox
    Left = 6
    Top = 20
    Width = 105
    Height = 49
    Caption = 'Begin Date'
    TabOrder = 1
    object BeginDate: TMaskEdit
      Left = 6
      Top = 20
      Width = 93
      Height = 24
      HelpContext = 402
      MaxLength = 20
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object EndDateBox: TGroupBox
    Left = 6
    Top = 76
    Width = 105
    Height = 49
    Caption = 'End Date'
    TabOrder = 3
    object EndDate: TMaskEdit
      Left = 6
      Top = 20
      Width = 93
      Height = 24
      HelpContext = 402
      MaxLength = 20
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object OKBtn: TButton
    Left = 566
    Top = 22
    Width = 59
    Height = 23
    Caption = '&OK'
    TabOrder = 21
    OnClick = OKBtnClick
  end
  object CancelBtn: TButton
    Left = 566
    Top = 46
    Width = 59
    Height = 23
    Cancel = True
    Caption = '&Cancel'
    TabOrder = 22
    TabStop = False
    OnClick = OKBtnClick
  end
  object EventTypeBox: TGroupBox
    Left = 136
    Top = 20
    Width = 145
    Height = 49
    Caption = 'Event Type'
    TabOrder = 2
    object EventType: TComboBox
      Left = 6
      Top = 20
      Width = 133
      Height = 24
      HelpContext = 406
      ItemHeight = 16
      MaxLength = 15
      TabOrder = 0
      OnChange = EventTypeChange
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
      OnKeyPress = Keypress
    end
  end
  object EmployeeBox: TGroupBox
    Left = 6
    Top = 132
    Width = 275
    Height = 77
    Caption = 'Employee'
    TabOrder = 5
    object EmplyeNameList: TLabel
      Left = 4
      Top = 52
      Width = 69
      Height = 19
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Name List'
    end
    object EmplyeList: TComboBox
      Left = 76
      Top = 48
      Width = 193
      Height = 24
      HelpContext = 410
      TabStop = False
      ItemHeight = 16
      TabOrder = 0
      OnClick = EmplyeListClick
      OnDblClick = EmplyeListDblClick
      OnEnter = Enter
      OnExit = Exit
    end
    object Emplye: TEdit
      Left = 6
      Top = 20
      Width = 263
      Height = 24
      HelpContext = 410
      MaxLength = 60
      TabOrder = 1
      Text = ' '
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object BeginTimeBox: TGroupBox
    Left = 6
    Top = 214
    Width = 91
    Height = 49
    Caption = 'Begin Time'
    TabOrder = 6
    object BeginTime: TMaskEdit
      Left = 8
      Top = 20
      Width = 73
      Height = 24
      HelpContext = 404
      MaxLength = 8
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object EndTimeBox: TGroupBox
    Left = 98
    Top = 214
    Width = 91
    Height = 49
    Caption = 'End Time'
    TabOrder = 7
    object EndTime: TMaskEdit
      Left = 8
      Top = 20
      Width = 73
      Height = 24
      HelpContext = 404
      MaxLength = 12
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object AlarmTimeBox: TGroupBox
    Left = 190
    Top = 214
    Width = 91
    Height = 49
    Caption = 'Alarm Time'
    TabOrder = 8
    object AlarmTime: TMaskEdit
      Left = 8
      Top = 20
      Width = 73
      Height = 24
      HelpContext = 404
      MaxLength = 8
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object ProjectBox: TGroupBox
    Left = 136
    Top = 76
    Width = 145
    Height = 49
    Caption = 'Project'
    TabOrder = 4
    object ProjectBalLabel: TLabel
      Left = 2
      Top = 42
      Width = 141
      Height = 11
      Alignment = taCenter
      AutoSize = False
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'Terminal'
      Font.Style = []
      ParentFont = False
    end
    object Project: TComboBox
      Left = 6
      Top = 18
      Width = 133
      Height = 24
      HelpContext = 408
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ItemHeight = 16
      MaxLength = 12
      ParentFont = False
      Sorted = True
      TabOrder = 0
      OnDblClick = ProjectDblClick
      OnDropDown = ProjectDropDown
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object EditTimeBox: TEdit
    Left = 566
    Top = 2
    Width = 59
    Height = 24
    Enabled = False
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    TabOrder = 23
  end
  object AmountBox: TGroupBox
    Left = 98
    Top = 304
    Width = 91
    Height = 49
    Caption = 'Amount'
    TabOrder = 11
    object Amount: TMaskEdit
      Left = 6
      Top = 20
      Width = 79
      Height = 24
      HelpContext = 414
      MaxLength = 0
      TabOrder = 0
      Text = ' '
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object RateBox: TGroupBox
    Left = 6
    Top = 304
    Width = 91
    Height = 49
    Caption = 'Hourly Rate'
    TabOrder = 10
    object Rate: TMaskEdit
      Left = 6
      Top = 20
      Width = 79
      Height = 24
      HelpContext = 436
      MaxLength = 0
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object PayeeBox: TGroupBox
    Left = 6
    Top = 358
    Width = 183
    Height = 49
    Caption = 'Payee'
    TabOrder = 15
    object Payee: TMaskEdit
      Left = 6
      Top = 20
      Width = 171
      Height = 24
      HelpContext = 430
      MaxLength = 0
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object CheckNumBox: TGroupBox
    Left = 190
    Top = 358
    Width = 103
    Height = 49
    Caption = 'Check #'
    TabOrder = 16
    object CheckNum: TMaskEdit
      Left = 6
      Top = 20
      Width = 91
      Height = 24
      HelpContext = 432
      MaxLength = 0
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object GL1Box: TGroupBox
    Left = 310
    Top = 304
    Width = 93
    Height = 49
    Caption = 'Affected GL'
    TabOrder = 14
    Visible = False
    object GL1BalLabel: TLabel
      Left = 2
      Top = 44
      Width = 89
      Height = 9
      Alignment = taCenter
      AutoSize = False
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'Terminal'
      Font.Style = []
      ParentFont = False
    end
    object GL1: TMaskEdit
      Left = 6
      Top = 20
      Width = 81
      Height = 24
      HelpContext = 434
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object GL2Box: TGroupBox
    Left = 310
    Top = 358
    Width = 93
    Height = 49
    Caption = 'Affected GL'
    TabOrder = 17
    Visible = False
    object GL2BalLabel: TLabel
      Left = 2
      Top = 44
      Width = 89
      Height = 9
      Alignment = taCenter
      AutoSize = False
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'Terminal'
      Font.Style = []
      ParentFont = False
    end
    object GL2: TMaskEdit
      Left = 6
      Top = 20
      Width = 81
      Height = 24
      HelpContext = 434
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      MaxLength = 0
      ParentFont = False
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object ChargeBox: TGroupBox
    Left = 190
    Top = 304
    Width = 103
    Height = 49
    Caption = 'Charge Client'
    TabOrder = 24
    object ChargeBtn: TRadioButton
      Left = 24
      Top = 16
      Width = 51
      Height = 17
      HelpContext = 437
      Caption = 'Yes'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Click
    end
    object NoChargeBtn: TRadioButton
      Left = 24
      Top = 30
      Width = 47
      Height = 17
      HelpContext = 437
      Caption = 'No'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Click
    end
  end
  object Category: TComboBox
    Left = 72
    Top = 268
    Width = 205
    Height = 24
    HelpContext = 414
    DropDownCount = 20
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Pitch = fpVariable
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 9
    OnDropDown = CategoryDropDown
    OnEnter = Enter
    OnExit = Exit
    OnKeyDown = KeyDown
  end
  object SuppressBox: TCheckBox
    Left = 306
    Top = 48
    Width = 251
    Height = 17
    HelpContext = 458
    TabStop = False
    Caption = 'Suppress this Transaction on Bills'
    TabOrder = 19
  end
  object TaxBox: TGroupBox
    Left = 220
    Top = 358
    Width = 91
    Height = 49
    Caption = 'Tax '
    TabOrder = 13
    object Tax: TMaskEdit
      Left = 6
      Top = 20
      Width = 79
      Height = 24
      MaxLength = 0
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object TaxRateBox: TGroupBox
    Left = 46
    Top = 358
    Width = 91
    Height = 49
    Caption = 'Tax Rate'
    TabOrder = 12
    object TaxRate: TMaskEdit
      Left = 6
      Top = 20
      Width = 79
      Height = 24
      MaxLength = 0
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object DescriptionBox: TGroupBox
    Left = 306
    Top = 74
    Width = 321
    Height = 217
    Caption = 'DescriptionBox'
    TabOrder = 20
    object Description: TMemo
      Left = 4
      Top = 18
      Width = 313
      Height = 195
      HelpContext = 412
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Pitch = fpFixed
      Font.Style = []
      Lines.Strings = (
        'Description')
      MaxLength = 765
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
      WantReturns = False
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
      OnKeyPress = Keypress
    end
  end
  object smClndrBox: TGroupBox
    Left = 358
    Top = 78
    Width = 201
    Height = 185
    Caption = 'Month, Year'
    Color = clYellow
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 25
    Visible = False
    object SmClndr: TImage
      Left = 4
      Top = 18
      Width = 192
      Height = 163
      Picture.Data = {<image000.bmp>}
      Stretch = True
      OnMouseDown = SmClndrMouseDown
    end
  end
  object AdvanceBox: TGroupBox
    Left = 98
    Top = 354
    Width = 91
    Height = 53
    Caption = 'Advnc Pmnt'
    TabOrder = 26
    object AdvanceBalLbl: TLabel
      Left = 2
      Top = 42
      Width = 87
      Height = 9
      Alignment = taCenter
      AutoSize = False
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'MS Serif'
      Font.Style = []
      ParentFont = False
    end
    object Advance: TMaskEdit
      Left = 6
      Top = 18
      Width = 79
      Height = 24
      HelpContext = 411
      TabStop = False
      MaxLength = 0
      TabOrder = 0
      OnEnter = Enter
      OnExit = Exit
      OnKeyDown = KeyDown
    end
  end
  object MiscBox: TGroupBox
    Left = 434
    Top = 304
    Width = 619
    Height = 117
    TabOrder = 18
    object PriorityLabel: TLabel
      Left = 138
      Top = 34
      Width = 55
      Height = 17
      AutoSize = False
      Caption = 'Priority'
    end
    object SubDateBox: TGroupBox
      Left = 6
      Top = 14
      Width = 107
      Height = 49
      Caption = 'Remind Date'
      TabOrder = 0
      object SubDate1: TMaskEdit
        Left = 6
        Top = 20
        Width = 95
        Height = 24
        HelpContext = 416
        TabStop = False
        MaxLength = 20
        TabOrder = 0
        OnEnter = Enter
        OnExit = Exit
        OnKeyDown = KeyDown
      end
    end
    object DeleteBtn: TCheckBox
      Left = 456
      Top = 94
      Width = 163
      Height = 17
      HelpContext = 428
      TabStop = False
      Caption = 'Tagged For Deletion'
      TabOrder = 9
      OnClick = DeleteBtnClick
    end
    object RecurBox: TGroupBox
      Left = 192
      Top = 10
      Width = 423
      Height = 83
      Caption = ' '
      TabOrder = 6
      object recurLabel1: TLabel
        Left = 6
        Top = 22
        Width = 77
        Height = 17
        AutoSize = False
        Caption = 'Month/Day'
      end
      object RecurLabel2: TLabel
        Left = 86
        Top = 22
        Width = 123
        Height = 17
        AutoSize = False
        Caption = 'Day of Week'
      end
      object RecurLabel3: TLabel
        Left = 218
        Top = 40
        Width = 123
        Height = 17
        AutoSize = False
        Caption = 'Every     Days'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'System'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
      end
      object RecurLabel4: TLabel
        Left = 218
        Top = 62
        Width = 121
        Height = 17
        AutoSize = False
        Caption = 'Every   Months'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'System'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
      end
      object DurLabel: TLabel
        Left = 364
        Top = 48
        Width = 57
        Height = 33
        AutoSize = False
        Caption = 'Days in Event'
        WordWrap = True
      end
      object HolidayCheckBox: TCheckBox
        Left = 342
        Top = 20
        Width = 77
        Height = 17
        HelpContext = 454
        TabStop = False
        Caption = 'Holiday'
        TabOrder = 3
        OnClick = Click
      end
      object RecurGrid1: TStringGrid
        Left = 4
        Top = 40
        Width = 79
        Height = 39
        HelpContext = 442
        TabStop = False
        ColCount = 2
        DefaultColWidth = 43
        DefaultRowHeight = 18
        FixedCols = 0
        RowCount = 2
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = []
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goTabs]
        ParentFont = False
        ScrollBars = ssNone
        TabOrder = 0
        OnGetEditMask = RecurGrid1GetEditMask
      end
      object NoWkndCheckBox: TCheckBox
        Left = 214
        Top = 20
        Width = 127
        Height = 17
        HelpContext = 448
        Caption = 'SkipWeekends'
        TabOrder = 2
        OnClick = Click
      end
      object RecurEdit1: TMaskEdit
        Left = 262
        Top = 36
        Width = 33
        Height = 24
        HelpContext = 450
        EditMask = '###;1;_'
        MaxLength = 3
        TabOrder = 4
        Text = '   '
      end
      object RecurEdit2: TMaskEdit
        Left = 262
        Top = 60
        Width = 19
        Height = 24
        HelpContext = 446
        EditMask = '#;1;_'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'system'
        Font.Style = []
        MaxLength = 1
        ParentFont = False
        TabOrder = 5
        Text = ' '
      end
      object RecurGrid2: TStringGrid
        Left = 84
        Top = 40
        Width = 131
        Height = 39
        HelpContext = 456
        ColCount = 7
        DefaultColWidth = 17
        DefaultRowHeight = 18
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goTabs]
        ScrollBars = ssNone
        TabOrder = 1
        OnGetEditMask = RecurGrid2GetEditMask
        ColWidths = (
          17
          17
          17
          17
          17
          17
          17)
      end
      object DurEdit: TMaskEdit
        Left = 342
        Top = 56
        Width = 19
        Height = 24
        HelpContext = 452
        EditMask = '#;1;_'
        MaxLength = 1
        TabOrder = 6
        Text = ' '
      end
    end
    object RecurCheckBox: TCheckBox
      Left = 198
      Top = 12
      Width = 249
      Height = 17
      HelpContext = 440
      TabStop = False
      Caption = 'Make this Item a *Recurring Event*'
      TabOrder = 5
      OnClick = RecurCheckBoxClick
    end
    object DragCheckBox: TCheckBox
      Left = 308
      Top = 94
      Width = 143
      Height = 17
      HelpContext = 418
      TabStop = False
      Caption = 'Drag Forward'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = Click
    end
    object BannerCheckBox: TCheckBox
      Left = 194
      Top = 94
      Width = 111
      Height = 17
      HelpContext = 422
      TabStop = False
      Caption = 'Highlight'
      TabOrder = 7
      OnClick = Click
    end
    object GlyphBox: TGroupBox
      Left = 6
      Top = 62
      Width = 163
      Height = 49
      Caption = 'Glyph'
      TabOrder = 3
      object GlyphImageBox: TShape
        Left = 132
        Top = 16
        Width = 25
        Height = 25
      end
      object glyphImage: TImage
        Left = 134
        Top = 18
        Width = 21
        Height = 21
        OnClick = glyphImageClick
      end
      object glyph: TMaskEdit
        Left = 6
        Top = 18
        Width = 103
        Height = 24
        HelpContext = 424
        TabStop = False
        MaxLength = 8
        TabOrder = 0
        OnChange = glyphChange
      end
      object GlyphBtn: TButton
        Left = 110
        Top = 18
        Width = 17
        Height = 23
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Terminal'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        TabStop = False
        OnClick = GlyphBtnClick
      end
    end
    object Priority: TMaskEdit
      Left = 118
      Top = 32
      Width = 19
      Height = 24
      HelpContext = 420
      TabStop = False
      EditMask = 'a;1;_'
      MaxLength = 1
      TabOrder = 2
      Text = ' '
    end
    object PrivateBtn: TCheckBox
      Left = 118
      Top = 12
      Width = 73
      Height = 17
      TabStop = False
      Caption = 'Private'
      TabOrder = 1
      OnClick = Click
    end
    object GlyphDir: TFileListBox
      Left = 116
      Top = 58
      Width = 17
      Height = 19
      TabStop = False
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ItemHeight = 16
      Mask = '*.bmp'
      ParentFont = False
      TabOrder = 4
      OnClick = GlyphDirExit
      OnExit = GlyphDirExit
    end
  end
  object ConflictBox: TGroupBox
    Left = 8
    Top = 292
    Width = 617
    Height = 9
    Color = clLime
    DragCursor = crDefault
    ParentColor = False
    TabOrder = 0
    Visible = False
    OnExit = Exit
    object ConflictLabel: TLabel
      Left = 10
      Top = 12
      Width = 84
      Height = 16
      Caption = 'ConflictLabel'
    end
    object ConflictAccept: TButton
      Left = 32
      Top = 106
      Width = 259
      Height = 25
      Caption = 'ConflictAccept'
      TabOrder = 1
      TabStop = False
      OnClick = ConflicBbuttonClick
    end
    object ConflictChange: TButton
      Left = 330
      Top = 106
      Width = 259
      Height = 25
      Caption = 'ConflictChange'
      TabOrder = 0
      TabStop = False
      OnClick = ConflicBbuttonClick
    end
    object ConflictListBox: TListBox
      Left = 8
      Top = 32
      Width = 605
      Height = 67
      TabStop = False
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Pitch = fpFixed
      Font.Style = []
      ItemHeight = 15
      ParentFont = False
      Sorted = True
      TabOrder = 2
      OnEnter = ConflictListBoxEnter
    end
  end
  object MakeMenu: TMainMenu
    Left = 64
    Top = 2
    object MakePrint: TMenuItem
      Caption = '&Print'
      ShortCut = 0
      object MakePrintEvent: TMenuItem
        Caption = '&Print Event'
        ShortCut = 0
        OnClick = MakePrintEventClick
      end
    end
    object MakeEdit: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      object MakeEditCut: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 0
        OnClick = MakeEditCutClick
      end
      object MakeEditCopy: TMenuItem
        Caption = '&Copy'
        ShortCut = 0
        OnClick = MakeEditCopyClick
      end
      object MakeEditPaste: TMenuItem
        Caption = '&Paste'
        ShortCut = 0
        OnClick = MakeEditPasteClick
      end
    end
    object MenuTimer: TMenuItem
      Caption = '&Timer'
      HelpContext = 405
      ShortCut = 0
      OnClick = MenuTimerClick
    end
    object MakeHelp: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      OnClick = HelpQuickHelpClick
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 122
    Top = 2
  end
  object PrintDialog1: TPrintDialog
    Options = [poPageNums, poWarning]
    Left = 92
    Top = 2
  end
end