Commit bdb87399 authored by Bart B's avatar Bart B 🐞
Browse files

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

git-svn-id: trunk@48426 -
parent 40d5c151
......@@ -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;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment