From de6af7176847260b32c998fd50f6c088327f2adf Mon Sep 17 00:00:00 2001 From: alexs75 Date: Tue, 22 Oct 2019 10:30:15 +0000 Subject: [PATCH] RxFPC:fix RxDBGrid export to PDF setup form size git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7163 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../trunk/rxdb/rxdbgridexportpdfsetupunit.lfm | 147 +++++++++--------- 1 file changed, 74 insertions(+), 73 deletions(-) diff --git a/components/rx/trunk/rxdb/rxdbgridexportpdfsetupunit.lfm b/components/rx/trunk/rxdb/rxdbgridexportpdfsetupunit.lfm index 589ff7860..a50c5e60f 100644 --- a/components/rx/trunk/rxdb/rxdbgridexportpdfsetupunit.lfm +++ b/components/rx/trunk/rxdb/rxdbgridexportpdfsetupunit.lfm @@ -1,21 +1,21 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm Left = 544 - Height = 416 + Height = 454 Top = 316 Width = 522 Caption = 'Export params' - ClientHeight = 416 + ClientHeight = 454 ClientWidth = 522 OnCreate = FormCreate Position = poScreenCenter - LCLVersion = '1.9.0.0' + LCLVersion = '2.1.0.0' object Label1: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner Left = 6 - Height = 13 + Height = 17 Top = 6 - Width = 78 + Width = 99 BorderSpacing.Around = 6 Caption = 'Export file name' FocusControl = FileNameEdit1 @@ -28,8 +28,8 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 12 - Height = 21 - Top = 25 + Height = 34 + Top = 29 Width = 504 Filter = 'All files (*.*)|*.*|LibreOffice/OpenOffice (*.ods)|*.ods|Excell 97-2003|*.xls|Excell 2007-2013|*.xlxs' FilterIndex = 0 @@ -44,8 +44,8 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm end object ButtonPanel1: TButtonPanel Left = 6 - Height = 34 - Top = 376 + Height = 46 + Top = 402 Width = 510 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True @@ -65,14 +65,15 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 6 - Height = 117 - Top = 52 + Height = 144 + Top = 69 Width = 510 Anchors = [akTop, akLeft, akRight] + AutoSize = True BorderSpacing.Around = 6 Caption = 'Global' - ClientHeight = 99 - ClientWidth = 506 + ClientHeight = 126 + ClientWidth = 508 TabOrder = 2 object ColorBox1: TColorBox AnchorSideLeft.Control = Label5 @@ -80,10 +81,10 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Side = asrBottom AnchorSideRight.Control = GroupBox1 AnchorSideRight.Side = asrBottom - Left = 265 - Height = 22 - Top = 71 - Width = 235 + Left = 266 + Height = 33 + Top = 87 + Width = 236 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors] Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 @@ -94,10 +95,10 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideLeft.Control = Label3 AnchorSideTop.Control = CheckBox6 AnchorSideTop.Side = asrBottom - Left = 259 - Height = 13 - Top = 52 - Width = 46 + Left = 260 + Height = 17 + Top = 64 + Width = 61 BorderSpacing.Around = 6 Caption = 'Title color' ParentColor = False @@ -106,10 +107,10 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideLeft.Control = Label3 AnchorSideTop.Control = cbOverwriteExisting AnchorSideTop.Side = asrBottom - Left = 259 - Height = 17 - Top = 29 - Width = 86 + Left = 260 + Height = 23 + Top = 35 + Width = 112 BorderSpacing.Around = 6 Caption = 'Export images' TabOrder = 1 @@ -117,10 +118,10 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm object cbOverwriteExisting: TCheckBox AnchorSideLeft.Control = Label3 AnchorSideTop.Control = GroupBox1 - Left = 259 - Height = 17 + Left = 260 + Height = 23 Top = 6 - Width = 123 + Width = 155 BorderSpacing.Around = 6 Caption = 'Overwrite existing file' Enabled = False @@ -130,9 +131,9 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideLeft.Control = GroupBox1 AnchorSideTop.Control = GroupBox1 Left = 6 - Height = 17 + Height = 23 Top = 6 - Width = 106 + Width = 133 BorderSpacing.Around = 6 Caption = 'Open after export' TabOrder = 3 @@ -142,9 +143,9 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Control = cbOpenAfterExport AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 29 - Width = 123 + Height = 23 + Top = 35 + Width = 159 BorderSpacing.Around = 6 Caption = 'Export column header' TabOrder = 4 @@ -154,9 +155,9 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Control = cbExportColumnHeader AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 52 - Width = 119 + Height = 23 + Top = 64 + Width = 155 BorderSpacing.Around = 6 Caption = 'Export column footer' TabOrder = 5 @@ -166,9 +167,9 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Control = cbExportColumnFooter AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 75 - Width = 99 + Height = 23 + Top = 93 + Width = 130 BorderSpacing.Around = 6 Caption = 'Export cell colors' TabOrder = 6 @@ -177,7 +178,7 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideLeft.Control = GroupBox1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = GroupBox1 - Left = 253 + Left = 254 Height = 1 Top = 0 Width = 1 @@ -191,22 +192,22 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 6 - Height = 139 - Top = 175 + Height = 169 + Top = 219 Width = 510 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Around = 6 Caption = 'PDF Options' - ClientHeight = 121 - ClientWidth = 506 + ClientHeight = 151 + ClientWidth = 508 TabOrder = 3 object CheckBox1: TCheckBox AnchorSideTop.Control = GroupBox2 Left = 6 - Height = 17 + Height = 23 Top = 6 - Width = 55 + Width = 73 BorderSpacing.Around = 6 Caption = 'Out line' TabOrder = 0 @@ -216,9 +217,9 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Control = CheckBox1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 29 - Width = 88 + Height = 23 + Top = 35 + Width = 113 BorderSpacing.Around = 6 Caption = 'Compress text' TabOrder = 1 @@ -228,9 +229,9 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Control = CheckBox2 AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 52 - Width = 93 + Height = 23 + Top = 64 + Width = 122 BorderSpacing.Around = 6 Caption = 'Compress fonts' TabOrder = 2 @@ -240,9 +241,9 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Control = CheckBox3 AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 75 - Width = 101 + Height = 23 + Top = 93 + Width = 133 BorderSpacing.Around = 6 Caption = 'Compress images' TabOrder = 3 @@ -252,9 +253,9 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Control = CheckBox4 AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 98 - Width = 84 + Height = 23 + Top = 122 + Width = 108 BorderSpacing.Around = 6 Caption = 'Use raw JPEG' TabOrder = 4 @@ -263,10 +264,10 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideLeft.Control = Label4 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GroupBox2 - Left = 260 - Height = 13 + Left = 261 + Height = 17 Top = 6 - Width = 53 + Width = 64 BorderSpacing.Around = 6 Caption = 'Paper type' ParentColor = False @@ -277,13 +278,13 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Side = asrBottom AnchorSideRight.Control = GroupBox2 AnchorSideRight.Side = asrBottom - Left = 266 - Height = 21 - Top = 25 - Width = 234 + Left = 267 + Height = 33 + Top = 29 + Width = 235 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 - ItemHeight = 13 + ItemHeight = 0 Style = csDropDownList TabOrder = 5 end @@ -294,10 +295,10 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideTop.Side = asrBottom AnchorSideRight.Control = GroupBox2 AnchorSideRight.Side = asrBottom - Left = 260 - Height = 52 - Top = 52 - Width = 240 + Left = 261 + Height = 64 + Top = 68 + Width = 241 Anchors = [akTop, akLeft, akRight] AutoFill = True AutoSize = True @@ -310,8 +311,8 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 34 - ClientWidth = 236 + ClientHeight = 46 + ClientWidth = 239 Items.Strings = ( 'Portrait' 'Landscape' @@ -322,7 +323,7 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm AnchorSideLeft.Control = GroupBox2 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = GroupBox2 - Left = 253 + Left = 254 Height = 1 Top = 0 Width = 1