pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity
Files
901b92fa7253da596d484795c088fd52c0c54b41
lazarus-ccr/components/jvcllaz/examples/JvYearGrid/main.lfm

445 lines
10 KiB
Plaintext
Raw Blame History

object MainForm: TMainForm
Left = 361
Height = 546
Top = 215
Width = 1310
AutoSize = True
Caption = 'JvYearGrid Demo'
ClientHeight = 546
ClientWidth = 1310
OnActivate = FormActivate
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object JvYearGrid1: TJvYearGrid
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 248
Top = 8
Width = 882
HTMLBorder = False
HTMLFontName = 'Arial'
BorderColor = clCream
Year = 2018
AutoSizeOptions = [aoGrid, aoFirstColumn, aoFirstRow, aoColumns, aoRows]
FirstColWidth = 67
FirstRowHeight = 19
CellMargins.Left = 2
CellMargins.Top = 2
CellMargins.Right = 2
CellMargins.Bottom = 2
DayFormat = dfShort
WeekendDays = [wdSaturday, wdSunday]
MonthNamesAlignment = taCenter
DayNamesAlignment = taCenter
DaysAlignment = taCenter
DefaultColWidth = 19
BorderSpacing.Around = 8
ScrollBars = ssNone
TitleStyle = tsStandard
ColWidths = (
67
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
)
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 = 89
Top = 264
Width = 905
AutoSize = True
BorderSpacing.Bottom = 16
BevelOuter = bvNone
ClientHeight = 89
ClientWidth = 905
ParentFont = False
TabOrder = 1
object edLeftMargin: TSpinEdit
AnchorSideTop.Control = edTopMargin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Label4
AnchorSideRight.Side = asrBottom
Left = 24
Height = 23
Top = 27
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Left = 16
BorderSpacing.Top = 4
ParentFont = False
TabOrder = 0
end
object edRightMargin: TSpinEdit
AnchorSideLeft.Control = edTopMargin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edLeftMargin
Left = 136
Height = 23
Top = 27
Width = 50
BorderSpacing.Left = 4
ParentFont = False
TabOrder = 1
end
object edTopMargin: TSpinEdit
AnchorSideLeft.Control = edLeftMargin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 82
Height = 23
Top = 0
Width = 50
BorderSpacing.Left = 8
ParentFont = False
TabOrder = 2
end
object edBottomMargin: TSpinEdit
AnchorSideLeft.Control = edTopMargin
AnchorSideTop.Control = edLeftMargin
AnchorSideTop.Side = asrBottom
Left = 82
Height = 23
Top = 54
Width = 50
BorderSpacing.Top = 4
ParentFont = False
TabOrder = 3
end
object cmbDayNamesAlignment: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edTopMargin
Left = 398
Height = 23
Top = 0
Width = 100
BorderSpacing.Left = 8
ItemHeight = 15
Items.Strings = (
'taLeftJustify'
'taRightJustify'
'taCenter'
)
OnChange = cmbDayNamesAlignmentChange
ParentFont = False
Style = csDropDownList
TabOrder = 4
end
object Label1: TLabel
AnchorSideTop.Control = cmbDayNamesAlignment
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Label2
AnchorSideRight.Side = asrBottom
Left = 234
Height = 15
Top = 4
Width = 156
Anchors = [akTop, akRight]
Caption = 'Day names alignment/format'
ParentColor = False
ParentFont = False
end
object Label2: TLabel
AnchorSideLeft.Control = edRightMargin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbMonthNamesAlignment
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Label1
AnchorSideRight.Side = asrBottom
Left = 218
Height = 15
Top = 31
Width = 172
BorderSpacing.Left = 32
Caption = 'Month names alignment/format'
ParentColor = False
ParentFont = False
end
object cmbMonthNamesAlignment: TComboBox
AnchorSideLeft.Control = cmbDayNamesAlignment
AnchorSideTop.Control = cmbDayNamesAlignment
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cmbDayNamesAlignment
AnchorSideRight.Side = asrBottom
Left = 398
Height = 23
Top = 27
Width = 100
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ItemHeight = 15
Items.Strings = (
'taLeftJustify'
'taRightJustify'
'taCenter'
)
OnChange = cmbMonthNamesAlignmentChange
ParentFont = False
Style = csDropDownList
TabOrder = 5
end
object Label3: TLabel
AnchorSideTop.Control = cmbDaysAlignment
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Label1
AnchorSideRight.Side = asrBottom
Left = 308
Height = 15
Top = 58
Width = 82
Anchors = [akTop, akRight]
Caption = 'Days alignment'
ParentColor = False
ParentFont = False
end
object cmbDaysAlignment: TComboBox
AnchorSideLeft.Control = cmbDayNamesAlignment
AnchorSideTop.Control = cmbMonthNamesAlignment
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cmbDayNamesAlignment
AnchorSideRight.Side = asrBottom
Left = 398
Height = 23
Top = 54
Width = 100
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ItemHeight = 15
Items.Strings = (
'taLeftJustify'
'taRightJustify'
'taCenter'
)
OnChange = cmbDaysAlignmentChange
ParentFont = False
Style = csDropDownList
TabOrder = 6
end
object cmbFlat: TCheckBox
AnchorSideLeft.Control = cmbMonthFormat
AnchorSideTop.Control = cmbDaysAlignment
AnchorSideTop.Side = asrCenter
Left = 506
Height = 19
Top = 56
Width = 39
BorderSpacing.Right = 16
Caption = 'Flat'
OnChange = cmbFlatChange
ParentFont = False
TabOrder = 7
end
object cmbDayFormat: TComboBox
AnchorSideLeft.Control = cmbDayNamesAlignment
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbDayNamesAlignment
Left = 506
Height = 23
Top = 0
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
Left = 506
Height = 23
Top = 27
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
Left = 657
Height = 23
Top = 0
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
Left = 632
Height = 15
Top = 4
Width = 22
BorderSpacing.Left = 26
Caption = 'Year'
ParentColor = False
ParentFont = False
end
object Label4: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = edTopMargin
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 4
Width = 66
BorderSpacing.Left = 8
Caption = 'Cell margins'
ParentColor = False
end
object btnFont: TButton
AnchorSideLeft.Control = lblYear
AnchorSideTop.Control = cmbDaysAlignment
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = udYear
AnchorSideRight.Side = asrBottom
Left = 632
Height = 25
Top = 53
Width = 82
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Font...'
OnClick = btnFontClick
TabOrder = 11
end
object rgAutoSize: TCheckGroup
AnchorSideLeft.Control = udYear
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edTopMargin
Left = 730
Height = 89
Top = 0
Width = 167
AutoFill = True
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Right = 8
Caption = 'Auto size'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 69
ClientWidth = 163
Columns = 2
Items.Strings = (
'Grid'
'First column'
'First row'
'Columns'
'Rows'
)
OnItemClick = rgAutoSizeItemClick
TabOrder = 12
Data = {
050000000202020202
}
end
object cmbAutoSize: TCheckBox
AnchorSideTop.Control = rgAutoSize
AnchorSideRight.Control = rgAutoSize
AnchorSideRight.Side = asrBottom
Left = 877
Height = 19
Top = 0
Width = 20
Anchors = [akTop, akRight]
Checked = True
OnChange = cmbAutoSizeChange
State = cbChecked
TabOrder = 13
end
end
object FontDialog1: TFontDialog
MinFontSize = 0
MaxFontSize = 0
left = 568
top = 320
end
end
Reference in New Issue View Git Blame Copy Permalink