paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 20:21:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 48426 #bdb8739939 from trunk:

Browse Source 
IDE: Fix crash in procedurelist when no file is open in editor. Issue #0027694.
........

git-svn-id: branches/fixes_1_4@48491 -
This commit is contained in:
maxim 2015-03-24 21:42:22 +00:00
parent 18b5fcfe2f
commit b0a5fd86ea
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/procedurelist.pas
View File

@ -542,8 +542,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;