paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 02:00:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Build Lazarus dialog: improved localization

Browse Source 
git-svn-id: trunk@36473 -
This commit is contained in:
maxim 2012-03-30 22:16:31 +00:00
parent db0546c3c3
commit e86ca8d180
2 changed files with 120 additions and 128 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

238
ide/buildlazdialog.lfm
View File

@ -12,7 +12,6 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
Constraints.MinWidth = 550
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
Position = poScreenCenter
@ -20,20 +19,20 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
object CBLDBtnPanel: TPanel
AnchorSideTop.Side = asrBottom
Left = 0
Height = 46
Top = 434
Height = 38
Top = 442
Width = 700
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 46
ClientHeight = 38
ClientWidth = 700
TabOrder = 0
object CancelButton: TBitBtn
Left = 619
Height = 34
Left = 617
Height = 26
Top = 6
Width = 75
Width = 77
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -45,10 +44,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 4
end
object SaveSettingsButton: TBitBtn
Left = 527
Height = 34
Left = 520
Height = 26
Top = 6
Width = 86
Width = 91
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -58,10 +57,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 3
end
object CompileButton: TBitBtn
Left = 342
Height = 34
Left = 331
Height = 26
Top = 6
Width = 58
Width = 63
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -72,9 +71,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object HelpButton: TBitBtn
Left = 6
Height = 34
Height = 26
Top = 6
Width = 62
Width = 66
Align = alLeft
AutoSize = True
BorderSpacing.Around = 6
@ -85,10 +84,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 0
end
object CompileAdvancedButton: TBitBtn
Left = 406
Height = 34
Left = 400
Height = 26
Top = 6
Width = 115
Width = 114
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -100,7 +99,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object PageControl1: TPageControl
Left = 0
Height = 434
Height = 442
Top = 0
Width = 700
ActivePage = InfoTabSheet
@ -109,27 +108,27 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 1
object BuildTabSheet: TTabSheet
Caption = 'BuildTabSheet'
ClientHeight = 402
ClientWidth = 694
ClientHeight = 416
ClientWidth = 692
object DetailsPanel: TPanel
Left = 0
Height = 402
Height = 416
Top = 0
Width = 694
Width = 692
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 402
ClientWidth = 694
ClientHeight = 416
ClientWidth = 692
TabOrder = 0
object BuildProfileLabel: TLabel
AnchorSideLeft.Control = DetailsPanel
AnchorSideTop.Control = BuildProfileComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 13
Width = 92
Height = 14
Top = 9
Width = 82
BorderSpacing.Top = 5
BorderSpacing.Around = 6
Caption = 'Profile to Build'
@ -142,15 +141,15 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BuildProfileButton
Left = 104
Height = 28
Left = 94
Height = 21
Hint = 'Name of the active profile.'
Top = 6
Width = 557
Width = 548
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
ItemHeight = 0
ItemHeight = 13
OnSelect = BuildProfileComboBoxSelect
ParentShowHint = False
ShowHint = True
@ -163,11 +162,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 667
Height = 26
Left = 648
Height = 23
Hint = 'Manage profiles'
Top = 7
Width = 21
Top = 5
Width = 38
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 6
@ -183,9 +182,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = LCLWidgetTypeComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 89
Width = 44
Height = 14
Top = 74
Width = 38
Alignment = taRightJustify
BorderSpacing.Top = 6
Caption = 'Options'
@ -201,8 +200,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
Left = 6
Height = 56
Hint = 'Options passed to compiler'
Top = 104
Width = 682
Top = 88
Width = 680
Anchors = [akTop, akLeft, akRight]
Lines.Strings = (
''
@ -218,9 +217,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = TargetDirectoryComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 214
Width = 43
Height = 14
Top = 191
Width = 37
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Defines'
@ -233,26 +232,25 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = CleanUpGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 94
Height = 132
Hint = 'Defines without -d'
Top = 229
Width = 485
Top = 205
Width = 513
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
ParentShowHint = False
PopupMenu = OptionsPopupMenu
ShowHint = True
TabOrder = 2
TopIndex = -1
end
object LCLWidgetTypeLabel: TLabel
AnchorSideLeft.Control = BuildProfileLabel
AnchorSideTop.Control = BuildProfileComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 40
Width = 91
Height = 14
Top = 33
Width = 82
BorderSpacing.Top = 6
Caption = 'LCL Widget Type'
ParentColor = False
@ -263,10 +261,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6
Height = 28
Top = 55
Height = 21
Top = 47
Width = 209
ItemHeight = 0
ItemHeight = 13
Style = csDropDownList
TabOrder = 3
end
@ -275,9 +273,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = OptionsMemo
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 166
Width = 87
Height = 14
Top = 150
Width = 80
Alignment = taRightJustify
BorderSpacing.Top = 6
Caption = 'Target Directory'
@ -289,12 +287,12 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TargetDirectoryButton
Left = 6
Height = 27
Top = 181
Width = 655
Height = 21
Top = 164
Width = 636
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
ItemHeight = 0
ItemHeight = 13
TabOrder = 5
end
object TargetOSLabel: TLabel
@ -303,9 +301,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = BuildProfileComboBox
AnchorSideTop.Side = asrBottom
Left = 221
Height = 15
Top = 40
Width = 54
Height = 14
Top = 33
Width = 50
Alignment = taRightJustify
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -318,9 +316,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = BuildProfileComboBox
AnchorSideTop.Side = asrBottom
Left = 451
Height = 15
Top = 40
Width = 61
Height = 14
Top = 33
Width = 56
Alignment = taRightJustify
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -332,11 +330,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = CleanUpGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 497
Height = 22
Left = 525
Height = 17
Hint = 'Increment revision? (ToDo: get a better hint)'
Top = 342
Width = 181
Top = 301
Width = 155
BorderSpacing.Top = 6
Caption = 'UpdateRevisionIncCheckBox'
ParentShowHint = False
@ -350,11 +348,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = OptionsMemo
AnchorSideRight.Side = asrBottom
Left = 451
Height = 27
Top = 55
Width = 237
Height = 21
Top = 47
Width = 235
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 13
TabOrder = 8
end
object CommonsDividerBevel: TDividerBevel
@ -363,9 +361,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom
Left = 6
Height = 14
Top = 338
Width = 682
Height = 13
Top = 353
Width = 680
Caption = 'CommonsDividerBevel'
Autosize = True
Anchors = [akLeft, akRight, akBottom]
@ -381,10 +379,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 22
Height = 17
Hint = 'Restart Lazarus automatically after building the IDE. Has no effect when building other parts'
Top = 359
Width = 171
Top = 373
Width = 148
BorderSpacing.Top = 7
Caption = 'RestartAfterBuildCheckBox'
ParentShowHint = False
@ -395,11 +393,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Control = RestartAfterBuildCheckBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RestartAfterBuildCheckBox
Left = 189
Height = 22
Left = 166
Height = 17
Hint = 'Show confirmation dialog when building directly from Tools menu'
Top = 359
Width = 149
Top = 373
Width = 124
BorderSpacing.Left = 12
Caption = 'ConfirmBuildCheckBox'
ParentShowHint = False
@ -411,11 +409,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 610
Height = 26
Left = 603
Height = 23
Hint = 'Edit list of defines which can be used by any profile'
Top = 359
Width = 78
Top = 373
Width = 83
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
@ -432,10 +430,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 667
Height = 26
Top = 181
Width = 21
Left = 648
Height = 23
Top = 163
Width = 38
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 6
@ -451,10 +449,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = LCLWidgetTypeComboBox
AnchorSideRight.Side = asrBottom
Left = 221
Height = 27
Top = 55
Height = 21
Top = 47
Width = 224
ItemHeight = 0
ItemHeight = 13
TabOrder = 7
end
object CleanUpGroupBox: TGroupBox
@ -464,10 +462,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom
Left = 497
Height = 122
Top = 214
Width = 191
Left = 525
Height = 104
Top = 191
Width = 161
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 6
@ -482,16 +480,16 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 106
ClientWidth = 187
ClientHeight = 86
ClientWidth = 157
ParentShowHint = False
ShowHint = True
TabOrder = 13
object CleanAutoRadioButton: TRadioButton
Left = 6
Height = 22
Height = 17
Top = 6
Width = 175
Width = 145
Caption = 'CleanAutoRadioButton'
Checked = True
TabOrder = 0
@ -499,25 +497,25 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object CleanCommonRadioButton: TRadioButton
Left = 6
Height = 22
Top = 28
Width = 175
Height = 17
Top = 23
Width = 145
Caption = 'CleanCommonRadioButton'
TabOrder = 1
end
object CleanAllRadioButton: TRadioButton
Left = 6
Height = 22
Top = 50
Width = 175
Height = 17
Top = 40
Width = 145
Caption = 'CleanAllRadioButton'
TabOrder = 2
end
object CleanOnceCheckBox: TCheckBox
Left = 6
Height = 22
Top = 78
Width = 175
Height = 17
Top = 63
Width = 145
BorderSpacing.Top = 6
Caption = 'CleanOnceCheckBox'
TabOrder = 3
@ -527,13 +525,13 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object InfoTabSheet: TTabSheet
Caption = 'InfoTabSheet'
ClientHeight = 402
ClientWidth = 694
ClientHeight = 416
ClientWidth = 692
object InhTreeView: TTreeView
Left = 0
Height = 375
Top = 27
Width = 694
Height = 390
Top = 26
Width = 692
Align = alClient
DefaultItemHeight = 16
ReadOnly = True
@ -542,9 +540,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object InhNoteLabel: TLabel
Left = 6
Height = 15
Height = 14
Top = 6
Width = 682
Width = 680
Align = alTop
BorderSpacing.Around = 6
Caption = 'InhNoteLabel'

10
ide/buildlazdialog.pas
View File

@ -121,7 +121,6 @@ type
procedure DefinesButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
@ -724,7 +723,7 @@ begin
Caption := Format(lisConfigureBuildLazarus, ['"', '"']);
PageControl1.ActivePage:=BuildTabSheet;
BuildTabSheet.Caption:='Build';
BuildTabSheet.Caption:=lisBuildCaption;
// Show Build target names in combobox.
LCLWidgetTypeLabel.Caption := lisLCLWidgetType;
@ -825,11 +824,6 @@ begin
SetupInfoPage;
end;
procedure TConfigureBuildLazarusDlg.FormDestroy(Sender: TObject);
begin
end;
procedure TConfigureBuildLazarusDlg.FormResize(Sender: TObject);
begin
LCLWidgetTypeComboBox.Width:=(OptionsMemo.Width - 12) div 3;
@ -939,7 +933,7 @@ end;
procedure TConfigureBuildLazarusDlg.SetupInfoPage;
begin
InfoTabSheet.Caption:='Information';
InfoTabSheet.Caption:=lisInformation;
fImageIndexPackage := IDEImages.LoadImage(16, 'item_package');
fImageIndexRequired := IDEImages.LoadImage(16, 'pkg_required');