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

ide: use relative path in .rc files (iow no path) (#0012402)

Browse Source 
git-svn-id: trunk@17014 -
This commit is contained in:
paul 2008-10-16 01:01:33 +00:00
parent 5d17b30514
commit 33015ac694
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/projecticon.pas
View File

@ -127,6 +127,7 @@ function TProjectIcon.UpdateResources(AResources: TAbstractProjectResources;
const MainFilename: string): Boolean;
var
AResource: TStream;
IconName: String;
begin
Result := True;
@ -148,7 +149,11 @@ begin
// but it does not work
if CreateIconFile then
AResources.AddSystemResource(sIcon + Format(' "%s"', [StringReplace(icoFileName, '\', '\\', [rfReplaceAll])]))
begin
//IconName := StringReplace(icoFileName, '\', '\\', [rfReplaceAll]);
IconName := ExtractFileName(icoFileName);
AResources.AddSystemResource(sIcon + ' "' + IconName + '"');
end
else
Result := False;
end;