From b09453a22cd61792dcb3f9b959c017bab1c76159 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 29 Apr 2008 11:18:59 +0000
Subject: [PATCH] IDE: find in files: when nothing found report search string
 not found, for Marc

git-svn-id: trunk@15008 -
---
 ide/searchfrm.pas   | 2 +-
 ide/sourceeditor.pp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/searchfrm.pas b/ide/searchfrm.pas
index 199b8be7b3..d3e90e139f 100644
--- a/ide/searchfrm.pas
+++ b/ide/searchfrm.pas
@@ -718,7 +718,7 @@ begin
       if fSearchProject or fSearchOpen then
         DoFindInSearchList;
       if Assigned(fResultsList) and (fResultsList.Count = 0) then
-        fResultsList.Add(lisFileNotFound);
+        fResultsList.Add(Format(lisUESearchStringNotFound,[dbgstr(fSearchFor)]));
     finally
       if fResultsListUpdating then begin
         fResultsListUpdating:=false;
diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index f12f606b14..a34166a6b7 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -1337,7 +1337,7 @@ begin
   and (OldCaretXY.Y=EditorComponent.CaretY)
   and not (ssoReplaceAll in LazFindReplaceDialog.Options) then begin
     ACaption:=lisUENotFound;
-    AText:=Format(lisUESearchStringNotFound, [LazFindReplaceDialog.FindText]);
+    AText:=Format(lisUESearchStringNotFound, [dbgstr(LazFindReplaceDialog.FindText)]);
     MessageDlg(ACaption,AText,mtInformation,[mbOk],0);
     TSourceNotebook(Owner).DeleteLastJumpPointClicked(Self);
   end else begin