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

Qt5,Qt6: fixed invalid behaviour of columns. issue

Browse Source
This commit is contained in:
Željan Rikalo 2024-09-07 12:44:13 +02:00
parent 798ea1949d
commit de24da1877
2 changed files with 8 additions and 2 deletions
lcl/interfaces
qt5
qtwscomctrls.pp
qt6
qtwscomctrls.pp

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

@ -842,7 +842,10 @@ begin
Exit(-1);
// TODO: columns in vsIcon mode
if IsIconView(ALV) or (csDestroyingHandle in ALV.ControlState) then
if IsIconView(ALV) then
exit(0);
if (TQtWidget(ALV.Handle) is TQtListWidget) then
exit(0);
QtTreeWidget := TQtTreeWidget(ALV.Handle);

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

@ -840,7 +840,10 @@ begin
Exit(-1);
// TODO: columns in vsIcon mode
if IsIconView(ALV) or (csDestroyingHandle in ALV.ControlState) then
if IsIconView(ALV) then
exit(0);
if (TQtWidget(ALV.Handle) is TQtListWidget) then
exit(0);
QtTreeWidget := TQtTreeWidget(ALV.Handle);