paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:31:19 +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. }
PCardinal = ^Cardinal;
PDisplay=^TDisplay;
PXExtData = ^TXExtData ;
PPXExtData = ^PXExtData ;
{ 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.
}
{ 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 +335,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
}
@ -481,7 +494,6 @@ uses X;
private19 : longint;
xdefaults : pchar;
end;
PDisplay=^TDisplay;
{
* Definitions of specific events.
}
@ -1723,7 +1735,10 @@ implementation
end.
{
$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
Revision 1.2 2000/07/13 11:33:34 michael