paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:19:23 +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; const MainFilename: string): Boolean;
var var
AResource: TStream; AResource: TStream;
IconName: String;
begin begin
Result := True; Result := True;
@ -148,7 +149,11 @@ begin
// but it does not work // but it does not work
if CreateIconFile then 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 else
Result := False; Result := False;
end; end;