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

Revert the debug code for issue #36384.

Browse Source 
git-svn-id: trunk@62365 -
This commit is contained in:
juha 2019-12-09 19:38:40 +00:00
parent 2a2559a1fd
commit 6fe2341ba0
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/ideintf/idewindowintf.pas
View File

@ -1586,8 +1586,6 @@ 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;
@ -2221,21 +2219,12 @@ 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 begin
if AForm.Name = 'SearchResults' then
DebugLn([' TIDEWindowCreatorList.ShowForm: Calling CreateWindowLayout for SearchResults.']);
if not IsFormDesign(AForm) then
SimpleLayoutStorage.CreateWindowLayout(AForm);
end;
end
else begin
if AForm.Name = 'SearchResults' then
DebugLn([' TIDEWindowCreatorList.ShowForm: Setting SearchResults form for layout.']);
else
Layout.Form:=AForm;
end;
if (IDEDockMaster<>nil) and (not IsFormDesign(AForm))
and (FindWithName(AForm.Name)<>nil) then