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

Qt: optimized TQtTreeWidget when OwnerDraw=true and imagelist is assigned, but without imageindexes per item.issue #29179

Browse Source 
git-svn-id: trunk@50761 -
This commit is contained in:
zeljko 2015-12-13 10:21:06 +00:00
parent b8d8533ff8
commit a8b48c4b1a
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/interfaces/qt/qtwidgets.pas
View File

@ -13734,13 +13734,14 @@ var
RowHeight: Integer;
item: QTreeWidgetItemH;
itemChild: QTreeWidgetItemH;
v,v2: QVariantH;
v,v2,v3: QVariantH;
WStr, TempStr: WideString;
ASelected: Boolean;
ImgList: TCustomImageList;
AImageIndex: TImageIndex;
Bmp: TBitmap;
AOk: Boolean;
AIcon: QIconH;
begin
{do not set items during design time}
if csDesigning in LCLObject.ComponentState then
@ -13831,9 +13832,25 @@ begin
if (AImageIndex < 0) then
begin
v2 := QVariant_create;
QTreeWidgetItem_setData(item, 0, QtListViewOwnerDataRole, v2);
QVariant_destroy(v2);
QTreeWidgetItem_setIcon(item, 0, nil);
AIcon := QIcon_create;
try
QTreeWidgetItem_data(item, v2, 0, QtListViewOwnerDataRole);
if not QVariant_isNull(v2) then
begin
v3 := QVariant_create;
try
QTreeWidgetItem_setData(item, 0, QtListViewOwnerDataRole, v3);
finally
QVariant_destroy(v3);
end;
end;
QTreeWidgetItem_icon(item, AIcon, 0);
if not QIcon_isNull(AIcon) then
QTreeWidgetItem_setIcon(item, 0, nil);
finally
QVariant_destroy(v2);
QIcon_destroy(AIcon);
end;
end;
end;