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

Synedit: use clipping rect if not own double buffered

Browse Source 
git-svn-id: trunk@13925 -
This commit is contained in:
tombo 2008-01-30 14:02:29 +00:00
parent d9d25883e8
commit 3675788780
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -2670,8 +2670,12 @@ var
begin begin
// Get the invalidated rect. Compute the invalid area in lines / columns. // Get the invalidated rect. Compute the invalid area in lines / columns.
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
{$IFDEF EnableDoubleBuf}
rcClip:=Rect(0,0,ClientWidth,ClientHeight); rcClip:=Rect(0,0,ClientWidth,ClientHeight);
StartPaintBuffer(rcClip); StartPaintBuffer(rcClip);
{$ELSE}
rcClip := Canvas.ClipRect;
{$ENDIF}
Include(fStateFlags,sfPainting); Include(fStateFlags,sfPainting);
{$ELSE} {$ELSE}
rcClip := Canvas.ClipRect; rcClip := Canvas.ClipRect;
@ -2713,7 +2717,9 @@ begin
DoOnPaint; DoOnPaint;
finally finally
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
{$IFDEF EnableDoubleBuf}
EndPaintBuffer(rcClip); EndPaintBuffer(rcClip);
{$ENDIF}
{$ENDIF} {$ENDIF}
UpdateCaret; UpdateCaret;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}