paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 00:00:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: localized Blank Lines Settings tab

Browse Source 
git-svn-id: trunk@23991 -
This commit is contained in:
maxim 2010-03-14 19:00:21 +00:00
parent 62f6cb12cf
commit d3b00011a6
2 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -99,6 +99,20 @@ resourcestring
lisIndentIndentNestedTypes = 'Indent nested types';
lisIndentIndentVarAndConstInClass = 'Indent var and const in class';
//Blank lines tab
lisBLBlankLines = 'Blank Lines';
lisBLRemoveBlankLines = 'Remove blank lines';
lisBLInProcedureVarSection = 'In procedure var section';
lisBLAfterProcedureHeader = 'After procedure header';
lisBLAtStartAndEndOfBeginEndBlock = 'At start and end of Begin...End block';
lisBLMaxConsecutiveBlankLinesBeforeRemoval = 'Max consecutive blank lines '
+'before removal';
lisBLNumberOfReturnsAfterTheUnitsFinalEnd = 'Number of returns after the '
+'unit''s final End.';
lisBLRemoveConsecutiveBlankLines = 'Remove consecutive blank lines';
lisBLMaxConsecutiveBlankLinesAnywhere = 'Max consecutive blank lines anywhere';
lisBLLinesBeforeProcedure = 'Lines before procedure';
implementation
end.

15
components/jcf2/Ui/Settings/frBlankLines.pas
View File

@ -71,7 +71,7 @@ uses
{ delphi }
Math,
{ local }
JcfSettings, SetReturns, JcfHelp;
JcfSettings, SetReturns, JcfHelp, jcfuiconsts;
constructor TfBlankLines.Create(AOwner: TComponent);
begin
@ -81,12 +81,21 @@ end;
function TfBlankLines.GetTitle: String;
begin
Result := 'Blank Lines';
Result := lisBLBlankLines;
end;
procedure TfBlankLines.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
//
gbRemoveBlankLines.Caption := lisBLRemoveBlankLines;
cbRemoveVarBlankLines.Caption := lisBLInProcedureVarSection;
cbRemoveBlankLinesAfterProcHeader.Caption := lisBLAfterProcedureHeader;
cbRemoveBlockBlankLines.Caption := lisBLAtStartAndEndOfBeginEndBlock;
Label4.Caption := lisBLMaxConsecutiveBlankLinesBeforeRemoval;
Label1.Caption := lisBLNumberOfReturnsAfterTheUnitsFinalEnd;
cbRemoveConsecutiveBlankLines.Caption := lisBLRemoveConsecutiveBlankLines;
Label2.Caption := lisBLMaxConsecutiveBlankLinesAnywhere;
Label3.Caption := lisBLLinesBeforeProcedure;
end;
procedure TfBlankLines.ReadSettings(AOptions: TAbstractIDEOptions);