2016-11-03 23:42:04 +00:00
|
|
|
object Form1: TForm1
|
|
|
|
|
Left = 400
|
|
|
|
|
Height = 272
|
|
|
|
|
Top = 115
|
|
|
|
|
Width = 256
|
|
|
|
|
Caption = 'Form1'
|
|
|
|
|
ClientHeight = 272
|
|
|
|
|
ClientWidth = 256
|
|
|
|
|
Font.Height = -13
|
|
|
|
|
Font.Name = 'Tahoma'
|
|
|
|
|
KeyPreview = True
|
|
|
|
|
OnCreate = FormCreate
|
|
|
|
|
OnResize = FormResize
|
|
|
|
|
Position = poScreenCenter
|
2016-11-03 23:56:02 +00:00
|
|
|
LCLVersion = '1.6.0.4'
|
2016-11-03 23:42:04 +00:00
|
|
|
object edtYear: TEdit
|
|
|
|
|
Left = 122
|
|
|
|
|
Height = 18
|
|
|
|
|
Top = 15
|
|
|
|
|
Width = 38
|
|
|
|
|
Alignment = taCenter
|
|
|
|
|
AutoSize = False
|
|
|
|
|
BorderStyle = bsNone
|
|
|
|
|
OnKeyDown = edtYearKeyDown
|
|
|
|
|
ParentColor = True
|
|
|
|
|
TabOrder = 1
|
|
|
|
|
Text = 'Year'
|
|
|
|
|
end
|
|
|
|
|
object edtMonth: TEdit
|
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
|
AnchorSideTop.Control = edtYear
|
|
|
|
|
AnchorSideRight.Control = edtYear
|
|
|
|
|
Left = 84
|
|
|
|
|
Height = 18
|
|
|
|
|
Top = 15
|
|
|
|
|
Width = 38
|
|
|
|
|
Alignment = taCenter
|
|
|
|
|
Anchors = [akTop, akRight]
|
|
|
|
|
AutoSize = False
|
|
|
|
|
BorderStyle = bsNone
|
|
|
|
|
OnKeyDown = edtMonthKeyDown
|
|
|
|
|
ParentColor = True
|
|
|
|
|
TabOrder = 0
|
|
|
|
|
Text = 'Month'
|
|
|
|
|
end
|
|
|
|
|
object Label1: TLabel
|
|
|
|
|
Left = 5
|
|
|
|
|
Height = 30
|
|
|
|
|
Top = 237
|
|
|
|
|
Width = 246
|
|
|
|
|
Align = alBottom
|
|
|
|
|
BorderSpacing.Around = 5
|
|
|
|
|
Caption = 'Use Up/Down Arrows to change the Month/Year. Press and hold for long jumps.'
|
|
|
|
|
ParentColor = False
|
|
|
|
|
ParentFont = False
|
|
|
|
|
WordWrap = True
|
|
|
|
|
end
|
|
|
|
|
end
|
