object frmDate: TfrmDate Left = 243 Top = 225 ActiveControl = Calendar1 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle Caption = 'Date Selector' ClientHeight = 183 ClientWidth = 335 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 0 Top = 0 Width = 335 Height = 24 Align = alTop Alignment = taCenter Caption = 'Label1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Calendar1: TCalendar Left = 8 Top = 28 Width = 319 Height = 116 HelpContext = 54 StartOfWeek = 0 TabOrder = 0 OnChange = Calendar1Change end object cmdOk: TButton Left = 8 Top = 152 Width = 75 Height = 25 Caption = '&Ok' ModalResult = 1 TabOrder = 1 OnClick = cmdOkClick end object cmdCancel: TButton Left = 253 Top = 152 Width = 75 Height = 25 Caption = 'Cance&l' ModalResult = 2 TabOrder = 2 end object cmdYearUp: TButton Left = 293 Top = 3 Width = 33 Height = 21 HelpContext = 51 Caption = '>>>' TabOrder = 3 OnClick = cmdYearUpClick end object cmdYearDn: TButton Left = 8 Top = 3 Width = 33 Height = 21 HelpContext = 50 Caption = '<<<' TabOrder = 4 OnClick = cmdYearDnClick end object cmdMonDn: TButton Left = 41 Top = 3 Width = 33 Height = 21 HelpContext = 52 Caption = '<' TabOrder = 5 OnClick = cmdMonDnClick end object cmdMonUp: TButton Left = 260 Top = 3 Width = 33 Height = 21 HelpContext = 53 Caption = '>' TabOrder = 6 OnClick = cmdMonUpClick end object chkToday: TCheckBox Left = 129 Top = 156 Width = 78 Height = 17 HelpContext = 56 Caption = 'Goto Today' TabOrder = 7 end end