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

Qt: fixed painting of QAbstractItemView viewport.Now owner drawn listboxes,listviews is properly updated/repainted.

Browse Source 
git-svn-id: trunk@23123 -
This commit is contained in:
zeljko 2009-12-13 16:44:54 +00:00
parent bc2b775292
commit 933d11e471
1 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -895,6 +895,8 @@ type
procedure setSelectionBehavior(ABehavior: QAbstractItemViewSelectionBehavior);
property OwnerDrawn: Boolean read GetOwnerDrawn write SetOwnerDrawn;
public
procedure Update(ARect: PRect = nil); override;
procedure Repaint(ARect: PRect = nil); override;
procedure ItemDelegateSizeHint(option: QStyleOptionViewItemH; index: QModelIndexH; Size: PSize); cdecl; virtual;
procedure ItemDelegatePaint(painter: QPainterH; option: QStyleOptionViewItemH; index: QModelIndexH); cdecl; virtual;
end;
@ -1059,8 +1061,6 @@ type
procedure SignalItemCollapsed(item: QTreeWidgetItemH) cdecl;
procedure SignalCurrentItemChanged(current: QTreeWidgetItemH; previous: QTreeWidgetItemH) cdecl;
procedure SignalSortIndicatorChanged(ALogicalIndex: Integer; AOrder: QtSortOrder) cdecl;
procedure Update(ARect: PRect = nil); override;
procedure Repaint(ARect: PRect = nil); override;
property ColCount: Integer read getColCount write setColCount;
property Header: TQtHeaderView read getHeader;
@ -8285,32 +8285,6 @@ begin
end;
end;
procedure TQtTreeWidget.Update(ARect: PRect);
var
P: TPoint;
begin
if ARect <> nil then
begin
P := getClientOffset;
OffsetRect(ARect^, -P.X , -P.Y);
QWidget_update(QAbstractScrollArea_viewport(QTreeWidgetH(Widget)), ARect);
end else
QWidget_update(QAbstractScrollArea_viewport(QTreeWidgetH(Widget)));
end;
procedure TQtTreeWidget.Repaint(ARect: PRect);
var
P: TPoint;
begin
if ARect <> nil then
begin
P := getClientOffset;
OffsetRect(ARect^, -P.X , -P.Y);
QWidget_repaint(QAbstractScrollArea_viewport(QTreeWidgetH(Widget)), ARect);
end else
QWidget_repaint(QAbstractScrollArea_viewport(QTreeWidgetH(Widget)));
end;
{TQtTableView}
function TQtTableView.CreateWidget(const Params: TCreateParams): QWidgetH;
@ -9822,6 +9796,32 @@ begin
QAbstractItemView_setSelectionBehavior(QAbstractItemViewH(Widget), ABehavior);
end;
procedure TQtAbstractItemView.Update(ARect: PRect);
var
P: TPoint;
begin
if ARect <> nil then
begin
P := getClientOffset;
OffsetRect(ARect^, -P.X , -P.Y);
QWidget_update(QAbstractScrollArea_viewport(QAbstractItemViewH(Widget)), ARect);
end else
QWidget_update(QAbstractScrollArea_viewport(QAbstractItemViewH(Widget)));
end;
procedure TQtAbstractItemView.Repaint(ARect: PRect);
var
P: TPoint;
begin
if ARect <> nil then
begin
P := getClientOffset;
OffsetRect(ARect^, -P.X , -P.Y);
QWidget_repaint(QAbstractScrollArea_viewport(QAbstractItemViewH(Widget)), ARect);
end else
QWidget_repaint(QAbstractScrollArea_viewport(QAbstractItemViewH(Widget)));
end;
procedure TQtAbstractItemView.ItemDelegateSizeHint(
option: QStyleOptionViewItemH; index: QModelIndexH; Size: PSize); cdecl;
var