paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 21:38:27 +02: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 db6ce9345e
commit 7a7fad9190
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

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