From 254183e65e1ccc91d0a2d1cf95e769d0af9a94ef Mon Sep 17 00:00:00 2001 From: martin Date: Thu, 26 Aug 2010 19:33:23 +0000 Subject: [PATCH] SynEdit: Caret, removed QT workarounds git-svn-id: trunk@27201 - --- components/synedit/syneditpointclasses.pas | 7 ------- 1 file changed, 7 deletions(-) diff --git a/components/synedit/syneditpointclasses.pas b/components/synedit/syneditpointclasses.pas index c9c64349a3..8849fbb24a 100644 --- a/components/synedit/syneditpointclasses.pas +++ b/components/synedit/syneditpointclasses.pas @@ -1777,11 +1777,7 @@ begin FCurrentVisible := False; FCurrentClippedWidth := w; FCurrentPosX := x - 1; - {$IFDEF LCLQT} - SetCaretRespondToFocus(Handle, True); // See bug 17173 - {$ELSE} SetCaretRespondToFocus(Handle, False); // Only for GTK - {$ENDIF} end; if (x <> FCurrentPosX) or (y <> FCurrentPosY) then begin {$IFDeF SynCaretDebug} @@ -1798,9 +1794,6 @@ begin {$ENDIF} if LCLIntf.ShowCaret(Handle) then FCurrentVisible := True; - {$IFDEF LCLQT} - SetCaretPosEx(Handle, x, y); - {$ENDIF} end; end;