From afce2639bd793a4f5dfb6df9bf69424c9d5fb79f Mon Sep 17 00:00:00 2001 From: alexs75 Date: Mon, 28 Jul 2014 07:26:28 +0000 Subject: [PATCH] TRxDBGridExportSpreadSheet_ParamsForm - fix PageName edit box width git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3390 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/trunk/languages/rxdconst.es.po | 4 +- components/rx/trunk/languages/rxdconst.po | 2 +- components/rx/trunk/languages/rxdconst.ru.po | 4 +- components/rx/trunk/languages/rxdconst.uk.po | 4 +- .../rxdbgridexportspreadsheet_paramsunit.lfm | 42 +++++++------------ .../rxdbgridexportspreadsheet_paramsunit.pas | 1 - 6 files changed, 23 insertions(+), 34 deletions(-) diff --git a/components/rx/trunk/languages/rxdconst.es.po b/components/rx/trunk/languages/rxdconst.es.po index fa4838140..1171ce8c5 100644 --- a/components/rx/trunk/languages/rxdconst.es.po +++ b/components/rx/trunk/languages/rxdconst.es.po @@ -75,8 +75,8 @@ msgstr "Campo '%s' no usado en expresión de filtro" #: rxdconst.sexprbadnulltest #, fuzzy -#| msgid "NULL-values enabled in '=' и '<>'" -msgid "NULL-values enabled in '=' и '<>'" +#| msgid "NULL-values enabled in '=' и '<>'" +msgid "NULL-values enabled in '=' и '<>'" msgstr "Valor nulo habilitado en '=' y '<>'" #: rxdconst.sexprexpected diff --git a/components/rx/trunk/languages/rxdconst.po b/components/rx/trunk/languages/rxdconst.po index 6686c7d1b..40b98c58e 100644 --- a/components/rx/trunk/languages/rxdconst.po +++ b/components/rx/trunk/languages/rxdconst.po @@ -74,7 +74,7 @@ msgid "Field '%s' not used in filter expression" msgstr "" #: rxdconst.sexprbadnulltest -msgid "NULL-values enabled in '=' и '<>'" +msgid "NULL-values enabled in '=' и '<>'" msgstr "" #: rxdconst.sexprexpected diff --git a/components/rx/trunk/languages/rxdconst.ru.po b/components/rx/trunk/languages/rxdconst.ru.po index 38f3a8a9b..76ccdf6bf 100644 --- a/components/rx/trunk/languages/rxdconst.ru.po +++ b/components/rx/trunk/languages/rxdconst.ru.po @@ -75,8 +75,8 @@ msgstr "Поле '%s' не может быть использовано в вы #: rxdconst.sexprbadnulltest #, fuzzy -#| msgid "NULL-values enabled in '=' и '<>'" -msgid "NULL-values enabled in '=' и '<>'" +#| msgid "NULL-values enabled in '=' и '<>'" +msgid "NULL-values enabled in '=' и '<>'" msgstr "NULL-значения разрешены только в выражениях '=' и '<>'" #: rxdconst.sexprexpected diff --git a/components/rx/trunk/languages/rxdconst.uk.po b/components/rx/trunk/languages/rxdconst.uk.po index f479eba5b..b6fa70d48 100644 --- a/components/rx/trunk/languages/rxdconst.uk.po +++ b/components/rx/trunk/languages/rxdconst.uk.po @@ -84,8 +84,8 @@ msgstr "Поле '%s' не може бути використане в вира #: rxdconst.sexprbadnulltest #, fuzzy -#| msgid "NULL-values enabled in '=' и '<>'" -msgid "NULL-values enabled in '=' и '<>'" +#| msgid "NULL-values enabled in '=' и '<>'" +msgid "NULL-values enabled in '=' и '<>'" msgstr "NULL-значення дозволені тільки у виразах '=' і '<>'" #: rxdconst.sexprexpected diff --git a/components/rx/trunk/rxdbgridexportspreadsheet_paramsunit.lfm b/components/rx/trunk/rxdbgridexportspreadsheet_paramsunit.lfm index 7c37f7739..2a5ca5f62 100644 --- a/components/rx/trunk/rxdbgridexportspreadsheet_paramsunit.lfm +++ b/components/rx/trunk/rxdbgridexportspreadsheet_paramsunit.lfm @@ -1,10 +1,10 @@ object RxDBGridExportSpreadSheet_ParamsForm: TRxDBGridExportSpreadSheet_ParamsForm Left = 732 - Height = 267 + Height = 236 Top = 338 Width = 548 Caption = 'Export params' - ClientHeight = 267 + ClientHeight = 236 ClientWidth = 548 OnCreate = FormCreate Position = poScreenCenter @@ -40,27 +40,13 @@ object RxDBGridExportSpreadSheet_ParamsForm: TRxDBGridExportSpreadSheet_ParamsFo MaxLength = 0 TabOrder = 0 end - object Label2: TLabel - AnchorSideLeft.Control = FileNameEdit1 - AnchorSideTop.Control = FileNameEdit1 - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = FileNameEdit1 - AnchorSideRight.Side = asrBottom - Left = 12 - Height = 21 - Top = 70 - Width = 530 - Anchors = [akTop, akLeft, akRight] - Caption = 'Формат выгрузки: LibreOffice/OpenOffice (*.ods)' - ParentColor = False - end object Label3: TLabel AnchorSideLeft.Control = Label4 AnchorSideTop.Control = cbOverwriteExisting AnchorSideTop.Side = asrBottom Left = 280 Height = 21 - Top = 126 + Top = 99 Width = 71 BorderSpacing.Around = 6 Caption = 'Page name' @@ -70,10 +56,13 @@ object RxDBGridExportSpreadSheet_ParamsForm: TRxDBGridExportSpreadSheet_ParamsFo AnchorSideLeft.Control = Label3 AnchorSideTop.Control = Label3 AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom Left = 286 Height = 31 - Top = 153 - Width = 160 + Top = 126 + Width = 256 + Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 TabOrder = 1 end @@ -83,7 +72,7 @@ object RxDBGridExportSpreadSheet_ParamsForm: TRxDBGridExportSpreadSheet_ParamsFo AnchorSideTop.Side = asrBottom Left = 6 Height = 23 - Top = 155 + Top = 128 Width = 161 BorderSpacing.Around = 6 Caption = 'Export column footer' @@ -91,10 +80,11 @@ object RxDBGridExportSpreadSheet_ParamsForm: TRxDBGridExportSpreadSheet_ParamsFo end object cbOpenAfterExport: TCheckBox AnchorSideLeft.Control = Owner + AnchorSideTop.Control = FileNameEdit1 AnchorSideTop.Side = asrBottom Left = 6 Height = 23 - Top = 97 + Top = 70 Width = 140 BorderSpacing.Around = 6 Caption = 'Open after export' @@ -103,7 +93,7 @@ object RxDBGridExportSpreadSheet_ParamsForm: TRxDBGridExportSpreadSheet_ParamsFo object ButtonPanel1: TButtonPanel Left = 6 Height = 41 - Top = 220 + Top = 189 Width = 536 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True @@ -122,7 +112,7 @@ object RxDBGridExportSpreadSheet_ParamsForm: TRxDBGridExportSpreadSheet_ParamsFo AnchorSideTop.Side = asrBottom Left = 6 Height = 23 - Top = 126 + Top = 99 Width = 165 BorderSpacing.Around = 6 Caption = 'Export column header' @@ -134,7 +124,7 @@ object RxDBGridExportSpreadSheet_ParamsForm: TRxDBGridExportSpreadSheet_ParamsFo AnchorSideTop.Side = asrBottom Left = 6 Height = 23 - Top = 184 + Top = 157 Width = 136 BorderSpacing.Around = 6 Caption = 'Export cell colors' @@ -152,11 +142,11 @@ object RxDBGridExportSpreadSheet_ParamsForm: TRxDBGridExportSpreadSheet_ParamsFo end object cbOverwriteExisting: TCheckBox AnchorSideLeft.Control = Label4 - AnchorSideTop.Control = Label2 + AnchorSideTop.Control = FileNameEdit1 AnchorSideTop.Side = asrBottom Left = 280 Height = 23 - Top = 97 + Top = 70 Width = 166 BorderSpacing.Around = 6 Caption = 'Overwrite existing file' diff --git a/components/rx/trunk/rxdbgridexportspreadsheet_paramsunit.pas b/components/rx/trunk/rxdbgridexportspreadsheet_paramsunit.pas index 09b70043f..612cbb728 100644 --- a/components/rx/trunk/rxdbgridexportspreadsheet_paramsunit.pas +++ b/components/rx/trunk/rxdbgridexportspreadsheet_paramsunit.pas @@ -53,7 +53,6 @@ type edtPageName: TEdit; FileNameEdit1: TFileNameEdit; Label1: TLabel; - Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure FormCreate(Sender: TObject);