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

Qt: fixed wrong cast

Browse Source 
git-svn-id: trunk@23631 -
This commit is contained in:
zeljko 2010-02-04 19:19:43 +00:00
parent ec69c2c0dd
commit 2e36f3b61e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9083,9 +9083,9 @@ begin
begin
P := getClientOffset;
OffsetRect(ARect^, -P.X , -P.Y);
QWidget_update(QAbstractScrollArea_viewport(QAbstractItemViewH(Widget)), ARect);
QWidget_update(QAbstractScrollArea_viewport(QAbstractScrollAreaH(Widget)), ARect);
end else
QWidget_update(QAbstractScrollArea_viewport(QAbstractItemViewH(Widget)));
QWidget_update(QAbstractScrollArea_viewport(QAbstractScrollAreaH(Widget)));
end;
procedure TQtAbstractScrollArea.Repaint(ARect: PRect);
@ -9096,9 +9096,9 @@ begin
begin
P := getClientOffset;
OffsetRect(ARect^, -P.X , -P.Y);
QWidget_repaint(QAbstractScrollArea_viewport(QAbstractItemViewH(Widget)), ARect);
QWidget_repaint(QAbstractScrollArea_viewport(QAbstractScrollAreaH(Widget)), ARect);
end else
QWidget_repaint(QAbstractScrollArea_viewport(QAbstractItemViewH(Widget)));
QWidget_repaint(QAbstractScrollArea_viewport(QAbstractScrollAreaH(Widget)));
end;
{ TQtCustomControl }