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

MG: bugfix for readstream

Browse Source 
git-svn-id: trunk@220 -
This commit is contained in:
lazarus 2001-03-12 09:40:44 +00:00
parent 1c8feee052
commit 106110f999
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/bitmap.inc
View File

@ -118,7 +118,7 @@ end;
procedure TBitmap.ReadStream(Stream: TStream; Size: Longint);
type
BITMAP = record
BITMAP = packed record
bmType : Longint;
bmWidth : Longint;
bmHeight : Longint;
@ -129,7 +129,7 @@ type
end;
PBITMAP = ^BITMAP;
BITMAPINFOHEADER = record
BITMAPINFOHEADER = packed record
biSize : DWORD;
biWidth : Longint;
biHeight : Longint;
@ -143,14 +143,14 @@ type
biClrImportant : DWORD;
end;
RGBQUAD = record
RGBQUAD = packed record
rgbBlue : BYTE;
rgbGreen : BYTE;
rgbRed : BYTE;
rgbReserved : BYTE;
// rgbReserved : BYTE;
end;
BITMAPINFO = record
BITMAPINFO = packed record
bmiHeader : BITMAPINFOHEADER;
bmiColors : array[0..0] of RGBQUAD;
end;
@ -211,7 +211,7 @@ begin
GetMem(Bits,ImgSize);
try
ReadSize:=Stream.Read(Bits^,ImgSize);
if ReadSize<>InfoSize then
if ReadSize<>ImgSize then
raise EInOutError.Create('Invalid windows bitmap (bits)');
// ToDo: create a bitmap handle
@ -311,6 +311,9 @@ end;
{ =============================================================================
$Log$
Revision 1.4 2001/03/12 09:40:44 lazarus
MG: bugfix for readstream
Revision 1.3 2001/03/05 14:20:04 lazarus
added streaming to tgraphic, added tpicture