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

do not draw caret in .Paint method; means it will become part of window image

Browse Source 
git-svn-id: trunk@8339 -
This commit is contained in:
micha 2005-12-18 20:58:44 +00:00
parent e8571efcd2
commit 47ef0fdf81
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synedit.pp
View File

@ -2606,8 +2606,10 @@ begin
TopLine + (rcClip.Bottom + fTextHeight - 1) div fTextHeight, TopLine + (rcClip.Bottom + fTextHeight - 1) div fTextHeight,
{$ENDIF} {$ENDIF}
Lines.Count); Lines.Count);
{$IFNDEF SYN_LAZARUS}
// Now paint everything while the caret is hidden. // Now paint everything while the caret is hidden.
HideCaret; HideCaret;
{$ENDIF}
try try
// First paint the gutter area if it was (partly) invalidated. // First paint the gutter area if it was (partly) invalidated.
if (rcClip.Left < fGutterWidth) then begin if (rcClip.Left < fGutterWidth) then begin
@ -2627,10 +2629,9 @@ begin
finally finally
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
EndPaintBuffer(rcClip); EndPaintBuffer(rcClip);
{$ENDIF}
UpdateCaret;
{$IFDEF SYN_LAZARUS}
Exclude(fStateFlags,sfPainting); Exclude(fStateFlags,sfPainting);
{$ELSE}
UpdateCaret;
{$ENDIF} {$ENDIF}
end; end;
end; end;