object Custom: TCustom Left = 0 Top = 42 BorderStyle = bsSingle Caption = 'Custom' ClientHeight = 418 ClientWidth = 628 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object IntFreeLbl: TLabel Left = 96 Top = 318 Width = 122 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Interest-Free Intvl' Visible = False end object TaxLbl: TLabel Left = 14 Top = 318 Width = 31 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Tax' Visible = False end object ChrgTimeIntvlLabel: TLabel Left = 12 Top = 344 Width = 165 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Minimum Time Charged' Visible = False end object OKBtn: TButton Left = 550 Top = 4 Width = 73 Height = 29 Caption = '&Ok' ModalResult = 1 TabOrder = 0 TabStop = False OnClick = OKBtnClick end object CancelBtn: TButton Left = 550 Top = 36 Width = 73 Height = 29 Cancel = True Caption = '&Cancel' TabOrder = 1 TabStop = False OnClick = OKBtnClick end object TimeDateBox: TGroupBox Left = 254 Top = 6 Width = 193 Height = 57 Caption = 'Time, Date Display' TabOrder = 10 object NonEuroTm: TRadioButton Left = 6 Top = 18 Width = 181 Height = 17 HelpContext = 808 Caption = '12-hr, MM/DD/YY' TabOrder = 0 OnClick = TmClick end object EuroTm: TRadioButton Left = 6 Top = 36 Width = 181 Height = 17 HelpContext = 808 Caption = '24-hr, DD/MM/YY' TabOrder = 1 OnClick = TmClick end end object PromptForBox: TGroupBox Left = 454 Top = 294 Width = 167 Height = 115 Caption = 'Prompt For' TabOrder = 17 object Reminders: TCheckBox Left = 10 Top = 96 Width = 153 Height = 17 HelpContext = 814 Caption = 'Reminders' TabOrder = 3 end object AlarmBox: TGroupBox Left = 6 Top = 16 Width = 157 Height = 79 TabOrder = 2 object MaxBeepsLabel: TLabel Left = 4 Top = 16 Width = 89 Height = 19 AutoSize = False Caption = 'Alarm Beeps' end object AlrmIntvlLabel: TLabel Left = 6 Top = 36 Width = 97 Height = 19 AutoSize = False Caption = 'Pre-Interval' end object ReAlrmIntvlLabel: TLabel Left = 6 Top = 56 Width = 112 Height = 16 Caption = 'Re-Alarm Interval' end object AlrmIntvl: TMaskEdit Left = 122 Top = 36 Width = 31 Height = 22 HelpContext = 814 EditMask = '99;1;_' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] MaxLength = 2 ParentFont = False TabOrder = 0 Text = ' ' OnKeyDown = KeyDown end object ReAlrmIntvl: TMaskEdit Left = 122 Top = 56 Width = 31 Height = 22 HelpContext = 814 EditMask = '99;1;_' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] MaxLength = 2 ParentFont = False TabOrder = 1 Text = ' ' OnKeyDown = KeyDown end end object AlarmCheckBox: TCheckBox Left = 10 Top = 16 Width = 111 Height = 17 HelpContext = 814 Caption = 'Event Alarms' TabOrder = 1 OnClick = AlarmCheckBoxClick end object MaxBeeps: TMaskEdit Left = 100 Top = 32 Width = 59 Height = 22 HelpContext = 814 Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] MaxLength = 40 ParentFont = False TabOrder = 0 OnKeyDown = KeyDown end end object ReligiousDateBox: TGroupBox Left = 256 Top = 140 Width = 191 Height = 147 Caption = 'Include on Daily Listings' TabOrder = 12 object Muslim: TCheckBox Left = 10 Top = 20 Width = 167 Height = 17 HelpContext = 810 Caption = 'Muslim' TabOrder = 0 OnClick = Click end object Jewish: TCheckBox Left = 10 Top = 38 Width = 175 Height = 17 HelpContext = 810 Caption = 'Jewish' TabOrder = 1 OnClick = Click end object Christian: TCheckBox Left = 10 Top = 56 Width = 165 Height = 17 HelpContext = 810 Caption = 'Christian' TabOrder = 2 OnClick = Click end object ReportRelig: TCheckBox Left = 10 Top = 126 Width = 177 Height = 17 HelpContext = 810 Caption = 'Include on Reports' TabOrder = 5 OnClick = ReportReligClick end object latlongbox: TGroupBox Left = 6 Top = 74 Width = 179 Height = 51 TabOrder = 3 OnExit = latlongboxExit object latLabel: TLabel Left = 6 Top = 16 Width = 79 Height = 8 AutoSize = False Caption = 'Latitude' Font.Color = clWindowText Font.Height = -8 Font.Name = 'Arial' Font.Style = [fsUnderline] ParentFont = False end object longLabel: TLabel Left = 90 Top = 16 Width = 81 Height = 8 AutoSize = False Caption = 'Longitude' Font.Color = clWindowText Font.Height = -8 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object latitude: TMaskEdit Left = 6 Top = 26 Width = 79 Height = 22 HelpContext = 810 EditMask = 'l:99:99:99;1;_' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpFixed Font.Style = [] MaxLength = 10 ParentFont = False TabOrder = 0 Text = 'N:00:00:00' OnKeyDown = KeyDown end object Longitude: TMaskEdit Left = 90 Top = 26 Width = 83 Height = 22 HelpContext = 810 EditMask = 'l:999:99:99;1;_' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] MaxLength = 11 ParentFont = False TabOrder = 1 Text = 'W:000:00:00' OnKeyDown = KeyDown end end object RiseSetCheckBox: TCheckBox Left = 10 Top = 74 Width = 133 Height = 17 HelpContext = 810 Caption = 'Sunrise / Sunset' TabOrder = 4 OnClick = RiseSetCheckBoxClick end end object TermSubsBox: TGroupBox Left = 254 Top = 70 Width = 369 Height = 65 Caption = 'Term Substitutions' TabOrder = 11 TabStop = True object TermSubsGrid: TStringGrid Left = 4 Top = 16 Width = 361 Height = 47 HelpContext = 828 ColCount = 2 DefaultColWidth = 110 DefaultRowHeight = 20 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goEditing] ScrollBars = ssVertical TabOrder = 0 OnEnter = TermSubsGridEnter OnExit = TermSubsGridExit OnGetEditMask = TermSubsGridGetEditMask OnKeyDown = KeyDown OnSelectCell = TermSubsGridSelectCell OnSetEditText = TermSubsGridSetEditText RowHeights = ( 21 20 20 20 20) end end object WorkDayBox: TGroupBox Left = 452 Top = 140 Width = 169 Height = 107 Caption = 'Work Day' TabOrder = 13 object WorkDayBegin: TLabel Left = 4 Top = 18 Width = 83 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'Begin Time' end object WorkDayEnd: TLabel Left = 4 Top = 38 Width = 81 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'End Time' end object WorkDayBeginTime: TMaskEdit Left = 96 Top = 14 Width = 69 Height = 24 HelpContext = 812 MaxLength = 0 TabOrder = 0 OnEnter = WorkDayTimeEnter OnExit = WorkDayTimeExit OnKeyPress = WorkDayKeyPress end object WorkDayEndTime: TMaskEdit Left = 96 Top = 34 Width = 69 Height = 24 HelpContext = 812 MaxLength = 0 TabOrder = 1 OnEnter = WorkDayTimeEnter OnExit = WorkDayTimeExit OnKeyPress = WorkDayKeyPress end object PartitionBox: TGroupBox Left = 6 Top = 58 Width = 157 Height = 45 TabOrder = 2 object PartitionLabel: TLabel Left = 4 Top = 20 Width = 149 Height = 19 AutoSize = False Caption = 'Interval: Min' end object PartitionInterval: TMaskEdit Left = 72 Top = 18 Width = 25 Height = 24 HelpContext = 812 EditMask = '##;1;_' MaxLength = 2 TabOrder = 0 Text = ' ' OnKeyDown = KeyDown end end object PartitionCheckBox: TCheckBox Left = 10 Top = 58 Width = 145 Height = 17 HelpContext = 812 Caption = 'Partition Day' TabOrder = 3 OnClick = PartitionCheckBoxClick end end object FirstWeekDayBox: TGroupBox Left = 10 Top = 232 Width = 241 Height = 35 Caption = '1st Week Day' TabOrder = 2 object SundayBtn: TRadioButton Left = 6 Top = 16 Width = 107 Height = 17 HelpContext = 806 Caption = 'Sunday' TabOrder = 0 OnClick = Click end object MondayBtn: TRadioButton Left = 120 Top = 16 Width = 117 Height = 17 HelpContext = 806 Caption = 'Monday' TabOrder = 1 OnClick = Click end end object JulianDateCheckBox: TCheckBox Left = 460 Top = 252 Width = 155 Height = 17 HelpContext = 818 Caption = 'Display Julian Dates' TabOrder = 15 OnClick = Click end object DragBox: TGroupBox Left = 258 Top = 294 Width = 189 Height = 115 Caption = 'Daily Event Dragging' TabOrder = 14 TabStop = True object DragDeadLn: TCheckBox Left = 10 Top = 18 Width = 155 Height = 17 HelpContext = 816 Caption = 'Drag Deadlines' TabOrder = 0 OnClick = Click end object DragRmndr: TCheckBox Left = 10 Top = 42 Width = 157 Height = 17 HelpContext = 816 Caption = 'Drag Reminders' TabOrder = 1 OnClick = Click end object DragPlan: TCheckBox Left = 10 Top = 66 Width = 157 Height = 17 HelpContext = 816 Caption = 'Drag Plan Deadlines' TabOrder = 2 OnClick = Click end object dragConfirm: TCheckBox Left = 10 Top = 90 Width = 157 Height = 17 HelpContext = 816 Caption = 'Confirm All Dragging' TabOrder = 3 OnClick = Click end end object PasswordCheckBox: TCheckBox Left = 14 Top = 392 Width = 235 Height = 17 HelpContext = 822 Caption = 'Request Password upon Entry' TabOrder = 9 OnClick = Click end object DailyTimeBlocksCheckBox: TCheckBox Left = 14 Top = 370 Width = 235 Height = 17 HelpContext = 826 Caption = 'Fill in Month'#39's Daily Squares' TabOrder = 8 OnClick = Click end object GrpBox: TGroupBox Left = 8 Top = 140 Width = 243 Height = 87 Caption = 'Employee Groups' TabOrder = 19 object GrpGrid: TStringGrid Left = 4 Top = 17 Width = 233 Height = 66 HelpContext = 804 ColCount = 2 DefaultColWidth = 50 DefaultRowHeight = 20 FixedCols = 0 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goTabs] ParentFont = False ScrollBars = ssVertical TabOrder = 0 OnEnter = EmpGridEnter OnExit = GrpGridExit OnGetEditMask = GrpGridGetEditMask OnKeyDown = KeyDown end end object JulianWeekCheckBox: TCheckBox Left = 460 Top = 272 Width = 163 Height = 17 HelpContext = 820 Caption = 'Display Julian Weeks' TabOrder = 16 OnClick = Click end object EmpBox: TGroupBox Left = 6 Top = 6 Width = 243 Height = 129 Caption = 'Employees' TabOrder = 18 TabStop = True object EmpGrid: TStringGrid Left = 4 Top = 17 Width = 233 Height = 108 HelpContext = 802 ColCount = 2 DefaultColWidth = 50 DefaultRowHeight = 20 FixedCols = 0 RowCount = 200 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goTabs] ParentFont = False ScrollBars = ssVertical TabOrder = 0 OnEnter = EmpGridEnter OnExit = EmpGridExit OnGetEditMask = EmpGridGetEditMask OnKeyDown = KeyDown OnSelectCell = EmpGridSelectCell end end object BookKeepingBox: TGroupBox Left = 12 Top = 272 Width = 239 Height = 35 Caption = 'Bookkeeping' TabOrder = 3 object AutoUpdateGL: TCheckBox Left = 4 Top = 16 Width = 113 Height = 17 HelpContext = 830 Caption = 'AutoUpdate GL' TabOrder = 0 end object DoubleEntry: TCheckBox Left = 124 Top = 16 Width = 113 Height = 17 HelpContext = 832 Caption = 'Double-Entry' TabOrder = 1 end end object IntFree: TMaskEdit Left = 222 Top = 314 Width = 29 Height = 24 HelpContext = 821 MaxLength = 2 TabOrder = 5 Visible = False OnExit = IntFreeExit end object Tax: TMaskEdit Left = 50 Top = 314 Width = 37 Height = 24 HelpContext = 823 MaxLength = 5 TabOrder = 4 Visible = False OnExit = TaxExit end object ChrgTimeIntvl1: TMaskEdit Left = 182 Top = 340 Width = 33 Height = 24 HelpContext = 835 MaxLength = 0 TabOrder = 6 Visible = False OnExit = ChrgTimeIntvl1Exit end object ChrgTimeIntvl2: TMaskEdit Left = 218 Top = 340 Width = 33 Height = 24 HelpContext = 835 MaxLength = 0 TabOrder = 7 Visible = False OnExit = ChrgTimeIntvl2Exit end object MainMenu1: TMainMenu object Help: TMenuItem Caption = '&Help' ShortCut = 0 OnClick = HelpQuickHelpClick end end end