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

IDEIntf: ShowForm: always call the IDEDockMaster

Browse Source 
git-svn-id: trunk@26109 -
This commit is contained in:
mattias 2010-06-14 11:38:37 +00:00
parent 62d2ab1ab0
commit 89f12a6c80
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ideintf/idewindowintf.pas
View File

@ -200,10 +200,10 @@ type
function GetForm(aFormName: string; AutoCreate: boolean;
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); // utility function to create a form with delayed autosizing
property OnShowForm: TShowIDEWindowEvent read FOnShowForm write FOnShowForm; // set by the IDE to implement a default
end;
var
@ -739,12 +739,6 @@ end;
procedure TIDEWindowCreatorList.ShowForm(AForm: TCustomForm;
BringToFront: boolean);
begin
if AForm.IsVisible then
begin
if BringToFront then
AForm.ShowOnTop;
exit;
end;
if IDEDockMaster<>nil then
IDEDockMaster.ShowForm(AForm,BringToFront)
else if Assigned(OnShowForm) then