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

LazVirtualTrees: removed cocoa workaround from PaintHeader. related to the issue #41313

Browse Source
This commit is contained in:
zeljan1 2025-01-05 21:58:35 +01:00
parent 8148379d00
commit ff108ae5b6
1 changed files with 10 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9244,9 +9244,9 @@ procedure TVirtualTreeColumns.PaintHeader(DC: HDC; const R: TRect; HOffset: Inte
var
VisibleFixedWidth: Integer;
RTLOffset: Integer;
{$ifdef LCLCocoa}
{.$ifdef LCLCocoa}
sc : Double;
{$endif}
{.$endif}
procedure PaintFixedArea;
@ -9258,20 +9258,16 @@ var
end;
begin
if Assigned(Header) and Assigned(Header.TreeView) then
sc := Header.Treeview.GetCanvasScaleFactor
else
sc := 1.0;
// Adjust size of the header bitmap
with TWithSafeRect(FHeader.Treeview.FHeaderRect) do
begin
FHeaderBitmap.Width := Max(Right, R.Right - R.Left);
FHeaderBitmap.Height := Bottom;
{$ifdef LCLCocoa}
if Assigned(Header) and Assigned(Header.TreeView) then
sc := Header.Treeview.GetCanvasScaleFactor
else
sc := 1.0;
FHeaderBitmap.Width := Round(FHeaderBitmap.Width * sc);
FHeaderBitmap.Height := Round(FHeaderBitmap.Height * sc);
CGContextScaleCTM(TCocoaBitmapContext(FHeaderBitmap.Canvas.Handle).CGContext, sc, sc);
{$endif}
FHeaderBitmap.Clear;
FHeaderBitmap.SetSize(Round(Max(Right, R.Right - R.Left) * sc), Round(Bottom * sc));
LCLIntf.SetDeviceScaleRatio(FHeaderBitmap.Canvas.Handle, sc);
end;
VisibleFixedWidth := GetVisibleFixedWidth;
@ -9296,15 +9292,7 @@ begin
// Blit the result to target.
with TWithSafeRect(R) do
{$ifdef LCLCocoa}
StretchBlt(DC, Left, Top, Right - Left, Bottom - Top,
FHeaderBitmap.Canvas.Handle,
Left, Top,
FHeaderBitmap.Width, FHeaderBitmap.Height,
SRCCOPY);
{$else}
BitBlt(DC, Left, Top, Right - Left, Bottom - Top, FHeaderBitmap.Canvas.Handle, Left, Top, SRCCOPY);
{$endif}
BitBlt(DC, Left, Top, Round((Right - Left) * sc), Round((Bottom - Top) * sc), FHeaderBitmap.Canvas.Handle, Left, Top, SRCCOPY);
end;
//----------------------------------------------------------------------------------------------------------------------