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

IDEIntf: removed obsolete TIDEWindowCreatorList.OnShowForm

Browse Source 
git-svn-id: trunk@31115 -
This commit is contained in:
mattias 2011-06-06 06:32:37 +00:00
parent f6aa228479
commit 21a7205bc4
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -1283,7 +1283,6 @@ begin
end;
ExternalTools.OnNeedsOutputFilter := @OnExtToolNeedsOutputFilter;
ExternalTools.OnFreeOutputFilter := @OnExtToolFreeOutputFilter;
IDEWindowCreators.OnShowForm:=@IDEWindowCreators.SimpleLayoutStorage.ApplyAndShow;
UpdateDefaultPascalFileExtensions;
EditorOpts := TEditorOptions.Create;
@ -1524,7 +1523,6 @@ begin
FreeThenNil(MiscellaneousOptions);
FreeThenNil(EditorOpts);
FreeThenNil(DebuggerOptions);
IDEWindowCreators.OnShowForm:=nil;
FreeThenNil(EnvironmentOptions);
FreeThenNil(IDECommandScopes);

8
ideintf/idewindowintf.pas
View File

@ -326,8 +326,6 @@ type
procedure CreateForm(var AForm; 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
property SimpleLayoutStorage: TSimpleWindowLayoutList read FSimpleLayoutStorage;
procedure RestoreSimpleLayout;
end;
@ -1473,12 +1471,8 @@ begin
and (FindWithName(AForm.Name)<>nil) then
// show dockable if it has a creator and is not a designer form
IDEDockMaster.ShowForm(AForm,BringToFront)
else if Assigned(OnShowForm) then
OnShowForm(Self,AForm,BringToFront)
else if BringToFront then
AForm.ShowOnTop
else
AForm.Visible:=true;
SimpleLayoutStorage.ApplyAndShow(Self,AForm,BringToFront);
end;
function TIDEWindowCreatorList.ShowForm(AFormName: string; BringToFront: boolean