paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter, Replace functions/procedures dialog: improved localization

Browse Source 
git-svn-id: trunk@28423 -
This commit is contained in:
maxim 2010-11-23 00:20:23 +00:00
parent 8133d8be54
commit 84b618c492
3 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
converter/replacefuncsunit.lfm
View File

@ -11,8 +11,8 @@ object ReplaceFuncsForm: TReplaceFuncsForm
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 39 Height = 34
Top = 581 Top = 586
Width = 916 Width = 916
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.Caption = '&OK' OKButton.Caption = '&OK'
@ -32,7 +32,7 @@ object ReplaceFuncsForm: TReplaceFuncsForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel AnchorSideBottom.Control = ButtonPanel
Left = 162 Left = 162
Height = 575 Height = 580
Top = 0 Top = 0
Width = 766 Width = 766
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -77,8 +77,8 @@ object ReplaceFuncsForm: TReplaceFuncsForm
AnchorSideRight.Control = Splitter1 AnchorSideRight.Control = Splitter1
AnchorSideBottom.Control = ButtonPanel AnchorSideBottom.Control = ButtonPanel
Left = 0 Left = 0
Height = 544 Height = 553
Top = 31 Top = 27
Width = 157 Width = 157
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 5 BorderSpacing.Top = 5
@ -95,11 +95,11 @@ object ReplaceFuncsForm: TReplaceFuncsForm
end end
object CategoriesLabel: TLabel object CategoriesLabel: TLabel
Left = 6 Left = 6
Height = 18 Height = 14
Top = 8 Top = 8
Width = 149 Width = 110
Caption = 'Categories to convert :' BorderSpacing.Right = 6
Font.Height = -13 Caption = 'Categories to convert:'
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end

1
converter/replacefuncsunit.pas
View File

@ -112,6 +112,7 @@ begin
RFForm:=TReplaceFuncsForm.Create(nil); RFForm:=TReplaceFuncsForm.Create(nil);
try try
RFForm.Caption:=aTitle; RFForm.Caption:=aTitle;
RFForm.CategoriesLabel.Caption:=lisConvDelphiCategories;
RFForm.Grid.Columns[0].Title.Caption:=lisCEOModeCategory; RFForm.Grid.Columns[0].Title.Caption:=lisCEOModeCategory;
RFForm.Grid.Columns[1].Title.Caption:=lisConvDelphiFunc; RFForm.Grid.Columns[1].Title.Caption:=lisConvDelphiFunc;
RFForm.Grid.Columns[2].Title.Caption:=lisReplacement; RFForm.Grid.Columns[2].Title.Caption:=lisReplacement;

1
ide/lazarusidestrconsts.pas
View File

@ -489,6 +489,7 @@ resourcestring
lisConvCoordOffs = 'Coordinate offsets'; lisConvCoordOffs = 'Coordinate offsets';
lisConvCoordHint = 'An offset is added to Top coordinate of controls inside visual containers'; lisConvCoordHint = 'An offset is added to Top coordinate of controls inside visual containers';
lisConvFuncsToReplace = 'Functions / procedures to replace'; lisConvFuncsToReplace = 'Functions / procedures to replace';
lisConvDelphiCategories = 'Categories:';
lisConvFuncReplacements = 'Function Replacements'; lisConvFuncReplacements = 'Function Replacements';
lisConvFuncReplHint = 'Some Delphi functions can be replaced with LCL function'; lisConvFuncReplHint = 'Some Delphi functions can be replaced with LCL function';
lisConvDelphiName = 'Delphi Name'; lisConvDelphiName = 'Delphi Name';