paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 12:13:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed uninitialized function results, bug #15423

Browse Source 
git-svn-id: trunk@23274 -
This commit is contained in:
mattias 2009-12-25 11:54:40 +00:00
parent f265272e57
commit e479626b83
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -11199,7 +11199,9 @@ begin
AnUnitInfo:=AFile as TUnitInfo;
AForm:=GetDesignerFormOfSource(AnUnitInfo,LoadForm);
if AForm<>nil then
Result:=AForm.Designer;
Result:=AForm.Designer
else
Result:=nil;
end;
procedure TMainIDE.GetObjectInspectorUnit(
@ -12540,7 +12542,9 @@ function TMainIDE.UnitDependenciesViewGetProjectMainFilename(Sender: TObject
): string;
begin
if Project1.MainUnitID>=0 then
Result:=Project1.MainUnitInfo.Filename;
Result:=Project1.MainUnitInfo.Filename
else
Result:='';
end;
procedure TMainIDE.UnitDependenciesViewOpenFile(Sender: TObject;