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

JCF2: localized Capitalisation tab

Browse Source 
git-svn-id: trunk@24395 -
This commit is contained in:
maxim 2010-04-04 14:31:08 +00:00
parent 97905f75d6
commit ff2a17bf0b
2 changed files with 41 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -200,6 +200,15 @@ resourcestring
lisWarningsWarnAboutUnusedParameters = 'Warn about &unused parameters';
lisWarningsIgnoreUnusedParametersNamed = '&Ignore unused parameters named:';
//Capitalisation tab
lisCapsCapitalisation = 'Capitalisation';
lisCapsEnableCapitalisationFixing = 'Enable capitalisation fixing';
lisCapsReservedWords = 'Reserved words';
lisCapsOperators = 'Operators';
lisCapsDirectives = 'Directives';
lisCapsConstants = 'Constants';
lisCapsTypes = 'Types';
implementation
end.

35
components/jcf2/Ui/Settings/frReservedCapsSettings.pas
View File

@ -62,7 +62,7 @@ implementation
{$R *.lfm}
uses
SettingsTypes, JcfHelp, JcfSettings;
SettingsTypes, JcfHelp, JcfSettings, jcfuiconsts;
constructor TfrReservedCapsSettings.Create(AOwner: TComponent);
begin
@ -72,12 +72,41 @@ end;
function TfrReservedCapsSettings.GetTitle: String;
begin
Result := 'Capitalisation';
Result := lisCapsCapitalisation;
end;
procedure TfrReservedCapsSettings.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
//;
cbEnable.Caption := lisCapsEnableCapitalisationFixing;
rgReservedWords.Caption := lisCapsReservedWords;
rgReservedWords.Items[0] := lisObfsAllCapitals;
rgReservedWords.Items[1] := lisObfsAllLowerCase;
rgReservedWords.Items[2] := lisObfsMixedCase;
rgReservedWords.Items[3] := lisObfsLeaveAlone;
rgOperators.Caption := lisCapsOperators;
rgOperators.Items[0] := lisObfsAllCapitals;
rgOperators.Items[1] := lisObfsAllLowerCase;
rgOperators.Items[2] := lisObfsMixedCase;
rgOperators.Items[3] := lisObfsLeaveAlone;
rgDirectives.Caption := lisCapsDirectives;
rgDirectives.Items[0] := lisObfsAllCapitals;
rgDirectives.Items[1] := lisObfsAllLowerCase;
rgDirectives.Items[2] := lisObfsMixedCase;
rgDirectives.Items[3] := lisObfsLeaveAlone;
rgConstants.Caption := lisCapsConstants;
rgConstants.Items[0] := lisObfsAllCapitals;
rgConstants.Items[1] := lisObfsAllLowerCase;
rgConstants.Items[2] := lisObfsMixedCase;
rgConstants.Items[3] := lisObfsLeaveAlone;
rgTypes.Caption := lisCapsTypes;
rgTypes.Items[0] := lisObfsAllCapitals;
rgTypes.Items[1] := lisObfsAllLowerCase;
rgTypes.Items[2] := lisObfsMixedCase;
rgTypes.Items[3] := lisObfsLeaveAlone;
end;
procedure TfrReservedCapsSettings.cbEnableClick(Sender: TObject);