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

IDEIntf: added utility function to create autosized delay windows

Browse Source 
git-svn-id: trunk@26105 -
This commit is contained in:
mattias 2010-06-14 10:40:09 +00:00
parent 48a402b0f5
commit dc520f8360
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ideintf/idewindowintf.pas
View File

@ -201,6 +201,9 @@ type
DisableAutoSizing: boolean = false): TCustomForm;
procedure ShowForm(AForm: TCustomForm; BringToFront: boolean);
property OnShowForm: TShowIDEWindowEvent read FOnShowForm write FOnShowForm;
procedure CreateForm(var AForm: TCustomForm; AFormClass: TCustomFormClass;
DoDisableAutoSizing: boolean; TheOwner: TComponent);
end;
var
@ -752,6 +755,17 @@ begin
AForm.Show;
end;
procedure TIDEWindowCreatorList.CreateForm(var AForm: TCustomForm;
AFormClass: TCustomFormClass; DoDisableAutoSizing: boolean;
TheOwner: TComponent);
begin
AForm:=TCustomForm(AFormClass.NewInstance);
AForm.DisableAutoSizing;
AForm.Create(TheOwner);
if not DoDisableAutoSizing then
AForm.EnableAutoSizing;
end;
{ TIDEDockMaster }
procedure TIDEDockMaster.CloseAll;