diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-10 00:20:43 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-12 18:24:39 +0100 |
commit | b866e7363ad46bc06b6e490fa50af138767bd650 (patch) | |
tree | 017ec64c2225328958e3310d6c7a87a9b946a7ac /docview | |
parent | 9947e87c9ee4c59a34332d0373d972cd0d87f6e6 (diff) | |
download | fpGUI-b866e7363ad46bc06b6e490fa50af138767bd650.tar.xz |
docview: To make sure TotalSize is > 0
Diffstat (limited to 'docview')
-rw-r--r-- | docview/src/HelpBitmap.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/docview/src/HelpBitmap.pas b/docview/src/HelpBitmap.pas index 692bf64d..45855a1f 100644 --- a/docview/src/HelpBitmap.pas +++ b/docview/src/HelpBitmap.pas @@ -83,7 +83,7 @@ type _UncompressedBlockSize: longint; function GetPaletteSize: longint; procedure BitmapError(Msg: string); - procedure ReadBitmapData( Blocks: TList; TotalSize: longint ); + procedure ReadBitmapData( Blocks: TList; TotalSize: longword); public constructor CreateFromHelpFile(var AFileHandle: TFileStream; Offset: longint); destructor Destroy; override; @@ -267,7 +267,7 @@ begin inherited Destroy; end; -procedure THelpBitmap.ReadBitmapData( Blocks: TList; TotalSize: longint ); +procedure THelpBitmap.ReadBitmapData( Blocks: TList; TotalSize: longword ); var BytesWritten: longint; BytesWrittenFromBlock: longword; |