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

Qt: added cdPostPaint for TListView when ViewStyle <> vsReport. part of issue #27315

Browse Source 
git-svn-id: trunk@47414 -
This commit is contained in:
zeljko 2015-01-18 16:01:18 +00:00
parent 5065ce2ec9
commit 3241c30faf
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12216,6 +12216,7 @@ var
TmpDC1, TmpDC2: HDC;
SkipDefault: Boolean;
Item: QListWidgetItemH;
APaintResult: TCustomDrawResult;
begin
if (ViewStyle >= 0) and not (FChildOfComplexWidget = ccwComboBox) then
begin
@ -12278,10 +12279,17 @@ begin
// here we do only OnCustomDrawItem and OnCustomDrawSubItem
// OnCustomDraw is done inside itemViewportEventFilter.
SkipDefault := cdrSkipDefault in TCustomListViewAccess(LCLObject).IntfCustomDraw(ATarget, cdPrePaint, ItemIndex, SubItemIndex, ACustomState, @R);
APaintResult := TCustomListViewAccess(LCLObject).IntfCustomDraw(ATarget, cdPrePaint, ItemIndex, SubItemIndex, ACustomState, @R);
SkipDefault := cdrSkipDefault in APaintResult;
if not SkipDefault then // do default paint by unknown magic
QAbstractItemDelegate_paint(FOldDelegate, painter, Option, index);
// issue #27315
if cdrNotifyPostpaint in APaintResult then
TCustomListViewAccess(LCLObject).IntfCustomDraw(ATarget, cdPostPaint, ItemIndex, SubItemIndex, ACustomState, @R);
finally
TCustomListView(LCLObject).Canvas.Handle := TmpDC2;
TQtDeviceContext(TmpDC1).Free;