From abb03cadf92f21fb213e6a0dc993f8d7e05b76e0 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 20 Aug 2010 00:50:17 +0000
Subject: [PATCH] SynEdit: Special handling for Caret under QT, workaround for
 bug #17210

git-svn-id: trunk@27153 -
---
 components/synedit/syneditpointclasses.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/synedit/syneditpointclasses.pas b/components/synedit/syneditpointclasses.pas
index 0ad5e0fdfb..4c70e15b02 100644
--- a/components/synedit/syneditpointclasses.pas
+++ b/components/synedit/syneditpointclasses.pas
@@ -1805,6 +1805,9 @@ begin
     {$ENDIF}
     if LCLIntf.ShowCaret(Handle) then
       FCurrentVisible := True;
+    {$IFDEF LCLQT}
+    SetCaretPosEx(FHandle, x, y);
+    {$ENDIF}
   end;
 end;