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

TForm.AutoSize: using Monitor.WorkAreaRect as maximum for AutoSize when akRight,akBottom are set

Browse Source 
git-svn-id: trunk@26278 -
This commit is contained in:
mattias 2010-06-24 09:41:28 +00:00
parent 8c4f53f514
commit ee8a253eab
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -533,6 +533,8 @@ type
procedure Notification(AComponent: TComponent; Operation : TOperation);override;
procedure PaintWindow(dc : Hdc); override;
procedure RequestAlign; override;
procedure CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean); override;
procedure SetZOrder(Topmost: Boolean); override;
procedure SetParent(NewParent: TWinControl); override;
procedure MoveToDefaultPosition; virtual;

17
lcl/include/customform.inc
View File

@ -1042,6 +1042,23 @@ Begin
inherited RequestAlign;
end;
procedure TCustomForm.CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean);
var
WorkArea: TRect;
begin
inherited CalculatePreferredSize(PreferredWidth, PreferredHeight,
WithThemeSpace);
if Anchors*[akRight,akBottom]<>[] then begin
// do size bigger than the monitor workarea
WorkArea:=Monitor.WorkareaRect;
if akRight in Anchors then
PreferredWidth:=min(PreferredWidth,WorkArea.Right-WorkArea.Left);
if akBottom in Anchors then
PreferredHeight:=min(PreferredHeight,WorkArea.Bottom-WorkArea.Top);
end;
end;
{------------------------------------------------------------------------------
TCustomForm SetDesigner
------------------------------------------------------------------------------}