paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 13:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: workaround for issue #0034563 / QT: does return false even if caret was created => causing ghost caret in synedit to show (during code completion, qt only). Commit can/should be undone when issue is fixed.

Browse Source 
git-svn-id: trunk@59580 -
This commit is contained in:
martin 2018-11-17 20:38:46 +00:00
parent 2cace808be
commit 2ff6995d1d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/syneditpointclasses.pas
View File

@ -2798,6 +2798,11 @@ begin
exit; exit;
inherited ShowCaret; inherited ShowCaret;
Result := LCLIntf.ShowCaret(Handle); Result := LCLIntf.ShowCaret(Handle);
{$IFDEF LCLQt}
// workaround for issue: https://bugs.freepascal.org/view.php?id=34563
// assume that if ShowCaret works, the cared has been created ok
FCreated := FCreated or Result;
{$ENDIF}
end; end;
function TSynEditScreenCaretPainterSystem.SetCaretPosEx(x, y: Integer): Boolean; function TSynEditScreenCaretPainterSystem.SetCaretPosEx(x, y: Integer): Boolean;