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

LCL/TBitmap: TBitmap.LoadFromStream accepts RT_RCDATA bitmap resources. Issue #40529.

Browse Source
This commit is contained in:
wp_xyz 2023-10-04 12:40:18 +02:00
parent 32ea407ca3
commit 3b4b6dd3ed
1 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
lcl/include/bitmap.inc
View File

@ -125,25 +125,31 @@ var
begin
if AStream is TResourceStream then
begin
FillChar(Header, SizeOf(Header), 0);
if TestStreamIsBMP(AStream) then
{ Handle the special case of an RC_RTDATA resource which contains a
complete, functional TBitmap structure (BitmapFileHeader+BitmapInfoHeader). }
inherited LoadFromStream(AStream, ASize)
else
begin
{ Normal case of an RT_BITMAP resource lacking the BitmapFileHeader }
FillChar(Header, SizeOf(Header), 0);
{ Create a BMP header ordered as it would be on disc, noting that if the CPU
is big-endian this will be the "wrong way round" for numeric operations. }
{$IFNDEF ENDIAN_BIG}
Header.bfType := $4d42;
Header.bfSize := SizeOf(Header) + ASize;
{$ELSE}
Header.bfType := $424d;
Header.bfSize := swap(SizeOf(Header) + ASize);
{$ENDIF}
//Header.bfOffBits := 0; //data follow immediately
{ Create a BMP header ordered as it would be on disc, noting that if the CPU
is big-endian this will be the "wrong way round" for numeric operations. }
{$IFNDEF ENDIAN_BIG}
Header.bfType := $4d42;
Header.bfSize := SizeOf(Header) + ASize;
{$ELSE}
Header.bfType := $424d;
Header.bfSize := swap(SizeOf(Header) + ASize);
{$ENDIF}
//Header.bfOffBits := 0; //data imediately follows
S := THeaderStream.Create(AStream, @Header, SizeOf(Header));
try
inherited LoadFromStream(S, SizeOf(Header) + ASize);
finally
S.Free;
S := THeaderStream.Create(AStream, @Header, SizeOf(Header));
try
inherited LoadFromStream(S, SizeOf(Header) + ASize);
finally
S.Free;
end;
end;
end
else