IDE Caption text for groupbox in Other Options frame.

git-svn-id: trunk@42076 -
This commit is contained in:
juha 2013-07-13 13:45:33 +00:00
parent 9e7a4be0ab
commit 31c891f4be
3 changed files with 9 additions and 8 deletions

View File

@ -31,14 +31,14 @@ object CompilerOtherOptionsFrame: TCompilerOtherOptionsFrame
TabOrder = 0 TabOrder = 0
end end
end end
object ConditionalsGroupBox: TGroupBox object grpConditionals: TGroupBox
Left = 0 Left = 0
Height = 206 Height = 206
Top = 240 Top = 240
Width = 594 Width = 594
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'ConditionalsGroupBox' Caption = 'grpConditionals'
ClientHeight = 187 ClientHeight = 187
ClientWidth = 590 ClientWidth = 590
TabOrder = 1 TabOrder = 1
@ -717,13 +717,13 @@ object CompilerOtherOptionsFrame: TCompilerOtherOptionsFrame
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
end end
object AllOptionsGroupBox: TGroupBox object grpAllOptions: TGroupBox
Left = 0 Left = 0
Height = 147 Height = 147
Top = 0 Top = 0
Width = 594 Width = 594
Align = alClient Align = alClient
Caption = 'AllOptionsGroupBox' Caption = 'grpAllOptions'
ClientHeight = 128 ClientHeight = 128
ClientWidth = 590 ClientWidth = 590
TabOrder = 4 TabOrder = 4

View File

@ -41,11 +41,11 @@ type
TCompilerOtherOptionsFrame = class(TAbstractIDEOptionsEditor) TCompilerOtherOptionsFrame = class(TAbstractIDEOptionsEditor)
btnGetAll: TButton; btnGetAll: TButton;
ConditionalsSplitter: TSplitter; ConditionalsSplitter: TSplitter;
AllOptionsGroupBox: TGroupBox; grpAllOptions: TGroupBox;
grpCustomOptions: TGroupBox; grpCustomOptions: TGroupBox;
lblStatus: TLabel; lblStatus: TLabel;
memCustomOptions: TMemo; memCustomOptions: TMemo;
ConditionalsGroupBox: TGroupBox; grpConditionals: TGroupBox;
CondStatusbar: TStatusBar; CondStatusbar: TStatusBar;
CondSynEdit: TSynEdit; CondSynEdit: TSynEdit;
CustomSplitter: TSplitter; CustomSplitter: TSplitter;
@ -745,8 +745,6 @@ begin
fDefaultVariables:=TCTCfgScriptVariables.Create; fDefaultVariables:=TCTCfgScriptVariables.Create;
fEngine:=TIDECfgScriptEngine.Create; fEngine:=TIDECfgScriptEngine.Create;
ConditionalsGroupBox.Caption:=lisConditionals;
CondSynEdit.OnStatusChange:=@CondSynEditStatusChange; CondSynEdit.OnStatusChange:=@CondSynEditStatusChange;
fSynCompletion:=TSynCompletion.Create(Self); fSynCompletion:=TSynCompletion.Create(Self);
@ -785,8 +783,10 @@ end;
procedure TCompilerOtherOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog); procedure TCompilerOtherOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin begin
grpAllOptions.Caption := lisAllOptions;
grpCustomOptions.Caption := lisCustomOptions2; grpCustomOptions.Caption := lisCustomOptions2;
memCustomOptions.Hint := lisCustomOptHint; memCustomOptions.Hint := lisCustomOptHint;
grpConditionals.Caption := lisConditionals;
end; end;
procedure TCompilerOtherOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions); procedure TCompilerOtherOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);

View File

@ -2093,6 +2093,7 @@ resourcestring
dlgConfigFiles = 'Config files'; dlgConfigFiles = 'Config files';
dlgUseFpcCfg = 'Use standard compiler config file (fpc.cfg)'; dlgUseFpcCfg = 'Use standard compiler config file (fpc.cfg)';
dlgUseCustomConfig = 'Use additional compiler config file'; dlgUseCustomConfig = 'Use additional compiler config file';
lisAllOptions = 'All Options';
lisCustomOptions2 = 'Custom options'; lisCustomOptions2 = 'Custom options';
lisCustomOptHint = 'These options are passed directly to the compiler. Macros ' + lisCustomOptHint = 'These options are passed directly to the compiler. Macros ' +
'are replaced, line breaks are replaced with single spaces.'; 'are replaced, line breaks are replaced with single spaces.';