paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 19:39:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix 64 bit compilation

Browse Source 
git-svn-id: trunk@9810 -
This commit is contained in:
micha 2006-09-04 21:13:20 +00:00
parent d611cb4ad3
commit ee980d529f
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32int.pp
View File

@ -155,7 +155,7 @@ Type
Procedure AssignSelf(Window: HWnd; Data: Pointer);
procedure AllocAndCopy(const BitmapInfo: Windows.TBitmap; const BitmapHandle: HBITMAP;
const SrcRect: TRect; var Data: PByte; var Size: Cardinal);
const SrcRect: TRect; var Data: PByte; var Size: PtrUInt);
procedure FillRawImageDescriptionColors(Desc: PRawImageDescription);
procedure FillRawImageDescription(const BitmapInfo: Windows.TBitmap;
Desc: PRawImageDescription);
@ -316,4 +316,4 @@ finalization
Assert(False, 'Trace:win32int.pp - Finalization');
end.
end.

2
lcl/interfaces/win32/win32winapi.inc
View File

@ -1774,7 +1774,7 @@ end;
procedure TWin32WidgetSet.AllocAndCopy(const BitmapInfo: Windows.TBitmap;
const BitmapHandle: HBITMAP; const SrcRect: TRect; var Data: PByte;
var Size: Cardinal);
var Size: PtrUInt);
var
bmInfoBuffer: array[0..sizeof(TBitmapInfo)+256*sizeof(Windows.RGBQUAD)] of byte;
bmInfo: TBitmapInfo absolute bmInfoBuffer;