paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 04:17:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

VirtualTrees: fix AV in AutoScale if handle cannot be allocated (e.g. Parent is not set)

Browse Source 
git-svn-id: trunk@58304 -
This commit is contained in:
ondrej 2018-06-18 10:41:36 +00:00
parent 22cab1ecb2
commit e38d3c9b03
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/VirtualTrees.pas
View File

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