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

IDE: UpdateLRSFromLFM: auto create directory

Browse Source 
git-svn-id: trunk@22363 -
This commit is contained in:
mattias 2009-10-31 17:51:27 +00:00
parent e81f70915d
commit e976d4b51b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/buildmanager.pas
View File

@ -1058,9 +1058,11 @@ function TBuildManager.UpdateLRSFromLFM(AnUnitInfo: TUnitInfo;
var
LFMFilename: String;
LRSFilename: String;
Dir: String;
begin
Result:=mrOk;
// check if there is a .lfm file
if AnUnitInfo.IsVirtual then exit;
LFMFilename:=ChangeFileExt(AnUnitInfo.Filename,'.lfm');
if not FileExistsCached(LFMFilename) then exit(mrOk);
// check if there is a .lrs file
@ -1073,6 +1075,9 @@ begin
debugln('TBuildManager.UpdateLRSFromLFM ',LRSFilename,' LFMAge=',dbgs(FileAgeUTF8(LFMFilename)),' LRSAge=',dbgs(FileAgeUTF8(LRSFilename)));
// the .lrs file does not exist, or is older than the .lfm file
// -> update .lrs file
Dir:=ExtractFilePath(LRSFilename);
Result:=ForceDirectoryInteractive(Dir,[mbRetry]);
if Result<>mrOk then exit;
Result:=ConvertLFMToLRSFileInteractive(LFMFilename,LRSFilename,ShowAbort);
end;