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

RxFPC:TRxLoginDialog - support for i18n. patch from Michal Gawrycki with small corrections

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6751 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-12-12 06:37:09 +00:00
parent e224f3a826
commit a0367219ee
23 changed files with 220 additions and 223 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
components/rx/trunk/rxdb/rxdbgrid_findunit.lfm
View File

@ -10,16 +10,16 @@ object rxDBGridFindForm: TrxDBGridFindForm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.5'
LCLVersion = '2.1.0.0'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideBottom.Control = Edit1
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 21
Height = 19
Top = 6
Width = 75
Width = 73
BorderSpacing.Around = 6
Caption = 'Text to find'
FocusControl = Edit1
@ -32,9 +32,9 @@ object rxDBGridFindForm: TrxDBGridFindForm
AnchorSideBottom.Control = ComboBox1
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 21
Top = 70
Width = 75
Height = 19
Top = 68
Width = 77
BorderSpacing.Around = 6
Caption = 'Find at filed'
ParentColor = False
@ -43,10 +43,10 @@ object rxDBGridFindForm: TrxDBGridFindForm
AnchorSideRight.Control = Button2
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 340
Height = 41
Top = 213
Width = 84
Left = 337
Height = 39
Top = 215
Width = 87
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
@ -64,8 +64,8 @@ object rxDBGridFindForm: TrxDBGridFindForm
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 430
Height = 41
Top = 213
Height = 39
Top = 215
Width = 57
Anchors = [akRight, akBottom]
AutoSize = True
@ -85,7 +85,7 @@ object rxDBGridFindForm: TrxDBGridFindForm
AnchorSideRight.Side = asrBottom
Left = 18
Height = 31
Top = 33
Top = 31
Width = 469
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
@ -98,8 +98,8 @@ object rxDBGridFindForm: TrxDBGridFindForm
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 35
Top = 97
Height = 31
Top = 93
Width = 475
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
@ -116,10 +116,10 @@ object rxDBGridFindForm: TrxDBGridFindForm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel1
AnchorSideBottom.Side = asrBottom
Left = 148
Height = 70
Top = 138
Width = 339
Left = 150
Height = 66
Top = 130
Width = 337
Anchors = [akTop, akLeft, akRight, akBottom]
AutoFill = True
AutoSize = True
@ -135,7 +135,7 @@ object rxDBGridFindForm: TrxDBGridFindForm
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 47
ClientHeight = 46
ClientWidth = 335
Columns = 3
Items.Strings = (
@ -150,22 +150,22 @@ object rxDBGridFindForm: TrxDBGridFindForm
AnchorSideTop.Control = ComboBox1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 70
Top = 138
Width = 136
Height = 66
Top = 130
Width = 138
AutoSize = True
BorderSpacing.Around = 6
ClientHeight = 70
ClientWidth = 136
ClientHeight = 66
ClientWidth = 138
TabOrder = 5
object CheckBox2: TCheckBox
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = CheckBox1
AnchorSideTop.Side = asrBottom
Left = 7
Height = 25
Top = 38
Width = 92
Height = 23
Top = 36
Width = 95
BorderSpacing.Around = 6
Caption = 'Partial key'
TabOrder = 0
@ -174,9 +174,9 @@ object rxDBGridFindForm: TrxDBGridFindForm
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 7
Height = 25
Height = 23
Top = 7
Width = 122
Width = 124
BorderSpacing.Around = 6
Caption = 'Case sensetive'
TabOrder = 1

6
components/rx/trunk/rxdb/rxdbgrid_findunit.pas
View File

@ -37,7 +37,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
StdCtrls, ExtCtrls, rxdbgrid, DB;
StdCtrls, ExtCtrls, rxdbgrid, DB, LCLType;
type
@ -69,7 +69,7 @@ type
procedure ShowRxDBGridFindForm(Grid:TRxDBGrid);
implementation
uses rxdbutils, DBGrids, rxdconst, LCLStrConsts;
uses rxdbutils, DBGrids, rxdconst;
{$R *.lfm}
@ -103,7 +103,7 @@ begin
RadioGroup1.Items.Add(sRxDbGridFindRangeForw);
RadioGroup1.Items.Add(sRxDbGridFindRangeBack);
BtnFind.Caption:=sRxFindMore;
Button2.Caption:=rsMbClose;
Button2.Caption:=GetButtonCaption(idButtonCancel);
RadioGroup1.ItemIndex:=0;
end;

36
components/rx/trunk/rxdb/rxdbgridfootertools_setup.lfm
View File

@ -9,7 +9,7 @@ object RxDBGridFooterTools_SetupForm: TRxDBGridFooterTools_SetupForm
OnCreate = FormCreate
Position = poScreenCenter
ShowHint = True
LCLVersion = '1.7'
LCLVersion = '2.1.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 42
@ -31,19 +31,19 @@ object RxDBGridFooterTools_SetupForm: TRxDBGridFooterTools_SetupForm
Height = 236
Top = 0
Width = 341
ActivePage = TabSheet2
ActivePage = TabSheet1
Align = alClient
TabIndex = 1
TabIndex = 0
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Functions'
ClientHeight = 198
ClientWidth = 335
ClientHeight = 203
ClientWidth = 331
object StringGrid1: TStringGrid
Left = 0
Height = 198
Height = 203
Top = 0
Width = 335
Width = 331
Align = alClient
AutoFillColumns = True
ColCount = 2
@ -52,7 +52,7 @@ object RxDBGridFooterTools_SetupForm: TRxDBGridFooterTools_SetupForm
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = 'Collumn name'
Width = 166
Width = 164
end
item
PickList.Strings = (
@ -68,29 +68,29 @@ object RxDBGridFooterTools_SetupForm: TRxDBGridFooterTools_SetupForm
)
Title.Alignment = taCenter
Title.Caption = 'Function'
Width = 167
Width = 165
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
TabOrder = 0
TitleStyle = tsNative
ColWidths = (
166
167
164
165
)
end
end
object TabSheet2: TTabSheet
Caption = 'Other options'
ClientHeight = 198
ClientWidth = 335
ClientHeight = 203
ClientWidth = 331
object Label1: TLabel
AnchorSideLeft.Control = TabSheet2
AnchorSideTop.Control = TabSheet2
Left = 6
Height = 20
Height = 19
Top = 6
Width = 108
Width = 109
BorderSpacing.Around = 6
Caption = 'Footer row color'
ParentColor = False
@ -102,9 +102,9 @@ object RxDBGridFooterTools_SetupForm: TRxDBGridFooterTools_SetupForm
AnchorSideRight.Control = TabSheet2
AnchorSideRight.Side = asrBottom
Left = 12
Height = 34
Top = 32
Width = 317
Height = 31
Top = 31
Width = 313
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames, cbCustomColors]
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6

4
components/rx/trunk/rxdb/rxfilterby.pas
View File

@ -113,7 +113,7 @@ var
rxFilterByForm: TrxFilterByForm;
implementation
uses rxdconst, rxstrutils, DBGrids;
uses rxdconst, rxstrutils, DBGrids, Buttons, LCLType;
{$R *.lfm}
@ -170,7 +170,7 @@ begin
Label5.Caption:=sRxFilterFormOperand;
Label6.Caption:=sRxFilterFormEnd;
Button3.Caption:=sRxFilterFormClear;
Button2.Caption:=sRxFilterFormCancel;
Button2.Caption:=GetButtonCaption(idButtonCancel);
Button1.Caption:=sRxFilterFormApply;
end;