paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-21 15:00:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit, GTK2: fix ghost caret during scrolling

Browse Source 
git-svn-id: trunk@61028 -
This commit is contained in:
martin 2019-04-20 19:57:06 +00:00
parent cb9c628098
commit 519161a185
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/synedit/syneditpointclasses.pas
View File

@ -447,7 +447,7 @@ type
TSynEditScreenCaretPainterSystem = class(TSynEditScreenCaretPainter) TSynEditScreenCaretPainterSystem = class(TSynEditScreenCaretPainter)
protected protected
//procedure BeginScroll(dx, dy: Integer; const rcScroll, rcClip: TRect); override; procedure BeginScroll(dx, dy: Integer; const rcScroll, rcClip: TRect); override;
procedure FinishScroll(dx, dy: Integer; const rcScroll, rcClip: TRect; Success: Boolean); override; procedure FinishScroll(dx, dy: Integer; const rcScroll, rcClip: TRect; Success: Boolean); override;
procedure BeginPaint(rcClip: TRect); override; procedure BeginPaint(rcClip: TRect); override;
//procedure FinishPaint(rcClip: TRect); override; // unhide, currently done by editor //procedure FinishPaint(rcClip: TRect); override; // unhide, currently done by editor
@ -2779,6 +2779,19 @@ end;
{ TSynEditScreenCaretPainterSystem } { TSynEditScreenCaretPainterSystem }
procedure TSynEditScreenCaretPainterSystem.BeginScroll(dx, dy: Integer;
const rcScroll, rcClip: TRect);
begin
{$IFDEF LCLGTK1}
HideCaret;
{$ENDIF}
{$IFDEF LCLGTK2}
HideCaret;
{$ENDIF}
inherited BeginScroll(dx, dy, rcScroll, rcClip);
end;
procedure TSynEditScreenCaretPainterSystem.FinishScroll(dx, dy: Integer; const rcScroll, procedure TSynEditScreenCaretPainterSystem.FinishScroll(dx, dy: Integer; const rcScroll,
rcClip: TRect; Success: Boolean); rcClip: TRect; Success: Boolean);
begin begin