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

JCF2: localized Returns tab

Browse Source 
git-svn-id: trunk@24117 -
This commit is contained in:
maxim 2010-03-20 18:56:57 +00:00
parent f762b6f6d7
commit 9e9a0f5ca8
2 changed files with 36 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,6 +140,24 @@ resourcestring
lisLBUsuallyUnlessThereIsNoAcceptablePlaceToBreak = '&Usually, unless there '
+'is no acceptable place to break';
//Returns tab
lisReturnsReturns = 'Returns';
lisReturnsRemoveReturns = 'Remove returns';
lisReturnsInMiscBadPlaces = 'In misc. bad places';
lisReturnsInProperties = 'In properties';
lisReturnsInProcedureDefinitions = 'In procedure definitions';
lisReturnsInVariableDeclarations = 'In variable declarations';
lisReturnsInExpressions = 'In expressions';
lisReturnsInsertReturns = 'Insert returns';
lisReturnsInMiscGoodPlaces = 'In misc. good places';
lisReturnsOneUsesClauseItemPerLine = 'One uses clause item per line';
lisReturnsAfterUses = 'After uses';
lisReturnsReturnChars = 'Return chars';
lisReturnsLeaveAsIs = 'Leave as is';
lisReturnsConvertToCarriageReturn = 'Convert to Carriage Return (UNIX)';
lisReturnsConvertToCarriageReturnLinefeed = 'Convert to Carriage Return + '
+'Linefeed (DOS/Windows)';
implementation
end.

21
components/jcf2/Ui/Settings/frClarifyReturns.pas
View File

@ -66,7 +66,7 @@ implementation
{$R *.lfm}
uses
SettingsTypes, JcfSettings, SetReturns, JcfHelp;
SettingsTypes, JcfSettings, SetReturns, JcfHelp, jcfuiconsts;
constructor TfClarifyReturns.Create(AOwner: TComponent);
@ -77,12 +77,27 @@ end;
function TfClarifyReturns.GetTitle: String;
begin
Result := 'Returns';
Result := lisReturnsReturns;
end;
procedure TfClarifyReturns.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
//
gbRemoveReturns.Caption := lisReturnsRemoveReturns;
cbRemoveReturns.Caption := lisReturnsInMiscBadPlaces;
cbRemovePropertyReturns.Caption := lisReturnsInProperties;
cbRemoveProcDefReturns.Caption := lisReturnsInProcedureDefinitions;
cbRemoveVarReturns.Caption := lisReturnsInVariableDeclarations;
cbRemoveExprReturns.Caption := lisReturnsInExpressions;
gbInsert.Caption := lisReturnsInsertReturns;
cbInsertReturns.Caption := lisReturnsInMiscGoodPlaces;
cbUsesClauseOnePerLine.Caption := lisReturnsOneUsesClauseItemPerLine;
cbBreakAfterUses.Caption := lisReturnsAfterUses;
rgReturnChars.Caption := lisReturnsReturnChars;
rgReturnChars.Items[0] := lisReturnsLeaveAsIs;
rgReturnChars.Items[1] := lisReturnsConvertToCarriageReturn;
rgReturnChars.Items[2] := lisReturnsConvertToCarriageReturnLinefeed;
end;
{-------------------------------------------------------------------------------