IDE: 2.4.0 compatibility

git-svn-id: trunk@28702 -
This commit is contained in:
vincents 2010-12-13 10:10:34 +00:00
parent f9e4baf8f3
commit 69ef97f530

View File

@ -186,7 +186,7 @@ begin
FormFilename:=LazarusIDE.FindUnitFile(GetClassUnitName(UnitControl.ClassType),LazarusIDE);
//debugln(['FindDeclarationOfIDEControl FormFilename=',FormFilename]);
if FormFilename='' then begin
debugln(['FindDeclarationOfIDEControl UnitControl=',DbgSName(UnitControl),' Unitname=',UnitControl.UnitName,': unit source not found']);
debugln(['FindDeclarationOfIDEControl UnitControl=',DbgSName(UnitControl),' Unitname=',GetClassUnitName(UnitControl.ClassType),': unit source not found']);
exit;
end;
Code:=CodeToolBoss.LoadFile(FormFilename,true,false);