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

*Fixed MDI window sizes and child controls alignment.

Browse Source 
git-svn-id: trunk@11604 -
This commit is contained in:
zeljko 2007-07-23 18:25:09 +00:00
parent 9e4a4f717f
commit d2c1b2ccab
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/qt/qtwscontrols.pp
View File

@ -35,7 +35,7 @@ uses
{$endif}
qtwidgets, qtobjects,
// LCL
SysUtils, Controls, LCLType, LCLProc, Forms, Graphics,
SysUtils, Classes, Controls, LCLType, LCLProc, Forms, Graphics,
// Widgetset
InterfaceBase, WSControls, WSLCLClasses;
@ -163,6 +163,7 @@ end;
class procedure TQtWSCustomControl.ShowHide(const AWinControl: TWinControl);
var
Widget: TQtWidget;
R: TRect;
begin
{$ifdef VerboseQt}
WriteLn('Trace:> [TQtWSCustomControl.ShowHide]');
@ -186,8 +187,12 @@ begin
if TForm(AWinControl).FormStyle = fsMDIChild then
begin
TForm(AWinControl).Left := 0;
TForm(AWinControl).Top := 0;
{MDI windows have to be resized , since titlebar is included into widget geometry !}
QWidget_contentsRect(Widget.Widget, @R);
TForm(AWinControl).Left := 0;
TForm(AWinControl).Top := 0;
TForm(AWinControl).Width := TForm(AWinControl).Width + R.Left;
TForm(AWinControl).Height := TForm(AWinControl).Height + R.Top;
TForm(AWinControl).ReAlign;
end;
end;