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

fixed access violation when doing "Add editor file to project" if there is no editor file (issue #1258)

Browse Source 
git-svn-id: trunk@7958 -
This commit is contained in:
vincents 2005-10-12 07:46:55 +00:00
parent cec693884a
commit 099bfa8b1e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -6510,8 +6510,8 @@ var
s, ShortUnitName: string;
begin
Result:=mrCancel;
BeginCodeTool(ActiveSourceEditor,ActiveUnitInfo,[]);
if ActiveUnitInfo<>nil then begin
if BeginCodeTool(ActiveSourceEditor,ActiveUnitInfo,[])
and (ActiveUnitInfo<>nil) then begin
if ActiveUnitInfo.IsPartOfProject=false then begin
if not ActiveUnitInfo.IsVirtual then
s:='"'+ActiveUnitInfo.Filename+'"'