2019-05-28 09:54:35 +00:00
|
|
|
object MainForm: TMainForm
|
|
|
|
Left = 361
|
2019-06-02 10:36:18 +00:00
|
|
|
Height = 546
|
2019-05-28 09:54:35 +00:00
|
|
|
Top = 215
|
2019-06-02 10:36:18 +00:00
|
|
|
Width = 1310
|
2018-04-20 12:58:33 +00:00
|
|
|
AutoSize = True
|
2019-05-28 09:54:35 +00:00
|
|
|
Caption = 'JvYearGrid Demo'
|
2019-06-02 10:36:18 +00:00
|
|
|
ClientHeight = 546
|
|
|
|
ClientWidth = 1310
|
2018-04-20 12:58:33 +00:00
|
|
|
OnCreate = FormCreate
|
2019-05-28 09:54:35 +00:00
|
|
|
LCLVersion = '2.1.0.0'
|
2018-04-20 12:58:33 +00:00
|
|
|
object JvYearGrid1: TJvYearGrid
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = Owner
|
|
|
|
Left = 8
|
|
|
|
Height = 248
|
|
|
|
Top = 8
|
2019-05-28 09:54:35 +00:00
|
|
|
Width = 882
|
2018-04-20 12:58:33 +00:00
|
|
|
HTMLBorder = False
|
|
|
|
HTMLFontName = 'Arial'
|
2019-05-28 09:54:35 +00:00
|
|
|
BorderColor = clCream
|
2018-04-20 12:58:33 +00:00
|
|
|
Year = 2018
|
|
|
|
AutoSizeOptions = [aoGrid, aoFirstColumn, aoFirstRow, aoColumns, aoRows]
|
|
|
|
FirstColWidth = 67
|
|
|
|
FirstRowHeight = 19
|
|
|
|
CellMargins.Left = 2
|
|
|
|
CellMargins.Top = 2
|
|
|
|
CellMargins.Right = 2
|
|
|
|
CellMargins.Bottom = 2
|
2019-05-28 09:54:35 +00:00
|
|
|
DayFormat = dfShort
|
2018-04-20 12:58:33 +00:00
|
|
|
WeekendDays = [wdSaturday, wdSunday]
|
|
|
|
MonthNamesAlignment = taCenter
|
|
|
|
DayNamesAlignment = taCenter
|
|
|
|
DaysAlignment = taCenter
|
2019-05-28 09:54:35 +00:00
|
|
|
DefaultColWidth = 19
|
2018-04-20 12:58:33 +00:00
|
|
|
BorderSpacing.Around = 8
|
|
|
|
ScrollBars = ssNone
|
|
|
|
TitleStyle = tsStandard
|
|
|
|
ColWidths = (
|
|
|
|
67
|
2019-05-28 09:54:35 +00:00
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
|
|
|
22
|
2018-04-20 12:58:33 +00:00
|
|
|
)
|
|
|
|
RowHeights = (
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
19
|
|
|
|
)
|
|
|
|
end
|
|
|
|
object Panel1: TPanel
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = JvYearGrid1
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 0
|
|
|
|
Height = 97
|
|
|
|
Top = 264
|
2019-06-02 10:36:18 +00:00
|
|
|
Width = 730
|
2018-04-20 12:58:33 +00:00
|
|
|
AutoSize = True
|
|
|
|
BevelOuter = bvNone
|
|
|
|
ClientHeight = 97
|
2019-06-02 10:36:18 +00:00
|
|
|
ClientWidth = 730
|
2019-05-28 09:54:35 +00:00
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
TabOrder = 1
|
|
|
|
object EdLeftMargin: TSpinEdit
|
|
|
|
AnchorSideTop.Control = EdTopMargin
|
|
|
|
AnchorSideTop.Side = asrBottom
|
2019-06-02 10:36:18 +00:00
|
|
|
AnchorSideRight.Control = Label4
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
Left = 24
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 31
|
|
|
|
Width = 50
|
2019-06-02 10:36:18 +00:00
|
|
|
Anchors = [akTop, akRight]
|
2018-04-20 12:58:33 +00:00
|
|
|
BorderSpacing.Left = 16
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
OnChange = EdLeftMarginChange
|
2019-05-28 09:54:35 +00:00
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object EdRightMargin: TSpinEdit
|
|
|
|
AnchorSideLeft.Control = EdTopMargin
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = EdLeftMargin
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 144
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 31
|
|
|
|
Width = 50
|
|
|
|
BorderSpacing.Left = 4
|
|
|
|
OnChange = EdRightMarginChange
|
2019-05-28 09:54:35 +00:00
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object EdTopMargin: TSpinEdit
|
|
|
|
AnchorSideLeft.Control = EdLeftMargin
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = Panel1
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 82
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 4
|
|
|
|
Width = 58
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
OnChange = EdTopMarginChange
|
2019-05-28 09:54:35 +00:00
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object EdBottomMargin: TSpinEdit
|
|
|
|
AnchorSideLeft.Control = EdTopMargin
|
|
|
|
AnchorSideTop.Control = EdLeftMargin
|
|
|
|
AnchorSideTop.Side = asrBottom
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 82
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 58
|
|
|
|
Width = 58
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
OnChange = EdBottomMarginChange
|
2019-05-28 09:54:35 +00:00
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
TabOrder = 3
|
|
|
|
end
|
2019-05-28 09:54:35 +00:00
|
|
|
object cmbDayNamesAlignment: TComboBox
|
2018-04-20 12:58:33 +00:00
|
|
|
AnchorSideLeft.Control = Label1
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = EdTopMargin
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 414
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 4
|
|
|
|
Width = 100
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
ItemHeight = 15
|
|
|
|
Items.Strings = (
|
|
|
|
'taLeftJustify'
|
|
|
|
'taRightJustify'
|
|
|
|
'taCenter'
|
|
|
|
)
|
2019-05-28 09:54:35 +00:00
|
|
|
OnChange = cmbDayNamesAlignmentChange
|
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
Style = csDropDownList
|
|
|
|
TabOrder = 4
|
|
|
|
end
|
|
|
|
object Label1: TLabel
|
2019-05-28 09:54:35 +00:00
|
|
|
AnchorSideTop.Control = cmbDayNamesAlignment
|
2018-04-20 12:58:33 +00:00
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
AnchorSideRight.Control = Label2
|
|
|
|
AnchorSideRight.Side = asrBottom
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 250
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 15
|
|
|
|
Top = 8
|
2019-05-28 09:54:35 +00:00
|
|
|
Width = 156
|
2018-04-20 12:58:33 +00:00
|
|
|
Anchors = [akTop, akRight]
|
2019-05-28 09:54:35 +00:00
|
|
|
Caption = 'Day names alignment/format'
|
2018-04-20 12:58:33 +00:00
|
|
|
ParentColor = False
|
2019-05-28 09:54:35 +00:00
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
end
|
|
|
|
object Label2: TLabel
|
|
|
|
AnchorSideLeft.Control = EdRightMargin
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
2019-05-28 09:54:35 +00:00
|
|
|
AnchorSideTop.Control = cmbMonthNamesAlignment
|
2018-04-20 12:58:33 +00:00
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
AnchorSideRight.Control = Label1
|
|
|
|
AnchorSideRight.Side = asrBottom
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 234
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 15
|
|
|
|
Top = 35
|
2019-05-28 09:54:35 +00:00
|
|
|
Width = 172
|
2018-04-20 12:58:33 +00:00
|
|
|
BorderSpacing.Left = 40
|
2019-05-28 09:54:35 +00:00
|
|
|
Caption = 'Month names alignment/format'
|
2018-04-20 12:58:33 +00:00
|
|
|
ParentColor = False
|
2019-05-28 09:54:35 +00:00
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
end
|
2019-05-28 09:54:35 +00:00
|
|
|
object cmbMonthNamesAlignment: TComboBox
|
|
|
|
AnchorSideLeft.Control = cmbDayNamesAlignment
|
|
|
|
AnchorSideTop.Control = cmbDayNamesAlignment
|
2018-04-20 12:58:33 +00:00
|
|
|
AnchorSideTop.Side = asrBottom
|
2019-05-28 09:54:35 +00:00
|
|
|
AnchorSideRight.Control = cmbDayNamesAlignment
|
2018-04-20 12:58:33 +00:00
|
|
|
AnchorSideRight.Side = asrBottom
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 414
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 31
|
|
|
|
Width = 100
|
|
|
|
Anchors = [akTop, akLeft, akRight]
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
ItemHeight = 15
|
|
|
|
Items.Strings = (
|
|
|
|
'taLeftJustify'
|
|
|
|
'taRightJustify'
|
|
|
|
'taCenter'
|
|
|
|
)
|
2019-05-28 09:54:35 +00:00
|
|
|
OnChange = cmbMonthNamesAlignmentChange
|
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
Style = csDropDownList
|
|
|
|
TabOrder = 5
|
|
|
|
end
|
|
|
|
object Label3: TLabel
|
2019-05-28 09:54:35 +00:00
|
|
|
AnchorSideTop.Control = cmbDaysAlignment
|
2018-04-20 12:58:33 +00:00
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
AnchorSideRight.Control = Label1
|
|
|
|
AnchorSideRight.Side = asrBottom
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 324
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 15
|
|
|
|
Top = 62
|
2019-05-28 09:54:35 +00:00
|
|
|
Width = 82
|
2018-04-20 12:58:33 +00:00
|
|
|
Anchors = [akTop, akRight]
|
2019-05-28 09:54:35 +00:00
|
|
|
Caption = 'Days alignment'
|
2018-04-20 12:58:33 +00:00
|
|
|
ParentColor = False
|
2019-05-28 09:54:35 +00:00
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
end
|
2019-05-28 09:54:35 +00:00
|
|
|
object cmbDaysAlignment: TComboBox
|
|
|
|
AnchorSideLeft.Control = cmbDayNamesAlignment
|
|
|
|
AnchorSideTop.Control = cmbMonthNamesAlignment
|
2018-04-20 12:58:33 +00:00
|
|
|
AnchorSideTop.Side = asrBottom
|
2019-05-28 09:54:35 +00:00
|
|
|
AnchorSideRight.Control = cmbDayNamesAlignment
|
2018-04-20 12:58:33 +00:00
|
|
|
AnchorSideRight.Side = asrBottom
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 414
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 58
|
|
|
|
Width = 100
|
|
|
|
Anchors = [akTop, akLeft, akRight]
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
BorderSpacing.Bottom = 16
|
|
|
|
ItemHeight = 15
|
|
|
|
Items.Strings = (
|
|
|
|
'taLeftJustify'
|
|
|
|
'taRightJustify'
|
|
|
|
'taCenter'
|
|
|
|
)
|
2019-05-28 09:54:35 +00:00
|
|
|
OnChange = cmbDaysAlignmentChange
|
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
Style = csDropDownList
|
|
|
|
TabOrder = 6
|
|
|
|
end
|
|
|
|
object CbFlat: TCheckBox
|
2019-05-28 09:54:35 +00:00
|
|
|
AnchorSideLeft.Control = lblYear
|
|
|
|
AnchorSideTop.Control = cmbMonthFormat
|
2018-04-20 12:58:33 +00:00
|
|
|
AnchorSideTop.Side = asrCenter
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 648
|
2018-04-20 12:58:33 +00:00
|
|
|
Height = 19
|
|
|
|
Top = 33
|
|
|
|
Width = 39
|
|
|
|
BorderSpacing.Right = 16
|
|
|
|
Caption = 'Flat'
|
|
|
|
OnChange = CbFlatChange
|
2019-05-28 09:54:35 +00:00
|
|
|
ParentFont = False
|
2018-04-20 12:58:33 +00:00
|
|
|
TabOrder = 7
|
|
|
|
end
|
2019-05-28 09:54:35 +00:00
|
|
|
object cmbDayFormat: TComboBox
|
|
|
|
AnchorSideLeft.Control = cmbDayNamesAlignment
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = cmbDayNamesAlignment
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 522
|
2019-05-28 09:54:35 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 4
|
|
|
|
Width = 100
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
ItemHeight = 15
|
|
|
|
Items.Strings = (
|
|
|
|
'dfInitial'
|
|
|
|
'dfShort'
|
|
|
|
'dfLong'
|
|
|
|
)
|
|
|
|
OnChange = cmbDayFormatChange
|
|
|
|
ParentFont = False
|
|
|
|
Style = csDropDownList
|
|
|
|
TabOrder = 8
|
|
|
|
end
|
|
|
|
object cmbMonthFormat: TComboBox
|
|
|
|
AnchorSideLeft.Control = cmbDayNamesAlignment
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = cmbMonthNamesAlignment
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 522
|
2019-05-28 09:54:35 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 31
|
|
|
|
Width = 100
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
ItemHeight = 15
|
|
|
|
Items.Strings = (
|
|
|
|
'mfShort'
|
|
|
|
'mfLong'
|
|
|
|
)
|
|
|
|
OnChange = cmbMonthFormatChange
|
|
|
|
ParentFont = False
|
|
|
|
Style = csDropDownList
|
|
|
|
TabOrder = 9
|
|
|
|
end
|
|
|
|
object udYear: TUpDown
|
|
|
|
AnchorSideLeft.Control = lblYear
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = cmbDayFormat
|
|
|
|
AnchorSideBottom.Control = cmbDayFormat
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 673
|
2019-05-28 09:54:35 +00:00
|
|
|
Height = 23
|
|
|
|
Top = 4
|
|
|
|
Width = 57
|
|
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
|
|
BorderSpacing.Left = 3
|
|
|
|
Max = 3000
|
|
|
|
Min = 0
|
|
|
|
OnClick = udYearClick
|
|
|
|
Orientation = udHorizontal
|
|
|
|
Position = 0
|
|
|
|
TabOrder = 10
|
|
|
|
end
|
|
|
|
object lblYear: TLabel
|
|
|
|
AnchorSideLeft.Control = cmbDayFormat
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = cmbDayFormat
|
|
|
|
AnchorSideTop.Side = asrCenter
|
2019-06-02 10:36:18 +00:00
|
|
|
Left = 648
|
2019-05-28 09:54:35 +00:00
|
|
|
Height = 15
|
|
|
|
Top = 8
|
|
|
|
Width = 22
|
|
|
|
BorderSpacing.Left = 26
|
|
|
|
Caption = 'Year'
|
|
|
|
ParentColor = False
|
|
|
|
ParentFont = False
|
|
|
|
end
|
2019-06-02 10:36:18 +00:00
|
|
|
object Label4: TLabel
|
|
|
|
AnchorSideLeft.Control = Panel1
|
|
|
|
AnchorSideTop.Control = EdTopMargin
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
Left = 8
|
|
|
|
Height = 15
|
|
|
|
Top = 8
|
|
|
|
Width = 66
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
Caption = 'Cell margins'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
2018-04-20 12:58:33 +00:00
|
|
|
end
|
|
|
|
end
|