home *** CD-ROM | disk | FTP | other *** search
- object PropertiesForm: TPropertiesForm
- Left = 102
- Top = 85
- AutoSize = True
- BorderIcons = []
- BorderStyle = bsToolWindow
- Caption = 'Properties'
- ClientHeight = 297
- ClientWidth = 221
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel: TPanel
- Left = 0
- Top = 0
- Width = 221
- Height = 265
- Align = alTop
- Anchors = [akTop]
- BevelInner = bvLowered
- BevelOuter = bvLowered
- TabOrder = 0
- object ModemPort: TRadioGroup
- Left = 16
- Top = 8
- Width = 73
- Height = 129
- Caption = 'Modem Port'
- Items.Strings = (
- 'TAPI'
- 'COM1:'
- 'COM2:'
- 'COM3:'
- 'COM4:')
- TabOrder = 0
- end
- object Colours: TGroupBox
- Left = 16
- Top = 140
- Width = 193
- Height = 101
- Caption = 'Schedule Colours'
- TabOrder = 1
- object Overdue: TButton
- Left = 128
- Top = 12
- Width = 57
- Height = 25
- Caption = 'Overdue'
- TabOrder = 0
- OnClick = OverdueClick
- end
- object Coming: TButton
- Left = 128
- Top = 68
- Width = 57
- Height = 25
- Caption = 'Coming'
- TabOrder = 1
- OnClick = ComingClick
- end
- object Today: TButton
- Left = 128
- Top = 40
- Width = 57
- Height = 25
- Caption = 'Today'
- TabOrder = 2
- OnClick = TodayClick
- end
- object Sample: TPanel
- Left = 8
- Top = 16
- Width = 117
- Height = 77
- BevelInner = bvLowered
- BevelOuter = bvLowered
- Color = clWindow
- TabOrder = 3
- object OverdueLabel: TLabel
- Left = 4
- Top = 4
- Width = 109
- Height = 17
- AutoSize = False
- Caption = 'Overdue Event'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object OverdueTodayLabel: TLabel
- Left = 4
- Top = 20
- Width = 109
- Height = 17
- AutoSize = False
- Caption = 'Overdue Today'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object ComingTodayLabel: TLabel
- Left = 4
- Top = 36
- Width = 109
- Height = 17
- AutoSize = False
- Caption = 'Coming up Today'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object ComingLabel: TLabel
- Left = 4
- Top = 52
- Width = 109
- Height = 17
- AutoSize = False
- Caption = 'Coming up'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- end
- object AlarmSound: TRadioGroup
- Left = 96
- Top = 8
- Width = 113
- Height = 129
- Caption = 'Alarm Sound'
- Items.Strings = (
- 'No Sound'
- 'Win Asterisk'
- 'Win Exclamation'
- 'Win Critical Stop'
- 'Win Question')
- TabOrder = 2
- OnClick = AlarmSoundClick
- end
- object ShowHints: TCheckBox
- Left = 16
- Top = 244
- Width = 125
- Height = 17
- Caption = 'Show Hints'
- TabOrder = 3
- end
- end
- object OK: TBitBtn
- Left = 164
- Top = 272
- Width = 53
- Height = 25
- TabOrder = 1
- OnClick = OKClick
- Kind = bkOK
- end
- object ColorDialog: TColorDialog
- Ctl3D = True
- Left = 8
- Top = 268
- end
- end
-