You've already forked lazarus-ccr
jvcllaz: Activate LCL scaling for TJvYearGrid. Publish Font property. Update demo project.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7285 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -7,6 +7,7 @@ object MainForm: TMainForm
|
||||
Caption = 'JvYearGrid Demo'
|
||||
ClientHeight = 546
|
||||
ClientWidth = 1310
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '2.1.0.0'
|
||||
object JvYearGrid1: TJvYearGrid
|
||||
@ -97,78 +98,74 @@ object MainForm: TMainForm
|
||||
AnchorSideTop.Control = JvYearGrid1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 97
|
||||
Height = 89
|
||||
Top = 264
|
||||
Width = 730
|
||||
Width = 905
|
||||
AutoSize = True
|
||||
BorderSpacing.Bottom = 16
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 97
|
||||
ClientWidth = 730
|
||||
ClientHeight = 89
|
||||
ClientWidth = 905
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
object EdLeftMargin: TSpinEdit
|
||||
AnchorSideTop.Control = EdTopMargin
|
||||
object edLeftMargin: TSpinEdit
|
||||
AnchorSideTop.Control = edTopMargin
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Label4
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 24
|
||||
Height = 23
|
||||
Top = 31
|
||||
Top = 27
|
||||
Width = 50
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Left = 16
|
||||
BorderSpacing.Top = 4
|
||||
OnChange = EdLeftMarginChange
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
end
|
||||
object EdRightMargin: TSpinEdit
|
||||
AnchorSideLeft.Control = EdTopMargin
|
||||
object edRightMargin: TSpinEdit
|
||||
AnchorSideLeft.Control = edTopMargin
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = EdLeftMargin
|
||||
Left = 144
|
||||
AnchorSideTop.Control = edLeftMargin
|
||||
Left = 136
|
||||
Height = 23
|
||||
Top = 31
|
||||
Top = 27
|
||||
Width = 50
|
||||
BorderSpacing.Left = 4
|
||||
OnChange = EdRightMarginChange
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
object EdTopMargin: TSpinEdit
|
||||
AnchorSideLeft.Control = EdLeftMargin
|
||||
object edTopMargin: TSpinEdit
|
||||
AnchorSideLeft.Control = edLeftMargin
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Panel1
|
||||
Left = 82
|
||||
Height = 23
|
||||
Top = 4
|
||||
Width = 58
|
||||
Top = 0
|
||||
Width = 50
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 4
|
||||
OnChange = EdTopMarginChange
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
end
|
||||
object EdBottomMargin: TSpinEdit
|
||||
AnchorSideLeft.Control = EdTopMargin
|
||||
AnchorSideTop.Control = EdLeftMargin
|
||||
object edBottomMargin: TSpinEdit
|
||||
AnchorSideLeft.Control = edTopMargin
|
||||
AnchorSideTop.Control = edLeftMargin
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 82
|
||||
Height = 23
|
||||
Top = 58
|
||||
Width = 58
|
||||
Top = 54
|
||||
Width = 50
|
||||
BorderSpacing.Top = 4
|
||||
OnChange = EdBottomMarginChange
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
end
|
||||
object cmbDayNamesAlignment: TComboBox
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = EdTopMargin
|
||||
Left = 414
|
||||
AnchorSideTop.Control = edTopMargin
|
||||
Left = 398
|
||||
Height = 23
|
||||
Top = 4
|
||||
Top = 0
|
||||
Width = 100
|
||||
BorderSpacing.Left = 8
|
||||
ItemHeight = 15
|
||||
@ -187,9 +184,9 @@ object MainForm: TMainForm
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = Label2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 250
|
||||
Left = 234
|
||||
Height = 15
|
||||
Top = 8
|
||||
Top = 4
|
||||
Width = 156
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Day names alignment/format'
|
||||
@ -197,17 +194,17 @@ object MainForm: TMainForm
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = EdRightMargin
|
||||
AnchorSideLeft.Control = edRightMargin
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cmbMonthNamesAlignment
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = Label1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 234
|
||||
Left = 218
|
||||
Height = 15
|
||||
Top = 35
|
||||
Top = 31
|
||||
Width = 172
|
||||
BorderSpacing.Left = 40
|
||||
BorderSpacing.Left = 32
|
||||
Caption = 'Month names alignment/format'
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
@ -218,9 +215,9 @@ object MainForm: TMainForm
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = cmbDayNamesAlignment
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 414
|
||||
Left = 398
|
||||
Height = 23
|
||||
Top = 31
|
||||
Top = 27
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
@ -240,9 +237,9 @@ object MainForm: TMainForm
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = Label1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 324
|
||||
Left = 308
|
||||
Height = 15
|
||||
Top = 62
|
||||
Top = 58
|
||||
Width = 82
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Days alignment'
|
||||
@ -255,13 +252,12 @@ object MainForm: TMainForm
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = cmbDayNamesAlignment
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 414
|
||||
Left = 398
|
||||
Height = 23
|
||||
Top = 58
|
||||
Top = 54
|
||||
Width = 100
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 16
|
||||
ItemHeight = 15
|
||||
Items.Strings = (
|
||||
'taLeftJustify'
|
||||
@ -273,17 +269,17 @@ object MainForm: TMainForm
|
||||
Style = csDropDownList
|
||||
TabOrder = 6
|
||||
end
|
||||
object CbFlat: TCheckBox
|
||||
AnchorSideLeft.Control = lblYear
|
||||
AnchorSideTop.Control = cmbMonthFormat
|
||||
object cmbFlat: TCheckBox
|
||||
AnchorSideLeft.Control = cmbMonthFormat
|
||||
AnchorSideTop.Control = cmbDaysAlignment
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 648
|
||||
Left = 506
|
||||
Height = 19
|
||||
Top = 33
|
||||
Top = 56
|
||||
Width = 39
|
||||
BorderSpacing.Right = 16
|
||||
Caption = 'Flat'
|
||||
OnChange = CbFlatChange
|
||||
OnChange = cmbFlatChange
|
||||
ParentFont = False
|
||||
TabOrder = 7
|
||||
end
|
||||
@ -291,9 +287,9 @@ object MainForm: TMainForm
|
||||
AnchorSideLeft.Control = cmbDayNamesAlignment
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cmbDayNamesAlignment
|
||||
Left = 522
|
||||
Left = 506
|
||||
Height = 23
|
||||
Top = 4
|
||||
Top = 0
|
||||
Width = 100
|
||||
BorderSpacing.Left = 8
|
||||
ItemHeight = 15
|
||||
@ -311,9 +307,9 @@ object MainForm: TMainForm
|
||||
AnchorSideLeft.Control = cmbDayNamesAlignment
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cmbMonthNamesAlignment
|
||||
Left = 522
|
||||
Left = 506
|
||||
Height = 23
|
||||
Top = 31
|
||||
Top = 27
|
||||
Width = 100
|
||||
BorderSpacing.Left = 8
|
||||
ItemHeight = 15
|
||||
@ -332,9 +328,9 @@ object MainForm: TMainForm
|
||||
AnchorSideTop.Control = cmbDayFormat
|
||||
AnchorSideBottom.Control = cmbDayFormat
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 673
|
||||
Left = 657
|
||||
Height = 23
|
||||
Top = 4
|
||||
Top = 0
|
||||
Width = 57
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Left = 3
|
||||
@ -350,9 +346,9 @@ object MainForm: TMainForm
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cmbDayFormat
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 648
|
||||
Left = 632
|
||||
Height = 15
|
||||
Top = 8
|
||||
Top = 4
|
||||
Width = 22
|
||||
BorderSpacing.Left = 26
|
||||
Caption = 'Year'
|
||||
@ -361,15 +357,88 @@ object MainForm: TMainForm
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = EdTopMargin
|
||||
AnchorSideTop.Control = edTopMargin
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 8
|
||||
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
Block a user