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

JCF2: localized Indent Settings tab

Browse Source 
git-svn-id: trunk@23981 -
This commit is contained in:
maxim 2010-03-13 23:01:17 +00:00
parent 984017068a
commit 6de469cd57
2 changed files with 41 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -77,6 +77,28 @@ resourcestring
lisSpacesSpacesForTab = 'Spaces for tab';
lisSpacesMaxSpacesInCode = '&Max spaces in code';
//Indentation tab
lisIndentIndentation = 'Indentation';
lisIndentBlockIndentationSpaces = 'Block indentation spaces';
lisIndentOptions = 'Options';
lisIndentExtraIndentForBeginEnd = 'Extra indent for begin/end inside '
+'procedures';
lisIndentDifferentIndentForFirstLevel = 'Different indent for first level';
lisIndentKeepSingleLineCommentsWithCodeInProcs = 'Keep single-line comments '
+'with code in procedures';
lisIndentKeepSingleLineCommentsWithCodeInGlobals = 'Keep single-line '
+'comments with code in globals';
lisIndentKeepSingleLineCommentsWithCodeInClassDefs = 'Keep single-line '
+'comments with code in class definitions';
lisIndentKeepSingleLineCommentsWithCodeElsewhere = 'Keep single-line '
+'comments with code elsewhere';
lisIndentExtraIndentForIfElseBlocks = 'Extra Indent for If...Else blocks';
lisIndentExtraIndentForCaseElseBlocks = 'Extra Indent for Case...Else blocks';
lisIndentIndentForProceduresInLibrary = 'Indent for procedures in library';
lisIndentIndentForProcedureBody = 'Indent for procedure body';
lisIndentIndentNestedTypes = 'Indent nested types';
lisIndentIndentVarAndConstInClass = 'Indent var and const in class';
implementation
end.

22
components/jcf2/Ui/Settings/frClarifyIndent.pas
View File

@ -73,7 +73,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, SetIndent;
JcfHelp, JcfSettings, SetIndent, jcfuiconsts;
constructor TfClarifyIndent.Create(AOwner: TComponent);
begin
@ -83,12 +83,28 @@ end;
function TfClarifyIndent.GetTitle: String;
begin
Result := 'Indentation';
Result := lisIndentIndentation;
end;
procedure TfClarifyIndent.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
//;
Label2.Caption := lisIndentBlockIndentationSpaces;
gbOptions.Caption := lisIndentOptions;
cbIndentBeginEnd.Caption := lisIndentExtraIndentForBeginEnd;
cbHasFirstLevelIndent.Caption := lisIndentDifferentIndentForFirstLevel;
cbKeepWithInProc.Caption := lisIndentKeepSingleLineCommentsWithCodeInProcs;
cbKeepWithInGlobals.Caption :=
lisIndentKeepSingleLineCommentsWithCodeInGlobals;
cbKeepWithInClassDef.Caption :=
lisIndentKeepSingleLineCommentsWithCodeInClassDefs;
cbKeepWithElsewhere.Caption :=
lisIndentKeepSingleLineCommentsWithCodeElsewhere;
cbIndentIfElse.Caption := lisIndentExtraIndentForIfElseBlocks;
cbIndentCaseElse.Caption := lisIndentExtraIndentForCaseElseBlocks;
cbIndentLibraryProcs.Caption := lisIndentIndentForProceduresInLibrary;
cbIndentProcedureBody.Caption := lisIndentIndentForProcedureBody;
cbIndentNestedTypes.Caption := lisIndentIndentNestedTypes;
cbIndentVarAndConstInClass.Caption := lisIndentIndentVarAndConstInClass;
end;
{-------------------------------------------------------------------------------