paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 11:49:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed XImage (function pointers are now declared)

Browse Source
This commit is contained in:
sg 2000-10-29 12:35:09 +00:00
parent d0ac7ea501
commit 0725ddca6c
1 changed files with 25 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
packages/x11/xlib.pp
View File

@ -113,6 +113,9 @@ uses X;
{ Added this for functions at the end. } { Added this for functions at the end. }
PCardinal = ^Cardinal; PCardinal = ^Cardinal;
PDisplay=^TDisplay;
PXExtData = ^TXExtData ; PXExtData = ^TXExtData ;
PPXExtData = ^PXExtData ; PPXExtData = ^PXExtData ;
{ Put this in to accomodate for the next in the following record. MVC} { Put this in to accomodate for the next in the following record. MVC}
@ -299,12 +302,23 @@ uses X;
{ {
* Data structure for "image" data, used by image manipulation routines. * Data structure for "image" data, used by image manipulation routines.
} }
{ Added the following empty record - needed in Ximage. PXImage = ^TXImage;
Fill in later. MVC }
Funcsrecord = record TXImageFunctions = record
dummy : integer; { Just something stupid } create_image: function(display: PDisplay; visual: PVisual;
end; depth: Cardinal; format, offset: LongInt; data: PChar;
TXImage = record 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; width : longint;
height : longint; height : longint;
xoffset : longint; xoffset : longint;
@ -321,9 +335,8 @@ uses X;
green_mask : cardinal; green_mask : cardinal;
blue_mask : cardinal; blue_mask : cardinal;
obdata : TXPointer; obdata : TXPointer;
funcs : funcsrecord {Added this. Incorrectly converted} f : TXImageFunctions
end; end;
PXImage = ^TXImage;
{ {
* Data structure for XReconfigureWindow * Data structure for XReconfigureWindow
} }
@ -481,7 +494,6 @@ uses X;
private19 : longint; private19 : longint;
xdefaults : pchar; xdefaults : pchar;
end; end;
PDisplay=^TDisplay;
{ {
* Definitions of specific events. * Definitions of specific events.
} }
@ -1723,7 +1735,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.3 2000-10-26 16:40:27 sg Revision 1.4 2000-10-29 12:35:09 sg
* Fixed XImage (function pointers are now declared)
Revision 1.3 2000/10/26 16:40:27 sg
* Fixed declaration of TVisual * Fixed declaration of TVisual
Revision 1.2 2000/07/13 11:33:34 michael Revision 1.2 2000/07/13 11:33:34 michael