paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-01 01:25:19 +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'; lisCapsConstants = 'Constants';
lisCapsTypes = 'Types'; lisCapsTypes = 'Types';
//Any Word Capitalisation tab
lisCapsAnyWordAnyWord = 'Any Word';
lisCapsAnyWordEnable = 'Enable';
lisCapsAnyWordSetCapitalisationOnTheseWords = 'Set capitalisation on these '
+'words:';
implementation implementation
end. end.

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

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