added some resourcestrings

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

View File

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

View File

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

View File

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