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

JCF2: localized Identifiers Capitalisation tab

Browse Source 
git-svn-id: trunk@24400 -
This commit is contained in:
maxim 2010-04-04 14:57:37 +00:00
parent d322ee0a2c
commit 8e8dfc3b3c
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -215,6 +215,11 @@ resourcestring
lisCapsAnyWordSetCapitalisationOnTheseWords = 'Set capitalisation on these '
+'words:';
//Identifiers Capitalisation tab
lisCapsIdentifiersIdentifiers = 'Identifiers';
lisCapsIdentifiersSetCapitalisationOnTheseIdentifiers = 'Set capitalisation '
+'on these identifiers:';
implementation
end.

7
components/jcf2/Ui/Settings/frIdentifierCapsSettings.pas
View File

@ -59,7 +59,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings;
JcfHelp, JcfSettings, jcfuiconsts;
constructor TfIdentifierCapsSettings.Create(AOwner: TComponent);
begin
@ -69,12 +69,13 @@ end;
function TfIdentifierCapsSettings.GetTitle: String;
begin
Result := 'Identifiers';
Result := lisCapsIdentifiersIdentifiers;
end;
procedure TfIdentifierCapsSettings.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
//
cbEnableAnyWords.Caption := lisCapsAnyWordEnable;
Label1.Caption := lisCapsIdentifiersSetCapitalisationOnTheseIdentifiers;
end;