unit xutil; interface uses x,xlib; {$LinkLib c} {$LinkLib X11} { Automatically converted by H2Pas 0.99.15 from xutil.h The following command line parameters were used: -p -T -S -d -c xutil.h } {$PACKRECORDS C} const NoValue = $0000; XValue = $0001; YValue = $0002; WidthValue = $0004; HeightValue = $0008; AllValues = $000F; XNegative = $0010; YNegative = $0020; type PXSizeHints = ^TXSizeHints; TXSizeHints = record flags : longint; x : longint; y : longint; width : longint; height : longint; min_width : longint; min_height : longint; max_width : longint; max_height : longint; width_inc : longint; height_inc : longint; min_aspect : record x : longint; y : longint; end; max_aspect : record x : longint; y : longint; end; base_width : longint; base_height : longint; win_gravity : longint; end; const USPosition = 1 shl 0; USSize = 1 shl 1; PPosition = 1 shl 2; PSize = 1 shl 3; PMinSize = 1 shl 4; PMaxSize = 1 shl 5; PResizeInc = 1 shl 6; PAspect = 1 shl 7; PBaseSize = 1 shl 8; PWinGravity = 1 shl 9; PAllHints = ((((PPosition or PSize) or PMinSize) or PMaxSize) or PResizeInc) or PAspect; type PXWMHints = ^TXWMHints; TXWMHints = record flags : longint; input : TBool; initial_state : longint; icon_pixmap : TPixmap; icon_window : TWindow; icon_x : longint; icon_y : longint; icon_mask : TPixmap; window_group : TXID; end; const InputHint = 1 shl 0; StateHint = 1 shl 1; IconPixmapHint = 1 shl 2; IconWindowHint = 1 shl 3; IconPositionHint = 1 shl 4; IconMaskHint = 1 shl 5; WindowGroupHint = 1 shl 6; AllHints = (((((InputHint or StateHint) or IconPixmapHint) or IconWindowHint) or IconPositionHint) or IconMaskHint) or WindowGroupHint; XUrgencyHint = 1 shl 8; WithdrawnState = 0; NormalState = 1; IconicState = 3; DontCareState = 0; ZoomState = 2; InactiveState = 4; type PXTextProperty = ^TXTextProperty; TXTextProperty = record value : Pbyte; encoding : TAtom; format : longint; nitems : dword; end; const XNoMemory = -(1); XLocaleNotSupported = -(2); XConverterNotFound = -(3); type PXICCEncodingStyle = ^TXICCEncodingStyle; TXICCEncodingStyle = (XStringStyle,XCompoundTextStyle,XTextStyle, XStdICCTextStyle); PPXIconSize = ^PXIconSize; PXIconSize = ^TXIconSize; TXIconSize = record min_width : longint; min_height : longint; max_width : longint; max_height : longint; width_inc : longint; height_inc : longint; end; PXClassHint = ^TXClassHint; TXClassHint = record res_name : Pchar; res_class : Pchar; end; {$ifdef MACROS} function XGetPixel(ximage,x,y : longint) : longint; function XPutPixel(ximage,x,y,pixel : longint) : longint; function XSubImage(ximage,x,y,width,height : longint) : longint; function XAddPixel(ximage,value : longint) : longint; {$endif MACROS} type PXComposeStatus = ^TXComposeStatus; TXComposeStatus = record compose_ptr : TXPointer; chars_matched : longint; end; {$ifdef MACROS} function IsKeypadKey(keysym : longint) : longint; function IsPrivateKeypadKey(keysym : longint) : longint; function IsCursorKey(keysym : longint) : longint; function IsPFKey(keysym : longint) : longint; function IsFunctionKey(keysym : longint) : longint; function IsMiscFunctionKey(keysym : longint) : longint; {$endif MACROS} type PXRegion = ^TXRegion; TXRegion = record end; TRegion = PXRegion; PRegion = ^TRegion; const RectangleOut = 0; RectangleIn = 1; RectanglePart = 2; type PXVisualInfo = ^TXVisualInfo; TXVisualInfo = record visual : PVisual; visualid : TVisualID; screen : longint; depth : longint; _class : longint; red_mask : dword; green_mask : dword; blue_mask : dword; colormap_size : longint; bits_per_rgb : longint; end; const VisualNoMask = $0; VisualIDMask = $1; VisualScreenMask = $2; VisualDepthMask = $4; VisualClassMask = $8; VisualRedMaskMask = $10; VisualGreenMaskMask = $20; VisualBlueMaskMask = $40; VisualColormapSizeMask = $80; VisualBitsPerRGBMask = $100; VisualAllMask = $1FF; type PPXStandardColormap = ^PXStandardColormap; PXStandardColormap = ^TXStandardColormap; TXStandardColormap = record colormap : TColormap; red_max : dword; red_mult : dword; green_max : dword; green_mult : dword; blue_max : dword; blue_mult : dword; base_pixel : dword; visualid : TVisualID; killid : TXID; end; {$ifdef MACROS} function ReleaseByFreeingColormap : TXID; {$endif MACROS} const BitmapSuccess = 0; BitmapOpenFailed = 1; BitmapFileInvalid = 2; BitmapNoMemory = 3; XCSUCCESS = 0; XCNOMEM = 1; XCNOENT = 2; type PXContext = ^TXContext; TXContext = longint; {$ifdef MACROS} function XUniqueContext : TXContext; function XStringToContext(_string : longint) : TXContext; {$endif MACROS} function XAllocClassHint:PXClassHint;cdecl;external; function XAllocIconSize:PXIconSize;cdecl;external; function XAllocSizeHints:PXSizeHints;cdecl;external; function XAllocStandardColormap:PXStandardColormap;cdecl;external; function XAllocWMHints:PXWMHints;cdecl;external; function XClipBox(para1:TRegion; para2:PXRectangle):longint;cdecl;external; function XCreateRegion:TRegion;cdecl;external; function XDefaultString:Pchar;cdecl;external; function XDeleteContext(para1:PDisplay; para2:TXID; para3:TXContext):longint;cdecl;external; function XDestroyRegion(para1:TRegion):longint;cdecl;external; function XEmptyRegion(para1:TRegion):longint;cdecl;external; function XEqualRegion(para1:TRegion; para2:TRegion):longint;cdecl;external; function XFindContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:PXPointer):longint;cdecl;external; function XGetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):TStatus;cdecl;external; function XGetIconSizes(para1:PDisplay; para2:TWindow; para3:PPXIconSize; para4:Plongint):TStatus;cdecl;external; function XGetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external; function XGetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PPXStandardColormap; para4:Plongint; para5:TAtom):TStatus;cdecl;external; function XGetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):TStatus;cdecl;external; function XGetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom):TStatus;cdecl;external; function XGetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom):TStatus;cdecl;external; function XGetVisualInfo(para1:PDisplay; para2:longint; para3:PXVisualInfo; para4:Plongint):PXVisualInfo;cdecl;external; function XGetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external; function XGetWMHints(para1:PDisplay; para2:TWindow):PXWMHints;cdecl;external; function XGetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external; function XGetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external; function XGetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Plongint):TStatus;cdecl;external; function XGetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Plongint; para5:TAtom):TStatus;cdecl;external; function XGetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external; function XIntersectRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external; procedure XConvertCase(para1:TKeySym; para2:PKeySym; para3:PKeySym);cdecl;external; function XLookupString(para1:PXKeyEvent; para2:Pchar; para3:longint; para4:PKeySym; para5:PXComposeStatus):longint;cdecl;external; function XMatchVisualInfo(para1:PDisplay; para2:longint; para3:longint; para4:longint; para5:PXVisualInfo):TStatus;cdecl;external; function XOffsetRegion(para1:TRegion; para2:longint; para3:longint):longint;cdecl;external; function XPointInRegion(para1:TRegion; para2:longint; para3:longint):TBool;cdecl;external; function XPolygonRegion(para1:PXPoint; para2:longint; para3:longint):TRegion;cdecl;external; function XRectInRegion(para1:TRegion; para2:longint; para3:longint; para4:dword; para5:dword):longint;cdecl;external; function XSaveContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:Pchar):longint;cdecl;external; function XSetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):longint;cdecl;external; function XSetIconSizes(para1:PDisplay; para2:TWindow; para3:PXIconSize; para4:longint):longint;cdecl;external; function XSetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):longint;cdecl;external; procedure XSetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:longint; para5:TAtom);cdecl;external; function XSetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):longint;cdecl;external; function XSetStandardProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:TPixmap; para6:PPchar; para7:longint; para8:PXSizeHints):longint;cdecl;external; procedure XSetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom);cdecl;external; procedure XSetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external; function XSetWMHints(para1:PDisplay; para2:TWindow; para3:PXWMHints):longint;cdecl;external; procedure XSetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external; procedure XSetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external; procedure XSetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints);cdecl;external; procedure XSetWMProperties(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:PXTextProperty; para5:PPchar; para6:longint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external; procedure XmbSetWMProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:PPchar; para6:longint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external; procedure XSetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom);cdecl;external; function XSetRegion(para1:PDisplay; para2:TGC; para3:TRegion):longint;cdecl;external; procedure XSetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom);cdecl;external; function XSetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):longint;cdecl;external; function XShrinkRegion(para1:TRegion; para2:longint; para3:longint):longint;cdecl;external; function XStringListToTextProperty(para1:PPchar; para2:longint; para3:PXTextProperty):TStatus;cdecl;external; function XSubtractRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external; function XmbTextListToTextProperty(para1:PDisplay; para2:PPchar; para3:longint; para4:TXICCEncodingStyle; para5:PXTextProperty):longint;cdecl;external; function XwcTextListToTextProperty(para1:PDisplay; para2:PPWideChar; para3:longint; para4:TXICCEncodingStyle; para5:PXTextProperty):longint;cdecl;external; procedure XwcFreeStringList(para1:PPWideChar);cdecl;external; function XTextPropertyToStringList(para1:PXTextProperty; para2:PPPchar; para3:Plongint):TStatus;cdecl;external; function XmbTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPchar; para4:Plongint):longint;cdecl;external; function XwcTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPWideChar; para4:Plongint):longint;cdecl;external; function XUnionRectWithRegion(para1:PXRectangle; para2:TRegion; para3:TRegion):longint;cdecl;external; function XUnionRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external; function XWMGeometry(para1:PDisplay; para2:longint; para3:Pchar; para4:Pchar; para5:dword; para6:PXSizeHints; para7:Plongint; para8:Plongint; para9:Plongint; para10:Plongint; para11:Plongint):longint;cdecl;external; function XXorRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external; implementation {$ifdef MACROS} function XGetPixel(ximage,x,y : longint) : longint; begin XGetPixel:=ximage^.(f.get_pixel)(ximagexy); end; function XPutPixel(ximage,x,y,pixel : longint) : longint; begin XPutPixel:=ximage^.(f.put_pixel)(ximagexypixel); end; function XSubImage(ximage,x,y,width,height : longint) : longint; begin XSubImage:=ximage^.(f.sub_image)(ximagexywidthheight); end; function XAddPixel(ximage,value : longint) : longint; begin XAddPixel:=ximage^.(f.add_pixel)(ximagevalue); end; function IsKeypadKey(keysym : longint) : longint; begin IsKeypadKey:=((TKeySym(keysym)) >= XK_KP_Space) and (@((TKeySym(keysym)) <= XK_KP_Equal)); end; function IsPrivateKeypadKey(keysym : longint) : longint; begin IsPrivateKeypadKey:=((TKeySym(keysym)) >= $11000000) and (@((TKeySym(keysym)) <= $1100FFFF)); end; function IsCursorKey(keysym : longint) : longint; begin IsCursorKey:=((TKeySym(keysym)) >= XK_Home) and (@((TKeySym(keysym)) < XK_Select)); end; function IsPFKey(keysym : longint) : longint; begin IsPFKey:=((TKeySym(keysym)) >= XK_KP_F1) and (@((TKeySym(keysym)) <= XK_KP_F4)); end; function IsFunctionKey(keysym : longint) : longint; begin IsFunctionKey:=((TKeySym(keysym)) >= XK_F1) and (@((TKeySym(keysym)) <= XK_F35)); end; function IsMiscFunctionKey(keysym : longint) : longint; begin IsMiscFunctionKey:=((TKeySym(keysym)) >= XK_Select) and (@((TKeySym(keysym)) <= XK_Break)); end; function ReleaseByFreeingColormap : TXID; begin ReleaseByFreeingColormap:=TXID(1); end; function XUniqueContext : TXContext; begin XUniqueContext:=TXContext(XrmUniqueQuark); end; function XStringToContext(string : longint) : TXContext; begin XStringToContext:=TXContext(XrmStringToQuark(_string)); end; {$endif MACROS} end.