paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 04:17:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Caret, removed QT workarounds

Browse Source 
git-svn-id: trunk@27201 -
This commit is contained in:
martin 2010-08-26 19:33:23 +00:00
parent 987280bfe5
commit 254183e65e
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/syneditpointclasses.pas
View File

@ -1777,11 +1777,7 @@ begin
FCurrentVisible := False; FCurrentVisible := False;
FCurrentClippedWidth := w; FCurrentClippedWidth := w;
FCurrentPosX := x - 1; FCurrentPosX := x - 1;
{$IFDEF LCLQT}
SetCaretRespondToFocus(Handle, True); // See bug 17173
{$ELSE}
SetCaretRespondToFocus(Handle, False); // Only for GTK SetCaretRespondToFocus(Handle, False); // Only for GTK
{$ENDIF}
end; end;
if (x <> FCurrentPosX) or (y <> FCurrentPosY) then begin if (x <> FCurrentPosX) or (y <> FCurrentPosY) then begin
{$IFDeF SynCaretDebug} {$IFDeF SynCaretDebug}
@ -1798,9 +1794,6 @@ begin
{$ENDIF} {$ENDIF}
if LCLIntf.ShowCaret(Handle) then if LCLIntf.ShowCaret(Handle) then
FCurrentVisible := True; FCurrentVisible := True;
{$IFDEF LCLQT}
SetCaretPosEx(Handle, x, y);
{$ENDIF}
end; end;
end; end;