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

Packager: Use a new component's class name as icon resource name. Issue #23075

Browse Source 
git-svn-id: trunk@38989 -
This commit is contained in:
juha 2012-10-08 00:12:24 +00:00
parent 5d3ee21158
commit 07e313123f
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packager/pkgmanager.pas
View File

@ -640,8 +640,8 @@ var
BinFileStream: TFileStreamUTF8;
BinMemStream: TMemoryStream;
BinExt: String;
ResourceType: String;
ResourceName: String;
ResType: String;
ResName: String;
ResMemStream: TMemoryStream;
CodeBuf: TCodeBuffer;
begin
@ -665,10 +665,9 @@ begin
BinMemStream.CopyFrom(BinFileStream,BinFileStream.Size);
BinMemStream.Position:=0;
BinExt:=uppercase(ExtractFileExt(Params.IconFile));
ResourceType:=copy(BinExt,2,length(BinExt)-1);
ResourceName:=ExtractFileNameOnly(Params.IconFile);
BinaryToLazarusResourceCode(BinMemStream,ResMemStream
,ResourceName,ResourceType);
ResType:=copy(BinExt,2,length(BinExt)-1);
ResName:=ExtractFileNameOnly(Params.NewClassName);
BinaryToLazarusResourceCode(BinMemStream,ResMemStream,ResName,ResType);
ResMemStream.Position:=0;
CodeBuf.LoadFromStream(ResMemStream);
Result:=SaveCodeBuffer(CodeBuf);