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

laz.virutaltrees / Cocoa: fix the issue that the first line displayed abnormally when scrolling

Browse Source 
for example, there are many items in Lazarus IDE BreakPoints Dlg.
This commit is contained in:
rich2014 2024-06-09 15:10:53 +08:00
parent ef3054c557
commit 8e01a9da14
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -31171,12 +31171,14 @@ begin
StretchBlt( StretchBlt(
TargetCanvas.Handle, TargetCanvas.Handle,
Left, Left,
Top {$ifdef ManualClipNeeded} + YCorrect{$endif}, Top + YCorrect,
PaintWidth, PaintInfo.Node.NodeHeight, PaintWidth,
PaintInfo.Node.NodeHeight - YCorrect,
Canvas.Handle, Canvas.Handle,
Window.Left, Window.Left,
{$ifdef ManualClipNeeded}YCorrect{$else}0{$endif}, Round(YCorrect * sc),
NodeBitmap.Width, NodeBitmap.Height, NodeBitmap.Width,
NodeBitmap.Height - Round(YCorrect * sc),
SRCCOPY SRCCOPY
); );
{$else} {$else}