paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 21:40:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: localized Find and Replace tab

Browse Source 
git-svn-id: trunk@24450 -
This commit is contained in:
maxim 2010-04-05 21:09:34 +00:00
parent 325fda06de
commit 39c9ded630
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

@ -230,6 +230,11 @@ resourcestring
lisCapsUnitNamesSetCapitalisationOnTheseUnitNames = 'Set capitalisation on '
+'these unit names:';
//Find and Replace tab
lisFindReplaceFindAndReplace = 'Find and Replace';
lisFindReplaceEnableFindAndReplace = 'Enable find and replace';
lisFindReplaceWordList = 'Word list:';
implementation
end.

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

@ -60,7 +60,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings;
JcfHelp, JcfSettings, jcfuiconsts;
{ TfReplace }
@ -72,12 +72,13 @@ end;
function TfReplace.GetTitle: String;
begin
Result := 'Find and Replace';
Result := lisFindReplaceFindAndReplace;
end;
procedure TfReplace.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
//
cbEnable.Caption := lisFindReplaceEnableFindAndReplace;
lblWordList.Caption := lisFindReplaceWordList;
end;
procedure TfReplace.ReadSettings(AOptions: TAbstractIDEOptions);