|
|
@@ -299,12 +299,23 @@ uses X;
|
|
|
{
|
|
|
* Data structure for "image" data, used by image manipulation routines.
|
|
|
}
|
|
|
- { Added the following empty record - needed in Ximage.
|
|
|
- Fill in later. MVC }
|
|
|
- Funcsrecord = record
|
|
|
- dummy : integer; { Just something stupid }
|
|
|
- end;
|
|
|
- TXImage = record
|
|
|
+ PXImage = ^TXImage;
|
|
|
+
|
|
|
+ TXImageFunctions = record
|
|
|
+ create_image: function(display: PDisplay; visual: PVisual;
|
|
|
+ depth: Cardinal; format, offset: LongInt; data: PChar;
|
|
|
+ width, height: Cardinal;
|
|
|
+ bitmap_pad, bytes_per_line: Cardinal): PXImage; cdecl;
|
|
|
+ destroy_image: function(image: PXImage): LongInt; cdecl;
|
|
|
+ get_pixel: function(image: PXImage; x, y: LongInt): LongInt; cdecl;
|
|
|
+ put_pixel: function(image: PXImage; x, y: LongInt;
|
|
|
+ color: Cardinal): LongInt; cdecl;
|
|
|
+ sub_image: function(image: PXImage; x, y: LongInt;
|
|
|
+ w, h: Cardinal): PXImage; cdecl;
|
|
|
+ add_pixel: function(image: PXImage; value: LongInt): LongInt;
|
|
|
+ end;
|
|
|
+
|
|
|
+ TXImage = record
|
|
|
width : longint;
|
|
|
height : longint;
|
|
|
xoffset : longint;
|
|
|
@@ -321,9 +332,8 @@ uses X;
|
|
|
green_mask : cardinal;
|
|
|
blue_mask : cardinal;
|
|
|
obdata : TXPointer;
|
|
|
- funcs : funcsrecord {Added this. Incorrectly converted}
|
|
|
+ f : TXImageFunctions
|
|
|
end;
|
|
|
- PXImage = ^TXImage;
|
|
|
{
|
|
|
* Data structure for XReconfigureWindow
|
|
|
}
|
|
|
@@ -1723,7 +1733,10 @@ implementation
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.1.2.3 2000-10-26 23:13:27 peter
|
|
|
+ Revision 1.1.2.4 2000-10-29 12:33:41 sg
|
|
|
+ * Fixed XImage (function pointers are now declared)
|
|
|
+
|
|
|
+ Revision 1.1.2.3 2000/10/26 23:13:27 peter
|
|
|
* undo my previous commit
|
|
|
|
|
|
Revision 1.1.2.2 2000/10/26 23:04:42 peter
|
sg