paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-24 18:38:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: remove freed forms from restore windows list

Browse Source 
git-svn-id: trunk@41856 -
This commit is contained in:
mattias 2013-06-23 19:48:13 +00:00
parent 84d4e52eae
commit 149c929321
3 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/lazideintf.pas
View File

@ -164,7 +164,7 @@ type
protected
FLazarusIDEHandlers: array[TLazarusIDEHandlerType] of TMethodList;
fOwningComponent: TComponent;
LastActivatedWindows: TList;
LastActivatedWindows: TFPList;
function GetActiveProject: TLazProject; virtual; abstract;
procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType);

7
ide/main.pp
View File

@ -1382,9 +1382,9 @@ begin
if IDEDockMaster<>nil then
IDEDockMaster.MakeIDEWindowDockSite(MainIDEBar);
HiddenWindowsOnRun:=TList.Create;
HiddenWindowsOnRun:=TFPList.Create;
LastActivatedWindows:=TList.Create;
LastActivatedWindows:=TFPList.Create;
// menu
MainIDEBar.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TMainIDE.Create'){$ENDIF};
try
@ -12405,8 +12405,6 @@ begin
and not (fsModal in AForm.FormState) then
inc(FormCount);
end;
if FormCount<>LastActivatedWindows.Count then
LastActivatedWindows.Clear;
while LastActivatedWindows.Count>0 do
begin
AForm:=TCustomForm(LastActivatedWindows[0]);
@ -12524,6 +12522,7 @@ end;
procedure TMainIDE.OnScreenRemoveForm(Sender: TObject; AForm: TCustomForm);
begin
HiddenWindowsOnRun.Remove(AForm);
LastActivatedWindows.Remove(AForm);
end;
procedure TMainIDE.OnRemoteControlTimer(Sender: TObject);

2
ide/mainintf.pas
View File

@ -136,7 +136,7 @@ type
function GetActiveProject: TLazProject; override;
public
HiddenWindowsOnRun: TList; // list of forms, that were automatically hidden
HiddenWindowsOnRun: TFPList; // list of forms, that were automatically hidden
// and will be shown when debugged program stops
property ToolStatus: TIDEToolStatus read GetToolStatus;