IDE: Fix crash in procedurelist when no file is open in editor. Issue #27694.

git-svn-id: trunk@48426 -

ide/procedurelist.pas

@@ -541,8 +541,13 @@ end;
 procedure TProcedureListForm.FormCreate(Sender: TObject);
 begin
   if SourceEditorManagerIntf.ActiveEditor = nil then
+  begin
+    //SetupGUI makes the dialog look as it should, and is clears the listview
+    //thus preventing a crash when clicking on the LV
+    SetupGUI;
     Exit; //==>
-    
+  end;
+
   FMainFilename := SourceEditorManagerIntf.ActiveEditor.Filename;
   Caption := Caption + ExtractFileName(FMainFilename);
   SetupGUI;