paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 03:20:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

TBitmap.WriteStreamWithFPImage - write stream size Little Endian - fixes streaming bitmaps on BE platforms

Browse Source 
git-svn-id: trunk@11007 -
This commit is contained in:
tombo 2007-04-26 11:52:59 +00:00
parent dd02769d5f
commit d357912661
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/bitmap.inc
View File

@ -818,7 +818,7 @@ procedure TBitmap.WriteStreamWithFPImage(Stream: TStream; WriteSize: boolean;
procedure DoWriteOriginal;
begin
DoWriteStreamSize(Stream,longint(FImage.SaveStream.Size));
DoWriteStreamSize(Stream, NtoLE(LongInt(FImage.SaveStream.Size)));
FImage.SaveStream.Position:=0;
if Stream is TMemoryStream then
TMemoryStream(Stream).SetSize(Stream.Position+FImage.SaveStream.Size);