unit xlib; interface uses x; {$LinkLib c} {$LinkLib X11} { Automatically converted by H2Pas 0.99.15 from xlib.h The following command line parameters were used: -p -T -S -d -c xlib.h } {$PACKRECORDS C} const XlibSpecificationRelease = 6; type PXPointer = ^TXPointer; TXPointer = char; PBool = ^TBool; TBool = longbool; PStatus = ^TStatus; TStatus = longint; const QueuedAlready = 0; QueuedAfterReading = 1; QueuedAfterFlush = 2; {$ifdef MACROS} function ConnectionNumber(dpy : longint) : longint; function RootWindow(dpy,scr : longint) : longint; function DefaultScreen(dpy : longint) : longint; function DefaultRootWindow(dpy : longint) : longint; function DefaultVisual(dpy,scr : longint) : longint; function DefaultGC(dpy,scr : longint) : longint; function BlackPixel(dpy,scr : longint) : longint; function WhitePixel(dpy,scr : longint) : longint; function AllPlanes : dword; function QLength(dpy : longint) : longint; function DisplayWidth(dpy,scr : longint) : longint; function DisplayHeight(dpy,scr : longint) : longint; function DisplayWidthMM(dpy,scr : longint) : longint; function DisplayHeightMM(dpy,scr : longint) : longint; function DisplayPlanes(dpy,scr : longint) : longint; function DisplayCells(dpy,scr : longint) : longint; function ScreenCount(dpy : longint) : longint; function ServerVendor(dpy : longint) : longint; function ProtocolVersion(dpy : longint) : longint; function ProtocolRevision(dpy : longint) : longint; function VendorRelease(dpy : longint) : longint; function DisplayString(dpy : longint) : longint; function DefaultDepth(dpy,scr : longint) : longint; function DefaultColormap(dpy,scr : longint) : longint; function BitmapUnit(dpy : longint) : longint; function BitmapBitOrder(dpy : longint) : longint; function BitmapPad(dpy : longint) : longint; function ImageByteOrder(dpy : longint) : longint; function NextRequest(dpy : longint) : longint; function LastKnownRequestProcessed(dpy : longint) : longint; function ScreenOfDisplay(dpy,scr : longint) : longint; function DefaultScreenOfDisplay(dpy : longint) : longint; function DisplayOfScreen(s : longint) : longint; function RootWindowOfScreen(s : longint) : longint; function BlackPixelOfScreen(s : longint) : longint; function WhitePixelOfScreen(s : longint) : longint; function DefaultColormapOfScreen(s : longint) : longint; function DefaultDepthOfScreen(s : longint) : longint; function DefaultGCOfScreen(s : longint) : longint; function DefaultVisualOfScreen(s : longint) : longint; function WidthOfScreen(s : longint) : longint; function HeightOfScreen(s : longint) : longint; function WidthMMOfScreen(s : longint) : longint; function HeightMMOfScreen(s : longint) : longint; function PlanesOfScreen(s : longint) : longint; function CellsOfScreen(s : longint) : longint; function MinCmapsOfScreen(s : longint) : longint; function MaxCmapsOfScreen(s : longint) : longint; function DoesSaveUnders(s : longint) : longint; function DoesBackingStore(s : longint) : longint; function EventMaskOfScreen(s : longint) : longint; function XAllocID(dpy : longint) : longint; {$endif MACROS} type PPXExtData = ^PXExtData; PXExtData = ^TXExtData; TXExtData = record number : longint; next : PXExtData; free_private : function (extension:PXExtData):longint;cdecl; private_data : TXPointer; end; PXExtCodes = ^TXExtCodes; TXExtCodes = record extension : longint; major_opcode : longint; first_event : longint; first_error : longint; end; PXPixmapFormatValues = ^TXPixmapFormatValues; TXPixmapFormatValues = record depth : longint; bits_per_pixel : longint; scanline_pad : longint; end; PXGCValues = ^TXGCValues; TXGCValues = record _function : longint; plane_mask : dword; foreground : dword; background : dword; line_width : longint; line_style : longint; cap_style : longint; join_style : longint; fill_style : longint; fill_rule : longint; arc_mode : longint; tile : TPixmap; stipple : TPixmap; ts_x_origin : longint; ts_y_origin : longint; font : TFont; subwindow_mode : longint; graphics_exposures : TBool; clip_x_origin : longint; clip_y_origin : longint; clip_mask : TPixmap; dash_offset : longint; dashes : char; end; PXGC = ^TXGC; TXGC = record end; TGC = PXGC; PGC = ^TGC; PVisual = ^TVisual; TVisual = record ext_data : PXExtData; visualid : TVisualID; _class : longint; red_mask : dword; green_mask : dword; blue_mask : dword; bits_per_rgb : longint; map_entries : longint; end; PDepth = ^TDepth; TDepth = record depth : longint; nvisuals : longint; visuals : PVisual; end; PXDisplay = ^TXDisplay; TXDisplay = record end; PScreen = ^TScreen; TScreen = record ext_data : PXExtData; display : PXDisplay; root : TWindow; width : longint; height : longint; mwidth : longint; mheight : longint; ndepths : longint; depths : PDepth; root_depth : longint; root_visual : PVisual; default_gc : TGC; cmap : TColormap; white_pixel : dword; black_pixel : dword; max_maps : longint; min_maps : longint; backing_store : longint; save_unders : TBool; root_input_mask : longint; end; PScreenFormat = ^TScreenFormat; TScreenFormat = record ext_data : PXExtData; depth : longint; bits_per_pixel : longint; scanline_pad : longint; end; PXSetWindowAttributes = ^TXSetWindowAttributes; TXSetWindowAttributes = record background_pixmap : TPixmap; background_pixel : dword; border_pixmap : TPixmap; border_pixel : dword; bit_gravity : longint; win_gravity : longint; backing_store : longint; backing_planes : dword; backing_pixel : dword; save_under : TBool; event_mask : longint; do_not_propagate_mask : longint; override_redirect : TBool; colormap : TColormap; cursor : TCursor; end; PXWindowAttributes = ^TXWindowAttributes; TXWindowAttributes = record x : longint; y : longint; width : longint; height : longint; border_width : longint; depth : longint; visual : PVisual; root : TWindow; _class : longint; bit_gravity : longint; win_gravity : longint; backing_store : longint; backing_planes : dword; backing_pixel : dword; save_under : TBool; colormap : TColormap; map_installed : TBool; map_state : longint; all_event_masks : longint; your_event_mask : longint; do_not_propagate_mask : longint; override_redirect : TBool; screen : PScreen; end; PXHostAddress = ^TXHostAddress; TXHostAddress = record family : longint; length : longint; address : Pchar; end; PXImage = ^TXImage; TXImage = record width : longint; height : longint; xoffset : longint; format : longint; data : Pchar; byte_order : longint; bitmap_unit : longint; bitmap_bit_order : longint; bitmap_pad : longint; depth : longint; bytes_per_line : longint; bits_per_pixel : longint; red_mask : dword; green_mask : dword; blue_mask : dword; obdata : TXPointer; f : record create_image : function (para1:PXDisplay; para2:PVisual; para3:dword; para4:longint; para5:longint; para6:Pchar; para7:dword; para8:dword; para9:longint; para10:longint):PXImage;cdecl; destroy_image : function (para1:PXImage):longint; get_pixel : function (para1:PXImage; para2:longint; para3:longint):dword; put_pixel : function (para1:PXImage; para2:longint; para3:longint; para4:dword):longint; sub_image : function (para1:PXImage; para2:longint; para3:longint; para4:dword; para5:dword):PXImage; add_pixel : function (para1:PXImage; para2:longint):longint; end; end; PXWindowChanges = ^TXWindowChanges; TXWindowChanges = record x : longint; y : longint; width : longint; height : longint; border_width : longint; sibling : TWindow; stack_mode : longint; end; PXColor = ^TXColor; TXColor = record pixel : dword; red : word; green : word; blue : word; flags : char; pad : char; end; PXSegment = ^TXSegment; TXSegment = record x1 : smallint; y1 : smallint; x2 : smallint; y2 : smallint; end; PXPoint = ^TXPoint; TXPoint = record x : smallint; y : smallint; end; PXRectangle = ^TXRectangle; TXRectangle = record x : smallint; y : smallint; width : word; height : word; end; PXArc = ^TXArc; TXArc = record x : smallint; y : smallint; width : word; height : word; angle1 : smallint; angle2 : smallint; end; PXKeyboardControl = ^TXKeyboardControl; TXKeyboardControl = record key_click_percent : longint; bell_percent : longint; bell_pitch : longint; bell_duration : longint; led : longint; led_mode : longint; key : longint; auto_repeat_mode : longint; end; PXKeyboardState = ^TXKeyboardState; TXKeyboardState = record key_click_percent : longint; bell_percent : longint; bell_pitch : dword; bell_duration : dword; led_mask : dword; global_auto_repeat : longint; auto_repeats : array[0..31] of char; end; PXTimeCoord = ^TXTimeCoord; TXTimeCoord = record time : TTime; x : smallint; y : smallint; end; PXModifierKeymap = ^TXModifierKeymap; TXModifierKeymap = record max_keypermod : longint; modifiermap : PKeyCode; end; PDisplay = ^TDisplay; TDisplay = TXDisplay; PXPrivate = ^TXPrivate; TXPrivate = record end; PXrmHashBucketRec = ^TXrmHashBucketRec; TXrmHashBucketRec = record end; PXPrivDisplay = ^TXPrivDisplay; TXPrivDisplay = record ext_data : PXExtData; private1 : PXPrivate; fd : longint; private2 : longint; proto_major_version : longint; proto_minor_version : longint; vendor : Pchar; private3 : TXID; private4 : TXID; private5 : TXID; private6 : longint; resource_alloc : function (para1:PXDisplay):TXID;cdecl; byte_order : longint; bitmap_unit : longint; bitmap_pad : longint; bitmap_bit_order : longint; nformats : longint; pixmap_format : PScreenFormat; private8 : longint; release : longint; private9 : PXPrivate; private10 : PXPrivate; qlen : longint; last_request_read : dword; request : dword; private11 : TXPointer; private12 : TXPointer; private13 : TXPointer; private14 : TXPointer; max_request_size : dword; db : PXrmHashBucketRec; private15 : function (para1:PXDisplay):longint; display_name : Pchar; default_screen : longint; nscreens : longint; screens : PScreen; motion_buffer : dword; private16 : dword; min_keycode : longint; max_keycode : longint; private17 : TXPointer; private18 : TXPointer; private19 : longint; xdefaults : Pchar; end; PXKeyEvent = ^TXKeyEvent; TXKeyEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; root : TWindow; subwindow : TWindow; time : TTime; x : longint; y : longint; x_root : longint; y_root : longint; state : dword; keycode : dword; same_screen : TBool; end; PXKeyPressedEvent = ^TXKeyPressedEvent; TXKeyPressedEvent = TXKeyEvent; PXKeyReleasedEvent = ^TXKeyReleasedEvent; TXKeyReleasedEvent = TXKeyEvent; PXButtonEvent = ^TXButtonEvent; TXButtonEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; root : TWindow; subwindow : TWindow; time : TTime; x : longint; y : longint; x_root : longint; y_root : longint; state : dword; button : dword; same_screen : TBool; end; PXButtonPressedEvent = ^TXButtonPressedEvent; TXButtonPressedEvent = TXButtonEvent; PXButtonReleasedEvent = ^TXButtonReleasedEvent; TXButtonReleasedEvent = TXButtonEvent; PXMotionEvent = ^TXMotionEvent; TXMotionEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; root : TWindow; subwindow : TWindow; time : TTime; x : longint; y : longint; x_root : longint; y_root : longint; state : dword; is_hint : char; same_screen : TBool; end; PXPointerMovedEvent = ^TXPointerMovedEvent; TXPointerMovedEvent = TXMotionEvent; PXCrossingEvent = ^TXCrossingEvent; TXCrossingEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; root : TWindow; subwindow : TWindow; time : TTime; x : longint; y : longint; x_root : longint; y_root : longint; mode : longint; detail : longint; same_screen : TBool; focus : TBool; state : dword; end; PXEnterWindowEvent = ^TXEnterWindowEvent; TXEnterWindowEvent = TXCrossingEvent; PXLeaveWindowEvent = ^TXLeaveWindowEvent; TXLeaveWindowEvent = TXCrossingEvent; PXFocusChangeEvent = ^TXFocusChangeEvent; TXFocusChangeEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; mode : longint; detail : longint; end; PXFocusInEvent = ^TXFocusInEvent; TXFocusInEvent = TXFocusChangeEvent; PXFocusOutEvent = ^TXFocusOutEvent; TXFocusOutEvent = TXFocusChangeEvent; PXKeymapEvent = ^TXKeymapEvent; TXKeymapEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; key_vector : array[0..31] of char; end; PXExposeEvent = ^TXExposeEvent; TXExposeEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; x : longint; y : longint; width : longint; height : longint; count : longint; end; PXGraphicsExposeEvent = ^TXGraphicsExposeEvent; TXGraphicsExposeEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; drawable : TDrawable; x : longint; y : longint; width : longint; height : longint; count : longint; major_code : longint; minor_code : longint; end; PXNoExposeEvent = ^TXNoExposeEvent; TXNoExposeEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; drawable : TDrawable; major_code : longint; minor_code : longint; end; PXVisibilityEvent = ^TXVisibilityEvent; TXVisibilityEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; state : longint; end; PXCreateWindowEvent = ^TXCreateWindowEvent; TXCreateWindowEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; parent : TWindow; window : TWindow; x : longint; y : longint; width : longint; height : longint; border_width : longint; override_redirect : TBool; end; PXDestroyWindowEvent = ^TXDestroyWindowEvent; TXDestroyWindowEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; event : TWindow; window : TWindow; end; PXUnmapEvent = ^TXUnmapEvent; TXUnmapEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; event : TWindow; window : TWindow; from_configure : TBool; end; PXMapEvent = ^TXMapEvent; TXMapEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; event : TWindow; window : TWindow; override_redirect : TBool; end; PXMapRequestEvent = ^TXMapRequestEvent; TXMapRequestEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; parent : TWindow; window : TWindow; end; PXReparentEvent = ^TXReparentEvent; TXReparentEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; event : TWindow; window : TWindow; parent : TWindow; x : longint; y : longint; override_redirect : TBool; end; PXConfigureEvent = ^TXConfigureEvent; TXConfigureEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; event : TWindow; window : TWindow; x : longint; y : longint; width : longint; height : longint; border_width : longint; above : TWindow; override_redirect : TBool; end; PXGravityEvent = ^TXGravityEvent; TXGravityEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; event : TWindow; window : TWindow; x : longint; y : longint; end; PXResizeRequestEvent = ^TXResizeRequestEvent; TXResizeRequestEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; width : longint; height : longint; end; PXConfigureRequestEvent = ^TXConfigureRequestEvent; TXConfigureRequestEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; parent : TWindow; window : TWindow; x : longint; y : longint; width : longint; height : longint; border_width : longint; above : TWindow; detail : longint; value_mask : dword; end; PXCirculateEvent = ^TXCirculateEvent; TXCirculateEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; event : TWindow; window : TWindow; place : longint; end; PXCirculateRequestEvent = ^TXCirculateRequestEvent; TXCirculateRequestEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; parent : TWindow; window : TWindow; place : longint; end; PXPropertyEvent = ^TXPropertyEvent; TXPropertyEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; atom : TAtom; time : TTime; state : longint; end; PXSelectionClearEvent = ^TXSelectionClearEvent; TXSelectionClearEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; selection : TAtom; time : TTime; end; PXSelectionRequestEvent = ^TXSelectionRequestEvent; TXSelectionRequestEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; owner : TWindow; requestor : TWindow; selection : TAtom; target : TAtom; _property : TAtom; time : TTime; end; PXSelectionEvent = ^TXSelectionEvent; TXSelectionEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; requestor : TWindow; selection : TAtom; target : TAtom; _property : TAtom; time : TTime; end; PXColormapEvent = ^TXColormapEvent; TXColormapEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; colormap : TColormap; _new : TBool; state : longint; end; PXClientMessageEvent = ^TXClientMessageEvent; TXClientMessageEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; message_type : TAtom; format : longint; data : record case longint of 0 : ( b : array[0..19] of char ); 1 : ( s : array[0..9] of smallint ); 2 : ( l : array[0..4] of longint ); end; end; PXMappingEvent = ^TXMappingEvent; TXMappingEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; request : longint; first_keycode : longint; count : longint; end; PXErrorEvent = ^TXErrorEvent; TXErrorEvent = record _type : longint; display : PDisplay; resourceid : TXID; serial : dword; error_code : byte; request_code : byte; minor_code : byte; end; PXAnyEvent = ^TXAnyEvent; TXAnyEvent = record _type : longint; serial : dword; send_event : TBool; display : PDisplay; window : TWindow; end; PXEvent = ^TXEvent; TXEvent = record case longint of 0 : ( _type : longint ); 1 : ( xany : TXAnyEvent ); 2 : ( xkey : TXKeyEvent ); 3 : ( xbutton : TXButtonEvent ); 4 : ( xmotion : TXMotionEvent ); 5 : ( xcrossing : TXCrossingEvent ); 6 : ( xfocus : TXFocusChangeEvent ); 7 : ( xexpose : TXExposeEvent ); 8 : ( xgraphicsexpose : TXGraphicsExposeEvent ); 9 : ( xnoexpose : TXNoExposeEvent ); 10 : ( xvisibility : TXVisibilityEvent ); 11 : ( xcreatewindow : TXCreateWindowEvent ); 12 : ( xdestroywindow : TXDestroyWindowEvent ); 13 : ( xunmap : TXUnmapEvent ); 14 : ( xmap : TXMapEvent ); 15 : ( xmaprequest : TXMapRequestEvent ); 16 : ( xreparent : TXReparentEvent ); 17 : ( xconfigure : TXConfigureEvent ); 18 : ( xgravity : TXGravityEvent ); 19 : ( xresizerequest : TXResizeRequestEvent ); 20 : ( xconfigurerequest : TXConfigureRequestEvent ); 21 : ( xcirculate : TXCirculateEvent ); 22 : ( xcirculaterequest : TXCirculateRequestEvent ); 23 : ( xproperty : TXPropertyEvent ); 24 : ( xselectionclear : TXSelectionClearEvent ); 25 : ( xselectionrequest : TXSelectionRequestEvent ); 26 : ( xselection : TXSelectionEvent ); 27 : ( xcolormap : TXColormapEvent ); 28 : ( xclient : TXClientMessageEvent ); 29 : ( xmapping : TXMappingEvent ); 30 : ( xerror : TXErrorEvent ); 31 : ( xkeymap : TXKeymapEvent ); 32 : ( pad : array[0..23] of longint ); end; type PXCharStruct = ^TXCharStruct; TXCharStruct = record lbearing : smallint; rbearing : smallint; width : smallint; ascent : smallint; descent : smallint; attributes : word; end; PXFontProp = ^TXFontProp; TXFontProp = record name : TAtom; card32 : dword; end; PPPXFontStruct = ^PPXFontStruct; PPXFontStruct = ^PXFontStruct; PXFontStruct = ^TXFontStruct; TXFontStruct = record ext_data : PXExtData; fid : TFont; direction : dword; min_char_or_byte2 : dword; max_char_or_byte2 : dword; min_byte1 : dword; max_byte1 : dword; all_chars_exist : TBool; default_char : dword; n_properties : longint; properties : PXFontProp; min_bounds : TXCharStruct; max_bounds : TXCharStruct; per_char : PXCharStruct; ascent : longint; descent : longint; end; PXTextItem = ^TXTextItem; TXTextItem = record chars : Pchar; nchars : longint; delta : longint; font : TFont; end; PXChar2b = ^TXChar2b; TXChar2b = record byte1 : byte; byte2 : byte; end; PXTextItem16 = ^TXTextItem16; TXTextItem16 = record chars : PXChar2b; nchars : longint; delta : longint; font : TFont; end; PXEDataObject = ^TXEDataObject; TXEDataObject = record case longint of 0 : ( display : PDisplay ); 1 : ( gc : TGC ); 2 : ( visual : PVisual ); 3 : ( screen : PScreen ); 4 : ( pixmap_format : PScreenFormat ); 5 : ( font : PXFontStruct ); end; PXFontSetExtents = ^TXFontSetExtents; TXFontSetExtents = record max_ink_extent : TXRectangle; max_logical_extent : TXRectangle; end; PXOM = ^TXOM; TXOM = record end; PXOC = ^TXOC; TXOC = record end; TXFontSet = PXOC; PXFontSet = ^TXFontSet; PXmbTextItem = ^TXmbTextItem; TXmbTextItem = record chars : Pchar; nchars : longint; delta : longint; font_set : TXFontSet; end; PXwcTextItem = ^TXwcTextItem; TXwcTextItem = record chars : PWideChar; nchars : longint; delta : longint; font_set : TXFontSet; end; const XNRequiredCharSet = 'requiredCharSet'; XNQueryOrientation = 'queryOrientation'; XNBaseFontName = 'baseFontName'; XNOMAutomatic = 'omAutomatic'; XNMissingCharSet = 'missingCharSet'; XNDefaultString = 'defaultString'; XNOrientation = 'orientation'; XNDirectionalDependentDrawing = 'directionalDependentDrawing'; XNContextualDrawing = 'contextualDrawing'; XNFontInfo = 'fontInfo'; type PXOMCharSetList = ^TXOMCharSetList; TXOMCharSetList = record charset_count : longint; charset_list : PPChar; end; PXOrientation = ^TXOrientation; TXOrientation = (XOMOrientation_LTR_TTB,XOMOrientation_RTL_TTB, XOMOrientation_TTB_LTR,XOMOrientation_TTB_RTL, XOMOrientation_Context); PXOMOrientation = ^TXOMOrientation; TXOMOrientation = record num_orientation : longint; orientation : PXOrientation; end; PXOMFontInfo = ^TXOMFontInfo; TXOMFontInfo = record num_font : longint; font_struct_list : ^PXFontStruct; font_name_list : PPChar; end; PXIM = ^TXIM; TXIM = record end; PXIC = ^TXIC; TXIC = record end; TXIMProc = procedure (para1:TXIM; para2:TXPointer; para3:TXPointer);cdecl; TXICProc = function (para1:TXIC; para2:TXPointer; para3:TXPointer):TBool;cdecl; TXIDProc = procedure (para1:PDisplay; para2:TXPointer; para3:TXPointer);cdecl; PXIMStyle = ^TXIMStyle; TXIMStyle = dword; PXIMStyles = ^TXIMStyles; TXIMStyles = record count_styles : word; supported_styles : PXIMStyle; end; const XIMPreeditArea = $0001; XIMPreeditCallbacks = $0002; XIMPreeditPosition = $0004; XIMPreeditNothing = $0008; XIMPreeditNone = $0010; XIMStatusArea = $0100; XIMStatusCallbacks = $0200; XIMStatusNothing = $0400; XIMStatusNone = $0800; XNVaNestedList = 'XNVaNestedList'; XNQueryInputStyle = 'queryInputStyle'; XNClientWindow = 'clientWindow'; XNInputStyle = 'inputStyle'; XNFocusWindow = 'focusWindow'; XNResourceName = 'resourceName'; XNResourceClass = 'resourceClass'; XNGeometryCallback = 'geometryCallback'; XNDestroyCallback = 'destroyCallback'; XNFilterEvents = 'filterEvents'; XNPreeditStartCallback = 'preeditStartCallback'; XNPreeditDoneCallback = 'preeditDoneCallback'; XNPreeditDrawCallback = 'preeditDrawCallback'; XNPreeditCaretCallback = 'preeditCaretCallback'; XNPreeditStateNotifyCallback = 'preeditStateNotifyCallback'; XNPreeditAttributes = 'preeditAttributes'; XNStatusStartCallback = 'statusStartCallback'; XNStatusDoneCallback = 'statusDoneCallback'; XNStatusDrawCallback = 'statusDrawCallback'; XNStatusAttributes = 'statusAttributes'; XNArea = 'area'; XNAreaNeeded = 'areaNeeded'; XNSpotLocation = 'spotLocation'; XNColormap = 'colorMap'; XNStdColormap = 'stdColorMap'; XNForeground = 'foreground'; XNBackground = 'background'; XNBackgroundPixmap = 'backgroundPixmap'; XNFontSet = 'fontSet'; XNLineSpace = 'lineSpace'; XNCursor = 'cursor'; XNQueryIMValuesList = 'queryIMValuesList'; XNQueryICValuesList = 'queryICValuesList'; XNVisiblePosition = 'visiblePosition'; XNR6PreeditCallback = 'r6PreeditCallback'; XNStringConversionCallback = 'stringConversionCallback'; XNStringConversion = 'stringConversion'; XNResetState = 'resetState'; XNHotKey = 'hotKey'; XNHotKeyState = 'hotKeyState'; XNPreeditState = 'preeditState'; XNSeparatorofNestedList = 'separatorofNestedList'; XBufferOverflow = -(1); XLookupNone = 1; XLookupChars = 2; XLookupKeySymVal = 3; XLookupBoth = 4; type PXVaNestedList = ^TXVaNestedList; TXVaNestedList = pointer; PXIMCallback = ^TXIMCallback; TXIMCallback = record client_data : TXPointer; callback : TXIMProc; end; PXICCallback = ^TXICCallback; TXICCallback = record client_data : TXPointer; callback : TXICProc; end; PXIMFeedback = ^TXIMFeedback; TXIMFeedback = dword; const XIMReverse = 1; XIMUnderline = 1 shl 1; XIMHighlight = 1 shl 2; XIMPrimary = 1 shl 5; XIMSecondary = 1 shl 6; XIMTertiary = 1 shl 7; XIMVisibleToForward = 1 shl 8; XIMVisibleToBackword = 1 shl 9; XIMVisibleToCenter = 1 shl 10; type PXIMText = ^TXIMText; TXIMText = record length : word; feedback : PXIMFeedback; encoding_is_wchar : TBool; _string : record case longint of 0 : ( multi_byte : Pchar ); 1 : ( wide_char : PWideChar ); end; end; PXIMPreeditState = ^TXIMPreeditState; TXIMPreeditState = dword; const XIMPreeditUnKnown = 0; XIMPreeditEnable = 1; XIMPreeditDisable = 1 shl 1; type PXIMPreeditStateNotifyCallbackStruct = ^TXIMPreeditStateNotifyCallbackStruct; TXIMPreeditStateNotifyCallbackStruct = record state : TXIMPreeditState; end; PXIMResetState = ^TXIMResetState; TXIMResetState = dword; const XIMInitialState = 1; XIMPreserveState = 1 shl 1; type PXIMStringConversionFeedback = ^TXIMStringConversionFeedback; TXIMStringConversionFeedback = dword; const XIMStringConversionLeftEdge = $00000001; XIMStringConversionRightEdge = $00000002; XIMStringConversionTopEdge = $00000004; XIMStringConversionBottomEdge = $00000008; XIMStringConversionConcealed = $00000010; XIMStringConversionWrapped = $00000020; type PXIMStringConversionText = ^TXIMStringConversionText; TXIMStringConversionText = record length : word; feedback : PXIMStringConversionFeedback; encoding_is_wchar : TBool; _string : record case longint of 0 : ( mbs : Pchar ); 1 : ( wcs : PWideChar ); end; end; PXIMStringConversionPosition = ^TXIMStringConversionPosition; TXIMStringConversionPosition = word; PXIMStringConversionType = ^TXIMStringConversionType; TXIMStringConversionType = word; const XIMStringConversionBuffer = $0001; XIMStringConversionLine = $0002; XIMStringConversionWord = $0003; XIMStringConversionChar = $0004; type PXIMStringConversionOperation = ^TXIMStringConversionOperation; TXIMStringConversionOperation = word; const XIMStringConversionSubstitution = $0001; XIMStringConversionRetrieval = $0002; type PXIMCaretDirection = ^TXIMCaretDirection; TXIMCaretDirection = (XIMForwardChar,XIMBackwardChar,XIMForwardWord, XIMBackwardWord,XIMCaretUp,XIMCaretDown, XIMNextLine,XIMPreviousLine,XIMLineStart, XIMLineEnd,XIMAbsolutePosition,XIMDontChange ); PXIMStringConversionCallbackStruct = ^TXIMStringConversionCallbackStruct; TXIMStringConversionCallbackStruct = record position : TXIMStringConversionPosition; direction : TXIMCaretDirection; operation : TXIMStringConversionOperation; factor : word; text : PXIMStringConversionText; end; PXIMPreeditDrawCallbackStruct = ^TXIMPreeditDrawCallbackStruct; TXIMPreeditDrawCallbackStruct = record caret : longint; chg_first : longint; chg_length : longint; text : PXIMText; end; PXIMCaretStyle = ^TXIMCaretStyle; TXIMCaretStyle = (XIMIsInvisible,XIMIsPrimary,XIMIsSecondary ); PXIMPreeditCaretCallbackStruct = ^TXIMPreeditCaretCallbackStruct; TXIMPreeditCaretCallbackStruct = record position : longint; direction : TXIMCaretDirection; style : TXIMCaretStyle; end; PXIMStatusDataType = ^TXIMStatusDataType; TXIMStatusDataType = (XIMTextType,XIMBitmapType); PXIMStatusDrawCallbackStruct = ^TXIMStatusDrawCallbackStruct; TXIMStatusDrawCallbackStruct = record _type : TXIMStatusDataType; data : record case longint of 0 : ( text : PXIMText ); 1 : ( bitmap : TPixmap ); end; end; PXIMHotKeyTrigger = ^TXIMHotKeyTrigger; TXIMHotKeyTrigger = record keysym : TKeySym; modifier : longint; modifier_mask : longint; end; PXIMHotKeyTriggers = ^TXIMHotKeyTriggers; TXIMHotKeyTriggers = record num_hot_key : longint; key : PXIMHotKeyTrigger; end; PXIMHotKeyState = ^TXIMHotKeyState; TXIMHotKeyState = dword; const XIMHotKeyStateON = $0001; XIMHotKeyStateOFF = $0002; type PXIMValuesList = ^TXIMValuesList; TXIMValuesList = record count_values : word; supported_values : PPChar; end; var _Xdebug : longint;cvar;external; type funclong = function :longint; funcbool = function :TBool; chararr32 = array[0..31] of char; function XLoadQueryFont(para1:PDisplay; para2:Pchar):PXFontStruct;cdecl;external; function XQueryFont(para1:PDisplay; para2:TXID):PXFontStruct;cdecl;external; function XGetMotionEvents(para1:PDisplay; para2:TWindow; para3:TTime; para4:TTime; para5:Plongint):PXTimeCoord;cdecl;external; function XDeleteModifiermapEntry(para1:PXModifierKeymap; para2:TKeyCode; para3:longint):PXModifierKeymap;cdecl;external; function XGetModifierMapping(para1:PDisplay):PXModifierKeymap;cdecl;external; function XInsertModifiermapEntry(para1:PXModifierKeymap; para2:TKeyCode; para3:longint):PXModifierKeymap;cdecl;external; function XNewModifiermap(para1:longint):PXModifierKeymap;cdecl;external; function XCreateImage(para1:PDisplay; para2:PVisual; para3:dword; para4:longint; para5:longint; para6:Pchar; para7:dword; para8:dword; para9:longint; para10:longint):PXImage;cdecl;external; function XInitImage(para1:PXImage):TStatus;cdecl;external; function XGetImage(para1:PDisplay; para2:TDrawable; para3:longint; para4:longint; para5:dword; para6:dword; para7:dword; para8:longint):PXImage;cdecl;external; function XGetSubImage(para1:PDisplay; para2:TDrawable; para3:longint; para4:longint; para5:dword; para6:dword; para7:dword; para8:longint; para9:PXImage; para10:longint; para11:longint):PXImage;cdecl;external; function XOpenDisplay(para1:Pchar):PDisplay;cdecl;external; procedure XrmInitialize;cdecl;external; function XFetchBytes(para1:PDisplay; para2:Plongint):Pchar;cdecl;external; function XFetchBuffer(para1:PDisplay; para2:Plongint; para3:longint):Pchar;cdecl;external; function XGetAtomName(para1:PDisplay; para2:TAtom):Pchar;cdecl;external; function XGetAtomNames(para1:PDisplay; para2:PAtom; para3:longint; para4:PPchar):TStatus;cdecl;external; function XGetDefault(para1:PDisplay; para2:Pchar; para3:Pchar):Pchar;cdecl;external; function XDisplayName(para1:Pchar):Pchar;cdecl;external; function XKeysymToString(para1:TKeySym):Pchar;cdecl;external; function XSynchronize(para1:PDisplay; para2:TBool):funclong;cdecl;external; function XSetAfterFunction(para1:PDisplay; para2:funclong):funclong;cdecl;external; function XInternAtom(para1:PDisplay; para2:Pchar; para3:TBool):TAtom;cdecl;external; function XInternAtoms(para1:PDisplay; para2:PPchar; para3:longint; para4:TBool; para5:PAtom):TStatus;cdecl;external; function XCopyColormapAndFree(para1:PDisplay; para2:TColormap):TColormap;cdecl;external; function XCreateColormap(para1:PDisplay; para2:TWindow; para3:PVisual; para4:longint):TColormap;cdecl;external; function XCreatePixmapCursor(para1:PDisplay; para2:TPixmap; para3:TPixmap; para4:PXColor; para5:PXColor; para6:dword; para7:dword):TCursor;cdecl;external; function XCreateGlyphCursor(para1:PDisplay; para2:TFont; para3:TFont; para4:dword; para5:dword; para6:PXColor; para7:PXColor):TCursor;cdecl;external; function XCreateFontCursor(para1:PDisplay; para2:dword):TCursor;cdecl;external; function XLoadFont(para1:PDisplay; para2:Pchar):TFont;cdecl;external; function XCreateGC(para1:PDisplay; para2:TDrawable; para3:dword; para4:PXGCValues):TGC;cdecl;external; function XGContextFromGC(para1:TGC):TGContext;cdecl;external; procedure XFlushGC(para1:PDisplay; para2:TGC);cdecl;external; function XCreatePixmap(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:dword):TPixmap;cdecl;external; function XCreateBitmapFromData(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:dword; para5:dword):TPixmap;cdecl;external; function XCreatePixmapFromBitmapData(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:dword; para5:dword; para6:dword; para7:dword; para8:dword):TPixmap;cdecl;external; function XCreateSimpleWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword; para6:dword; para7:dword; para8:dword; para9:dword):TWindow;cdecl;external; function XGetSelectionOwner(para1:PDisplay; para2:TAtom):TWindow;cdecl;external; function XCreateWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword; para6:dword; para7:dword; para8:longint; para9:dword; para10:PVisual; para11:dword; para12:PXSetWindowAttributes):TWindow;cdecl;external; function XListInstalledColormaps(para1:PDisplay; para2:TWindow; para3:Plongint):PColormap;cdecl;external; function XListFonts(para1:PDisplay; para2:Pchar; para3:longint; para4:Plongint):PPChar;cdecl;external; function XListFontsWithInfo(para1:PDisplay; para2:Pchar; para3:longint; para4:Plongint; para5:PPXFontStruct):PPChar;cdecl;external; function XGetFontPath(para1:PDisplay; para2:Plongint):PPChar;cdecl;external; function XListExtensions(para1:PDisplay; para2:Plongint):PPChar;cdecl;external; function XListProperties(para1:PDisplay; para2:TWindow; para3:Plongint):PAtom;cdecl;external; function XListHosts(para1:PDisplay; para2:Plongint; para3:PBool):PXHostAddress;cdecl;external; function XKeycodeToKeysym(para1:PDisplay; para2:TKeyCode; para3:longint):TKeySym;cdecl;external; function XLookupKeysym(para1:PXKeyEvent; para2:longint):TKeySym;cdecl;external; function XGetKeyboardMapping(para1:PDisplay; para2:TKeyCode; para3:longint; para4:Plongint):PKeySym;cdecl;external; function XStringToKeysym(para1:Pchar):TKeySym;cdecl;external; function XMaxRequestSize(para1:PDisplay):longint;cdecl;external; function XExtendedMaxRequestSize(para1:PDisplay):longint;cdecl;external; function XResourceManagerString(para1:PDisplay):Pchar;cdecl;external; function XScreenResourceString(para1:PScreen):Pchar;cdecl;external; function XDisplayMotionBufferSize(para1:PDisplay):dword;cdecl;external; function XVisualIDFromVisual(para1:PVisual):TVisualID;cdecl;external; function XInitThreads:TStatus;cdecl;external; procedure XLockDisplay(para1:PDisplay);cdecl;external; procedure XUnlockDisplay(para1:PDisplay);cdecl;external; function XInitExtension(para1:PDisplay; para2:Pchar):PXExtCodes;cdecl;external; function XAddExtension(para1:PDisplay):PXExtCodes;cdecl;external; function XFindOnExtensionList(para1:PPXExtData; para2:longint):PXExtData;cdecl;external; function XEHeadOfExtensionList(para1:TXEDataObject):PPXExtData;cdecl;external; function XRootWindow(para1:PDisplay; para2:longint):TWindow;cdecl;external; function XDefaultRootWindow(para1:PDisplay):TWindow;cdecl;external; function XRootWindowOfScreen(para1:PScreen):TWindow;cdecl;external; function XDefaultVisual(para1:PDisplay; para2:longint):PVisual;cdecl;external; function XDefaultVisualOfScreen(para1:PScreen):PVisual;cdecl;external; function XDefaultGC(para1:PDisplay; para2:longint):TGC;cdecl;external; function XDefaultGCOfScreen(para1:PScreen):TGC;cdecl;external; function XBlackPixel(para1:PDisplay; para2:longint):dword;cdecl;external; function XWhitePixel(para1:PDisplay; para2:longint):dword;cdecl;external; function XAllPlanes:dword;cdecl;external; function XBlackPixelOfScreen(para1:PScreen):dword;cdecl;external; function XWhitePixelOfScreen(para1:PScreen):dword;cdecl;external; function XNextRequest(para1:PDisplay):dword;cdecl;external; function XLastKnownRequestProcessed(para1:PDisplay):dword;cdecl;external; function XServerVendor(para1:PDisplay):Pchar;cdecl;external; function XDisplayString(para1:PDisplay):Pchar;cdecl;external; function XDefaultColormap(para1:PDisplay; para2:longint):TColormap;cdecl;external; function XDefaultColormapOfScreen(para1:PScreen):TColormap;cdecl;external; function XDisplayOfScreen(para1:PScreen):PDisplay;cdecl;external; function XScreenOfDisplay(para1:PDisplay; para2:longint):PScreen;cdecl;external; function XDefaultScreenOfDisplay(para1:PDisplay):PScreen;cdecl;external; function XEventMaskOfScreen(para1:PScreen):longint;cdecl;external; function XScreenNumberOfScreen(para1:PScreen):longint;cdecl;external; type TXErrorHandler = function (para1:PDisplay; para2:PXErrorEvent):longint;cdecl; function XSetErrorHandler(para1:TXErrorHandler):TXErrorHandler;cdecl;external; type TXIOErrorHandler = function (para1:PDisplay):longint;cdecl; function XSetIOErrorHandler(para1:TXIOErrorHandler):TXIOErrorHandler;cdecl;external; function XListPixmapFormats(para1:PDisplay; para2:Plongint):PXPixmapFormatValues;cdecl;external; function XListDepths(para1:PDisplay; para2:longint; para3:Plongint):Plongint;cdecl;external; function XReconfigureWMWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:dword; para5:PXWindowChanges):TStatus;cdecl;external; function XGetWMProtocols(para1:PDisplay; para2:TWindow; para3:PPAtom; para4:Plongint):TStatus;cdecl;external; function XSetWMProtocols(para1:PDisplay; para2:TWindow; para3:PAtom; para4:longint):TStatus;cdecl;external; function XIconifyWindow(para1:PDisplay; para2:TWindow; para3:longint):TStatus;cdecl;external; function XWithdrawWindow(para1:PDisplay; para2:TWindow; para3:longint):TStatus;cdecl;external; function XGetCommand(para1:PDisplay; para2:TWindow; para3:PPPchar; para4:Plongint):TStatus;cdecl;external; function XGetWMColormapWindows(para1:PDisplay; para2:TWindow; para3:PPWindow; para4:Plongint):TStatus;cdecl;external; function XSetWMColormapWindows(para1:PDisplay; para2:TWindow; para3:PWindow; para4:longint):TStatus;cdecl;external; procedure XFreeStringList(para1:PPchar);cdecl;external; function XSetTransientForHint(para1:PDisplay; para2:TWindow; para3:TWindow):longint;cdecl;external; function XActivateScreenSaver(para1:PDisplay):longint;cdecl;external; function XAddHost(para1:PDisplay; para2:PXHostAddress):longint;cdecl;external; function XAddHosts(para1:PDisplay; para2:PXHostAddress; para3:longint):longint;cdecl;external; function XAddToExtensionList(para1:PPXExtData; para2:PXExtData):longint;cdecl;external; function XAddToSaveSet(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XAllocColor(para1:PDisplay; para2:TColormap; para3:PXColor):TStatus;cdecl;external; function XAllocColorCells(para1:PDisplay; para2:TColormap; para3:TBool; para4:Pdword; para5:dword; para6:Pdword; para7:dword):TStatus;cdecl;external; function XAllocColorPlanes(para1:PDisplay; para2:TColormap; para3:TBool; para4:Pdword; para5:longint; para6:longint; para7:longint; para8:longint; para9:Pdword; para10:Pdword; para11:Pdword):TStatus;cdecl;external; function XAllocNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor; para5:PXColor):TStatus;cdecl;external; function XAllowEvents(para1:PDisplay; para2:longint; para3:TTime):longint;cdecl;external; function XAutoRepeatOff(para1:PDisplay):longint;cdecl;external; function XAutoRepeatOn(para1:PDisplay):longint;cdecl;external; function XBell(para1:PDisplay; para2:longint):longint;cdecl;external; function XBitmapBitOrder(para1:PDisplay):longint;cdecl;external; function XBitmapPad(para1:PDisplay):longint;cdecl;external; function XBitmapUnit(para1:PDisplay):longint;cdecl;external; function XCellsOfScreen(para1:PScreen):longint;cdecl;external; function XChangeActivePointerGrab(para1:PDisplay; para2:dword; para3:TCursor; para4:TTime):longint;cdecl;external; function XChangeGC(para1:PDisplay; para2:TGC; para3:dword; para4:PXGCValues):longint;cdecl;external; function XChangeKeyboardControl(para1:PDisplay; para2:dword; para3:PXKeyboardControl):longint;cdecl;external; function XChangeKeyboardMapping(para1:PDisplay; para2:longint; para3:longint; para4:PKeySym; para5:longint):longint;cdecl;external; function XChangePointerControl(para1:PDisplay; para2:TBool; para3:TBool; para4:longint; para5:longint; para6:longint):longint;cdecl;external; function XChangeProperty(para1:PDisplay; para2:TWindow; para3:TAtom; para4:TAtom; para5:longint; para6:longint; para7:Pbyte; para8:longint):longint;cdecl;external; function XChangeSaveSet(para1:PDisplay; para2:TWindow; para3:longint):longint;cdecl;external; function XChangeWindowAttributes(para1:PDisplay; para2:TWindow; para3:dword; para4:PXSetWindowAttributes):longint;cdecl;external; function XCheckIfEvent(para1:PDisplay; para2:PXEvent; para3:funcbool; para4:TXPointer):TBool;cdecl;external; function XCheckMaskEvent(para1:PDisplay; para2:longint; para3:PXEvent):TBool;cdecl;external; function XCheckTypedEvent(para1:PDisplay; para2:longint; para3:PXEvent):TBool;cdecl;external; function XCheckTypedWindowEvent(para1:PDisplay; para2:TWindow; para3:longint; para4:PXEvent):TBool;cdecl;external; function XCheckWindowEvent(para1:PDisplay; para2:TWindow; para3:longint; para4:PXEvent):TBool;cdecl;external; function XCirculateSubwindows(para1:PDisplay; para2:TWindow; para3:longint):longint;cdecl;external; function XCirculateSubwindowsDown(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XCirculateSubwindowsUp(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XClearArea(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword; para6:dword; para7:TBool):longint;cdecl;external; function XClearWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XCloseDisplay(para1:PDisplay):longint;cdecl;external; function XConfigureWindow(para1:PDisplay; para2:TWindow; para3:dword; para4:PXWindowChanges):longint;cdecl;external; function XConnectionNumber(para1:PDisplay):longint;cdecl;external; function XConvertSelection(para1:PDisplay; para2:TAtom; para3:TAtom; para4:TAtom; para5:TWindow; para6:TTime):longint;cdecl;external; function XCopyArea(para1:PDisplay; para2:TDrawable; para3:TDrawable; para4:TGC; para5:longint; para6:longint; para7:dword; para8:dword; para9:longint; para10:longint):longint;cdecl;external; function XCopyGC(para1:PDisplay; para2:TGC; para3:dword; para4:TGC):longint;cdecl;external; function XCopyPlane(para1:PDisplay; para2:TDrawable; para3:TDrawable; para4:TGC; para5:longint; para6:longint; para7:dword; para8:dword; para9:longint; para10:longint; para11:dword):longint;cdecl;external; function XDefaultDepth(para1:PDisplay; para2:longint):longint;cdecl;external; function XDefaultDepthOfScreen(para1:PScreen):longint;cdecl;external; function XDefaultScreen(para1:PDisplay):longint;cdecl;external; function XDefineCursor(para1:PDisplay; para2:TWindow; para3:TCursor):longint;cdecl;external; function XDeleteProperty(para1:PDisplay; para2:TWindow; para3:TAtom):longint;cdecl;external; function XDestroyWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XDestroySubwindows(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XDoesBackingStore(para1:PScreen):longint;cdecl;external; function XDoesSaveUnders(para1:PScreen):TBool;cdecl;external; function XDisableAccessControl(para1:PDisplay):longint;cdecl;external; function XDisplayCells(para1:PDisplay; para2:longint):longint;cdecl;external; function XDisplayHeight(para1:PDisplay; para2:longint):longint;cdecl;external; function XDisplayHeightMM(para1:PDisplay; para2:longint):longint;cdecl;external; function XDisplayKeycodes(para1:PDisplay; para2:Plongint; para3:Plongint):longint;cdecl;external; function XDisplayPlanes(para1:PDisplay; para2:longint):longint;cdecl;external; function XDisplayWidth(para1:PDisplay; para2:longint):longint;cdecl;external; function XDisplayWidthMM(para1:PDisplay; para2:longint):longint;cdecl;external; function XDrawArc(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:dword; para7:dword; para8:longint; para9:longint):longint;cdecl;external; function XDrawArcs(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXArc; para5:longint):longint;cdecl;external; function XDrawImageString(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:Pchar; para7:longint):longint;cdecl;external; function XDrawImageString16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:PXChar2b; para7:longint):longint;cdecl;external; function XDrawLine(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:longint; para7:longint):longint;cdecl;external; function XDrawLines(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXPoint; para5:longint; para6:longint):longint;cdecl;external; function XDrawPoint(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint):longint;cdecl;external; function XDrawPoints(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXPoint; para5:longint; para6:longint):longint;cdecl;external; function XDrawRectangle(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:dword; para7:dword):longint;cdecl;external; function XDrawRectangles(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXRectangle; para5:longint):longint;cdecl;external; function XDrawSegments(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXSegment; para5:longint):longint;cdecl;external; function XDrawString(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:Pchar; para7:longint):longint;cdecl;external; function XDrawString16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:PXChar2b; para7:longint):longint;cdecl;external; function XDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:PXTextItem; para7:longint):longint;cdecl;external; function XDrawText16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:PXTextItem16; para7:longint):longint;cdecl;external; function XEnableAccessControl(para1:PDisplay):longint;cdecl;external; function XEventsQueued(para1:PDisplay; para2:longint):longint;cdecl;external; function XFetchName(para1:PDisplay; para2:TWindow; para3:PPchar):TStatus;cdecl;external; function XFillArc(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:dword; para7:dword; para8:longint; para9:longint):longint;cdecl;external; function XFillArcs(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXArc; para5:longint):longint;cdecl;external; function XFillPolygon(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXPoint; para5:longint; para6:longint; para7:longint):longint;cdecl;external; function XFillRectangle(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:dword; para7:dword):longint;cdecl;external; function XFillRectangles(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXRectangle; para5:longint):longint;cdecl;external; function XFlush(para1:PDisplay):longint;cdecl;external; function XForceScreenSaver(para1:PDisplay; para2:longint):longint;cdecl;external; function XFree(para1:pointer):longint;cdecl;external; function XFreeColormap(para1:PDisplay; para2:TColormap):longint;cdecl;external; function XFreeColors(para1:PDisplay; para2:TColormap; para3:Pdword; para4:longint; para5:dword):longint;cdecl;external; function XFreeCursor(para1:PDisplay; para2:TCursor):longint;cdecl;external; function XFreeExtensionList(para1:PPchar):longint;cdecl;external; function XFreeFont(para1:PDisplay; para2:PXFontStruct):longint;cdecl;external; function XFreeFontInfo(para1:PPchar; para2:PXFontStruct; para3:longint):longint;cdecl;external; function XFreeFontNames(para1:PPchar):longint;cdecl;external; function XFreeFontPath(para1:PPchar):longint;cdecl;external; function XFreeGC(para1:PDisplay; para2:TGC):longint;cdecl;external; function XFreeModifiermap(para1:PXModifierKeymap):longint;cdecl;external; function XFreePixmap(para1:PDisplay; para2:TPixmap):longint;cdecl;external; function XGeometry(para1:PDisplay; para2:longint; para3:Pchar; para4:Pchar; para5:dword; para6:dword; para7:dword; para8:longint; para9:longint; para10:Plongint; para11:Plongint; para12:Plongint; para13:Plongint):longint;cdecl;external; function XGetErrorDatabaseText(para1:PDisplay; para2:Pchar; para3:Pchar; para4:Pchar; para5:Pchar; para6:longint):longint;cdecl;external; function XGetErrorText(para1:PDisplay; para2:longint; para3:Pchar; para4:longint):longint;cdecl;external; function XGetFontProperty(para1:PXFontStruct; para2:TAtom; para3:Pdword):TBool;cdecl;external; function XGetGCValues(para1:PDisplay; para2:TGC; para3:dword; para4:PXGCValues):TStatus;cdecl;external; function XGetGeometry(para1:PDisplay; para2:TDrawable; para3:PWindow; para4:Plongint; para5:Plongint; para6:Pdword; para7:Pdword; para8:Pdword; para9:Pdword):TStatus;cdecl;external; function XGetIconName(para1:PDisplay; para2:TWindow; para3:PPchar):TStatus;cdecl;external; function XGetInputFocus(para1:PDisplay; para2:PWindow; para3:Plongint):longint;cdecl;external; function XGetKeyboardControl(para1:PDisplay; para2:PXKeyboardState):longint;cdecl;external; function XGetPointerControl(para1:PDisplay; para2:Plongint; para3:Plongint; para4:Plongint):longint;cdecl;external; function XGetPointerMapping(para1:PDisplay; para2:Pbyte; para3:longint):longint;cdecl;external; function XGetScreenSaver(para1:PDisplay; para2:Plongint; para3:Plongint; para4:Plongint; para5:Plongint):longint;cdecl;external; function XGetTransientForHint(para1:PDisplay; para2:TWindow; para3:PWindow):TStatus;cdecl;external; function XGetWindowProperty(para1:PDisplay; para2:TWindow; para3:TAtom; para4:longint; para5:longint; para6:TBool; para7:TAtom; para8:PAtom; para9:Plongint; para10:Pdword; para11:Pdword; para12:PPbyte):longint;cdecl;external; function XGetWindowAttributes(para1:PDisplay; para2:TWindow; para3:PXWindowAttributes):TStatus;cdecl;external; function XGrabButton(para1:PDisplay; para2:dword; para3:dword; para4:TWindow; para5:TBool; para6:dword; para7:longint; para8:longint; para9:TWindow; para10:TCursor):longint;cdecl;external; function XGrabKey(para1:PDisplay; para2:longint; para3:dword; para4:TWindow; para5:TBool; para6:longint; para7:longint):longint;cdecl;external; function XGrabKeyboard(para1:PDisplay; para2:TWindow; para3:TBool; para4:longint; para5:longint; para6:TTime):longint;cdecl;external; function XGrabPointer(para1:PDisplay; para2:TWindow; para3:TBool; para4:dword; para5:longint; para6:longint; para7:TWindow; para8:TCursor; para9:TTime):longint;cdecl;external; function XGrabServer(para1:PDisplay):longint;cdecl;external; function XHeightMMOfScreen(para1:PScreen):longint;cdecl;external; function XHeightOfScreen(para1:PScreen):longint;cdecl;external; function XIfEvent(para1:PDisplay; para2:PXEvent; para3:funcbool; para4:TXPointer):longint;cdecl;external; function XImageByteOrder(para1:PDisplay):longint;cdecl;external; function XInstallColormap(para1:PDisplay; para2:TColormap):longint;cdecl;external; function XKeysymToKeycode(para1:PDisplay; para2:TKeySym):TKeyCode;cdecl;external; function XKillClient(para1:PDisplay; para2:TXID):longint;cdecl;external; function XLookupColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor; para5:PXColor):TStatus;cdecl;external; function XLowerWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XMapRaised(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XMapSubwindows(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XMapWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XMaskEvent(para1:PDisplay; para2:longint; para3:PXEvent):longint;cdecl;external; function XMaxCmapsOfScreen(para1:PScreen):longint;cdecl;external; function XMinCmapsOfScreen(para1:PScreen):longint;cdecl;external; function XMoveResizeWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword; para6:dword):longint;cdecl;external; function XMoveWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint):longint;cdecl;external; function XNextEvent(para1:PDisplay; para2:PXEvent):longint;cdecl;external; function XNoOp(para1:PDisplay):longint;cdecl;external; function XParseColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor):TStatus;cdecl;external; function XParseGeometry(para1:Pchar; para2:Plongint; para3:Plongint; para4:Pdword; para5:Pdword):longint;cdecl;external; function XPeekEvent(para1:PDisplay; para2:PXEvent):longint;cdecl;external; function XPeekIfEvent(para1:PDisplay; para2:PXEvent; para3:funcbool; para4:TXPointer):longint;cdecl;external; function XPending(para1:PDisplay):longint;cdecl;external; function XPlanesOfScreen(para1:PScreen):longint;cdecl;external; function XProtocolRevision(para1:PDisplay):longint;cdecl;external; function XProtocolVersion(para1:PDisplay):longint;cdecl;external; function XPutBackEvent(para1:PDisplay; para2:PXEvent):longint;cdecl;external; function XPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:longint; para6:longint; para7:longint; para8:longint; para9:dword; para10:dword):longint;cdecl;external; function XQLength(para1:PDisplay):longint;cdecl;external; function XQueryBestCursor(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:Pdword; para6:Pdword):TStatus;cdecl;external; function XQueryBestSize(para1:PDisplay; para2:longint; para3:TDrawable; para4:dword; para5:dword; para6:Pdword; para7:Pdword):TStatus;cdecl;external; function XQueryBestStipple(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:Pdword; para6:Pdword):TStatus;cdecl;external; function XQueryBestTile(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:Pdword; para6:Pdword):TStatus;cdecl;external; function XQueryColor(para1:PDisplay; para2:TColormap; para3:PXColor):longint;cdecl;external; function XQueryColors(para1:PDisplay; para2:TColormap; para3:PXColor; para4:longint):longint;cdecl;external; function XQueryExtension(para1:PDisplay; para2:Pchar; para3:Plongint; para4:Plongint; para5:Plongint):TBool;cdecl;external; function XQueryKeymap(para1:PDisplay; para2:chararr32):longint;cdecl;external; function XQueryPointer(para1:PDisplay; para2:TWindow; para3:PWindow; para4:PWindow; para5:Plongint; para6:Plongint; para7:Plongint; para8:Plongint; para9:Pdword):TBool;cdecl;external; function XQueryTextExtents(para1:PDisplay; para2:TXID; para3:Pchar; para4:longint; para5:Plongint; para6:Plongint; para7:Plongint; para8:PXCharStruct):longint;cdecl;external; function XQueryTextExtents16(para1:PDisplay; para2:TXID; para3:PXChar2b; para4:longint; para5:Plongint; para6:Plongint; para7:Plongint; para8:PXCharStruct):longint;cdecl;external; function XQueryTree(para1:PDisplay; para2:TWindow; para3:PWindow; para4:PWindow; para5:PPWindow; para6:Pdword):TStatus;cdecl;external; function XRaiseWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XReadBitmapFile(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:Pdword; para5:Pdword; para6:PPixmap; para7:Plongint; para8:Plongint):longint;cdecl;external; function XReadBitmapFileData(para1:Pchar; para2:Pdword; para3:Pdword; para4:PPbyte; para5:Plongint; para6:Plongint):longint;cdecl;external; function XRebindKeysym(para1:PDisplay; para2:TKeySym; para3:PKeySym; para4:longint; para5:Pbyte; para6:longint):longint;cdecl;external; function XRecolorCursor(para1:PDisplay; para2:TCursor; para3:PXColor; para4:PXColor):longint;cdecl;external; function XRefreshKeyboardMapping(para1:PXMappingEvent):longint;cdecl;external; function XRemoveFromSaveSet(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XRemoveHost(para1:PDisplay; para2:PXHostAddress):longint;cdecl;external; function XRemoveHosts(para1:PDisplay; para2:PXHostAddress; para3:longint):longint;cdecl;external; function XReparentWindow(para1:PDisplay; para2:TWindow; para3:TWindow; para4:longint; para5:longint):longint;cdecl;external; function XResetScreenSaver(para1:PDisplay):longint;cdecl;external; function XResizeWindow(para1:PDisplay; para2:TWindow; para3:dword; para4:dword):longint;cdecl;external; function XRestackWindows(para1:PDisplay; para2:PWindow; para3:longint):longint;cdecl;external; function XRotateBuffers(para1:PDisplay; para2:longint):longint;cdecl;external; function XRotateWindowProperties(para1:PDisplay; para2:TWindow; para3:PAtom; para4:longint; para5:longint):longint;cdecl;external; function XScreenCount(para1:PDisplay):longint;cdecl;external; function XSelectInput(para1:PDisplay; para2:TWindow; para3:longint):longint;cdecl;external; function XSendEvent(para1:PDisplay; para2:TWindow; para3:TBool; para4:longint; para5:PXEvent):TStatus;cdecl;external; function XSetAccessControl(para1:PDisplay; para2:longint):longint;cdecl;external; function XSetArcMode(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external; function XSetBackground(para1:PDisplay; para2:TGC; para3:dword):longint;cdecl;external; function XSetClipMask(para1:PDisplay; para2:TGC; para3:TPixmap):longint;cdecl;external; function XSetClipOrigin(para1:PDisplay; para2:TGC; para3:longint; para4:longint):longint;cdecl;external; function XSetClipRectangles(para1:PDisplay; para2:TGC; para3:longint; para4:longint; para5:PXRectangle; para6:longint; para7:longint):longint;cdecl;external; function XSetCloseDownMode(para1:PDisplay; para2:longint):longint;cdecl;external; function XSetCommand(para1:PDisplay; para2:TWindow; para3:PPchar; para4:longint):longint;cdecl;external; function XSetDashes(para1:PDisplay; para2:TGC; para3:longint; para4:Pchar; para5:longint):longint;cdecl;external; function XSetFillRule(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external; function XSetFillStyle(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external; function XSetFont(para1:PDisplay; para2:TGC; para3:TFont):longint;cdecl;external; function XSetFontPath(para1:PDisplay; para2:PPchar; para3:longint):longint;cdecl;external; function XSetForeground(para1:PDisplay; para2:TGC; para3:dword):longint;cdecl;external; function XSetFunction(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external; function XSetGraphicsExposures(para1:PDisplay; para2:TGC; para3:TBool):longint;cdecl;external; function XSetIconName(para1:PDisplay; para2:TWindow; para3:Pchar):longint;cdecl;external; function XSetInputFocus(para1:PDisplay; para2:TWindow; para3:longint; para4:TTime):longint;cdecl;external; function XSetLineAttributes(para1:PDisplay; para2:TGC; para3:dword; para4:longint; para5:longint; para6:longint):longint;cdecl;external; function XSetModifierMapping(para1:PDisplay; para2:PXModifierKeymap):longint;cdecl;external; function XSetPlaneMask(para1:PDisplay; para2:TGC; para3:dword):longint;cdecl;external; function XSetPointerMapping(para1:PDisplay; para2:Pbyte; para3:longint):longint;cdecl;external; function XSetScreenSaver(para1:PDisplay; para2:longint; para3:longint; para4:longint; para5:longint):longint;cdecl;external; function XSetSelectionOwner(para1:PDisplay; para2:TAtom; para3:TWindow; para4:TTime):longint;cdecl;external; function XSetState(para1:PDisplay; para2:TGC; para3:dword; para4:dword; para5:longint; para6:dword):longint;cdecl;external; function XSetStipple(para1:PDisplay; para2:TGC; para3:TPixmap):longint;cdecl;external; function XSetSubwindowMode(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external; function XSetTSOrigin(para1:PDisplay; para2:TGC; para3:longint; para4:longint):longint;cdecl;external; function XSetTile(para1:PDisplay; para2:TGC; para3:TPixmap):longint;cdecl;external; function XSetWindowBackground(para1:PDisplay; para2:TWindow; para3:dword):longint;cdecl;external; function XSetWindowBackgroundPixmap(para1:PDisplay; para2:TWindow; para3:TPixmap):longint;cdecl;external; function XSetWindowBorder(para1:PDisplay; para2:TWindow; para3:dword):longint;cdecl;external; function XSetWindowBorderPixmap(para1:PDisplay; para2:TWindow; para3:TPixmap):longint;cdecl;external; function XSetWindowBorderWidth(para1:PDisplay; para2:TWindow; para3:dword):longint;cdecl;external; function XSetWindowColormap(para1:PDisplay; para2:TWindow; para3:TColormap):longint;cdecl;external; function XStoreBuffer(para1:PDisplay; para2:Pchar; para3:longint; para4:longint):longint;cdecl;external; function XStoreBytes(para1:PDisplay; para2:Pchar; para3:longint):longint;cdecl;external; function XStoreColor(para1:PDisplay; para2:TColormap; para3:PXColor):longint;cdecl;external; function XStoreColors(para1:PDisplay; para2:TColormap; para3:PXColor; para4:longint):longint;cdecl;external; function XStoreName(para1:PDisplay; para2:TWindow; para3:Pchar):longint;cdecl;external; function XStoreNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:dword; para5:longint):longint;cdecl;external; function XSync(para1:PDisplay; para2:TBool):longint;cdecl;external; function XTextExtents(para1:PXFontStruct; para2:Pchar; para3:longint; para4:Plongint; para5:Plongint; para6:Plongint; para7:PXCharStruct):longint;cdecl;external; function XTextExtents16(para1:PXFontStruct; para2:PXChar2b; para3:longint; para4:Plongint; para5:Plongint; para6:Plongint; para7:PXCharStruct):longint;cdecl;external; function XTextWidth(para1:PXFontStruct; para2:Pchar; para3:longint):longint;cdecl;external; function XTextWidth16(para1:PXFontStruct; para2:PXChar2b; para3:longint):longint;cdecl;external; function XTranslateCoordinates(para1:PDisplay; para2:TWindow; para3:TWindow; para4:longint; para5:longint; para6:Plongint; para7:Plongint; para8:PWindow):TBool;cdecl;external; function XUndefineCursor(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XUngrabButton(para1:PDisplay; para2:dword; para3:dword; para4:TWindow):longint;cdecl;external; function XUngrabKey(para1:PDisplay; para2:longint; para3:dword; para4:TWindow):longint;cdecl;external; function XUngrabKeyboard(para1:PDisplay; para2:TTime):longint;cdecl;external; function XUngrabPointer(para1:PDisplay; para2:TTime):longint;cdecl;external; function XUngrabServer(para1:PDisplay):longint;cdecl;external; function XUninstallColormap(para1:PDisplay; para2:TColormap):longint;cdecl;external; function XUnloadFont(para1:PDisplay; para2:TFont):longint;cdecl;external; function XUnmapSubwindows(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XUnmapWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external; function XVendorRelease(para1:PDisplay):longint;cdecl;external; function XWarpPointer(para1:PDisplay; para2:TWindow; para3:TWindow; para4:longint; para5:longint; para6:dword; para7:dword; para8:longint; para9:longint):longint;cdecl;external; function XWidthMMOfScreen(para1:PScreen):longint;cdecl;external; function XWidthOfScreen(para1:PScreen):longint;cdecl;external; function XWindowEvent(para1:PDisplay; para2:TWindow; para3:longint; para4:PXEvent):longint;cdecl;external; function XWriteBitmapFile(para1:PDisplay; para2:Pchar; para3:TPixmap; para4:dword; para5:dword; para6:longint; para7:longint):longint;cdecl;external; function XSupportsLocale:TBool;cdecl;external; function XSetLocaleModifiers(para1:Pchar):Pchar;cdecl;external; function XOpenOM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):TXOM;cdecl;external; function XCloseOM(para1:TXOM):TStatus;cdecl;external; function XSetOMValues:Pchar;cdecl;external; function XGetOMValues:Pchar;cdecl;external; function XDisplayOfOM(para1:TXOM):PDisplay;cdecl;external; function XLocaleOfOM(para1:TXOM):Pchar;cdecl;external; function XCreateOC:TXOC;cdecl;external; procedure XDestroyOC(para1:TXOC);cdecl;external; function XOMOfOC(para1:TXOC):TXOM;cdecl;external; function XSetOCValues:Pchar;cdecl;external; function XGetOCValues:Pchar;cdecl;external; function XCreateFontSet(para1:PDisplay; para2:Pchar; para3:PPPchar; para4:Plongint; para5:PPchar):TXFontSet;cdecl;external; procedure XFreeFontSet(para1:PDisplay; para2:TXFontSet);cdecl;external; function XFontsOfFontSet(para1:TXFontSet; para2:PPPXFontStruct; para3:PPPchar):longint;cdecl;external; function XBaseFontNameListOfFontSet(para1:TXFontSet):Pchar;cdecl;external; function XLocaleOfFontSet(para1:TXFontSet):Pchar;cdecl;external; function XContextDependentDrawing(para1:TXFontSet):TBool;cdecl;external; function XDirectionalDependentDrawing(para1:TXFontSet):TBool;cdecl;external; function XContextualDrawing(para1:TXFontSet):TBool;cdecl;external; function XExtentsOfFontSet(para1:TXFontSet):PXFontSetExtents;cdecl;external; function XmbTextEscapement(para1:TXFontSet; para2:Pchar; para3:longint):longint;cdecl;external; function XwcTextEscapement(para1:TXFontSet; para2:PWideChar; para3:longint):longint;cdecl;external; function XmbTextExtents(para1:TXFontSet; para2:Pchar; para3:longint; para4:PXRectangle; para5:PXRectangle):longint;cdecl;external; function XwcTextExtents(para1:TXFontSet; para2:PWideChar; para3:longint; para4:PXRectangle; para5:PXRectangle):longint;cdecl;external; function XmbTextPerCharExtents(para1:TXFontSet; para2:Pchar; para3:longint; para4:PXRectangle; para5:PXRectangle; para6:longint; para7:Plongint; para8:PXRectangle; para9:PXRectangle):TStatus;cdecl;external; function XwcTextPerCharExtents(para1:TXFontSet; para2:PWideChar; para3:longint; para4:PXRectangle; para5:PXRectangle; para6:longint; para7:Plongint; para8:PXRectangle; para9:PXRectangle):TStatus;cdecl;external; procedure XmbDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:PXmbTextItem; para7:longint);cdecl;external; procedure XwcDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint; para6:PXwcTextItem; para7:longint);cdecl;external; procedure XmbDrawString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint; para6:longint; para7:Pchar; para8:longint);cdecl;external; procedure XwcDrawString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint; para6:longint; para7:PWideChar; para8:longint);cdecl;external; procedure XmbDrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint; para6:longint; para7:Pchar; para8:longint);cdecl;external; procedure XwcDrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint; para6:longint; para7:PWideChar; para8:longint);cdecl;external; function XOpenIM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):TXIM;cdecl;external; function XCloseIM(para1:TXIM):TStatus;cdecl;external; function XGetIMValues:Pchar;cdecl;external; function XDisplayOfIM(para1:TXIM):PDisplay;cdecl;external; function XLocaleOfIM(para1:TXIM):Pchar;cdecl;external; function XCreateIC:TXIC;cdecl;external; procedure XDestroyIC(para1:TXIC);cdecl;external; procedure XSetICFocus(para1:TXIC);cdecl;external; procedure XUnsetICFocus(para1:TXIC);cdecl;external; function XwcResetIC(para1:TXIC):PWideChar;cdecl;external; function XmbResetIC(para1:TXIC):Pchar;cdecl;external; function XSetICValues:Pchar;cdecl;external; function XGetICValues:Pchar;cdecl;external; function XIMOfIC(para1:TXIC):TXIM;cdecl;external; function XFilterEvent(para1:PXEvent; para2:TWindow):TBool;cdecl;external; function XmbLookupString(para1:TXIC; para2:PXKeyPressedEvent; para3:Pchar; para4:longint; para5:PKeySym; para6:PStatus):longint;cdecl;external; function XwcLookupString(para1:TXIC; para2:PXKeyPressedEvent; para3:PWideChar; para4:longint; para5:PKeySym; para6:PStatus):longint;cdecl;external; function XVaCreateNestedList:TXVaNestedList;cdecl;external; function XRegisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar; para5:TXIDProc; para6:TXPointer):TBool;cdecl;external; function XUnregisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar; para5:TXIDProc; para6:TXPointer):TBool;cdecl;external; type TXConnectionWatchProc = procedure (para1:PDisplay; para2:TXPointer; para3:longint; para4:TBool; para5:PXPointer);cdecl; function XInternalConnectionNumbers(para1:PDisplay; para2:PPlongint; para3:Plongint):TStatus;cdecl;external; procedure XProcessInternalConnection(para1:PDisplay; para2:longint);cdecl;external; function XAddConnectionWatch(para1:PDisplay; para2:TXConnectionWatchProc; para3:TXPointer):TStatus;cdecl;external; procedure XRemoveConnectionWatch(para1:PDisplay; para2:TXConnectionWatchProc; para3:TXPointer);cdecl;external; procedure XSetAuthorization(para1:Pchar; para2:longint; para3:Pchar; para4:longint);cdecl;external; implementation {$ifdef MACROS} function ConnectionNumber(dpy : longint) : longint; begin ConnectionNumber:=(TXPrivDisplay(dpy))^.fd; end; function RootWindow(dpy,scr : longint) : longint; begin RootWindow:=(ScreenOfDisplay(dpy,scr))^.root; end; function DefaultScreen(dpy : longint) : longint; begin DefaultScreen:=(TXPrivDisplay(dpy))^.default_screen; end; function DefaultRootWindow(dpy : longint) : longint; begin DefaultRootWindow:=(ScreenOfDisplay(dpy,DefaultScreen(dpy)))^.root; end; function DefaultVisual(dpy,scr : longint) : longint; begin DefaultVisual:=(ScreenOfDisplay(dpy,scr))^.root_visual; end; function DefaultGC(dpy,scr : longint) : longint; begin DefaultGC:=(ScreenOfDisplay(dpy,scr))^.default_gc; end; function BlackPixel(dpy,scr : longint) : longint; begin BlackPixel:=(ScreenOfDisplay(dpy,scr))^.black_pixel; end; function WhitePixel(dpy,scr : longint) : longint; begin WhitePixel:=(ScreenOfDisplay(dpy,scr))^.white_pixel; end; function AllPlanes : dword; begin AllPlanes:=dword( not (0)); end; function QLength(dpy : longint) : longint; begin QLength:=(TXPrivDisplay(dpy))^.qlen; end; function DisplayWidth(dpy,scr : longint) : longint; begin DisplayWidth:=(ScreenOfDisplay(dpy,scr))^.width; end; function DisplayHeight(dpy,scr : longint) : longint; begin DisplayHeight:=(ScreenOfDisplay(dpy,scr))^.height; end; function DisplayWidthMM(dpy,scr : longint) : longint; begin DisplayWidthMM:=(ScreenOfDisplay(dpy,scr))^.mwidth; end; function DisplayHeightMM(dpy,scr : longint) : longint; begin DisplayHeightMM:=(ScreenOfDisplay(dpy,scr))^.mheight; end; function DisplayPlanes(dpy,scr : longint) : longint; begin DisplayPlanes:=(ScreenOfDisplay(dpy,scr))^.root_depth; end; function DisplayCells(dpy,scr : longint) : longint; begin DisplayCells:=(DefaultVisual(dpy,scr))^.map_entries; end; function ScreenCount(dpy : longint) : longint; begin ScreenCount:=(TXPrivDisplay(dpy))^.nscreens; end; function ServerVendor(dpy : longint) : longint; begin ServerVendor:=(TXPrivDisplay(dpy))^.vendor; end; function ProtocolVersion(dpy : longint) : longint; begin ProtocolVersion:=(TXPrivDisplay(dpy))^.proto_major_version; end; function ProtocolRevision(dpy : longint) : longint; begin ProtocolRevision:=(TXPrivDisplay(dpy))^.proto_minor_version; end; function VendorRelease(dpy : longint) : longint; begin VendorRelease:=(TXPrivDisplay(dpy))^.release; end; function DisplayString(dpy : longint) : longint; begin DisplayString:=(TXPrivDisplay(dpy))^.display_name; end; function DefaultDepth(dpy,scr : longint) : longint; begin DefaultDepth:=(ScreenOfDisplay(dpy,scr))^.root_depth; end; function DefaultColormap(dpy,scr : longint) : longint; begin DefaultColormap:=(ScreenOfDisplay(dpy,scr))^.cmap; end; function BitmapUnit(dpy : longint) : longint; begin BitmapUnit:=(TXPrivDisplay(dpy))^.bitmap_unit; end; function BitmapBitOrder(dpy : longint) : longint; begin BitmapBitOrder:=(TXPrivDisplay(dpy))^.bitmap_bit_order; end; function BitmapPad(dpy : longint) : longint; begin BitmapPad:=(TXPrivDisplay(dpy))^.bitmap_pad; end; function ImageByteOrder(dpy : longint) : longint; begin ImageByteOrder:=(TXPrivDisplay(dpy))^.byte_order; end; function NextRequest(dpy : longint) : longint; begin NextRequest:=((TXPrivDisplay(dpy))^.request) + 1; end; function LastKnownRequestProcessed(dpy : longint) : longint; begin LastKnownRequestProcessed:=(TXPrivDisplay(dpy))^.last_request_read; end; function ScreenOfDisplay(dpy,scr : longint) : longint; begin ScreenOfDisplay:=@((TXPrivDisplay(dpy))^.(screens[scr])); end; function DefaultScreenOfDisplay(dpy : longint) : longint; begin DefaultScreenOfDisplay:=ScreenOfDisplay(dpy,DefaultScreen(dpy)); end; function DisplayOfScreen(s : longint) : longint; begin DisplayOfScreen:=s^.display; end; function RootWindowOfScreen(s : longint) : longint; begin RootWindowOfScreen:=s^.root; end; function BlackPixelOfScreen(s : longint) : longint; begin BlackPixelOfScreen:=s^.black_pixel; end; function WhitePixelOfScreen(s : longint) : longint; begin WhitePixelOfScreen:=s^.white_pixel; end; function DefaultColormapOfScreen(s : longint) : longint; begin DefaultColormapOfScreen:=s^.cmap; end; function DefaultDepthOfScreen(s : longint) : longint; begin DefaultDepthOfScreen:=s^.root_depth; end; function DefaultGCOfScreen(s : longint) : longint; begin DefaultGCOfScreen:=s^.default_gc; end; function DefaultVisualOfScreen(s : longint) : longint; begin DefaultVisualOfScreen:=s^.root_visual; end; function WidthOfScreen(s : longint) : longint; begin WidthOfScreen:=s^.width; end; function HeightOfScreen(s : longint) : longint; begin HeightOfScreen:=s^.height; end; function WidthMMOfScreen(s : longint) : longint; begin WidthMMOfScreen:=s^.mwidth; end; function HeightMMOfScreen(s : longint) : longint; begin HeightMMOfScreen:=s^.mheight; end; function PlanesOfScreen(s : longint) : longint; begin PlanesOfScreen:=s^.root_depth; end; function CellsOfScreen(s : longint) : longint; begin CellsOfScreen:=(DefaultVisualOfScreen(s))^.map_entries; end; function MinCmapsOfScreen(s : longint) : longint; begin MinCmapsOfScreen:=s^.min_maps; end; function MaxCmapsOfScreen(s : longint) : longint; begin MaxCmapsOfScreen:=s^.max_maps; end; function DoesSaveUnders(s : longint) : longint; begin DoesSaveUnders:=s^.save_unders; end; function DoesBackingStore(s : longint) : longint; begin DoesBackingStore:=s^.backing_store; end; function EventMaskOfScreen(s : longint) : longint; begin EventMaskOfScreen:=s^.root_input_mask; end; function XAllocID(dpy : longint) : longint; begin XAllocID:=(TXPrivDisplay(dpy))^.resource_alloc(dpy); end; {$endif MACROS} end.