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

JCF2: localized Any Word Capitalisation tab

Browse Source 
git-svn-id: trunk@24398 -
This commit is contained in:
maxim 2010-04-04 14:48:10 +00:00
parent d69055d322
commit f043c539c7
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -209,6 +209,12 @@ resourcestring
lisCapsConstants = 'Constants';
lisCapsTypes = 'Types';
//Any Word Capitalisation tab
lisCapsAnyWordAnyWord = 'Any Word';
lisCapsAnyWordEnable = 'Enable';
lisCapsAnyWordSetCapitalisationOnTheseWords = 'Set capitalisation on these '
+'words:';
implementation
end.

6
components/jcf2/Ui/Settings/frAnyCapsSettings.pas
View File

@ -60,7 +60,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings;
JcfHelp, JcfSettings, jcfuiconsts;
constructor TfrAnyCapsSettings.Create(AOwner: TComponent);
begin
@ -70,12 +70,14 @@ end;
function TfrAnyCapsSettings.GetTitle: String;
begin
Result := 'Any Word';
Result := lisCapsAnyWordAnyWord;
end;
procedure TfrAnyCapsSettings.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
inherited Setup(ADialog);
cbEnableAnyWords.Caption := lisCapsAnyWordEnable;
Label1.Caption := lisCapsAnyWordSetCapitalisationOnTheseWords;
end;