freepascal.compiler/packages/x11/xutil.pp

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.