paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 14:09:16 +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 ' lisCapsAnyWordSetCapitalisationOnTheseWords = 'Set capitalisation on these '
+'words:'; +'words:';
//Identifiers Capitalisation tab
lisCapsIdentifiersIdentifiers = 'Identifiers';
lisCapsIdentifiersSetCapitalisationOnTheseIdentifiers = 'Set capitalisation '
+'on these identifiers:';
implementation implementation
end. end.

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

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