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

Qt5,Qt6: fixed crash of TListView in design time. issue #40349

Browse Source
This commit is contained in:
Željan Rikalo 2023-06-26 23:28:38 +02:00
parent 414a258750
commit c1d775df54
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt5/qtwscomctrls.pp
View File

@ -894,7 +894,8 @@ begin
exit; exit;
QtTreeWidget := TQtTreeWidget(ALV.Handle); QtTreeWidget := TQtTreeWidget(ALV.Handle);
if Assigned(QtTreeWidget) then if Assigned(QtTreeWidget) and
not (csDesigning in ALV.ComponentState) then
begin begin
if ASortIndicator = siNone then if ASortIndicator = siNone then
QtTreeWidget.Header.SetSortIndicatorVisible(false) QtTreeWidget.Header.SetSortIndicatorVisible(false)

3
lcl/interfaces/qt6/qtwscomctrls.pp
View File

@ -892,7 +892,8 @@ begin
exit; exit;
QtTreeWidget := TQtTreeWidget(ALV.Handle); QtTreeWidget := TQtTreeWidget(ALV.Handle);
if Assigned(QtTreeWidget) then if Assigned(QtTreeWidget) and
not (csDesigning in ALV.ComponentState) then
begin begin
if ASortIndicator = siNone then if ASortIndicator = siNone then
QtTreeWidget.Header.SetSortIndicatorVisible(false) QtTreeWidget.Header.SetSortIndicatorVisible(false)