object DateDialogForm: TDateDialogForm Left = 380 Top = 185 BorderStyle = bsDialog Caption = 'DateDialogForm' ClientHeight = 250 ClientWidth = 188 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object DataGroupbox: TGroupBox Left = 1 Top = 0 Width = 185 Height = 217 Hint = '(C) 1996 Hans Luijten' Caption = ' &Date ' ParentShowHint = False ShowHint = False TabOrder = 0 object DateLabel: TLabel Left = 8 Top = 192 Width = 169 Height = 17 Alignment = taCenter AutoSize = False Caption = 'DateLabel' end object MonthSelector: TComboBox Left = 10 Top = 24 Width = 89 Height = 21 Style = csDropDownList DropDownCount = 12 ItemHeight = 13 TabOrder = 0 OnChange = MonthSelectorChange end object YearUpDown: TUpDown Left = 161 Top = 24 Width = 16 Height = 21 Min = -9999 Max = 9999 Position = 0 TabOrder = 3 Wrap = False OnClick = YearUpDownClick end object MonthGrid: TStringGrid Left = 10 Top = 56 Width = 165 Height = 129 ColCount = 7 Ctl3D = True DefaultColWidth = 23 DefaultRowHeight = 16 DragCursor = crDefault FixedColor = clBtnShadow FixedCols = 0 RowCount = 7 GridLineWidth = 0 Options = [goDrawFocusSelected] ParentCtl3D = False ScrollBars = ssNone TabOrder = 2 OnClick = MonthGridClick end object YearSelector: TEdit Left = 104 Top = 24 Width = 57 Height = 21 Enabled = False ReadOnly = True TabOrder = 1 Text = 'YearSelector' end end object OKButton: TBitBtn Left = 1 Top = 224 Width = 75 Height = 25 Caption = '&OK' TabOrder = 1 OnClick = OKButtonClick Kind = bkOK end object CancelButton: TBitBtn Left = 111 Top = 224 Width = 75 Height = 25 Caption = '&Fortryd' TabOrder = 2 OnClick = CancelButtonClick Kind = bkCancel end end