pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Improved layout of ganttview demo form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8685 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-16 12:51:43 +00:00
parent fe1a95db7c
commit b1900d6fb4
1 changed files with 74 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

104
components/tvplanit/examples/gantt/main.lfm
View File

@ -12,7 +12,7 @@ object MainForm: TMainForm
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 306 Top = 240
Width = 800 Width = 800
Align = alTop Align = alTop
ResizeAnchor = akTop ResizeAnchor = akTop
@ -20,48 +20,64 @@ object MainForm: TMainForm
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 66 Height = 66
Top = 0 Top = 534
Width = 800 Width = 800
Align = alTop Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 66 ClientHeight = 66
ClientWidth = 800 ClientWidth = 800
TabOrder = 1 TabOrder = 1
object Button1: TButton object Button1: TButton
Left = 10 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 6
Height = 25 Height = 25
Top = 10 Top = 6
Width = 77 Width = 77
AutoSize = True AutoSize = True
BorderSpacing.Around = 6
Caption = 'All events' Caption = 'All events'
OnClick = Button1Click OnClick = Button1Click
TabOrder = 0 TabOrder = 0
end end
object Button2: TButton object Button2: TButton
Left = 95 AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 89
Height = 25 Height = 25
Top = 10 Top = 6
Width = 167 Width = 167
AutoSize = True AutoSize = True
BorderSpacing.Around = 6
Caption = 'Week of selected date only' Caption = 'Week of selected date only'
OnClick = Button2Click OnClick = Button2Click
TabOrder = 1 TabOrder = 1
end end
object Button3: TButton object Button3: TButton
Left = 272 AnchorSideLeft.Control = Button2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 262
Height = 25 Height = 25
Top = 8 Top = 6
Width = 174 Width = 174
AutoSize = True AutoSize = True
BorderSpacing.Around = 6
Caption = 'Month of selected date only' Caption = 'Month of selected date only'
OnClick = Button3Click OnClick = Button3Click
TabOrder = 2 TabOrder = 2
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
AnchorSideLeft.Control = Button3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 456 Left = 456
Height = 19 Height = 19
Top = 8 Top = 6
Width = 102 Width = 102
BorderSpacing.Left = 20
BorderSpacing.Top = 6
Caption = 'Show weekends' Caption = 'Show weekends'
Checked = True Checked = True
OnChange = CheckBox1Change OnChange = CheckBox1Change
@ -69,11 +85,16 @@ object MainForm: TMainForm
TabOrder = 3 TabOrder = 3
end end
object CheckGroup1: TCheckGroup object CheckGroup1: TCheckGroup
AnchorSideTop.Control = Panel1
AnchorSideBottom.Control = Panel1
AnchorSideBottom.Side = asrBottom
Left = 581 Left = 581
Height = 50 Height = 54
Top = 10 Top = 6
Width = 185 Width = 185
Anchors = [akTop, akLeft, akBottom]
AutoFill = True AutoFill = True
BorderSpacing.Around = 6
Caption = 'Show headers' Caption = 'Show headers'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
@ -83,7 +104,7 @@ object MainForm: TMainForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 30 ClientHeight = 34
ClientWidth = 181 ClientWidth = 181
Columns = 3 Columns = 3
Items.Strings = ( Items.Strings = (
@ -98,10 +119,14 @@ object MainForm: TMainForm
} }
end end
object CheckBox2: TCheckBox object CheckBox2: TCheckBox
AnchorSideLeft.Control = CheckBox1
AnchorSideTop.Control = CheckBox1
AnchorSideTop.Side = asrBottom
Left = 456 Left = 456
Height = 19 Height = 19
Top = 24 Top = 31
Width = 32 Width = 32
BorderSpacing.Top = 6
Caption = '3D' Caption = '3D'
Checked = True Checked = True
OnChange = CheckBox2Change OnChange = CheckBox2Change
@ -109,41 +134,60 @@ object MainForm: TMainForm
TabOrder = 5 TabOrder = 5
end end
object Button4: TButton object Button4: TButton
Left = 8 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Button1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 25 Height = 25
Top = 37 Top = 37
Width = 129 Width = 129
AutoSize = True AutoSize = True
BorderSpacing.Around = 6
Caption = 'Edit Print Formats...' Caption = 'Edit Print Formats...'
OnClick = Button4Click OnClick = Button4Click
TabOrder = 6 TabOrder = 6
end end
object Button5: TButton object Button5: TButton
Left = 144 AnchorSideLeft.Control = Button4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Button1
AnchorSideTop.Side = asrBottom
Left = 141
Height = 25 Height = 25
Top = 37 Top = 37
Width = 104 Width = 104
AutoSize = True AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print Preview...' Caption = 'Print Preview...'
OnClick = Button5Click OnClick = Button5Click
TabOrder = 7 TabOrder = 7
end end
object Button6: TButton object Button6: TButton
Left = 256 AnchorSideLeft.Control = Button5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Button1
AnchorSideTop.Side = asrBottom
Left = 251
Height = 25 Height = 25
Top = 37 Top = 37
Width = 51 Width = 51
AutoSize = True AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print' Caption = 'Print'
OnClick = Button6Click OnClick = Button6Click
TabOrder = 8 TabOrder = 8
end end
object VpPrintFormatComboBox1: TVpPrintFormatComboBox object VpPrintFormatComboBox1: TVpPrintFormatComboBox
Left = 320 AnchorSideLeft.Control = Button6
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Button6
AnchorSideTop.Side = asrCenter
Left = 308
Height = 23 Height = 23
Top = 37 Top = 38
Width = 126 Width = 126
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Borderspacing.Around = 6
ItemHeight = 15 ItemHeight = 15
Sorted = True Sorted = True
TabOrder = 9 TabOrder = 9
@ -152,7 +196,7 @@ object MainForm: TMainForm
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 240 Height = 240
Top = 66 Top = 0
Width = 800 Width = 800
Align = alTop Align = alTop
Caption = 'Panel2' Caption = 'Panel2'
@ -284,8 +328,8 @@ object MainForm: TMainForm
end> end>
FormatName = 'Gantt inc 10d' FormatName = 'Gantt inc 10d'
end> end>
Left = 79 Left = 288
Top = 208 Top = 296
end end
object VpIniDatastore1: TVpIniDatastore object VpIniDatastore1: TVpIniDatastore
CategoryColorMap.Category0.BackgroundColor = clSkyBlue CategoryColorMap.Category0.BackgroundColor = clSkyBlue
@ -318,8 +362,8 @@ object MainForm: TMainForm
OnDateChanged = VpIniDatastore1DateChanged OnDateChanged = VpIniDatastore1DateChanged
AutoConnect = True AutoConnect = True
FileName = 'data.ini' FileName = 'data.ini'
Left = 79 Left = 400
Top = 144 Top = 296
end end
object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
Version = 'v1.7.0' Version = 'v1.7.0'
@ -331,8 +375,8 @@ object MainForm: TMainForm
Placement.Left = 10 Placement.Left = 10
Placement.Height = 480 Placement.Height = 480
Placement.Width = 640 Placement.Width = 640
Left = 79 Left = 128
Top = 88 Top = 56
end end
object VpPrintPreviewDialog1: TVpPrintPreviewDialog object VpPrintPreviewDialog1: TVpPrintPreviewDialog
Version = 'v1.7.0' Version = 'v1.7.0'
@ -347,11 +391,11 @@ object MainForm: TMainForm
Placement.Left = 10 Placement.Left = 10
Placement.Height = 480 Placement.Height = 480
Placement.Width = 720 Placement.Width = 720
Left = 223 Left = 128
Top = 88 Top = 184
end end
object PrintDialog1: TPrintDialog object PrintDialog1: TPrintDialog
Left = 223 Left = 128
Top = 144 Top = 120
end end
end end