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

Qt: Workaround for resize problem with viewport of TQtAbstractScrollArea.

Browse Source 
git-svn-id: trunk@12334 -
This commit is contained in:
zeljko 2007-10-05 15:11:29 +00:00
parent 6aff8c0e22
commit 8354849194
1 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6388,9 +6388,8 @@ begin
inherited OffsetMousePos(APoint);
end;
function TQtViewPort.EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var
R: TRect;
begin
case QEvent_type(Event) of
QEventResize: Result := False;
@ -6449,7 +6448,6 @@ function TQtAbstractScrollArea.EventFilter(Sender: QObjectH; Event: QEventH): Bo
begin
case QEvent_type(Event) of
QEventPaint,
QEventLayoutRequest,
QEventMouseButtonPress,
QEventMouseButtonRelease,
QEventMouseButtonDblClick: Result := False;
@ -6570,13 +6568,25 @@ end;
Returns: Nothing
------------------------------------------------------------------------------}
procedure TQtAbstractScrollArea.setHorizontalScrollBar(AScrollBar: TQtScrollBar);
var
i: Integer;
begin
{$ifdef VerboseQt}
WriteLn('TQAbstractScrollArea.setHorizontalScrollBar');
{$endif}
FHScrollbar := AScrollBar;
if Assigned(FHScrollBar) then
begin
QAbstractScrollArea_setHorizontalScrollBar(QAbstractScrollAreaH(Widget), QScrollBarH(FHScrollBar.Widget));
{$note WORKAROUND}
if not (csDesigning in LCLObject.ComponentState) then
begin
i := getHeight;
QWidget_resize(Widget,getWidth,i + FHScrollBar.getHeight);
QWidget_update(Widget);
QWidget_resize(Widget,getWidth, i);
end;
end;
end;
{------------------------------------------------------------------------------
@ -6585,13 +6595,25 @@ end;
Returns: Nothing
------------------------------------------------------------------------------}
procedure TQtAbstractScrollArea.setVerticalScrollBar(AScrollBar: TQtScrollBar);
var
i: Integer;
begin
{$ifdef VerboseQt}
WriteLn('TQAbstractScrollArea.setVerticalScrollBar');
{$endif}
FVScrollBar := AScrollBar;
if Assigned(FVScrollBar) then
begin
QAbstractScrollArea_setVerticalScrollBar(QAbstractScrollAreaH(Widget), QScrollBarH(FVScrollBar.Widget));
{$note WORKAROUND}
if not (csDesigning in LCLObject.ComponentState) and (horizontalScrollBar <> nil) then
begin
i := getHeight;
QWidget_resize(Widget,getWidth,i + FVScrollBar.getWidth);
QWidget_update(Widget);
QWidget_resize(Widget,getWidth, i);
end;
end;
end;
procedure TQtAbstractScrollArea.setVisible(visible: Boolean);