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

Qt: fixed item size when images added dynamically to TCustomListView.part of issue #27043

Browse Source 
git-svn-id: trunk@46851 -
This commit is contained in:
zeljko 2014-11-15 09:29:11 +00:00
parent b661cc76e9
commit eb58ee35fa
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -1423,6 +1423,9 @@ var
Str: WideString;
i: Integer;
AAlignment: QtAlignment;
AImages: TCustomImageList;
AMetric: Integer;
ASizeHint: TSize;
begin
if not WSCheckHandleAllocated(ALV, 'ItemInsert') then
Exit;
@ -1470,6 +1473,21 @@ begin
QtTreeWidget.setItemData(TWI, i + 1, AItem);
end;
end;
// issue #27043
if (ALV.Items[AIndex].ImageIndex = -1) then
begin
AImages := TCustomListViewHack(ALV).LargeImages;
if not Assigned(AImages) then
AImages := TCustomListViewHack(ALV).SmallImages;
if Assigned(AImages) then
begin
AMetric := QStyle_pixelMetric(QApplication_style(), QStylePM_FocusFrameVMargin, nil, nil) * 2;
QTreeWidgetItem_sizeHint(TWI, @ASizeHint, 0);
ASizeHint.cy := AImages.Height + AMetric;
QTreeWidgetItem_setSizeHint(TWI, 0, @ASizeHint);
end;
end;
QtTreeWidget.insertTopLevelItem(AIndex, TWI);
end;
end;