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

JCF2: localized Spaces Settings tab

Browse Source 
git-svn-id: trunk@23958 -
This commit is contained in:
maxim 2010-03-12 00:45:52 +00:00
parent 36ed6fbb12
commit 20fff736ed
2 changed files with 73 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,6 +36,39 @@ resourcestring
lisClarifyDoRun = 'Do &run';
lisClarifyRunOnlyThese = 'Run &only these';
//Spaces tab
lisSpacesSpaces = 'Spaces';
lisSpacesFixSpacing = 'Fix &spacing';
lisSpacesSpaceBeforeClassHeritage = 'Space before class &heritage';
lisSpacesSpacesBeforeColonIn = 'Spaces &before colon in';
lisSpacesVarDeclarations = '&Var declarations';
lisSpacesConstDeclarations = 'C&onst declarations';
lisSpacesProcedureParameters = '&Procedure parameters';
lisSpacesFunctionReturnTypes = '&Function return types';
lisSpacesClassVariables = '&Class variables';
lisSpacesRecordFields = '&Record fields';
lisSpacesCaseLAbel = 'Case l&abel';
lisSpacesLabel = '&Label';
lisSpacesInGeneric = 'In &generic';
lisSpacesSpacesAroundOperators = 'Spaces around &operators';
lisSpacesAlways = 'Always';
lisSpacesLeaveAsIs = 'Leave as is';
lisSpacesNever = 'Never';
lisSpacesInsertSpaceBeforeBracket = '&Insert space before bracket';
lisSpacesInFunctionDeclaration = 'In function &declaration';
lisSpacesInFunctionCall = 'In function &call';
lisSpacesBeforeInExpression = 'Before [ in expression';
lisSpacesInsertSpaceInsideBrackets = 'Insert space inside brackets';
lisSpacesAfterOpen = 'After open';
lisSpacesBeforeEnd = 'Before end';
lisSpacesMoveSpacesToBeforeColon = 'Move spaces to before colon';
lisSpacesTabCharacters = '&Tab characters';
lisSpacesTurnTabsToSpaces = 'Turn tabs to spaces';
lisSpacesSpacesPerTab = 'Spaces per tab';
lisSpacesTurnSpacesToTabs = 'Turn spaces to tabs';
lisSpacesSpacesForTab = 'Spaces for tab';
lisSpacesMaxSpacesInCode = '&Max spaces in code';
implementation
end.

43
components/jcf2/Ui/Settings/frClarifySpaces.pas
View File

@ -97,7 +97,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, SetSpaces, SettingsTypes;
JcfHelp, JcfSettings, SetSpaces, SettingsTypes, jcfuiconsts;
constructor TfClarifySpaces.Create(AOwner: TComponent);
begin
@ -107,12 +107,49 @@ end;
function TfClarifySpaces.GetTitle: String;
begin
Result := 'Spaces';
Result := lisSpacesSpaces;
end;
procedure TfClarifySpaces.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
//
cbFixSpacing.Caption := lisSpacesFixSpacing;
cbSpaceClassHeritage.Caption := lisSpacesSpaceBeforeClassHeritage;
gbColon.Caption := lisSpacesSpacesBeforeColonIn;
lblSpaceBeforeColonVar.Caption := lisSpacesVarDeclarations;
lblSpaceBeforeColonConst.Caption := lisSpacesConstDeclarations;
lblSpaceBeforeColonParam.Caption := lisSpacesProcedureParameters;
lblSpaceBeforeColonFn.Caption := lisSpacesFunctionReturnTypes;
lblSpacesBeforeColonClassVar.Caption := lisSpacesClassVariables;
lblSpacesBeforeColonRecordField.Caption := lisSpacesRecordFields;
lblSpacesBeforeCaseLabel.Caption := lisSpacesCaseLAbel;
lbSpacesBeforeLabel.Caption := lisSpacesLabel;
lblSpacesBeforeColonGeneric.Caption := lisSpacesInGeneric;
rgOperators.Caption := lisSpacesSpacesAroundOperators;
rgOperators.Items[0] := lisSpacesAlways;
rgOperators.Items[1] := lisSpacesLeaveAsIs;
rgOperators.Items[2] := lisSpacesNever;
GroupBoxInsertSpaceBeforeBracket.Caption := lisSpacesInsertSpaceBeforeBracket;
cbInsertSpaceBeforeBracketinFunctionDeclaration.Caption :=
lisSpacesInFunctionDeclaration;
cbInsertSpaceBeforeBracketinFunctionCall.Caption := lisSpacesInFunctionCall;
cbBeforeOpenSquareBracketInExpression.Caption := lisSpacesBeforeInExpression;
GroupBoxSpacesInsideBrackets.Caption := lisSpacesInsertSpaceInsideBrackets;
cbInsertSpaceAfterOpen.Caption := lisSpacesAfterOpen;
CheckBoxInsertSpaceBeforeEnd.Caption := lisSpacesBeforeEnd;
cbMoveSpacesToBeforeColon.Caption := lisSpacesMoveSpacesToBeforeColon;
gbTabs.Caption := lisSpacesTabCharacters;
cbTabsToSpaces.Caption := lisSpacesTurnTabsToSpaces;
Label1.Caption := lisSpacesSpacesPerTab;
cbSpacesToTabs.Caption := lisSpacesTurnSpacesToTabs;
Label3.Caption := lisSpacesSpacesForTab;
cbMaxSpaces.Caption := lisSpacesMaxSpacesInCode;
end;
{-------------------------------------------------------------------------------