paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 20:56:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: localized Blocks tab

Browse Source 
git-svn-id: trunk@24359 -
This commit is contained in:
maxim 2010-04-01 21:10:39 +00:00
parent afc6999553
commit 98fafddd9d
2 changed files with 36 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/jcf2/IdePlugin/lazarus/jcfuiconsts.pas
View File

@ -171,6 +171,15 @@ resourcestring
lisCaseBlocksLeaveAsIs = 'Leave as is';
lisCaseBlocksNever = 'Never';
//Blocks tab
lisBlocksBlocks = 'Blocks';
lisBlocksUseANewLineInBlocksAt = 'Use a new line in blocks at:';
lisBlocksBlockWithBegin = 'Block with begin';
lisBlocksBlockWithoutBegin = 'Block without begin';
lisBlocksBetweenElseAndIf = 'Between else and if';
lisBlocksBetweenEndAndElse = 'Between end and else';
lisBlocksElseBegin = 'Else begin';
implementation
end.

29
components/jcf2/Ui/Settings/frClarifyBlocks.pas
View File

@ -60,7 +60,7 @@ implementation
{$R *.lfm}
uses
JcfSettings, SettingsTypes, JcfHelp;
JcfSettings, SettingsTypes, JcfHelp, jcfuiconsts;
constructor TfClarifyBlocks.Create(AOwner: TComponent);
begin
@ -70,12 +70,37 @@ end;
function TfClarifyBlocks.GetTitle: String;
begin
Result := 'Blocks';
Result := lisBlocksBlocks;
end;
procedure TfClarifyBlocks.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
inherited Setup(ADialog);
Label1.Caption := lisBlocksUseANewLineInBlocksAt;
rgBlockBegin.Caption := lisBlocksBlockWithBegin;
rgBlockBegin.Items[0] := lisCaseBlocksAlways;
rgBlockBegin.Items[1] := lisCaseBlocksLeaveAsIs;
rgBlockBegin.Items[2] := lisCaseBlocksNever;
rgBlock.Caption := lisBlocksBlockWithoutBegin;
rgBlock.Items[0] := lisCaseBlocksAlways;
rgBlock.Items[1] := lisCaseBlocksLeaveAsIs;
rgBlock.Items[2] := lisCaseBlocksNever;
rgElseIf.Caption := lisBlocksBetweenElseAndIf;
rgElseIf.Items[0] := lisCaseBlocksAlways;
rgElseIf.Items[1] := lisCaseBlocksLeaveAsIs;
rgElseIf.Items[2] := lisCaseBlocksNever;
rgEndElse.Caption := lisBlocksBetweenEndAndElse;
rgEndElse.Items[0] := lisCaseBlocksAlways;
rgEndElse.Items[1] := lisCaseBlocksLeaveAsIs;
rgEndElse.Items[2] := lisCaseBlocksNever;
rgElseBegin.Caption := lisBlocksElseBegin;
rgElseBegin.Items[0] := lisCaseBlocksAlways;
rgElseBegin.Items[1] := lisCaseBlocksLeaveAsIs;
rgElseBegin.Items[2] := lisCaseBlocksNever;
end;
{-------------------------------------------------------------------------------