paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-30 13:23:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: fixed crash with lclqt5-win32. issue #39705

Browse Source
This commit is contained in:
Željan Rikalo 2022-04-11 16:50:59 +02:00
parent e37b6d1ea5
commit 02104f2c97
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14392,9 +14392,12 @@ begin
Size.cy := Size.cx;
{$ifdef ThemeSupport}
{$ifdef Windows}
{$ifdef LCLWin}
if tsUseThemes in FStates then
begin
{for direct OS calls we need to implement GetNativeHandle():TLCLHandle in widgetset
because eg window handle in lclqt is TQtWidget(Handle).Widget, not Handle
by itself.}
Theme := OpenThemeData(Handle, 'TREEVIEW');
if IsWinVistaOrAbove and (toUseExplorerTheme in FOptions.FPaintOptions) then
begin
@ -14502,7 +14505,7 @@ begin
end;
{$ifdef ThemeSupport}
{$ifdef Windows}
{$ifdef LCLWin}
// Overwrite glyph images if theme is active.
if (tsUseThemes in FStates) and (Theme <> 0) then
begin
@ -14544,7 +14547,7 @@ begin
end;
{$ifdef ThemeSupport}
{$ifdef Windows}
{$ifdef LCLWin}
if tsUseThemes in FStates then
CloseThemeData(Theme);
{$endif}