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

IDE: fixed crash

Browse Source 
git-svn-id: trunk@40361 -
This commit is contained in:
mattias 2013-02-21 13:05:55 +00:00
parent d79e1a4d79
commit 70fb9b8f5e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/mainbase.pas
View File

@ -334,7 +334,8 @@ function TMainIDEBase.BeginCodeTool(ADesigner: TDesigner;
Flags: TCodeToolsFlags): boolean; Flags: TCodeToolsFlags): boolean;
begin begin
Result:=false; Result:=false;
if (ctfUseGivenSourceEditor in Flags) and (Project1<>nil) then begin if (ctfUseGivenSourceEditor in Flags) and (Project1<>nil)
and (ActiveSrcEdit<>nil) then begin
ActiveUnitInfo := Project1.EditorInfoWithEditorComponent(ActiveSrcEdit).UnitInfo; ActiveUnitInfo := Project1.EditorInfoWithEditorComponent(ActiveSrcEdit).UnitInfo;
end end
else begin else begin