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

added some resourcestrings

Browse Source 
git-svn-id: trunk@6741 -
This commit is contained in:
mattias 2005-02-05 13:44:20 +00:00
parent a6b0ee0289
commit fa2362a1d5
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -194,6 +194,7 @@ resourcestring
lisCopyAllMessagesToClipboard = 'Copy all messages to clipboard';
lisSaveAllMessagesToFile = 'Save all messages to file';
lisMenuViewSearchResults = 'Search Results';
lisSearchAgain = 'Search again';
lisMenuViewAnchorEditor = 'View Anchor Editor';
lisMenuDebugWindows = 'Debug windows';
lisMenuViewWatches = 'Watches';
@ -1777,6 +1778,7 @@ resourcestring
// unit editor
lisUEErrorInRegularExpression = 'Error in regular expression';
lisSearchFor = 'Search For ';
lisUENotFound = 'Not found';
lisUESearchStringNotFound = 'Search string ''%s'' not found!';
lisUEReplaceThisOccurrenceOfWith = 'Replace this occurrence of %s%s%s%s '

2
ide/searchresultview.pp
View File

@ -170,8 +170,8 @@ begin
ResultsNoteBook.Options:= ResultsNoteBook.Options+[nboShowCloseButtons];
ResultsNoteBook.Update;
if LazarusResources.Find(ClassName)=nil then
Caption:=lisMenuViewSearchResults;
btnSearchAgain.Caption:=lisSearchAgain;
Name := NonModalIDEWindowNames[nmiwSearchResultsViewName];
ALayout:=EnvironmentOptions.IDEWindowLayoutList.

2
ide/uniteditor.pp
View File

@ -3650,7 +3650,7 @@ var
ListIndex: integer;
begin
ShowSearchResultsView;
ListIndex:=SearchResultsView.AddResult('Search For '+ASearchForm.SearchText,
ListIndex:=SearchResultsView.AddResult(lisSearchFor+ASearchForm.SearchText,
ASearchForm.SearchText,
ASearchForm.SearchDirectory,
ASearchForm.SearchMask,