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

lcl: make TCustomIcon.LoadFromResourceHandle endian safe

Browse Source 
git-svn-id: trunk@23315 -
This commit is contained in:
paul 2009-12-28 23:33:40 +00:00
parent b52661b103
commit 4f2c331030
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/icon.inc
View File

@ -701,19 +701,19 @@ begin
// write icon header
Stream.Write(Dir^, SizeOf(TIconHeader));
// write icon entries headers
offset := Stream.Position + SizeOf(IconEntry) * Dir^.idCount;
for i := 0 to Dir^.idCount - 1 do
offset := Stream.Position + SizeOf(IconEntry) * LEtoN(Dir^.idCount);
for i := 0 to LEtoN(Dir^.idCount) - 1 do
begin
DirEntry := Dir^.idEntries[i];
Move(DirEntry, IconEntry, SizeOf(DirEntry));
IconEntry.dwImageOffset := offset;
inc(offset, IconEntry.dwBytesInRes);
IconEntry.dwImageOffset := NtoLE(offset);
inc(offset, LEtoN(IconEntry.dwBytesInRes));
Stream.Write(IconEntry, SizeOf(IconEntry));
end;
// write icons data
for i := 0 to Dir^.idCount - 1 do
for i := 0 to LEtoN(Dir^.idCount) - 1 do
begin
IconStream := TResourceStream.CreateFromID(Instance, Dir^.idEntries[i].nID, RT_ICON);
IconStream := TResourceStream.CreateFromID(Instance, LEtoN(Dir^.idEntries[i].nID), RT_ICON);
try
Stream.CopyFrom(IconStream, IconStream.Size);
finally