CD-ROM Magazin 1997 December/MRR.BIN/data/share/1197_002/remind.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-09-03 | 15KB | 605 lines

object Form1: TForm1
  Left = 144
  Top = 146
  Hint = 'Click On the Calendar to select a day'
  ActiveControl = ListBox1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'PrimaSoft Amigo-2000'
  ClientHeight = 447
  ClientWidth = 592
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Bevel1: TBevel
    Left = 3
    Top = 3
    Width = 190
    Height = 366
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 10
    Top = 187
    Width = 16
    Height = 16
    Caption = '    '
    Color = clAqua
    ParentColor = False
  end
  object Label2: TLabel
    Left = 30
    Top = 181
    Width = 139
    Height = 28
    Caption = 'days with existing reminders - Low and Normal Priority'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object Label3: TLabel
    Left = 200
    Top = 2
    Width = 66
    Height = 16
    Caption = 'Reminders:'
  end
  object Label4: TLabel
    Left = 376
    Top = 42
    Width = 103
    Height = 16
    Caption = 'Reminder Details:'
  end
  object Label5: TLabel
    Left = 375
    Top = 2
    Width = 87
    Height = 16
    Caption = 'Reminder Title:'
  end
  object Label6: TLabel
    Left = 200
    Top = 331
    Width = 60
    Height = 16
    Caption = 'Attributes:'
  end
  object Label7: TLabel
    Left = 200
    Top = 292
    Width = 45
    Height = 16
    Caption = 'Priority:'
  end
  object Label9: TLabel
    Left = 10
    Top = 217
    Width = 16
    Height = 16
    Caption = '    '
    Color = clYellow
    ParentColor = False
  end
  object Label10: TLabel
    Left = 30
    Top = 211
    Width = 139
    Height = 28
    Caption = 'days with existing reminders - High Priority'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object Label12: TLabel
    Left = 422
    Top = 328
    Width = 140
    Height = 16
    Caption = 'Days Left To Year 2000:'
  end
  object Label13: TLabel
    Left = 564
    Top = 328
    Width = 21
    Height = 16
    Caption = '123'
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 244
    Width = 180
    Height = 120
    Caption = 'Display Reminders:'
    TabOrder = 5
    object RadioGroup1: TRadioGroup
      Left = 7
      Top = 17
      Width = 74
      Height = 97
      Hint = 'Display Only Reminders with This Status'
      Caption = 'Status'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemIndex = 3
      Items.Strings = (
        'Active'
        'Waiting'
        'Expired'
        'All')
      ParentFont = False
      TabOrder = 0
      OnClick = RadioGroup1Click
    end
    object RadioGroup2: TRadioGroup
      Left = 88
      Top = 17
      Width = 84
      Height = 97
      Hint = 'Display Only Reminders with This Priority'
      Caption = 'Priority'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemIndex = 5
      Items.Strings = (
        'Low'
        'Normal'
        'Low+Norm.'
        'High'
        'Hi+Norm.'
        'All')
      ParentFont = False
      TabOrder = 1
      OnClick = RadioGroup2Click
    end
  end
  object PrimaCalendar1: TPrimaCalendar
    Left = 10
    Top = 24
    Width = 176
    Height = 154
    Hint = 'Click on a Day to display the Reminders'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnChange = PrimaCalendar1Change
    OnMonthChange = PrimaCalendar1MonthChange
  end
  object ListBox1: TListBox
    Left = 200
    Top = 18
    Width = 169
    Height = 220
    Hint = 'Click To Select a Reminder'
    Color = clBtnFace
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 14
    ParentFont = False
    PopupMenu = PopupMenu2
    Style = lbOwnerDrawFixed
    TabOrder = 6
    OnClick = ListBox1Click
    OnDblClick = ListBox1DblClick
    OnDrawItem = ListBox1DrawItem
    OnMouseDown = ListBox1MouseDown
  end
  object Memo1: TMemo
    Left = 376
    Top = 58
    Width = 209
    Height = 231
    Color = clBtnFace
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 9
  end
  object Edit1: TEdit
    Left = 376
    Top = 18
    Width = 209
    Height = 24
    Color = clBtnFace
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 8
  end
  object Button1: TButton
    Left = 376
    Top = 294
    Width = 65
    Height = 25
    Hint = 'Add Reminder'
    Caption = '&Add'
    TabOrder = 10
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 448
    Top = 294
    Width = 65
    Height = 25
    Hint = 'Edit Reminder'
    Caption = '&Edit'
    TabOrder = 11
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 520
    Top = 294
    Width = 65
    Height = 25
    Hint = 'Delete Reminder'
    Caption = '&Delete'
    TabOrder = 12
    OnClick = Button3Click
  end
  object Edit2: TEdit
    Left = 200
    Top = 347
    Width = 385
    Height = 22
    Color = clBtnFace
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 14
  end
  object Panel1: TPanel
    Left = 0
    Top = 374
    Width = 592
    Height = 41
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 15
    object BitBtn1: TBitBtn
      Left = 102
      Top = 7
      Width = 96
      Height = 27
      Hint = 'Print Reminders'
      Caption = '&Print'
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 296
      Top = 7
      Width = 96
      Height = 27
      Hint = 'Display Software Version Information'
      Caption = 'A&bout'
      TabOrder = 3
      OnClick = BitBtn2Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
        33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
        8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
        F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
        F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
        0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
        B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
        B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
        333333333777733333333333FBFBFB33333333333333333333330000}
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 393
      Top = 7
      Width = 96
      Height = 27
      Hint = 'Display Help Window'
      TabOrder = 4
      OnClick = BitBtn3Click
      Kind = bkHelp
    end
    object BitBtn4: TBitBtn
      Left = 490
      Top = 7
      Width = 96
      Height = 27
      Hint = 'Hide Main Window'
      Caption = 'H&ide'
      ModalResult = 3
      TabOrder = 5
      OnClick = BitBtn4Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F33330000000000033333777777777773330000}
      NumGlyphs = 2
    end
    object BitBtn5: TBitBtn
      Left = 199
      Top = 7
      Width = 96
      Height = 27
      Hint = 'Set Options'
      Caption = '&Options'
      TabOrder = 2
      OnClick = BitBtn5Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
        1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
        1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
        193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
        11155557F755F777777555000755033305555577755F75F77F55555555503335
        0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
        05555757F75F75557F5505000333555505557F777FF755557F55000000355557
        07557777777F55557F5555000005555707555577777FF5557F55553000075557
        0755557F7777FFF57555553350000055555555775777775555550000}
      NumGlyphs = 2
    end
    object BitBtn6: TBitBtn
      Left = 5
      Top = 7
      Width = 96
      Height = 27
      Hint = 'Search Reminders for Text'
      Caption = '&Find'
      TabOrder = 0
      OnClick = BitBtn6Click
      Glyph.Data = {
        36010000424D3601000000000000760000002800000012000000100000000100
        040000000000C000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888078888888
        88888800E111880007888888888888A21EE28000007888888888881181118801
        10078888888888225A2288801100777777888811E111888801100000007888AA
        5AAA88888010078880078811E11188888800788BB87078AA5AAA888888078888
        8BB70800F00088888808888888B80822D22288888807B88888B8080000008888
        8807BBB8888808222222888888007BBB888778AAAAAA8888888077BB88708888
        8888888888880777700888000000888888888000078888000000}
    end
  end
  object Button4: TButton
    Left = 54
    Top = 6
    Width = 43
    Height = 17
    Hint = 'Find First Reminder'
    Caption = 'Fir&st'
    TabOrder = 1
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 99
    Top = 6
    Width = 43
    Height = 17
    Hint = 'Find Previous Reminder'
    Caption = 'P&rev'
    TabOrder = 2
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 143
    Top = 6
    Width = 43
    Height = 17
    Hint = 'Find Next Reminder'
    Caption = 'Ne&xt'
    TabOrder = 3
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 10
    Top = 6
    Width = 43
    Height = 17
    Hint = 'Find Today'#39's Date'
    Caption = 'Toda&y'
    TabOrder = 0
    OnClick = Button7Click
  end
  object Edit3: TEdit
    Left = 200
    Top = 308
    Width = 96
    Height = 22
    Color = clBtnFace
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 13
  end
  object RadioGroup3: TRadioGroup
    Left = 199
    Top = 240
    Width = 171
    Height = 50
    Caption = 'List Display Mode'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      'Selected Day'
      'Selected Month')
    ParentFont = False
    TabOrder = 7
    OnClick = RadioGroup3Click
  end
  object Panel2: TPanel
    Left = 0
    Top = 415
    Width = 592
    Height = 32
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 16
    Visible = False
    object Label11: TLabel
      Left = 8
      Top = 5
      Width = 76
      Height = 16
      Caption = 'Text To Find:'
    end
    object Edit4: TEdit
      Left = 88
      Top = 4
      Width = 177
      Height = 24
      Hint = 'Enter Text To Search For'
      TabOrder = 0
    end
    object Button8: TButton
      Left = 272
      Top = 5
      Width = 60
      Height = 21
      Hint = 'Start Serching From First Reminder'
      Caption = '&Find'
      TabOrder = 1
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 338
      Top = 5
      Width = 60
      Height = 21
      Hint = 'Search Backward from Current Date'
      Caption = 'Pre&v'
      TabOrder = 2
      OnClick = Button9Click
    end
    object Button10: TButton
      Left = 520
      Top = 5
      Width = 60
      Height = 21
      Hint = 'Searching Finished'
      Caption = '^Do&ne'
      TabOrder = 4
      OnClick = Button10Click
    end
    object Button11: TButton
      Left = 405
      Top = 5
      Width = 60
      Height = 21
      Hint = 'Search Forward from Current Date'
      Caption = 'Nex&t'
      TabOrder = 3
      OnClick = Button11Click
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 336
    object Add1: TMenuItem
      Caption = '&Add Reminder'
      ShortCut = 0
      OnClick = Add1Click
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 296
  end
  object PopupMenu2: TPopupMenu
    AutoPopup = False
    Left = 264
    object AddReminder1: TMenuItem
      Caption = '&Add Reminder'
      ShortCut = 0
      OnClick = Button1Click
    end
    object EditReminder1: TMenuItem
      Caption = '&Edit Reminder'
      ShortCut = 0
      OnClick = Button2Click
    end
    object DeleteReminder1: TMenuItem
      Caption = '&Delete Reminder'
      ShortCut = 0
      OnClick = Button3Click
    end
  end
end