From b1900d6fb4b1b50e749a3143c07db2d07ac33886 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 16 Jan 2023 12:51:43 +0000 Subject: [PATCH] tvplanit: Improved layout of ganttview demo form. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8685 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/examples/gantt/main.lfm | 104 ++++++++++++++------ 1 file changed, 74 insertions(+), 30 deletions(-) diff --git a/components/tvplanit/examples/gantt/main.lfm b/components/tvplanit/examples/gantt/main.lfm index 0d7912a11..0fa38d844 100644 --- a/components/tvplanit/examples/gantt/main.lfm +++ b/components/tvplanit/examples/gantt/main.lfm @@ -12,7 +12,7 @@ object MainForm: TMainForm Cursor = crVSplit Left = 0 Height = 5 - Top = 306 + Top = 240 Width = 800 Align = alTop ResizeAnchor = akTop @@ -20,48 +20,64 @@ object MainForm: TMainForm object Panel1: TPanel Left = 0 Height = 66 - Top = 0 + Top = 534 Width = 800 - Align = alTop + Align = alBottom BevelOuter = bvNone ClientHeight = 66 ClientWidth = 800 TabOrder = 1 object Button1: TButton - Left = 10 + AnchorSideLeft.Control = Panel1 + AnchorSideTop.Control = Panel1 + Left = 6 Height = 25 - Top = 10 + Top = 6 Width = 77 AutoSize = True + BorderSpacing.Around = 6 Caption = 'All events' OnClick = Button1Click TabOrder = 0 end object Button2: TButton - Left = 95 + AnchorSideLeft.Control = Button1 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Panel1 + Left = 89 Height = 25 - Top = 10 + Top = 6 Width = 167 AutoSize = True + BorderSpacing.Around = 6 Caption = 'Week of selected date only' OnClick = Button2Click TabOrder = 1 end object Button3: TButton - Left = 272 + AnchorSideLeft.Control = Button2 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Panel1 + Left = 262 Height = 25 - Top = 8 + Top = 6 Width = 174 AutoSize = True + BorderSpacing.Around = 6 Caption = 'Month of selected date only' OnClick = Button3Click TabOrder = 2 end object CheckBox1: TCheckBox + AnchorSideLeft.Control = Button3 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Panel1 Left = 456 Height = 19 - Top = 8 + Top = 6 Width = 102 + BorderSpacing.Left = 20 + BorderSpacing.Top = 6 Caption = 'Show weekends' Checked = True OnChange = CheckBox1Change @@ -69,11 +85,16 @@ object MainForm: TMainForm TabOrder = 3 end object CheckGroup1: TCheckGroup + AnchorSideTop.Control = Panel1 + AnchorSideBottom.Control = Panel1 + AnchorSideBottom.Side = asrBottom Left = 581 - Height = 50 - Top = 10 + Height = 54 + Top = 6 Width = 185 + Anchors = [akTop, akLeft, akBottom] AutoFill = True + BorderSpacing.Around = 6 Caption = 'Show headers' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 @@ -83,7 +104,7 @@ object MainForm: TMainForm ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 3 - ClientHeight = 30 + ClientHeight = 34 ClientWidth = 181 Columns = 3 Items.Strings = ( @@ -98,10 +119,14 @@ object MainForm: TMainForm } end object CheckBox2: TCheckBox + AnchorSideLeft.Control = CheckBox1 + AnchorSideTop.Control = CheckBox1 + AnchorSideTop.Side = asrBottom Left = 456 Height = 19 - Top = 24 + Top = 31 Width = 32 + BorderSpacing.Top = 6 Caption = '3D' Checked = True OnChange = CheckBox2Change @@ -109,41 +134,60 @@ object MainForm: TMainForm TabOrder = 5 end object Button4: TButton - Left = 8 + AnchorSideLeft.Control = Panel1 + AnchorSideTop.Control = Button1 + AnchorSideTop.Side = asrBottom + Left = 6 Height = 25 Top = 37 Width = 129 AutoSize = True + BorderSpacing.Around = 6 Caption = 'Edit Print Formats...' OnClick = Button4Click TabOrder = 6 end object Button5: TButton - Left = 144 + AnchorSideLeft.Control = Button4 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Button1 + AnchorSideTop.Side = asrBottom + Left = 141 Height = 25 Top = 37 Width = 104 AutoSize = True + BorderSpacing.Around = 6 Caption = 'Print Preview...' OnClick = Button5Click TabOrder = 7 end object Button6: TButton - Left = 256 + AnchorSideLeft.Control = Button5 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Button1 + AnchorSideTop.Side = asrBottom + Left = 251 Height = 25 Top = 37 Width = 51 AutoSize = True + BorderSpacing.Around = 6 Caption = 'Print' OnClick = Button6Click TabOrder = 8 end object VpPrintFormatComboBox1: TVpPrintFormatComboBox - Left = 320 + AnchorSideLeft.Control = Button6 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = Button6 + AnchorSideTop.Side = asrCenter + Left = 308 Height = 23 - Top = 37 + Top = 38 Width = 126 ControlLink = VpControlLink1 + Borderspacing.Around = 6 ItemHeight = 15 Sorted = True TabOrder = 9 @@ -152,7 +196,7 @@ object MainForm: TMainForm object Panel2: TPanel Left = 0 Height = 240 - Top = 66 + Top = 0 Width = 800 Align = alTop Caption = 'Panel2' @@ -284,8 +328,8 @@ object MainForm: TMainForm end> FormatName = 'Gantt inc 10d' end> - Left = 79 - Top = 208 + Left = 288 + Top = 296 end object VpIniDatastore1: TVpIniDatastore CategoryColorMap.Category0.BackgroundColor = clSkyBlue @@ -318,8 +362,8 @@ object MainForm: TMainForm OnDateChanged = VpIniDatastore1DateChanged AutoConnect = True FileName = 'data.ini' - Left = 79 - Top = 144 + Left = 400 + Top = 296 end object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog Version = 'v1.7.0' @@ -331,8 +375,8 @@ object MainForm: TMainForm Placement.Left = 10 Placement.Height = 480 Placement.Width = 640 - Left = 79 - Top = 88 + Left = 128 + Top = 56 end object VpPrintPreviewDialog1: TVpPrintPreviewDialog Version = 'v1.7.0' @@ -347,11 +391,11 @@ object MainForm: TMainForm Placement.Left = 10 Placement.Height = 480 Placement.Width = 720 - Left = 223 - Top = 88 + Left = 128 + Top = 184 end object PrintDialog1: TPrintDialog - Left = 223 - Top = 144 + Left = 128 + Top = 120 end end