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

Qt: TQtListWidget, TQtTreeWidget.itemDelegatePaint() draw background of item by default.related to issue #24941

Browse Source 
git-svn-id: trunk@43158 -
This commit is contained in:
zeljko 2013-10-07 14:38:16 +00:00
parent aaf99d7581
commit 3bc8a27299
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11378,6 +11378,8 @@ begin
ItemIndex := QModelIndex_row(index); ItemIndex := QModelIndex_row(index);
SubItemIndex := QModelIndex_column(index); SubItemIndex := QModelIndex_column(index);
QStyle_drawControl(QApplication_style, QStyleCE_ItemViewItem, Option, painter, viewportWidget);
// NOW WE ARE DRAWING ITEMS ... // NOW WE ARE DRAWING ITEMS ...
QPainter_save(painter); QPainter_save(painter);
if TCustomListView(LCLObject).Canvas.HandleAllocated then if TCustomListView(LCLObject).Canvas.HandleAllocated then
@ -12697,6 +12699,8 @@ begin
ItemIndex := QModelIndex_row(index); ItemIndex := QModelIndex_row(index);
SubItemIndex := QModelIndex_column(index); SubItemIndex := QModelIndex_column(index);
QStyle_drawControl(QApplication_style, QStyleCE_ItemViewItem, Option, painter, viewportWidget);
// NOW WE ARE DRAWING ITEMS ... // NOW WE ARE DRAWING ITEMS ...
QPainter_save(painter); QPainter_save(painter);
if TCustomListView(LCLObject).Canvas.HandleAllocated then if TCustomListView(LCLObject).Canvas.HandleAllocated then