1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
unit xshm;
interface
uses
ctypes,x,xlib;
{$ifndef os2}
{$LinkLib c}
{$LinkLib X11}
{$LinkLib Xext}
const
libX11='X11';
{$else}
const
libX11='X11';
{$endif}
{
Automatically converted by H2Pas 0.99.15 from xshm.h
The following command line parameters were used:
-p
-T
-S
-d
-c
xshm.h
}
{$PACKRECORDS C}
const
X_ShmQueryVersion = 0;
X_ShmAttach = 1;
X_ShmDetach = 2;
X_ShmPutImage = 3;
X_ShmGetImage = 4;
X_ShmCreatePixmap = 5;
ShmCompletion = 0;
ShmNumberEvents = ShmCompletion + 1;
BadShmSeg = 0;
ShmNumberErrors = BadShmSeg + 1;
type
PShmSeg = ^TShmSeg;
TShmSeg = culong;
PXShmCompletionEvent = ^TXShmCompletionEvent;
TXShmCompletionEvent = record
_type : cint;
serial : culong;
send_event : TBool;
display : PDisplay;
drawable : TDrawable;
major_code : cint;
minor_code : cint;
shmseg : TShmSeg;
offset : culong;
end;
PXShmSegmentInfo = ^TXShmSegmentInfo;
TXShmSegmentInfo = record
shmseg : TShmSeg;
shmid : cint;
shmaddr : Pchar;
readOnly : TBool;
end;
function XShmQueryExtension(para1:PDisplay):TBoolResult;cdecl;external libX11;
function XShmGetEventBase(para1:PDisplay):cint;cdecl;external libX11;
function XShmQueryVersion(para1:PDisplay; para2:Pcint; para3:Pcint; para4:PBool):TBoolResult;cdecl;external libX11;
function XShmPixmapFormat(para1:PDisplay):cint;cdecl;external libX11;
function XShmAttach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external libX11;
function XShmDetach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external libX11;
function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:cint;
para6:cint; para7:cint; para8:cint; para9:cuint; para10:cuint;
para11:TBool):TStatus;cdecl;external libX11;
function XShmGetImage(para1:PDisplay; para2:TDrawable; para3:PXImage; para4:cint; para5:cint;
para6:culong):TStatus;cdecl;external libX11;
function XShmCreateImage(para1:PDisplay; para2:PVisual; para3:cuint; para4:cint; para5:Pchar;
para6:PXShmSegmentInfo; para7:cuint; para8:cuint):PXImage;cdecl;external libX11;
function XShmCreatePixmap(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:PXShmSegmentInfo; para5:cuint;
para6:cuint; para7:cuint):TPixmap;cdecl;external libX11;
{ overloaded functions to handle TBool parameters as actual booleans }
function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:cint;
para6:cint; para7:cint; para8:cint; para9:cuint; para10:cuint;
para11:Boolean):TStatus;
implementation
function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:cint;
para6:cint; para7:cint; para8:cint; para9:cuint; para10:cuint;
para11:Boolean):TStatus;
begin
XShmPutImage := XShmPutImage(para1,para2,para3,para4,para5,para6,para7,para8,para9,para10,Ord(para11));
end;
end.
|
