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

* Nikolay Nikolov: uses the ctypes unit now

Browse Source
This commit is contained in:
florian 2005-03-13 10:10:42 +00:00
parent 6b28a6fcb1
commit ef864ade38
1 changed files with 102 additions and 112 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

214
packages/extra/x11/xutil.pp
View File

@ -1,7 +1,7 @@
unit xutil; unit xutil;
interface interface
uses uses
x,xlib,keysym; ctypes,x,xlib,keysym;
{$define MACROS} {$define MACROS}
@ -41,28 +41,18 @@ type
PXSizeHints = ^TXSizeHints; PXSizeHints = ^TXSizeHints;
TXSizeHints = record TXSizeHints = record
flags : longint; flags : clong;
x : longint; x, y : cint;
y : longint; width, height : cint;
width : longint; min_width, min_height : cint;
height : longint; max_width, max_height : cint;
min_width : longint; width_inc, height_inc : cint;
min_height : longint; min_aspect, max_aspect : record
max_width : longint; x : cint;
max_height : longint; y : cint;
width_inc : longint;
height_inc : longint;
min_aspect : record
x : longint;
y : longint;
end; end;
max_aspect : record base_width, base_height : cint;
x : longint; win_gravity : cint;
y : longint;
end;
base_width : longint;
base_height : longint;
win_gravity : longint;
end; end;
const const
@ -76,18 +66,17 @@ const
PAspect = 1 shl 7; PAspect = 1 shl 7;
PBaseSize = 1 shl 8; PBaseSize = 1 shl 8;
PWinGravity = 1 shl 9; PWinGravity = 1 shl 9;
PAllHints = ((((PPosition or PSize) or PMinSize) or PMaxSize) or PResizeInc) or PAspect; PAllHints = PPosition or PSize or PMinSize or PMaxSize or PResizeInc or PAspect;
type type
PXWMHints = ^TXWMHints; PXWMHints = ^TXWMHints;
TXWMHints = record TXWMHints = record
flags : longint; flags : clong;
input : TBool; input : TBool;
initial_state : longint; initial_state : cint;
icon_pixmap : TPixmap; icon_pixmap : TPixmap;
icon_window : TWindow; icon_window : TWindow;
icon_x : longint; icon_x, icon_y : cint;
icon_y : longint;
icon_mask : TPixmap; icon_mask : TPixmap;
window_group : TXID; window_group : TXID;
end; end;
@ -100,7 +89,7 @@ const
IconPositionHint = 1 shl 4; IconPositionHint = 1 shl 4;
IconMaskHint = 1 shl 5; IconMaskHint = 1 shl 5;
WindowGroupHint = 1 shl 6; WindowGroupHint = 1 shl 6;
AllHints = (((((InputHint or StateHint) or IconPixmapHint) or IconWindowHint) or IconPositionHint) or IconMaskHint) or WindowGroupHint; AllHints = InputHint or StateHint or IconPixmapHint or IconWindowHint or IconPositionHint or IconMaskHint or WindowGroupHint;
XUrgencyHint = 1 shl 8; XUrgencyHint = 1 shl 8;
WithdrawnState = 0; WithdrawnState = 0;
NormalState = 1; NormalState = 1;
@ -112,31 +101,28 @@ type
PXTextProperty = ^TXTextProperty; PXTextProperty = ^TXTextProperty;
TXTextProperty = record TXTextProperty = record
value : Pbyte; value : pcuchar;
encoding : TAtom; encoding : TAtom;
format : longint; format : cint;
nitems : dword; nitems : culong;
end; end;
const const
XNoMemory = -(1); XNoMemory = -1;
XLocaleNotSupported = -(2); XLocaleNotSupported = -2;
XConverterNotFound = -(3); XConverterNotFound = -3;
type type
PXICCEncodingStyle = ^TXICCEncodingStyle; PXICCEncodingStyle = ^TXICCEncodingStyle;
TXICCEncodingStyle = (XStringStyle,XCompoundTextStyle,XTextStyle, TXICCEncodingStyle = (XStringStyle,XCompoundTextStyle,XTextStyle,
XStdICCTextStyle); XStdICCTextStyle,XUTF8StringStyle);
PPXIconSize = ^PXIconSize; PPXIconSize = ^PXIconSize;
PXIconSize = ^TXIconSize; PXIconSize = ^TXIconSize;
TXIconSize = record TXIconSize = record
min_width : longint; min_width, min_height : cint;
min_height : longint; max_width, max_height : cint;
max_width : longint; width_inc, height_inc : cint;
max_height : longint;
width_inc : longint;
height_inc : longint;
end; end;
PXClassHint = ^TXClassHint; PXClassHint = ^TXClassHint;
@ -150,7 +136,7 @@ type
PXComposeStatus = ^TXComposeStatus; PXComposeStatus = ^TXComposeStatus;
TXComposeStatus = record TXComposeStatus = record
compose_ptr : TXPointer; compose_ptr : TXPointer;
chars_matched : longint; chars_matched : cint;
end; end;
type type
@ -171,14 +157,14 @@ type
TXVisualInfo = record TXVisualInfo = record
visual : PVisual; visual : PVisual;
visualid : TVisualID; visualid : TVisualID;
screen : longint; screen : cint;
depth : longint; depth : cint;
_class : longint; _class : cint;
red_mask : dword; red_mask : culong;
green_mask : dword; green_mask : culong;
blue_mask : dword; blue_mask : culong;
colormap_size : longint; colormap_size : cint;
bits_per_rgb : longint; bits_per_rgb : cint;
end; end;
const const
@ -199,13 +185,13 @@ type
PXStandardColormap = ^TXStandardColormap; PXStandardColormap = ^TXStandardColormap;
TXStandardColormap = record TXStandardColormap = record
colormap : TColormap; colormap : TColormap;
red_max : dword; red_max : culong;
red_mult : dword; red_mult : culong;
green_max : dword; green_max : culong;
green_mult : dword; green_mult : culong;
blue_max : dword; blue_max : culong;
blue_mult : dword; blue_mult : culong;
base_pixel : dword; base_pixel : culong;
visualid : TVisualID; visualid : TVisualID;
killid : TXID; killid : TXID;
end; end;
@ -222,88 +208,92 @@ const
type type
PXContext = ^TXContext; PXContext = ^TXContext;
TXContext = longint; TXContext = cint;
function XAllocClassHint:PXClassHint;cdecl;external libX11; function XAllocClassHint:PXClassHint;cdecl;external libX11;
function XAllocIconSize:PXIconSize;cdecl;external libX11; function XAllocIconSize:PXIconSize;cdecl;external libX11;
function XAllocSizeHints:PXSizeHints;cdecl;external libX11; function XAllocSizeHints:PXSizeHints;cdecl;external libX11;
function XAllocStandardColormap:PXStandardColormap;cdecl;external libX11; function XAllocStandardColormap:PXStandardColormap;cdecl;external libX11;
function XAllocWMHints:PXWMHints;cdecl;external libX11; function XAllocWMHints:PXWMHints;cdecl;external libX11;
function XClipBox(para1:TRegion; para2:PXRectangle):longint;cdecl;external libX11; function XClipBox(para1:TRegion; para2:PXRectangle):cint;cdecl;external libX11;
function XCreateRegion:TRegion;cdecl;external libX11; function XCreateRegion:TRegion;cdecl;external libX11;
function XDefaultString:Pchar;cdecl;external libX11; function XDefaultString:Pchar;cdecl;external libX11;
function XDeleteContext(para1:PDisplay; para2:TXID; para3:TXContext):longint;cdecl;external libX11; function XDeleteContext(para1:PDisplay; para2:TXID; para3:TXContext):cint;cdecl;external libX11;
function XDestroyRegion(para1:TRegion):longint;cdecl;external libX11; function XDestroyRegion(para1:TRegion):cint;cdecl;external libX11;
function XEmptyRegion(para1:TRegion):longint;cdecl;external libX11; function XEmptyRegion(para1:TRegion):cint;cdecl;external libX11;
function XEqualRegion(para1:TRegion; para2:TRegion):longint;cdecl;external libX11; function XEqualRegion(para1:TRegion; para2:TRegion):cint;cdecl;external libX11;
function XFindContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:PXPointer):longint;cdecl;external libX11; function XFindContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:PXPointer):cint;cdecl;external libX11;
function XGetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):TStatus;cdecl;external libX11; function XGetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):TStatus;cdecl;external libX11;
function XGetIconSizes(para1:PDisplay; para2:TWindow; para3:PPXIconSize; para4:Plongint):TStatus;cdecl;external libX11; function XGetIconSizes(para1:PDisplay; para2:TWindow; para3:PPXIconSize; para4:Pcint):TStatus;cdecl;external libX11;
function XGetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external libX11; function XGetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external libX11;
function XGetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PPXStandardColormap; para4:Plongint; para5:TAtom):TStatus;cdecl;external libX11; function XGetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PPXStandardColormap; para4:Pcint; para5:TAtom):TStatus;cdecl;external libX11;
function XGetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):TStatus;cdecl;external libX11; function XGetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):TStatus;cdecl;external libX11;
function XGetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom):TStatus;cdecl;external libX11; function XGetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom):TStatus;cdecl;external libX11;
function XGetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom):TStatus;cdecl;external libX11; function XGetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom):TStatus;cdecl;external libX11;
function XGetVisualInfo(para1:PDisplay; para2:longint; para3:PXVisualInfo; para4:Plongint):PXVisualInfo;cdecl;external libX11; function XGetVisualInfo(para1:PDisplay; para2:clong; para3:PXVisualInfo; para4:Pcint):PXVisualInfo;cdecl;external libX11;
function XGetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external libX11; function XGetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external libX11;
function XGetWMHints(para1:PDisplay; para2:TWindow):PXWMHints;cdecl;external libX11; function XGetWMHints(para1:PDisplay; para2:TWindow):PXWMHints;cdecl;external libX11;
function XGetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external libX11; function XGetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external libX11;
function XGetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external libX11; function XGetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external libX11;
function XGetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Plongint):TStatus;cdecl;external libX11; function XGetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Pclong):TStatus;cdecl;external libX11;
function XGetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Plongint; para5:TAtom):TStatus;cdecl;external libX11; function XGetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Pclong; para5:TAtom):TStatus;cdecl;external libX11;
function XGetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external libX11; function XGetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external libX11;
function XIntersectRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external libX11; function XIntersectRegion(para1:TRegion; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
procedure XConvertCase(para1:TKeySym; para2:PKeySym; para3:PKeySym);cdecl;external libX11; procedure XConvertCase(para1:TKeySym; para2:PKeySym; para3:PKeySym);cdecl;external libX11;
function XLookupString(para1:PXKeyEvent; para2:Pchar; para3:longint; para4:PKeySym; para5:PXComposeStatus):longint;cdecl;external libX11; function XLookupString(para1:PXKeyEvent; para2:Pchar; para3:cint; para4:PKeySym; para5:PXComposeStatus):cint;cdecl;external libX11;
function XMatchVisualInfo(para1:PDisplay; para2:longint; para3:longint; para4:longint; para5:PXVisualInfo):TStatus;cdecl;external libX11; function XMatchVisualInfo(para1:PDisplay; para2:cint; para3:cint; para4:cint; para5:PXVisualInfo):TStatus;cdecl;external libX11;
function XOffsetRegion(para1:TRegion; para2:longint; para3:longint):longint;cdecl;external libX11; function XOffsetRegion(para1:TRegion; para2:cint; para3:cint):cint;cdecl;external libX11;
function XPointInRegion(para1:TRegion; para2:longint; para3:longint):TBool;cdecl;external libX11; function XPointInRegion(para1:TRegion; para2:cint; para3:cint):TBool;cdecl;external libX11;
function XPolygonRegion(para1:PXPoint; para2:longint; para3:longint):TRegion;cdecl;external libX11; function XPolygonRegion(para1:PXPoint; para2:cint; para3:cint):TRegion;cdecl;external libX11;
function XRectInRegion(para1:TRegion; para2:longint; para3:longint; para4:dword; para5:dword):longint;cdecl;external libX11; function XRectInRegion(para1:TRegion; para2:cint; para3:cint; para4:cuint; para5:cuint):cint;cdecl;external libX11;
function XSaveContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:Pchar):longint;cdecl;external libX11; function XSaveContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:Pchar):cint;cdecl;external libX11;
function XSetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):longint;cdecl;external libX11; function XSetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):cint;cdecl;external libX11;
function XSetIconSizes(para1:PDisplay; para2:TWindow; para3:PXIconSize; para4:longint):longint;cdecl;external libX11; function XSetIconSizes(para1:PDisplay; para2:TWindow; para3:PXIconSize; para4:cint):cint;cdecl;external libX11;
function XSetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):longint;cdecl;external libX11; function XSetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):cint;cdecl;external libX11;
procedure XSetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:longint; para5:TAtom);cdecl;external libX11; procedure XSetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:cint; para5:TAtom);cdecl;external libX11;
function XSetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):longint;cdecl;external libX11; function XSetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):cint;cdecl;external libX11;
function XSetStandardProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:TPixmap; function XSetStandardProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:TPixmap;
para6:PPchar; para7:longint; para8:PXSizeHints):longint;cdecl;external libX11; para6:PPchar; para7:cint; para8:PXSizeHints):cint;cdecl;external libX11;
procedure XSetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom);cdecl;external libX11; procedure XSetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom);cdecl;external libX11;
procedure XSetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11; procedure XSetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11;
function XSetWMHints(para1:PDisplay; para2:TWindow; para3:PXWMHints):longint;cdecl;external libX11; function XSetWMHints(para1:PDisplay; para2:TWindow; para3:PXWMHints):cint;cdecl;external libX11;
procedure XSetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11; procedure XSetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11;
procedure XSetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11; procedure XSetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11;
procedure XSetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints);cdecl;external libX11; procedure XSetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints);cdecl;external libX11;
procedure XSetWMProperties(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:PXTextProperty; para5:PPchar; procedure XSetWMProperties(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:PXTextProperty; para5:PPchar;
para6:longint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external libX11; para6:cint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external libX11;
procedure XmbSetWMProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:PPchar; procedure XmbSetWMProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:PPchar;
para6:longint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external libX11; para6:cint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external libX11;
procedure Xutf8SetWMProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:PPchar;
para6:cint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external libX11;
procedure XSetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom);cdecl;external libX11; procedure XSetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom);cdecl;external libX11;
function XSetRegion(para1:PDisplay; para2:TGC; para3:TRegion):longint;cdecl;external libX11; function XSetRegion(para1:PDisplay; para2:TGC; para3:TRegion):cint;cdecl;external libX11;
procedure XSetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom);cdecl;external libX11; procedure XSetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom);cdecl;external libX11;
function XSetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):longint;cdecl;external libX11; function XSetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):cint;cdecl;external libX11;
function XShrinkRegion(para1:TRegion; para2:longint; para3:longint):longint;cdecl;external libX11; function XShrinkRegion(para1:TRegion; para2:cint; para3:cint):cint;cdecl;external libX11;
function XStringListToTextProperty(para1:PPchar; para2:longint; para3:PXTextProperty):TStatus;cdecl;external libX11; function XStringListToTextProperty(para1:PPchar; para2:cint; para3:PXTextProperty):TStatus;cdecl;external libX11;
function XSubtractRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external libX11; function XSubtractRegion(para1:TRegion; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
function XmbTextListToTextProperty(para1:PDisplay; para2:PPchar; para3:longint; para4:TXICCEncodingStyle; para5:PXTextProperty):longint;cdecl;external libX11; function XmbTextListToTextProperty(para1:PDisplay; para2:PPchar; para3:cint; para4:TXICCEncodingStyle; para5:PXTextProperty):cint;cdecl;external libX11;
function XwcTextListToTextProperty(para1:PDisplay; para2:PPWideChar; para3:longint; para4:TXICCEncodingStyle; para5:PXTextProperty):longint;cdecl;external libX11; function XwcTextListToTextProperty(para1:PDisplay; para2:PPWideChar; para3:cint; para4:TXICCEncodingStyle; para5:PXTextProperty):cint;cdecl;external libX11;
function Xutf8TextListToTextProperty(para1:PDisplay; para2:PPchar; para3:cint; para4:TXICCEncodingStyle; para5:PXTextProperty):cint;cdecl;external libX11;
procedure XwcFreeStringList(para1:PPWideChar);cdecl;external libX11; procedure XwcFreeStringList(para1:PPWideChar);cdecl;external libX11;
function XTextPropertyToStringList(para1:PXTextProperty; para2:PPPchar; para3:Plongint):TStatus;cdecl;external libX11; function XTextPropertyToStringList(para1:PXTextProperty; para2:PPPchar; para3:Pcint):TStatus;cdecl;external libX11;
function XmbTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPchar; para4:Plongint):longint;cdecl;external libX11; function XmbTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPchar; para4:Pcint):cint;cdecl;external libX11;
function XwcTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPWideChar; para4:Plongint):longint;cdecl;external libX11; function XwcTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPWideChar; para4:Pcint):cint;cdecl;external libX11;
function XUnionRectWithRegion(para1:PXRectangle; para2:TRegion; para3:TRegion):longint;cdecl;external libX11; function Xutf8TextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPchar; para4:Pcint):cint;cdecl;external libX11;
function XUnionRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external libX11; function XUnionRectWithRegion(para1:PXRectangle; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
function XWMGeometry(para1:PDisplay; para2:longint; para3:Pchar; para4:Pchar; para5:dword; function XUnionRegion(para1:TRegion; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
para6:PXSizeHints; para7:Plongint; para8:Plongint; para9:Plongint; para10:Plongint; function XWMGeometry(para1:PDisplay; para2:cint; para3:Pchar; para4:Pchar; para5:cuint;
para11:Plongint):longint;cdecl;external libX11; para6:PXSizeHints; para7:Pcint; para8:Pcint; para9:Pcint; para10:Pcint;
function XXorRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external libX11; para11:Pcint):cint;cdecl;external libX11;
function XXorRegion(para1:TRegion; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
{$ifdef MACROS} {$ifdef MACROS}
function XDestroyImage(ximage : PXImage) : longint; function XDestroyImage(ximage : PXImage) : cint;
function XGetPixel(ximage : PXImage; x, y : longint) : dword; function XGetPixel(ximage : PXImage; x, y : cint) : culong;
function XPutPixel(ximage : PXImage; x, y : longint; pixel : dword) : longint; function XPutPixel(ximage : PXImage; x, y : cint; pixel : culong) : cint;
function XSubImage(ximage : PXImage; x, y : longint; width, height : dword) : PXImage; function XSubImage(ximage : PXImage; x, y : cint; width, height : cuint) : PXImage;
function XAddPixel(ximage : PXImage; value : longint) : longint; function XAddPixel(ximage : PXImage; value : clong) : cint;
function IsKeypadKey(keysym : TKeySym) : Boolean; function IsKeypadKey(keysym : TKeySym) : Boolean;
function IsPrivateKeypadKey(keysym : TKeySym) : Boolean; function IsPrivateKeypadKey(keysym : TKeySym) : Boolean;
function IsCursorKey(keysym : TKeySym) : Boolean; function IsCursorKey(keysym : TKeySym) : Boolean;
@ -319,28 +309,28 @@ implementation
{$ifdef MACROS} {$ifdef MACROS}
function XDestroyImage(ximage : PXImage) : longint; function XDestroyImage(ximage : PXImage) : cint;
begin begin
XDestroyImage := ximage^.f.destroy_image(ximage); XDestroyImage := ximage^.f.destroy_image(ximage);
end; end;
function XGetPixel(ximage : PXImage; x, y : longint) : dword; function XGetPixel(ximage : PXImage; x, y : cint) : culong;
begin begin
XGetPixel:=ximage^.f.get_pixel(ximage, x, y); XGetPixel:=ximage^.f.get_pixel(ximage, x, y);
end; end;
function XPutPixel(ximage : PXImage; x, y : longint; pixel : dword) : longint; function XPutPixel(ximage : PXImage; x, y : cint; pixel : culong) : cint;
begin begin
XPutPixel:=ximage^.f.put_pixel(ximage, x, y, pixel); XPutPixel:=ximage^.f.put_pixel(ximage, x, y, pixel);
end; end;
function XSubImage(ximage : PXImage; x, y : longint; width, height : dword) : PXImage; function XSubImage(ximage : PXImage; x, y : cint; width, height : cuint) : PXImage;
begin begin
XSubImage:=ximage^.f.sub_image(ximage, x, y, width, height); XSubImage:=ximage^.f.sub_image(ximage, x, y, width, height);
end; end;
function XAddPixel(ximage : PXImage; value : longint) : longint; function XAddPixel(ximage : PXImage; value : clong) : cint;
begin begin
XAddPixel:=ximage^.f.add_pixel(ximage, value); XAddPixel:=ximage^.f.add_pixel(ximage, value);
end; end;