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

Qt5: Fixed AV when changing TListView.ViewStyle in design time. Issue #39353

Browse Source 
(cherry picked from commit 63ca7a9ace)
This commit is contained in:
Željan Rikalo 2021-09-03 20:13:15 +02:00 committed by Maxim Ganetsky
parent 75f7903c0d
commit d767c1dcee
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -841,6 +841,13 @@ begin
exit(0); exit(0);
QtTreeWidget := TQtTreeWidget(ALV.Handle); QtTreeWidget := TQtTreeWidget(ALV.Handle);
{Issue #39353.Such scenario happens only when SetStyle() calls RecreateWnd
while designing control.Default width for TListColumn is 50,
unfortunatelly it''s hardcoded in listcolumn.inc.}
if (csDesigning in ALV.ComponentState) and (QtTreeWidget.ColCount <> ALV.ColumnCount) then
exit(50);
Result := QtTreeWidget.ColWidth[AIndex]; Result := QtTreeWidget.ColWidth[AIndex];
end; end;