From 33316c1e30b6e539fc94abc924b29fa8f9fd20e6 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 17 Aug 2002 23:41:10 +0000
Subject: [PATCH] MG: impoved focussing, unfocussing on destroy and fixed unit
 search

git-svn-id: trunk@2244 -
---
 components/synedit/synedit.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 52d3841db0..e106ddf33f 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -4080,7 +4080,9 @@ end;
 procedure TCustomSynEdit.WMKillFocus(var Msg: TWMKillFocus);
 begin
   inherited;
-writeln('[TCustomSynEdit.WMKillFocus] A ',Name);
+  {$IFDEF VerboseFocus}
+  writeln('[TCustomSynEdit.WMKillFocus] A ',Name);
+  {$ENDIF}
   {$IFDEF SYN_LAZARUS}
   LastMouseCaret:=Point(-1,-1);
   if not (eoPersistentCaret in fOptions) then
@@ -4092,7 +4094,6 @@ writeln('[TCustomSynEdit.WMKillFocus] A ',Name);
   {$ENDIF}
   if FHideSelection and SelAvail then
     Invalidate;
-writeln('[TCustomSynEdit.WMKillFocus] END ',Name);
 end;
 
 procedure TCustomSynEdit.WMSetFocus(var Msg: TWMSetFocus);