From 78cb32fe74f6733bb632f394a0c2e24e62bc6343 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:31 +0000
Subject: [PATCH] reduced focus handling and improved focus setting

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

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 079c221c4b..a21b744977 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -4129,8 +4129,9 @@ procedure TCustomSynEdit.WMSetFocus(var Msg: TWMSetFocus);
 begin
   LastMouseCaret:=Point(-1,-1);
   {$IFDEF VerboseFocus}
-  writeln('[TCustomSynEdit.WMSetFocus] A');
+  writeln('[TCustomSynEdit.WMSetFocus] A ',Name,':',ClassName);
   {$ENDIF}
+  UpdateCaret;
   //InitializeCaret;
   //if FHideSelection and SelAvail then
   //  Invalidate;