From fa2362a1d570e9668e6635718a1a793c39f60393 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 5 Feb 2005 13:44:20 +0000 Subject: [PATCH] added some resourcestrings git-svn-id: trunk@6741 - --- ide/lazarusidestrconsts.pas | 2 ++ ide/searchresultview.pp | 4 ++-- ide/uniteditor.pp | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 55c3acd90a..e4c6258ee3 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -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 ' diff --git a/ide/searchresultview.pp b/ide/searchresultview.pp index 58cbed46a5..7f746612c8 100644 --- a/ide/searchresultview.pp +++ b/ide/searchresultview.pp @@ -170,8 +170,8 @@ begin ResultsNoteBook.Options:= ResultsNoteBook.Options+[nboShowCloseButtons]; ResultsNoteBook.Update; - if LazarusResources.Find(ClassName)=nil then - Caption:=lisMenuViewSearchResults; + Caption:=lisMenuViewSearchResults; + btnSearchAgain.Caption:=lisSearchAgain; Name := NonModalIDEWindowNames[nmiwSearchResultsViewName]; ALayout:=EnvironmentOptions.IDEWindowLayoutList. diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp index 75d7e95748..72c2ae931d 100644 --- a/ide/uniteditor.pp +++ b/ide/uniteditor.pp @@ -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,