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

using default unitname if unable to parse the code

Browse Source 
git-svn-id: trunk@7809 -
This commit is contained in:
mattias 2005-09-23 21:23:36 +00:00
parent 61d3cff9f6
commit 58e2d96223
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -4350,6 +4350,7 @@ var
NewAncestorName: String;
APersistentClass: TPersistentClass;
ACaption, AText: String;
NewUnitName: String;
begin
// check installed packages
debugln('TMainIDE.DoLoadLFM A ',AnUnitInfo.Filename,' ',dbgs(AnUnitInfo.IsPartOfProject),' ');
@ -4446,9 +4447,12 @@ begin
if not (ofProjectLoading in Flags) then FormEditor1.ClearSelection;
// create JIT component
NewUnitName:=AnUnitInfo.UnitName;
if NewUnitName='' then
NewUnitName:=ExtractFileNameOnly(AnUnitInfo.Filename);
CInterface := TComponentInterface(
FormEditor1.CreateComponentFromStream(BinLFMStream,
AncestorType,copy(AnUnitInfo.UnitName,1,255),true));
AncestorType,copy(NewUnitName,1,255),true));
if CInterface=nil then begin
// error streaming component -> examine lfm file
DebugLn('ERROR: streaming failed lfm="',LFMBuf.Filename,'"');