PC Gamer (Italian) 24/PC Gamer IT CD 24 2-2.iso/VARIE/smartadd/INSTALL.EXE/SMARTADR.EXE/0/RCDATA/TDIARYDLG/TDIARYDLG.txt

Text File | 1997-04-15 | 20.5 KB | 732 lines

object DiaryDlg: TDiaryDlg
  Left = 17
  Top = 106
  Width = 463
  Height = 460
  Caption = 'Diary'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  Menu = Main
  PixelsPerInch = 120
  Position = poDefault
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormShow
  TextHeight = 16
  object L_Temp: TLabel
    Left = 56
    Top = 216
    Width = 50
    Height = 16
    Caption = 'L_Temp'
  end
  object Header: THeader
    Left = 0
    Top = 113
    Width = 455
    Height = 25
    Align = alTop
    Sections.Sections = (
      #0'38'#0
      #0'31'#0'Prty'
      #0'48'#0'Time'
      #0'76'#0'Description')
    TabOrder = 0
    OnSized = HeaderSized
  end
  object Reminders: TListBox
    Left = 0
    Top = 138
    Width = 455
    Height = 276
    Align = alClient
    BorderStyle = bsNone
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    PopupMenu = RemindersPopup
    Sorted = True
    Style = lbOwnerDrawVariable
    TabOrder = 1
    OnClick = RemindersClick
    OnDblClick = ViewEvent1Click
    OnDrawItem = RemindersDrawItem
    OnMeasureItem = RemindersMeasureItem
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 455
    Height = 113
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Label_Day: TLabel
      Left = 6
      Top = 7
      Width = 49
      Height = 48
      Alignment = taCenter
      AutoSize = False
      Caption = '31'
      Font.Color = clBlack
      Font.Height = -37
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label_DayName: TLabel
      Left = 59
      Top = 31
      Width = 174
      Height = 18
      AutoSize = False
      Caption = 'Wednesday'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label_Month: TLabel
      Left = 59
      Top = 11
      Width = 150
      Height = 18
      AutoSize = False
      Caption = 'October 1995'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Line1: TBevel
      Left = 8
      Top = 56
      Width = 289
      Height = 1
    end
    object Label2: TLabel
      Left = 192
      Top = 77
      Width = 105
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Day: xxx'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 94
      Width = 209
      Height = 16
      AutoSize = False
      Caption = 'Entries for this Date: xx'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Panel2: TPanel
      Left = 302
      Top = 0
      Width = 153
      Height = 113
      Align = alRight
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderWidth = 4
      TabOrder = 0
      object Calendar2: TEPCalendar
        Left = 5
        Top = 5
        Width = 143
        Height = 103
        Align = alClient
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Day = 8
        GrayTextColor = clGray
        HeadingColor = clSilver
        HeadingFont.Color = clBlack
        HeadingFont.Height = -13
        HeadingFont.Name = 'MS Sans Serif'
        HeadingFont.Style = [fsBold]
        HeadingStyle = epdSingleLetter
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Month = 10
        Options = [epcoShowHeadings, epcoUseHeadingFont, epcoDefaultDrawing, epcoDrawAllDates, epcoDrawSelected, epcoSelectAllDates]
        ParentCtl3D = False
        ParentFont = False
        StartOfWeek = epdSunday
        TabOrder = 0
        Year = 1995
        OnChange = Calendar2Change
        OnDrawDate = Calendar2DrawDate
        OnSelectColor = Calendar2SelectColor
        ColWidths = (
          20
          20
          20
          20
          20
          20
          23)
        RowHeights = (
          17
          14
          14
          14
          14
          14
          16)
      end
    end
  end
  object RemindersPopup: TPopupMenu
    OnPopup = RemindersPopupPopup
    Left = 384
    Top = 208
    object AddEvent1: TMenuItem
      Caption = 'Add Event...'
      OnClick = AddEvent1Click
    end
    object EditEvent1: TMenuItem
      Caption = 'Edit Event...'
      OnClick = EditEvent1Click
    end
    object DeleteEvent1: TMenuItem
      Caption = 'Delete Event'
      OnClick = DeleteEvent1Click
    end
    object ViewEvent2: TMenuItem
      Caption = 'View Event...'
      OnClick = ViewEvent1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object AcknowledgeEvent1: TMenuItem
      Caption = 'Acknowledge Event...'
      OnClick = AcknowledgeEvent1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object ShowEvents: TMenuItem
      Caption = 'Show Completed Events'
      OnClick = ShowEventsClick
    end
    object ShowRecurring1: TMenuItem
      Caption = 'Show Future Recurring Events'
      OnClick = ShowRecurring1Click
    end
    object ShowNotes1: TMenuItem
      Caption = 'Show Event Notes'
      OnClick = ShowNotes2Click
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object Sortby2: TMenuItem
      Caption = 'Sort by'
      object Priority2: TMenuItem
        Tag = 1
        Caption = '&Priority'
        OnClick = Priority1Click
      end
      object Time2: TMenuItem
        Tag = 2
        Caption = '&Time'
        OnClick = Priority1Click
      end
      object Description2: TMenuItem
        Tag = 3
        Caption = '&Description'
        OnClick = Priority1Click
      end
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Today1: TMenuItem
      Caption = 'Today'
      OnClick = Today1Click
    end
    object GotoDate1: TMenuItem
      Caption = 'Go to Date...'
      OnClick = GotoDate1Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object ReminderOptions1: TMenuItem
      Caption = 'Reminder Options...'
      OnClick = ReminderOptions1Click
    end
  end
  object Main: TMainMenu
    Left = 264
    Top = 8
    object File2: TMenuItem
      Caption = '&File'
      Hint = 'File and Print Related Commands'
      OnClick = File2Click
      object New2: TMenuItem
        Caption = 'Ne&w Address Book...'
        Hint = 'Create a New Address Book'
        OnClick = New2Click
      end
      object Open2: TMenuItem
        Caption = '&Open Address Book...'
        Hint = 'Open an Existing Address book'
        OnClick = Open2Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object DiaryNew: TMenuItem
        Caption = '&New Diary...'
        Hint = 'Create a New Diary'
        OnClick = DiaryNewClick
      end
      object DiaryOpen: TMenuItem
        Caption = 'Op&en Diary...'
        Hint = 'Open an Existing Diary'
        OnClick = DiaryOpenClick
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object Reopen1: TMenuItem
        Caption = '&Reopen'
        Hint = 'Display the most recently used file list'
        object MRU1: TMenuItem
          Caption = '&1 - '
          Hint = 'Open Specified File'
          OnClick = MRU1Click
        end
        object MRU2: TMenuItem
          Tag = 1
          Caption = '&2 -'
          Hint = 'Open Specified File'
          OnClick = MRU1Click
        end
        object MRU3: TMenuItem
          Tag = 2
          Caption = '&3 - '
          Hint = 'Open Specified File'
          OnClick = MRU1Click
        end
        object MRU4: TMenuItem
          Tag = 3
          Caption = '&4 - '
          Hint = 'Open Specified File'
          OnClick = MRU1Click
        end
        object MRU5: TMenuItem
          Tag = 4
          Caption = '&5 - '
          Hint = 'Open Specified File'
          OnClick = MRU1Click
        end
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Save1: TMenuItem
        Caption = '&Save'
        Hint = 'Save the Diary Updates'
        OnClick = Save1Click
      end
      object Saveas1: TMenuItem
        Caption = 'Save &as...'
        Hint = 'Save the Diary to Another File'
        OnClick = Saveas1Click
      end
      object Close1: TMenuItem
        Caption = '&Close'
        Hint = 'Closes the Active Address Book or Calendar File'
        OnClick = Close1Click
        ShortCutText = 'Ctrl+F4'
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object Lock1: TMenuItem
        Caption = '&Lock Diary'
        OnClick = Lock1Click
      end
      object DiaryInfo1: TMenuItem
        Caption = 'Diary &Info...'
        Hint = 'Display File Information for the Current Diary'
        OnClick = DiaryInfo1Click
        ShortCutText = 'Ctrl+I'
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print...'
        Hint = 'Print Diary Events using the Print Wizard'
        OnClick = Print1Click
      end
      object QuickReports1: TMenuItem
        Caption = '&Quick Reports...'
        Hint = 'Print using a Stored Quick Report'
        OnClick = QuickReports1Click
        ShortCutText = 'Ctrl+P'
      end
      object PageSetup: TMenuItem
        Caption = 'Page &Designer...'
        Hint = 'Create or Modify Page Layout Designs'
        OnClick = PageSetupClick
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object Import1: TMenuItem
        Caption = 'I&mport...'
        Hint = 'Import Diary Events from a Text File'
        OnClick = Import1Click
      end
      object Export1: TMenuItem
        Caption = '&Export...'
        Hint = 'Export Diary Events to a Text File'
        OnClick = Export1Click
      end
      object MenuItem1: TMenuItem
        Caption = '-'
        Hint = 'File and Print Related Commands'
      end
      object Exit2: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit Smart Address'
        OnClick = Exit2Click
        ShortCutText = 'Alt+F4'
      end
    end
    object Options1: TMenuItem
      Caption = '&Tools'
      GroupIndex = 2
      Hint = 'Tool related Commands'
      object ChangeFont1: TMenuItem
        Caption = '&Change Screen Font....'
        Hint = 'Change the Screen Font Used for All Address Books'
        OnClick = ChangeFont1Click
      end
      object ConfigureModem1: TMenuItem
        Caption = 'Configure &Modem....'
        Hint = 'Configure the Modem for Auto-Dial of Telephone Numbers'
        OnClick = ConfigureModem1Click
      end
      object General1: TMenuItem
        Caption = '&Options...'
        Hint = 'Define General Options for Smart Address'
        OnClick = General1Click
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      GroupIndex = 5
      Hint = 'View Related Commands'
      object CalendarWindow1: TMenuItem
        Caption = '&Calendar'
        Hint = 'View the Calendar'
        OnClick = CalendarWindow1Click
        ShortCutText = 'F12'
      end
    end
    object Reminders2: TMenuItem
      Caption = 'Re&minders'
      GroupIndex = 5
      Hint = 'Reminders Page Related Commands'
      OnClick = Reminders2Click
      object AddEvent2: TMenuItem
        Caption = '&Add Event...'
        Hint = 'Add a New Reminder Event to the Current Entry'
        OnClick = AddEvent1Click
      end
      object EditEvent2: TMenuItem
        Caption = '&Edit Event...'
        Hint = 'Edit the Selected Reminder Event'
        OnClick = EditEvent1Click
      end
      object DeleteEvent2: TMenuItem
        Caption = '&Delete Event...'
        Hint = 'Delete the Selected Reminder Event from the Current Entry'
        OnClick = DeleteEvent1Click
      end
      object ViewEvent1: TMenuItem
        Caption = '&View Event...'
        GroupIndex = 7
        Hint = 'Display all Details Relating to the Selected Event'
        OnClick = ViewEvent1Click
      end
      object N5: TMenuItem
        Caption = '-'
        GroupIndex = 7
      end
      object AcknowledgeEvent2: TMenuItem
        Caption = 'Ac&knowledge Event...'
        GroupIndex = 7
        Hint = 'Acknowledge the Selected Reminder Event'
        OnClick = AcknowledgeEvent1Click
      end
      object N4: TMenuItem
        Caption = '-'
        GroupIndex = 7
      end
      object ShowEvents2: TMenuItem
        Caption = '&Show Completed Events'
        GroupIndex = 7
        Hint = 'Includes Completed Events in the List of Reminders Displayed'
        OnClick = ShowEventsClick
      end
      object ShowRecurring2: TMenuItem
        Caption = 'Show &Future Recurring Events'
        GroupIndex = 7
        Hint = 'Includes Future Events in the List of Reminders Displayed'
        OnClick = ShowRecurring1Click
      end
      object ShowNotes2: TMenuItem
        Caption = 'Show Event &Notes'
        GroupIndex = 7
        Hint = 'Includes Event Notes in the List of Reminders Displayed'
        OnClick = ShowNotes2Click
      end
      object N7: TMenuItem
        Caption = '-'
        GroupIndex = 7
      end
      object SortBy1: TMenuItem
        Caption = 'Sort &by'
        GroupIndex = 7
        Hint = 'Choose the Event Display Order '
        OnClick = SortBy1Click
        object Priority1: TMenuItem
          Tag = 1
          Caption = '&Priority'
          Hint = 'Display the Events in Priority Order'
          OnClick = Priority1Click
        end
        object DateTime1: TMenuItem
          Tag = 2
          Caption = '&Time'
          Hint = 'Display the Events in Date and Time Order'
          OnClick = Priority1Click
        end
        object Description1: TMenuItem
          Tag = 3
          Caption = '&Description'
          Hint = 'Display the Events in Description Order'
          OnClick = Priority1Click
        end
      end
      object N11: TMenuItem
        Caption = '-'
        GroupIndex = 7
      end
      object Today2: TMenuItem
        Caption = 'Select &Todays Date'
        GroupIndex = 7
        Hint = 'Change the Calendar Date to Todays Date'
        OnClick = Today1Click
      end
      object GotoDate2: TMenuItem
        Caption = '&Go to Date...'
        GroupIndex = 7
        Hint = 'Change the Calendar Date to Todays Date'
        OnClick = GotoDate2Click
      end
    end
  end
  object ODSHelp1: TODSHelp
    HelpText.Strings = (
      'AcknowledgeEvent1'
      'AcknowledgeEvent2'
      'AddEvent1'
      'AddEvent2'
      'Calendar2'
      'CalendarWindow1'
      'ChangeFont1'
      'Close1'
      'ConfigureModem1'
      'DateTime1'
      'DeleteEvent1'
      'DeleteEvent2'
      'Description1'
      'Description2'
      'DiaryInfo1'
      'DiaryNew'
      'DiaryOpen'
      'EditEvent1'
      'EditEvent2'
      'Exit2'
      'Export1'
      'File2'
      'General1'
      'GotoDate1'
      'GotoDate2'
      'Header'
      'Import1'
      'L_Temp'
      'Label_Day'
      'Label_DayName'
      'Label_Month'
      'Label2'
      'Label3'
      'Line1'
      'Lock1'
      'Main'
      'MenuItem1'
      'MRU1'
      'MRU2'
      'MRU3'
      'MRU4'
      'MRU5'
      'N1'
      'N10'
      'N11'
      'N12'
      'N13'
      'N14'
      'N16'
      'N2'
      'N3'
      'N4'
      'N5'
      'N6'
      'N7'
      'N8'
      'N9'
      'New2'
      'ODSHelp1'
      'Open2'
      'Options1'
      'PageSetup'
      'Panel1'
      'Panel2'
      'Print1'
      'Priority1'
      'Priority2'
      'QuickReports1'
      'ReminderOptions1'
      'Reminders'
      'Reminders2'
      'RemindersPopup'
      'Reopen1'
      'Save1'
      'Saveas1'
      'ShowEvents'
      'ShowEvents2'
      'ShowNotes1'
      'ShowNotes2'
      'ShowRecurring1'
      'ShowRecurring2'
      'SortBy1'
      'Sortby2'
      'Time2'
      'Today1'
      'Today2'
      'View1'
      'ViewEvent1'
      'ViewEvent2')
    HelpText.HelpData = {
      5900010000000001000000000100000000010000000001000000000100000000
      01000000000100000000010000D500546869732063616C656E64617220616C6C
      6F777320646174657320746F2062652073656C656374656420717569636B6C79
      2062792073696D706C7920636C69636B696E67206F6E20746865206461792072
      657175697265642E0D0A0D0A497420616C736F20696E646963617465732C2069
      662074686572652061726520616E792072656D696E6465727320736368656475
      6C656420666F72206120706172746963756C6172206461792C20627920686967
      686C69676874696E67207468652064617920636F6E6365726E656420696E2052
      65642E00010F0000000100000000010000000001000000000100000000010000
      0000010000000001000000000100000000010000000001000000000100000000
      0100000000010000000001000000000100000000010000000001000000000100
      0000000100000000010000000001000000000100000000010000000001000000
      0001000000000100000000010000000001000000000100000000010000000001
      0000000001000000000100000000010000000001000000000100000000010000
      0000010000000001000000000100000000010000D40054686973204865616465
      72206669656C6420616C6C6F77732074686520636F6C756D6E73206265696E67
      20646973706C617965642C20746F2062652072652D73697A6520746F20737569
      7420726571756972656D656E742E0D0A0D0A546F2072652D73697A6520612063
      6F6C756D6E2C20706C61636520746865206D6F75736520706F696E746572206F
      7665722074686520636F6C756D6E20627265616B2C207468656E20636C69636B
      20616E64206472616720746865206D6F75736520746F20746865207265717569
      7265642073697A652E00010F0000000100000000010000000001000000000100
      0000000100000000010000000001000000000100000000010000000001000000
      0001000000000100000000010000000001000000000100000000010000000001
      0000000001000000000100000000010000000001000000000100000000010000
      0000010000000001000000000100000000010000000001000000000100000000
      0100000000010000000001000000000100000000010000000001000000000100
      0000000100000000010000000001000000000100000000010000000001000000
      0001000000000100000000010000000001000000000100000000010000000001
      0000000001000000000100000000010000000001000000000100000000010000
      0000010000000001000000000100000000010000000001000000000100000000
      0100000000010000000001000000000100000000010000000001000000000100
      0000000100000000010000000001000000000100000000010000E00054686973
      20736574206F6620726561642D6F6E6C79206669656C64732C2070726F766964
      6520696E666F726D6174696F6E20726567617264696E67207468652044696172
      792E0D0A0D0A54686520696E666F726D6174696F6E20696E636C756465732074
      6865206461792063757272656E746C7920646973706C617965642C2074686520
      6E756D626572206F662072656D696E6465727320666F72207468617420646174
      6520616E642074686520646179206E756D6265722C20696E2072656C6174696F
      6E20746F2074686520796561722C206F662074686520646174652E00010F0000
      0001000000000100000000010000000001000000000100000000010000000001
      0000000001000000000100000000010000000001000000000100000000010000
      990154686973206C6973742C20646973706C617973207468652072656D696E64
      65727320666F72207468652063757272656E746C7920646973706C6179656420
      646174652E2054686520666F726D617420616E64206F72646572206F66207468
      697320646973706C6179206D617920626520636F6E6669677572656420627920
      757365206F6620746865202252656D696E6465727322206D656E752C206F7220
      636C69636B696E6720746865207269676874206D6F75736520627574746F6E20
      6F6E2074686973206C6973742E0D0A0D0A54686572652061726520766172696F
      757320696E64696361746F727320757365642077697468696E2074686973206C
      69737420746F20646573637269626520746865207479706520616E6420737461
      7465206F6620656163682072656D696E6465722E20466F7220612066756C6C20
      6465736372697074696F6E206F6620746865736520696E64696361746F72732C
      20636C69636B206F6E20224D6F726520496E666F726D6174696F6E2E2E2E2220
      61742074686520666F6F74206F66207468697320746578742E2000010B000000
      0100000000010000000001000000000100000000010000000001000000000100
      0000000100000000010000000001000000000100000000010000000001000000
      0001000000000100000000010000000001000000000100000000010000000001
      0000000001000000000100000000010000000001000000000100000000010000
      0000010000000001000000000100000000010000000001000000000100000000
      010000000001000000000100000000010000000001000000000100000000}
    Color = 15269887
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = True
    MaxWidth = 300
    MoreText = 'More Information...'
    Left = 224
    Top = 8
  end
end