paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed view forms

Browse Source 
git-svn-id: trunk@50169 -
This commit is contained in:
mattias 2015-10-26 09:00:03 +00:00
parent 5ccd3cef66
commit 5469545ffc
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourcefilemanager.pas
View File

@ -2948,12 +2948,14 @@ begin
CurUnitInfo.Filename, i, CurUnitInfo = ActiveUnitInfo); CurUnitInfo.Filename, i, CurUnitInfo = ActiveUnitInfo);
end else if FilenameIsAbsolute(CurUnitInfo.Filename) end else if FilenameIsAbsolute(CurUnitInfo.Filename)
and FilenameIsPascalSource(CurUnitInfo.Filename) and FilenameIsPascalSource(CurUnitInfo.Filename)
and FileExistsCached(CurUnitInfo.Filename) then begin and FileExistsCached(CurUnitInfo.Filename) then
begin
// this unit has a lfm, but the lpi does not know a ComponentName // this unit has a lfm, but the lpi does not know a ComponentName
// => maybe this component was added without the IDE // => maybe this component was added without the IDE
LFMFilename:=ChangeFileExt(CurUnitInfo.Filename,'.lfm'); LFMFilename:=ChangeFileExt(CurUnitInfo.Filename,'.lfm');
if LoadCodeBuffer(LFMCode,LFMFilename,[lbfUpdateFromDisk,lbfCheckIfText],false)=mrOk LFMCode:=CodeToolBoss.LoadFile(LFMFilename,true,false);
then begin if LFMCode<>nil then
begin
ReadLFMHeader(LFMCode.Source,LFMType,LFMComponentName,LFMClassName); ReadLFMHeader(LFMCode.Source,LFMType,LFMComponentName,LFMClassName);
if LFMComponentName<>'' then begin if LFMComponentName<>'' then begin
anUnitName:=CurUnitInfo.SrcUnitName; anUnitName:=CurUnitInfo.SrcUnitName;