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

Laz.VirtualTreeView: improve paint for cocoa

Browse Source
This commit is contained in:
Martin 2024-08-20 18:27:44 +02:00
parent ff6bf31acc
commit cb239c1222
1 changed files with 3 additions and 6 deletions

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

@ -30850,15 +30850,12 @@ begin
// Adjust height of temporary node bitmap.
with NodeBitmap do
begin
{$ifdef LCLCocoa}
if Height <> PaintInfo.Node.NodeHeight then
{$else}
if Height < PaintInfo.Node.NodeHeight then
{$endif}
begin
// Avoid that the VCL copies the bitmap while changing its height.
{$ifdef LCLCocoa}
Height := Round(PaintInfo.Node.NodeHeight * sc);
if Height > 0 then SetSize(1,1); // can't go to 0, must keep canvas
SetSize(Round(PaintWidth*sc), Round(PaintInfo.Node.NodeHeight * sc));
cg := TCocoaBitmapContext(NodeBitmap.Canvas.Handle).CGContext;
if cglast <> cg then
begin
@ -31200,7 +31197,7 @@ begin
Window.Left,
Round(YCorrect * sc),
NodeBitmap.Width,
NodeBitmap.Height - Round(YCorrect * sc),
Round(PaintInfo.Node.NodeHeight * sc) - Round(YCorrect * sc),
SRCCOPY
);
{$else}