paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-27 22:25:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

cleanup

Browse Source 
git-svn-id: trunk@2048 -
This commit is contained in:
mattias 2002-08-17 23:40:47 +00:00
parent 60e7d72717
commit e5395755d3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -734,7 +734,6 @@ function TgtkObject.CreateBitmap(Width, Height: Integer;
var var
GdiObject: PGdiObject; GdiObject: PGdiObject;
//RawImage: PGDIRawImage; //RawImage: PGDIRawImage;
P: TPoint;
DefGdkWindow: PGdkWindow; DefGdkWindow: PGdkWindow;
begin begin
Assert(False, Format('Trace:> [TgtkObject.CreateBitmap] Width: %d, Height: %d, Planes: %d, BitCount: %d, BitmapBits: 0x%x', [Width, Height, Planes, BitCount, Longint(BitmapBits)])); Assert(False, Format('Trace:> [TgtkObject.CreateBitmap] Width: %d, Height: %d, Planes: %d, BitCount: %d, BitmapBits: 0x%x', [Width, Height, Planes, BitCount, Longint(BitmapBits)]));
@ -7617,6 +7616,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.199 2002/12/27 17:58:47 mattias
cleanup
Revision 1.198 2002/12/27 17:12:38 mattias Revision 1.198 2002/12/27 17:12:38 mattias
added more Delphi win32 compatibility functions added more Delphi win32 compatibility functions