object frmAddTask: TfrmAddTask Left = 250 Top = 191 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderStyle = bsSingle Caption = 'Add New Task' ClientHeight = 247 ClientWidth = 371 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object PanelManager1: TPanelManager Left = 0 Top = 75 Width = 371 Height = 170 Caption = 'PanelManager1' TabOrder = 0 TabHeight = 15 OnPanelChange = PanelManager1PanelChange object AdvPanel: TMPanel Left = 10 Top = 0 Width = 361 Height = 43 Align = alTop BevelOuter = bvNone TabOrder = 0 TabCaption = 'Advanced Options' ParentTabColor = True object Label8: TLabel Left = 8 Top = 2 Width = 35 Height = 13 AutoSize = False Caption = 'Due at:' end object Label3: TLabel Left = 108 Top = 2 Width = 62 Height = 13 AutoSize = False Caption = 'Type of task:' end object edtTime1: TpvlTimeEdit Left = 13 Top = 20 Width = 89 Height = 22 QuickChangeWrap = True QuickChangeType = qcNone LoadTime = False Glyph.Data = { 32010000424D3201000000000000360000002800000009000000090000000100 180000000000FC00000000000000000000000000000000000000C0B79FC0B79F C0B79FC0B79FC0B79FC0B79FC0B79FC0B79F01FE9F00C0B79FC0B79FC0B79FC0 B79FC0B79FC0B79FC0B79FC0B79F01FE9F00C0B79FC0B79FC0B79FC0B79FC0B7 9FC0B79FC0B79FC0B79F01FE9F00C0B79FC0B79FC0B79FC0B79F000000C0B79F C0B79FC0B79F01FE9F00C0B79FC0B79FC0B79F000000000000000000C0B79FC0 B79F01FE9F00C0B79FC0B79F000000000000000000000000000000C0B79F01FE 9F00C0B79FC0B79FC0B79FC0B79FC0B79FC0B79FC0B79FC0B79F01FE9F00C0B7 9FC0B79FC0B79FC0B79FC0B79FC0B79FC0B79FC0B79F01FE9F00C0B79FC0B79F C0B79FC0B79FC0B79FC0B79FC0B79FC0B79F01FE9F00} Enabled = True ReadOnly = False TabOrder = 2 Visible = False DisplayFormat = dfShort SeparateHourHand = True end object Panel5: TPanel Left = 204 Top = 6 Width = 152 Height = 32 Caption = 'Panel5' TabOrder = 3 object chkEnableAlarm: TCheckBox Left = 7 Top = 9 Width = 139 Height = 15 Caption = 'Enable &alarm for this task' TabOrder = 0 end end object edtTime: TMaskEdit Left = 6 Top = 17 Width = 87 Height = 21 EditMask = '!00:00> LL;0;_' MaxLength = 8 TabOrder = 0 end object cboTaskType: TComboBox Left = 106 Top = 17 Width = 88 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'one-time' 'daily' 'weekly' 'bi-weekly' 'monthly') TabOrder = 1 end end object NotesPanel: TMPanel Left = 10 Top = 43 Width = 361 Height = 125 Align = alTop BevelOuter = bvNone TabOrder = 1 TabCaption = 'Notes' ParentTabColor = False object Label2: TLabel Left = 8 Top = 7 Width = 31 Height = 13 AutoSize = False Caption = 'Notes:' end object Bevel1: TBevel Left = 0 Top = 0 Width = 361 Height = 2 Align = alTop end object Label4: TLabel Left = 239 Top = 7 Width = 67 Height = 13 AutoSize = False Caption = 'Task Created:' Enabled = False end object lblCreateDate: TLabel Left = 309 Top = 7 Width = 46 Height = 13 AutoSize = False Caption = '01/01/80' Enabled = False end object mmoNotes: TMemo Left = 6 Top = 22 Width = 354 Height = 101 ScrollBars = ssVertical TabOrder = 0 OnChange = mmoNotesChange end end end object Panel2: TPanel Left = 0 Top = 0 Width = 371 Height = 75 Align = alTop BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 18 Top = 10 Width = 27 Height = 13 Alignment = taRightJustify Caption = 'Task:' end object Label7: TLabel Left = 18 Top = 33 Width = 38 Height = 13 AutoSize = False Caption = 'Due on:' end object Label10: TLabel Left = 216 Top = 33 Width = 34 Height = 13 AutoSize = False Caption = 'Priority:' end object Label9: TLabel Left = 118 Top = 33 Width = 45 Height = 13 AutoSize = False Caption = 'Category:' end object edtTask: TEdit Left = 48 Top = 6 Width = 205 Height = 21 TabOrder = 0 end object edtDate: TEdit Left = 16 Top = 49 Width = 66 Height = 21 TabOrder = 1 OnChange = edtDateChange end object btnShowCal: TBitBtn Left = 82 Top = 49 Width = 21 Height = 21 TabOrder = 2 TabStop = False OnClick = btnShowCalClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777000000000000007707778FF7FF7FF077077788F78F78F07708888877877 87077077780078F78F077077780E0FF78F0770888870E0777707700000FF0E07 FF077077770F70E0FF07077777707F0E0F070F7555707FF0E0070F7577704444 0E070F757770000000E070FFF707777777007700007777777777} Layout = blGlyphTop end object Panel3: TPanel Left = 274 Top = 6 Width = 93 Height = 65 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 5 object btnOK: TBitBtn Left = 9 Top = 6 Width = 75 Height = 25 TabOrder = 0 OnClick = btnOKClick Kind = bkOK end object btnCancel: TBitBtn Left = 9 Top = 34 Width = 75 Height = 25 TabOrder = 1 Kind = bkCancel end end object Panel4: TPanel Left = 0 Top = 0 Width = 10 Height = 75 TabOrder = 6 end object edtPriority: TComboBox Left = 214 Top = 49 Width = 39 Height = 21 ItemHeight = 13 Items.Strings = ( '1' '2' '3') TabOrder = 4 end object cboCategory: TComboBox Left = 116 Top = 49 Width = 88 Height = 21 ItemHeight = 13 TabOrder = 3 end end object CalComp1: TCalComp Day = 27 Month = 11 Year = 1997 Top = 208 Left = 24 Color = clBtnFace TextColor = clBlack SelectColor = clHighlight InversColor = clWhite WeekendColor = clBlack AlignControl = edtDate ShowMethod = smBottom NameofDays.Monday = 'Mo' NameofDays.Tuesday = 'Tu' NameofDays.Wednesday = 'We' NameofDays.Thursday = 'Th' NameofDays.Friday = 'Fr' NameofDays.Saturday = 'Sa' NameofDays.Sunday = 'Su' NameofMonths.January = 'Jan' NameofMonths.February = 'Feb' NameofMonths.March = 'Mar' NameofMonths.April = 'Apr' NameofMonths.May = 'May' NameofMonths.June = 'Jun' NameofMonths.July = 'Jul' NameofMonths.August = 'Aug' NameofMonths.September = 'Sep' NameofMonths.October = 'Oct' NameofMonths.November = 'Nov' NameofMonths.December = 'Dec' ShowWeeks = False Firstday = sdSunday YearStartAt.StartDay = 1 YearStartAt.StartMonth = 1 end end