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

VirtualTreeView: Fix "no parent window" error when VTV is in a high-dpi frame (issue #39362).

Browse Source
This commit is contained in:
wp_xyz 2021-09-10 14:42:10 +02:00
parent 19b127a2b1
commit eaea82f052
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26303,7 +26303,7 @@ procedure TBaseVirtualTree.AutoScale();
var var
lTextHeight: Cardinal; lTextHeight: Cardinal;
begin begin
if (toAutoChangeScale in TreeOptions.AutoOptions) then if HandleAllocated and (toAutoChangeScale in TreeOptions.AutoOptions) then
begin begin
Canvas.Font.Assign(Self.Font); Canvas.Font.Assign(Self.Font);
lTextHeight := Canvas.TextHeight('Tg'); lTextHeight := Canvas.TextHeight('Tg');