paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: project version windows: fixed UpdateMainSourceFilename to set the internal filenames from Jouke Rensma

Browse Source 
git-svn-id: trunk@10032 -
This commit is contained in:
mattias 2006-10-03 21:32:29 +00:00
parent 3f65db6fa4
commit d4fe9a0913
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/w32versioninfo.pas
View File

@ -804,6 +804,7 @@ begin
Result := mrCancel;
VersionInfoCodeBuf:=CodeToolBoss.LoadFile(AFilename,false,false);
if VersionInfoCodeBuf=nil then exit;
SetFileNames(AFilename);
if not CodeToolBoss.FindResourceDirective(VersionInfoCodeBuf,1,1,
VersionInfoCodeBuf,NewX,NewY,
NewTopLine,ExtractFileName(resFilename)) then