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

Qt: Fix TQtWidget.SetGeometry

Browse Source 
git-svn-id: trunk@11631 -
This commit is contained in:
paul 2007-07-26 04:33:16 +00:00
parent 1a37706364
commit 5b9ea96bd3
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1090,12 +1090,12 @@ begin
if w = nil then
begin
QWidget_geometry(TQtMainWindow(Self).MenuBar.Widget, @MenuRect);
MenuRect := TQtMainWindow(Self).MenuBar.getGeometry;
QWidget_rect(Widget, @FormRect);
if MenuRect.Right <> FormRect.Right then
begin
MenuRect.Right := FormRect.Right;
QWidget_setGeometry(TQtMainWindow(Self).MenuBar.Widget, @MenuRect);
TQtMainWindow(Self).MenuBar.setGeometry(MenuRect);
end;
end;
end;
@ -1755,24 +1755,20 @@ end;
procedure TQtWidget.setWidth(p1: Integer);
var
R: TRect;
R: TRect;
begin
R.Left := QWidget_x(Widget);
R.Top := QWidget_y(Widget);
R.Bottom := QWidget_height(Widget);
R.Right := p1;
QWidget_setGeometry(Widget,@R);
R := getGeometry;
R.Right := R.Left + p1;
setGeometry(R);
end;
procedure TQtWidget.setHeight(p1: Integer);
var
R: TRect;
R: TRect;
begin
R.Left := QWidget_x(Widget);
R.Top := QWidget_y(Widget);
R.Right := QWidget_width(Widget);
R.Bottom := p1;
QWidget_setGeometry(Widget, @R);
R := getGeometry;
R.Bottom := R.Top + p1;
setGeometry(R);
end;
procedure TQtWidget.setTabOrder(p1, p2: TQtWidget);
@ -2213,8 +2209,7 @@ end;
procedure TQtWidget.SetGeometry;
begin
with LCLObject do
setGeometry(Rect(Left, Top, Width, Height));
setGeometry(LCLObject.BoundsRect);
end;
{ TQtAbstractButton }