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

IDE: Debug output for solving issue #36384.

Browse Source 
git-svn-id: trunk@62362 -
This commit is contained in:
juha 2019-12-09 14:32:15 +00:00
parent 8ebda25a9b
commit 9bbb6b0a30
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/ideintf/idewindowintf.pas
View File

@ -1586,6 +1586,8 @@ begin
Config.SetDeleteValue(Path+'Desktop/FormIdCount',Count,0);
//debugln(['TSimpleWindowLayoutList.SaveToConfig ',Count]);
for i:=0 to Count-1 do begin
if Items[i].FormID = 'SearchResults' then
DebugLn(['*** TSimpleWindowLayoutList.SaveToConfig: Saving ', Items[i].FormID, '.']);
Config.SetDeleteValue(Path+'Desktop/FormIdList/a'+IntToStr(i+1),Items[i].FormID,'');
Items[i].SaveToConfig(Config,Path);
end;
@ -2219,12 +2221,21 @@ begin
// auto create a layout storage for every shown form
Layout:=SimpleLayoutStorage.ItemByFormID(AForm.Name);
if AForm.Name = 'SearchResults' then
DebugLn(['TIDEWindowCreatorList.ShowForm: SearchResults layout=', Layout,
', BringToFront=', BringToFront, ', AMoveToVisbleMode=', AMoveToVisbleMode]);
if Layout=nil then begin
if not IsFormDesign(AForm) then
if not IsFormDesign(AForm) then begin
if AForm.Name = 'SearchResults' then
DebugLn([' TIDEWindowCreatorList.ShowForm: Calling CreateWindowLayout for SearchResults.']);
SimpleLayoutStorage.CreateWindowLayout(AForm);
end;
end
else
else begin
if AForm.Name = 'SearchResults' then
DebugLn([' TIDEWindowCreatorList.ShowForm: Setting SearchResults form for layout.']);
Layout.Form:=AForm;
end;
if (IDEDockMaster<>nil) and (not IsFormDesign(AForm))
and (FindWithName(AForm.Name)<>nil) then