From e8dd512f650451cf9da866387bfa7422ea4c1b13 Mon Sep 17 00:00:00 2001 From: peter Date: Thu, 28 Dec 2000 21:23:39 +0000 Subject: [PATCH] * new X11 conversion from 4.0.x headers --- packages/x11/Makefile | 73 +- packages/x11/Makefile.fpc | 2 +- packages/x11/x.pp | 998 +++++----- packages/x11/xcms.pp | 371 ++++ packages/x11/xlib.pp | 3799 ++++++++++++++++++++----------------- packages/x11/xresource.pp | 444 ++--- packages/x11/xutil.pp | 971 ++++------ 7 files changed, 3469 insertions(+), 3189 deletions(-) create mode 100644 packages/x11/xcms.pp diff --git a/packages/x11/Makefile b/packages/x11/Makefile index b319c8bdf2..794dcd353d 100644 --- a/packages/x11/Makefile +++ b/packages/x11/Makefile @@ -1,5 +1,5 @@ # -# Makefile generated by fpcmake v1.00 [2000/12/19] +# Makefile generated by fpcmake v1.00 [2000/12/22] # defaultrule: all @@ -50,6 +50,25 @@ else SRCEXEEXT=.exe endif +# The extension of batch files / scripts +ifdef inUnix +BATCHEXT=.sh +else +ifdef inOS2 +BATCHEXT=.cmd +else +BATCHEXT=.bat +endif +endif + +# Path Separator, the subst trick is necessary for the \ that can't exists +# at the end of a line +ifdef inUnix +PATHSEP=/ +else +PATHSEP=$(subst /,\,/) +endif + # The path which is searched separated by spaces ifdef inUnix SEARCHPATH=$(subst :, ,$(PATH)) @@ -178,7 +197,7 @@ endif # Targets -override UNITOBJECTS+=x xlib xutil xresource +override UNITOBJECTS+=x xlib xutil xresource xcms # Clean @@ -295,15 +314,7 @@ LD=ld endif # ppas.bat / ppas.sh -ifdef inUnix -PPAS=ppas.sh -else -ifdef inOS2 -PPAS=ppas.cmd -else -PPAS=ppas.bat -endif -endif +PPAS=ppas$(BATCHEXT) # ldconfig to rebuild .so cache ifdef inUnix @@ -1076,18 +1087,48 @@ USETAR=1 endif endif +# Use a wrapper script by default for OS/2 +ifdef inOS2 +USEZIPWRAPPER=1 +endif + +# Create commands to create the zip/tar file +ZIPWRAPPER=$(DESTZIPDIR)/fpczip$(BATCHEXT) +ZIPCMD_CDPACK:=cd $(subst /,$(PATHSEP),$(PACKDIR)) +ZIPCMD_CDBASE:=cd $(subst /,$(PATHSEP),$(BASEDIR)) +ifdef USETAR +ZIPDESTFILE:=$(DESTZIPDIR)/$(ZIPNAME)$(TAREXT) +ZIPCMD_ZIP:=$(TARPROG) cf$(TAROPT) $(ZIPDESTFILE) * +else +ZIPDESTFILE:=$(DESTZIPDIR)/$(ZIPNAME)$(ZIPEXT) +ZIPCMD_ZIP:=$(subst /,$(PATHSEP),$(ZIPPROG)) -Dr $(ZIPOPT) $(ZIPDESTFILE) * +endif + fpc_zipinstall: ifndef ZIPNAME @$(ECHO) "Please specify ZIPNAME!" @exit 1 else $(MAKE) $(ZIPTARGET) PREFIXINSTALLDIR=$(PACKDIR) -ifdef USETAR - $(DEL) $(DESTZIPDIR)/$(ZIPNAME)$(TAREXT) - cd $(PACKDIR) ; $(TARPROG) cf$(TAROPT) $(DESTZIPDIR)/$(ZIPNAME)$(TAREXT) * ; cd $(BASEDIR) + $(DEL) $(ZIPDESTFILE) +ifdef USEZIPWRAPPER +ifneq ($(ECHO),echo) + $(ECHO) "$(ZIPCMD_CDPACK)" > $(ZIPWRAPPER) + $(ECHO) "$(ZIPCMD_ZIP)" >> $(ZIPWRAPPER) + $(ECHO) "$(ZIPCMD_CDBASE)" >> $(ZIPWRAPPER) else - $(DEL) $(DESTZIPDIR)/$(ZIPNAME)$(ZIPEXT) - cd $(PACKDIR) ; $(ZIPPROG) -Dr $(ZIPOPT) $(DESTZIPDIR)/$(ZIPNAME)$(ZIPEXT) * ; cd $(BASEDIR) + $(ECHO) $(ZIPCMD_CDPACK) > $(ZIPWRAPPER) + $(ECHO) $(ZIPCMD_ZIP) >> $(ZIPWRAPPER) + $(ECHO) $(ZIPCMD_CDBASE) >> $(ZIPWRAPPER) +endif +ifdef inUnix + /bin/sh $(ZIPWRAPPER) +else + $(ZIPWRAPPER) +endif + $(DEL) $(ZIPWRAPPER) +else + $(ZIPCMD_CDPACK) ; $(ZIPCMD_ZIP) ; $(ZIPCMD_CDBASE) endif $(DELTREE) $(PACKDIR) endif diff --git a/packages/x11/Makefile.fpc b/packages/x11/Makefile.fpc index 17be0c0894..1d3bae99e2 100644 --- a/packages/x11/Makefile.fpc +++ b/packages/x11/Makefile.fpc @@ -3,7 +3,7 @@ # [targets] -units=x xlib xutil xresource +units=x xlib xutil xresource xcms [dirs] fpcdir=../.. diff --git a/packages/x11/x.pp b/packages/x11/x.pp index d1194c998f..00f6890507 100644 --- a/packages/x11/x.pp +++ b/packages/x11/x.pp @@ -1,578 +1,448 @@ -{ - $Id$ -} unit x; - - { Changes to the original conversion marked MVC - Michael Van Canneyt} +interface {$LinkLib c} {$LinkLib X11} - interface +{ + Automatically converted by H2Pas 0.99.15 from x.h + The following command line parameters were used: + -p + -T + -S + -d + -c + x.h +} - const - X_PROTOCOL = 11; - - X_PROTOCOL_REVISION = 0; +{ Pointers to basic pascal types, inserted by h2pas conversion program.} +Type + PLongint = ^Longint; + PPLongint = ^PLongint; + PSmallInt = ^SmallInt; + PByte = ^Byte; + PPByte = ^PByte; + PWord = ^Word; + PDWord = ^DWord; + PDouble = ^Double; + PPChar = ^PChar; + PPPChar = ^PPChar; + PPWideChar = ^PWideChar; + PPPWideChar = ^PPWideChar; - type - { Inserted the following by hand. It was under a ifndef _XSERVER64. All - were unsigned longs originally - -- MVC. } - TXID = cardinal ; - TMask = cardinal ; - TAtom = cardinal ; - TVisualID = cardinal ; - TTime = cardinal ; - { End of insert } - TWindow = TXID; - TDrawable = TXID; - TFont = TXID; - TPixmap = TXID; - TCursor = TXID; - TColormap = TXID; - TGContext = TXID; - TKeySym = TXID; - TKeyCode = char; - PKeyCode = ^TKeyCode; - { Pointers to all these things. Needed for C calls. MVC } - PAtom = ^TAtom; - PPAtom = ^PAtom; - PWindow = ^TWindow; - PColormap = ^TColormap; - PKeySym = ^TKeysym; - PPixmap = ^TPixmap; +{$PACKRECORDS C} - {***************************************************************** - * RESERVED RESOURCE AND CONSTANT DEFINITIONS - *****************************************************************} - {* universal null resource or null atom *} - const - None = 0; - {* background pixmap in CreateWindow - and ChangeWindowAttributes *} - ParentRelative = 1; - {* border pixmap in CreateWindow - and ChangeWindowAttributes - special VisualID and special window - class passed to CreateWindow *} - CopyFromParent = 0; - {* destination window in SendEvent *} - PointerWindow = 0; - {* destination window in SendEvent *} - InputFocus = 1; - {* focus window in SetInputFocus *} - PointerRoot = 1; - {* special Atom, passed to GetProperty *} - AnyPropertyType = 0; - {* special Key Code, passed to GrabKey *} - AnyKey = 0; - {* special Button Code, passed to GrabButton *} - AnyButton = 0; - {* special Resource ID passed to KillClient *} - AllTemporary = 0; - {* special Time *} - CurrentTime = 0; - {* special KeySym *} - {***************************************************************** - * EVENT DEFINITIONS - *****************************************************************} - {* Input Event Masks. Used as event-mask window attribute and as arguments - to Grab requests. Not to be confused with event names. *} - NoSymbol = 0; - NoEventMask = 0; - KeyPressMask = (1) shl (0); - KeyReleaseMask = (1) shl (1); - ButtonPressMask = (1) shl (2); - ButtonReleaseMask = (1) shl (3); - EnterWindowMask = (1) shl (4); - LeaveWindowMask = (1) shl (5); - PointerMotionMask = (1) shl (6); - PointerMotionHintMask = (1) shl (7); - Button1MotionMask = (1) shl (8); - Button2MotionMask = (1) shl (9); - Button3MotionMask = (1) shl (10); - Button4MotionMask = (1) shl (11); - Button5MotionMask = (1) shl (12); - ButtonMotionMask = (1) shl (13); - KeymapStateMask = (1) shl (14); - ExposureMask = (1) shl (15); - VisibilityChangeMask = (1) shl (16); - StructureNotifyMask = (1) shl (17); - ResizeRedirectMask = (1) shl (18); - SubstructureNotifyMask = (1) shl (19); - SubstructureRedirectMask = (1) shl (20); - FocusChangeMask = (1) shl (21); - PropertyChangeMask = (1) shl (22); - ColormapChangeMask = (1) shl (23); - {* Event names. Used in "type" field in XEvent structures. Not to be - confused with event masks above. They start from 2 because 0 and 1 - are reserved in the protocol for errors and replies. *} - OwnerGrabButtonMask = (1) shl (24); - KeyPress = 2; - KeyRelease = 3; - ButtonPress = 4; - ButtonRelease = 5; - MotionNotify = 6; - EnterNotify = 7; - LeaveNotify = 8; - FocusIn = 9; - FocusOut = 10; - KeymapNotify = 11; - Expose = 12; - GraphicsExpose = 13; - NoExpose = 14; - VisibilityNotify = 15; - CreateNotify = 16; - DestroyNotify = 17; - UnmapNotify = 18; - MapNotify = 19; - MapRequest = 20; - ReparentNotify = 21; - ConfigureNotify = 22; - ConfigureRequest = 23; - GravityNotify = 24; - ResizeRequest = 25; - CirculateNotify = 26; - CirculateRequest = 27; - PropertyNotify = 28; - SelectionClear = 29; - SelectionRequest = 30; - SelectionNotify = 31; - ColormapNotify = 32; - ClientMessage = 33; - MappingNotify = 34; - {* must be bigger than any event # *} - {* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, - state in various key-, mouse-, and button-related events. *} - LASTEvent = 35; - ShiftMask = (1) shl (0); - LockMask = (1) shl (1); - ControlMask = (1) shl (2); - Mod1Mask = (1) shl (3); - Mod2Mask = (1) shl (4); - Mod3Mask = (1) shl (5); - Mod4Mask = (1) shl (6); - {* modifier names. Used to build a SetModifierMapping request or - to read a GetModifierMapping request. These correspond to the - masks defined above. *} - Mod5Mask = (1) shl (7); - ShiftMapIndex = 0; - LockMapIndex = 1; - ControlMapIndex = 2; - Mod1MapIndex = 3; - Mod2MapIndex = 4; - Mod3MapIndex = 5; - Mod4MapIndex = 6; - {* button masks. Used in same manner as Key masks above. Not to be confused - with button names below. *} - Mod5MapIndex = 7; - Button1Mask = (1) shl (8); - Button2Mask = (1) shl (9); - Button3Mask = (1) shl (10); - Button4Mask = (1) shl (11); - Button5Mask = (1) shl (12); - {* used in GrabButton, GrabKey *} - {* button names. Used as arguments to GrabButton and as detail in ButtonPress - and ButtonRelease events. Not to be confused with button masks above. - Note that 0 is already defined above as "AnyButton". *} - AnyModifier = (1) shl (15); - Button1 = 1; - Button2 = 2; - Button3 = 3; - Button4 = 4; - {* Notify modes *} - Button5 = 5; - NotifyNormal = 0; - NotifyGrab = 1; - NotifyUngrab = 2; - NotifyWhileGrabbed = 3; - {* for MotionNotify events *} - {* Notify detail *} - NotifyHint = 1; - NotifyAncestor = 0; - NotifyVirtual = 1; - NotifyInferior = 2; - NotifyNonlinear = 3; - NotifyNonlinearVirtual = 4; - NotifyPointer = 5; - NotifyPointerRoot = 6; - {* Visibility notify *} - NotifyDetailNone = 7; - VisibilityUnobscured = 0; - VisibilityPartiallyObscured = 1; - {* Circulation request *} - VisibilityFullyObscured = 2; - PlaceOnTop = 0; - {* protocol families *} - PlaceOnBottom = 1; - FamilyInternet = 0; - FamilyDECnet = 1; - {* Property notification *} - FamilyChaos = 2; - PropertyNewValue = 0; - {* Color Map notification *} - PropertyDelete = 1; - ColormapUninstalled = 0; - {* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes *} - ColormapInstalled = 1; - GrabModeSync = 0; - {* GrabPointer, GrabKeyboard reply status *} - GrabModeAsync = 1; - GrabSuccess = 0; - AlreadyGrabbed = 1; - GrabInvalidTime = 2; - GrabNotViewable = 3; - {* AllowEvents modes *} - GrabFrozen = 4; - AsyncPointer = 0; - SyncPointer = 1; - ReplayPointer = 2; - AsyncKeyboard = 3; - SyncKeyboard = 4; - ReplayKeyboard = 5; - AsyncBoth = 6; - {* Used in SetInputFocus, GetInputFocus *} - SyncBoth = 7; - {***************************************************************** - * ERROR CODES - *****************************************************************} - RevertToParent = 2; - {* everything's okay *} - Success = 0; - {* bad request code *} - BadRequest = 1; - {* int parameter out of range *} - BadValue = 2; - {* parameter not a Window *} - BadWindow = 3; - {* parameter not a Pixmap *} - BadPixmap = 4; - {* parameter not an Atom *} - BadAtom = 5; - {* parameter not a Cursor *} - BadCursor = 6; - {* parameter not a Font *} - BadFont = 7; - {* parameter mismatch *} - BadMatch = 8; - {* parameter not a Pixmap or Window *} - BadDrawable = 9; - {* depending on context: - - key/button already grabbed - - attempt to free an illegal - cmap entry - - attempt to store into a read-only - color map entry. - - attempt to modify the access control - list from other than the local host. - *} - BadAccess = 10; - {* insufficient resources *} - BadAlloc = 11; - {* no such colormap *} - BadColor = 12; - {* parameter not a GC *} - BadGC = 13; - {* choice not in range or already used *} - BadIDChoice = 14; - {* font or color name doesn't exist *} - BadName = 15; - {* Request length incorrect *} - BadLength = 16; - {* server is defective *} - BadImplementation = 17; - FirstExtensionError = 128; - {***************************************************************** - * WINDOW DEFINITIONS - *****************************************************************} - {* Window classes used by CreateWindow *} - {* Note that CopyFromParent is already defined as 0 above *} - LastExtensionError = 255; - InputOutput = 1; - {* Window attributes for CreateWindow and ChangeWindowAttributes *} - InputOnly = 2; - CWBackPixmap = (1) shl (0); - CWBackPixel = (1) shl (1); - CWBorderPixmap = (1) shl (2); - CWBorderPixel = (1) shl (3); - CWBitGravity = (1) shl (4); - CWWinGravity = (1) shl (5); - CWBackingStore = (1) shl (6); - CWBackingPlanes = (1) shl (7); - CWBackingPixel = (1) shl (8); - CWOverrideRedirect = (1) shl (9); - CWSaveUnder = (1) shl (10); - CWEventMask = (1) shl (11); - CWDontPropagate = (1) shl (12); - CWColormap = (1) shl (13); - {* ConfigureWindow structure *} - CWCursor = (1) shl (14); - CWX = (1) shl (0); - CWY = (1) shl (1); - CWWidth = (1) shl (2); - CWHeight = (1) shl (3); - CWBorderWidth = (1) shl (4); - CWSibling = (1) shl (5); - {* Bit Gravity *} - CWStackMode = (1) shl (6); - ForgetGravity = 0; - NorthWestGravity = 1; - NorthGravity = 2; - NorthEastGravity = 3; - WestGravity = 4; - CenterGravity = 5; - EastGravity = 6; - SouthWestGravity = 7; - SouthGravity = 8; - SouthEastGravity = 9; - {* Window gravity + bit gravity above *} - StaticGravity = 10; - {* Used in CreateWindow for backing-store hint *} - UnmapGravity = 0; - NotUseful = 0; - WhenMapped = 1; - {* Used in GetWindowAttributes reply *} - Always = 2; - IsUnmapped = 0; - IsUnviewable = 1; - {* Used in ChangeSaveSet *} - IsViewable = 2; - SetModeInsert = 0; - {* Used in ChangeCloseDownMode *} - SetModeDelete = 1; - DestroyAll = 0; - RetainPermanent = 1; - {* Window stacking method (in configureWindow) *} - RetainTemporary = 2; - Above = 0; - Below = 1; - TopIf = 2; - BottomIf = 3; - {* Circulation direction *} - Opposite = 4; - RaiseLowest = 0; - {* Property modes *} - LowerHighest = 1; - PropModeReplace = 0; - PropModePrepend = 1; - {***************************************************************** - * GRAPHICS DEFINITIONS - *****************************************************************} - {* graphics functions, as in GC.alu *} - PropModeAppend = 2; - {* 0 *} - GXclear = $0; - {* src AND dst *} - GXand = $1; - {* src AND NOT dst *} - GXandReverse = $2; - {* src *} - GXcopy = $3; - {* NOT src AND dst *} - GXandInverted = $4; - {* dst *} - GXnoop = $5; - {* src XOR dst *} - GXxor = $6; - {* src OR dst *} - GXor = $7; - {* NOT src AND NOT dst *} - GXnor = $8; - {* NOT src XOR dst *} - GXequiv = $9; - {* NOT dst *} - GXinvert = $a; - {* src OR NOT dst *} - GXorReverse = $b; - {* NOT src *} - GXcopyInverted = $c; - {* NOT src OR dst *} - GXorInverted = $d; - {* NOT src OR NOT dst *} - GXnand = $e; - {* 1 *} - {* LineStyle *} - GXset = $f; - LineSolid = 0; - LineOnOffDash = 1; - {* capStyle *} - LineDoubleDash = 2; - CapNotLast = 0; - CapButt = 1; - CapRound = 2; - {* joinStyle *} - CapProjecting = 3; - JoinMiter = 0; - JoinRound = 1; - {* fillStyle *} - JoinBevel = 2; - FillSolid = 0; - FillTiled = 1; - FillStippled = 2; - {* fillRule *} - FillOpaqueStippled = 3; - EvenOddRule = 0; - {* subwindow mode *} - WindingRule = 1; - ClipByChildren = 0; - {* SetClipRectangles ordering *} - IncludeInferiors = 1; - Unsorted = 0; - YSorted = 1; - YXSorted = 2; - {* CoordinateMode for drawing routines *} - YXBanded = 3; - {* relative to the origin *} - CoordModeOrigin = 0; - {* relative to previous point *} - {* Polygon shapes *} - CoordModePrevious = 1; - {* paths may intersect *} - Complex = 0; - {* no paths intersect, but not convex *} - Nonconvex = 1; - {* wholly convex *} - {* Arc modes for PolyFillArc *} - Convex = 2; - {* join endpoints of arc *} - ArcChord = 0; - {* join endpoints to center of arc *} - {* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into - GC.stateChanges *} - ArcPieSlice = 1; - GCFunction = (1) shl (0); - GCPlaneMask = (1) shl (1); - GCForeground = (1) shl (2); - GCBackground = (1) shl (3); - GCLineWidth = (1) shl (4); - GCLineStyle = (1) shl (5); - GCCapStyle = (1) shl (6); - GCJoinStyle = (1) shl (7); - GCFillStyle = (1) shl (8); - GCFillRule = (1) shl (9); - GCTile = (1) shl (10); - GCStipple = (1) shl (11); - GCTileStipXOrigin = (1) shl (12); - GCTileStipYOrigin = (1) shl (13); - GCFont = (1) shl (14); - GCSubwindowMode = (1) shl (15); - GCGraphicsExposures = (1) shl (16); - GCClipXOrigin = (1) shl (17); - GCClipYOrigin = (1) shl (18); - GCClipMask = (1) shl (19); - GCDashOffset = (1) shl (20); - GCDashList = (1) shl (21); - GCArcMode = (1) shl (22); - {***************************************************************** - * FONTS - *****************************************************************} - {* used in QueryFont -- draw direction *} - GCLastBit = 22; - FontLeftToRight = 0; - FontRightToLeft = 1; - {***************************************************************** - * IMAGING - *****************************************************************} - {* ImageFormat -- PutImage, GetImage *} - FontChange = 255; - {* depth 1, XYFormat *} - XYBitmap = 0; - {* depth == drawable depth *} - XYPixmap = 1; - {* depth == drawable depth *} - {***************************************************************** - * COLOR MAP STUFF - *****************************************************************} - {* For CreateColormap *} - ZPixmap = 2; - {* create map with no entries *} - AllocNone = 0; - {* allocate entire map writeable *} - {* Flags used in StoreNamedColor, StoreColors *} - AllocAll = 1; - DoRed = (1) shl (0); - DoGreen = (1) shl (1); - {***************************************************************** - * CURSOR STUFF - *****************************************************************} - {* QueryBestSize Class *} - DoBlue = (1) shl (2); - {* largest size that can be displayed *} - CursorShape = 0; - {* size tiled fastest *} - TileShape = 1; - {* size stippled fastest *} - {***************************************************************** - * KEYBOARD/POINTER STUFF - *****************************************************************} - StippleShape = 2; - AutoRepeatModeOff = 0; - AutoRepeatModeOn = 1; - AutoRepeatModeDefault = 2; - LedModeOff = 0; - {* masks for ChangeKeyboardControl *} - LedModeOn = 1; - KBKeyClickPercent = (1) shl (0); - KBBellPercent = (1) shl (1); - KBBellPitch = (1) shl (2); - KBBellDuration = (1) shl (3); - KBLed = (1) shl (4); - KBLedMode = (1) shl (5); - KBKey = (1) shl (6); - KBAutoRepeatMode = (1) shl (7); - MappingSuccess = 0; - MappingBusy = 1; - MappingFailed = 2; - MappingModifier = 0; - MappingKeyboard = 1; - {***************************************************************** - * SCREEN SAVER STUFF - *****************************************************************} - MappingPointer = 2; - DontPreferBlanking = 0; - PreferBlanking = 1; - DefaultBlanking = 2; - DisableScreenSaver = 0; - DisableScreenInterval = 0; - DontAllowExposures = 0; - AllowExposures = 1; - {* for ForceScreenSaver *} - DefaultExposures = 2; - ScreenSaverReset = 0; - {***************************************************************** - * HOSTS AND CONNECTIONS - *****************************************************************} - {* for ChangeHosts *} - ScreenSaverActive = 1; - HostInsert = 0; - {* for ChangeAccessControl *} - HostDelete = 1; - EnableAccess = 1; - {* Display classes used in opening the connection - * Note that the statically allocated ones are even numbered and the - * dynamically changeable ones are odd numbered *} - DisableAccess = 0; - StaticGray = 0; - GrayScale = 1; - StaticColor = 2; - PseudoColor = 3; - TrueColor = 4; - {* Byte order used in imageByteOrder and bitmapBitOrder *} - DirectColor = 5; - LSBFirst = 0; - MSBFirst = 1; +const + X_PROTOCOL = 11; + X_PROTOCOL_REVISION = 0; +type - { Pointer Declarations } + PXID = ^TXID; + TXID = dword; + + PMask = ^TMask; + TMask = dword; + + PPAtom = ^PAtom; + PAtom = ^TAtom; + TAtom = dword; + + PVisualID = ^TVisualID; + TVisualID = dword; + + PTime = ^TTime; + TTime = dword; + + PPWindow = ^PWindow; + PWindow = ^TWindow; + TWindow = TXID; + + PDrawable = ^TDrawable; + TDrawable = TXID; + + PFont = ^TFont; + TFont = TXID; + + PPixmap = ^TPixmap; + TPixmap = TXID; + + PCursor = ^TCursor; + TCursor = TXID; + + PColormap = ^TColormap; + TColormap = TXID; + + PGContext = ^TGContext; + TGContext = TXID; + + PKeySym = ^TKeySym; + TKeySym = TXID; + + PKeyCode = ^TKeyCode; + TKeyCode = byte; + +const + None = 0; + ParentRelative = 1; + CopyFromParent = 0; + PointerWindow = 0; + InputFocus = 1; + PointerRoot = 1; + AnyPropertyType = 0; + AnyKey = 0; + AnyButton = 0; + AllTemporary = 0; + CurrentTime = 0; + NoSymbol = 0; + NoEventMask = 0; + KeyPressMask = 1 shl 0; + KeyReleaseMask = 1 shl 1; + ButtonPressMask = 1 shl 2; + ButtonReleaseMask = 1 shl 3; + EnterWindowMask = 1 shl 4; + LeaveWindowMask = 1 shl 5; + PointerMotionMask = 1 shl 6; + PointerMotionHintMask = 1 shl 7; + Button1MotionMask = 1 shl 8; + Button2MotionMask = 1 shl 9; + Button3MotionMask = 1 shl 10; + Button4MotionMask = 1 shl 11; + Button5MotionMask = 1 shl 12; + ButtonMotionMask = 1 shl 13; + KeymapStateMask = 1 shl 14; + ExposureMask = 1 shl 15; + VisibilityChangeMask = 1 shl 16; + StructureNotifyMask = 1 shl 17; + ResizeRedirectMask = 1 shl 18; + SubstructureNotifyMask = 1 shl 19; + SubstructureRedirectMask = 1 shl 20; + FocusChangeMask = 1 shl 21; + PropertyChangeMask = 1 shl 22; + ColormapChangeMask = 1 shl 23; + OwnerGrabButtonMask = 1 shl 24; + KeyPress = 2; + KeyRelease = 3; + ButtonPress = 4; + ButtonRelease = 5; + MotionNotify = 6; + EnterNotify = 7; + LeaveNotify = 8; + FocusIn = 9; + FocusOut = 10; + KeymapNotify = 11; + Expose = 12; + GraphicsExpose = 13; + NoExpose = 14; + VisibilityNotify = 15; + CreateNotify = 16; + DestroyNotify = 17; + UnmapNotify = 18; + MapNotify = 19; + MapRequest = 20; + ReparentNotify = 21; + ConfigureNotify = 22; + ConfigureRequest = 23; + GravityNotify = 24; + ResizeRequest = 25; + CirculateNotify = 26; + CirculateRequest = 27; + PropertyNotify = 28; + SelectionClear = 29; + SelectionRequest = 30; + SelectionNotify = 31; + ColormapNotify = 32; + ClientMessage = 33; + MappingNotify = 34; + LASTEvent = 35; + ShiftMask = 1 shl 0; + LockMask = 1 shl 1; + ControlMask = 1 shl 2; + Mod1Mask = 1 shl 3; + Mod2Mask = 1 shl 4; + Mod3Mask = 1 shl 5; + Mod4Mask = 1 shl 6; + Mod5Mask = 1 shl 7; + ShiftMapIndex = 0; + LockMapIndex = 1; + ControlMapIndex = 2; + Mod1MapIndex = 3; + Mod2MapIndex = 4; + Mod3MapIndex = 5; + Mod4MapIndex = 6; + Mod5MapIndex = 7; + Button1Mask = 1 shl 8; + Button2Mask = 1 shl 9; + Button3Mask = 1 shl 10; + Button4Mask = 1 shl 11; + Button5Mask = 1 shl 12; + AnyModifier = 1 shl 15; + Button1 = 1; + Button2 = 2; + Button3 = 3; + Button4 = 4; + Button5 = 5; + NotifyNormal = 0; + NotifyGrab = 1; + NotifyUngrab = 2; + NotifyWhileGrabbed = 3; + NotifyHint = 1; + NotifyAncestor = 0; + NotifyVirtual = 1; + NotifyInferior = 2; + NotifyNonlinear = 3; + NotifyNonlinearVirtual = 4; + NotifyPointer = 5; + NotifyPointerRoot = 6; + NotifyDetailNone = 7; + VisibilityUnobscured = 0; + VisibilityPartiallyObscured = 1; + VisibilityFullyObscured = 2; + PlaceOnTop = 0; + PlaceOnBottom = 1; + FamilyInternet = 0; + FamilyDECnet = 1; + FamilyChaos = 2; + PropertyNewValue = 0; + PropertyDelete = 1; + ColormapUninstalled = 0; + ColormapInstalled = 1; + GrabModeSync = 0; + GrabModeAsync = 1; + GrabSuccess = 0; + AlreadyGrabbed = 1; + GrabInvalidTime = 2; + GrabNotViewable = 3; + GrabFrozen = 4; + AsyncPointer = 0; + SyncPointer = 1; + ReplayPointer = 2; + AsyncKeyboard = 3; + SyncKeyboard = 4; + ReplayKeyboard = 5; + AsyncBoth = 6; + SyncBoth = 7; +function RevertToNone : longint; + +function RevertToPointerRoot : longint; + + +const + RevertToParent = 2; + Success = 0; + BadRequest = 1; + BadValue = 2; + BadWindow = 3; + BadPixmap = 4; + BadAtom = 5; + BadCursor = 6; + BadFont = 7; + BadMatch = 8; + BadDrawable = 9; + BadAccess = 10; + BadAlloc = 11; + BadColor = 12; + BadGC = 13; + BadIDChoice = 14; + BadName = 15; + BadLength = 16; + BadImplementation = 17; + FirstExtensionError = 128; + LastExtensionError = 255; + InputOutput = 1; + InputOnly = 2; + CWBackPixmap = 1 shl 0; + CWBackPixel = 1 shl 1; + CWBorderPixmap = 1 shl 2; + CWBorderPixel = 1 shl 3; + CWBitGravity = 1 shl 4; + CWWinGravity = 1 shl 5; + CWBackingStore = 1 shl 6; + CWBackingPlanes = 1 shl 7; + CWBackingPixel = 1 shl 8; + CWOverrideRedirect = 1 shl 9; + CWSaveUnder = 1 shl 10; + CWEventMask = 1 shl 11; + CWDontPropagate = 1 shl 12; + CWColormap = 1 shl 13; + CWCursor = 1 shl 14; + CWX = 1 shl 0; + CWY = 1 shl 1; + CWWidth = 1 shl 2; + CWHeight = 1 shl 3; + CWBorderWidth = 1 shl 4; + CWSibling = 1 shl 5; + CWStackMode = 1 shl 6; + ForgetGravity = 0; + NorthWestGravity = 1; + NorthGravity = 2; + NorthEastGravity = 3; + WestGravity = 4; + CenterGravity = 5; + EastGravity = 6; + SouthWestGravity = 7; + SouthGravity = 8; + SouthEastGravity = 9; + StaticGravity = 10; + UnmapGravity = 0; + NotUseful = 0; + WhenMapped = 1; + Always = 2; + IsUnmapped = 0; + IsUnviewable = 1; + IsViewable = 2; + SetModeInsert = 0; + SetModeDelete = 1; + DestroyAll = 0; + RetainPermanent = 1; + RetainTemporary = 2; + Above = 0; + Below = 1; + TopIf = 2; + BottomIf = 3; + Opposite = 4; + RaiseLowest = 0; + LowerHighest = 1; + PropModeReplace = 0; + PropModePrepend = 1; + PropModeAppend = 2; + GXclear = $0; + GXand = $1; + GXandReverse = $2; + GXcopy = $3; + GXandInverted = $4; + GXnoop = $5; + GXxor = $6; + GXor = $7; + GXnor = $8; + GXequiv = $9; + GXinvert = $a; + GXorReverse = $b; + GXcopyInverted = $c; + GXorInverted = $d; + GXnand = $e; + GXset = $f; + LineSolid = 0; + LineOnOffDash = 1; + LineDoubleDash = 2; + CapNotLast = 0; + CapButt = 1; + CapRound = 2; + CapProjecting = 3; + JoinMiter = 0; + JoinRound = 1; + JoinBevel = 2; + FillSolid = 0; + FillTiled = 1; + FillStippled = 2; + FillOpaqueStippled = 3; + EvenOddRule = 0; + WindingRule = 1; + ClipByChildren = 0; + IncludeInferiors = 1; + Unsorted = 0; + YSorted = 1; + YXSorted = 2; + YXBanded = 3; + CoordModeOrigin = 0; + CoordModePrevious = 1; + Complex = 0; + Nonconvex = 1; + Convex = 2; + ArcChord = 0; + ArcPieSlice = 1; + GCFunction = 1 shl 0; + GCPlaneMask = 1 shl 1; + GCForeground = 1 shl 2; + GCBackground = 1 shl 3; + GCLineWidth = 1 shl 4; + GCLineStyle = 1 shl 5; + GCCapStyle = 1 shl 6; + GCJoinStyle = 1 shl 7; + GCFillStyle = 1 shl 8; + GCFillRule = 1 shl 9; + GCTile = 1 shl 10; + GCStipple = 1 shl 11; + GCTileStipXOrigin = 1 shl 12; + GCTileStipYOrigin = 1 shl 13; + GCFont = 1 shl 14; + GCSubwindowMode = 1 shl 15; + GCGraphicsExposures = 1 shl 16; + GCClipXOrigin = 1 shl 17; + GCClipYOrigin = 1 shl 18; + GCClipMask = 1 shl 19; + GCDashOffset = 1 shl 20; + GCDashList = 1 shl 21; + GCArcMode = 1 shl 22; + GCLastBit = 22; + FontLeftToRight = 0; + FontRightToLeft = 1; + FontChange = 255; + XYBitmap = 0; + XYPixmap = 1; + ZPixmap = 2; + AllocNone = 0; + AllocAll = 1; + DoRed = 1 shl 0; + DoGreen = 1 shl 1; + DoBlue = 1 shl 2; + CursorShape = 0; + TileShape = 1; + StippleShape = 2; + AutoRepeatModeOff = 0; + AutoRepeatModeOn = 1; + AutoRepeatModeDefault = 2; + LedModeOff = 0; + LedModeOn = 1; + KBKeyClickPercent = 1 shl 0; + KBBellPercent = 1 shl 1; + KBBellPitch = 1 shl 2; + KBBellDuration = 1 shl 3; + KBLed = 1 shl 4; + KBLedMode = 1 shl 5; + KBKey = 1 shl 6; + KBAutoRepeatMode = 1 shl 7; + MappingSuccess = 0; + MappingBusy = 1; + MappingFailed = 2; + MappingModifier = 0; + MappingKeyboard = 1; + MappingPointer = 2; + DontPreferBlanking = 0; + PreferBlanking = 1; + DefaultBlanking = 2; + DisableScreenSaver = 0; + DisableScreenInterval = 0; + DontAllowExposures = 0; + AllowExposures = 1; + DefaultExposures = 2; + ScreenSaverReset = 0; + ScreenSaverActive = 1; + HostInsert = 0; + HostDelete = 1; + EnableAccess = 1; + DisableAccess = 0; + StaticGray = 0; + GrayScale = 1; + StaticColor = 2; + PseudoColor = 3; + TrueColor = 4; + DirectColor = 5; + LSBFirst = 0; + MSBFirst = 1; + +implementation + +function RevertToNone : longint; + begin + RevertToNone:=longint(None); + end; + +function RevertToPointerRoot : longint; + begin + RevertToPointerRoot:=longint(PointerRoot); + end; - implementation end. -{ - $Log$ - Revision 1.2 2000-07-13 11:33:33 michael - + removed logs - -} diff --git a/packages/x11/xcms.pp b/packages/x11/xcms.pp new file mode 100644 index 0000000000..904abf5da0 --- /dev/null +++ b/packages/x11/xcms.pp @@ -0,0 +1,371 @@ +unit xcms; +interface +uses + x,xlib; + +{$LinkLib c} +{$LinkLib X11} + +{ + Automatically converted by H2Pas 0.99.15 from xcms.h + The following command line parameters were used: + -p + -T + -S + -d + -c + xcms.h +} + + +{$PACKRECORDS C} + + +const + XcmsFailure = 0; + XcmsSuccess = 1; + XcmsSuccessWithCompression = 2; +type + PXcmsColorFormat = ^TXcmsColorFormat; + TXcmsColorFormat = dword; +function XcmsUndefinedFormat : TXcmsColorFormat; + +function XcmsCIEXYZFormat : TXcmsColorFormat; + +function XcmsCIEuvYFormat : TXcmsColorFormat; + +function XcmsCIExyYFormat : TXcmsColorFormat; + +function XcmsCIELabFormat : TXcmsColorFormat; + +function XcmsCIELuvFormat : TXcmsColorFormat; + +function XcmsTekHVCFormat : TXcmsColorFormat; + +function XcmsRGBFormat : TXcmsColorFormat; + +function XcmsRGBiFormat : TXcmsColorFormat; + + +const + XcmsInitNone = $00; + XcmsInitSuccess = $01; + XcmsInitFailure = $ff; +{$ifdef MACROS} +function DisplayOfCCC(ccc : longint) : longint; + +function ScreenNumberOfCCC(ccc : longint) : longint; + +function VisualOfCCC(ccc : longint) : longint; + +function ClientWhitePointOfCCC(ccc : longint) : longint; + +function ScreenWhitePointOfCCC(ccc : longint) : longint; + +function FunctionSetOfCCC(ccc : longint) : longint; +{$endif MACROS} + +type + + PXcmsFloat = ^TXcmsFloat; + TXcmsFloat = double; + + PXcmsRGB = ^TXcmsRGB; + TXcmsRGB = record + red : word; + green : word; + blue : word; + end; + + PXcmsRGBi = ^TXcmsRGBi; + TXcmsRGBi = record + red : TXcmsFloat; + green : TXcmsFloat; + blue : TXcmsFloat; + end; + + PXcmsCIEXYZ = ^TXcmsCIEXYZ; + TXcmsCIEXYZ = record + X : TXcmsFloat; + Y : TXcmsFloat; + Z : TXcmsFloat; + end; + + PXcmsCIEuvY = ^TXcmsCIEuvY; + TXcmsCIEuvY = record + u_prime : TXcmsFloat; + v_prime : TXcmsFloat; + Y : TXcmsFloat; + end; + + PXcmsCIExyY = ^TXcmsCIExyY; + TXcmsCIExyY = record + x : TXcmsFloat; + y : TXcmsFloat; + _Y : TXcmsFloat; + end; + + PXcmsCIELab = ^TXcmsCIELab; + TXcmsCIELab = record + L_star : TXcmsFloat; + a_star : TXcmsFloat; + b_star : TXcmsFloat; + end; + + PXcmsCIELuv = ^TXcmsCIELuv; + TXcmsCIELuv = record + L_star : TXcmsFloat; + u_star : TXcmsFloat; + v_star : TXcmsFloat; + end; + + PXcmsTekHVC = ^TXcmsTekHVC; + TXcmsTekHVC = record + H : TXcmsFloat; + V : TXcmsFloat; + C : TXcmsFloat; + end; + + PXcmsPad = ^TXcmsPad; + TXcmsPad = record + pad0 : TXcmsFloat; + pad1 : TXcmsFloat; + pad2 : TXcmsFloat; + pad3 : TXcmsFloat; + end; + + PXcmsColor = ^TXcmsColor; + TXcmsColor = record + spec : record + case longint of + 0 : ( RGB : TXcmsRGB ); + 1 : ( RGBi : TXcmsRGBi ); + 2 : ( CIEXYZ : TXcmsCIEXYZ ); + 3 : ( CIEuvY : TXcmsCIEuvY ); + 4 : ( CIExyY : TXcmsCIExyY ); + 5 : ( CIELab : TXcmsCIELab ); + 6 : ( CIELuv : TXcmsCIELuv ); + 7 : ( TekHVC : TXcmsTekHVC ); + 8 : ( Pad : TXcmsPad ); + end; + pixel : dword; + format : TXcmsColorFormat; + end; + + PXcmsPerScrnInfo = ^TXcmsPerScrnInfo; + TXcmsPerScrnInfo = record + screenWhitePt : TXcmsColor; + functionSet : TXPointer; + screenData : TXPointer; + state : byte; + pad : array[0..2] of char; + end; + + PXcmsCCC = ^TXcmsCCC; + + TXcmsCompressionProc = function (para1:PXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl; + + TXcmsWhiteAdjustProc = function (para1:PXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor; + para6:dword; para7:PBool):TStatus;cdecl; + + TXcmsCCC = record + dpy : PDisplay; + screenNumber : longint; + visual : PVisual; + clientWhitePt : TXcmsColor; + gamutCompProc : TXcmsCompressionProc; + gamutCompClientData : TXPointer; + whitePtAdjProc : TXcmsWhiteAdjustProc; + whitePtAdjClientData : TXPointer; + pPerScrnInfo : PXcmsPerScrnInfo; + end; + TXcmsCCCRec = TXcmsCCC; + PXcmsCCCRec = ^TXcmsCCCRec; + + TXcmsScreenInitProc = function (para1:PDisplay; para2:longint; para3:PXcmsPerScrnInfo):TStatus;cdecl; + + TXcmsScreenFreeProc = procedure (para1:TXPointer);cdecl; + + TXcmsConversionProc = procedure;cdecl; + + PXcmsFuncListPtr = ^TXcmsFuncListPtr; + TXcmsFuncListPtr = TXcmsConversionProc; + + TXcmsParseStringProc = function (para1:Pchar; para2:PXcmsColor):longint;cdecl; + + PXcmsColorSpace = ^TXcmsColorSpace; + TXcmsColorSpace = record + prefix : Pchar; + id : TXcmsColorFormat; + parseString : TXcmsParseStringProc; + to_CIEXYZ : TXcmsFuncListPtr; + from_CIEXYZ : TXcmsFuncListPtr; + inverse_flag : longint; + end; + + PXcmsFunctionSet = ^TXcmsFunctionSet; + TXcmsFunctionSet = record + DDColorSpaces : ^PXcmsColorSpace; + screenInitProc : TXcmsScreenInitProc; + screenFreeProc : TXcmsScreenFreeProc; + end; +(* error +extern Status XcmsAddColorSpace ( +in declaration at line 323 *) + +function XcmsAddFunctionSet(para1:PXcmsFunctionSet):TStatus;cdecl;external; +function XcmsAllocColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:TXcmsColorFormat):TStatus;cdecl;external; +function XcmsAllocNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXcmsColor; para5:PXcmsColor; + para6:TXcmsColorFormat):TStatus;cdecl;external; +function XcmsCCCOfColormap(para1:PDisplay; para2:TColormap):TXcmsCCC;cdecl;external; +function XcmsCIELabClipab(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsCIELabClipL(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsCIELabClipLab(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsCIELabQueryMaxC(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external; +function XcmsCIELabQueryMaxL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external; +function XcmsCIELabQueryMaxLC(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor):TStatus;cdecl;external; +function XcmsCIELabQueryMinL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external; +function XcmsCIELabToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsCIELabWhiteShiftColors(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor; + para6:dword; para7:PBool):TStatus;cdecl;external; +function XcmsCIELuvClipL(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsCIELuvClipLuv(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsCIELuvClipuv(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsCIELuvQueryMaxC(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external; +function XcmsCIELuvQueryMaxL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external; +function XcmsCIELuvQueryMaxLC(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor):TStatus;cdecl;external; +function XcmsCIELuvQueryMinL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external; +function XcmsCIELuvToCIEuvY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsCIELuvWhiteShiftColors(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor; + para6:dword; para7:PBool):TStatus;cdecl;external; +function XcmsCIEXYZToCIELab(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsCIEXYZToCIEuvY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsCIEXYZToCIExyY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsCIEXYZToRGBi(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external; +function XcmsCIEuvYToCIELuv(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsCIEuvYToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsCIEuvYToTekHVC(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsCIExyYToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsClientWhitePointOfCCC(para1:TXcmsCCC):PXcmsColor;cdecl;external; +function XcmsConvertColors(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:TXcmsColorFormat; para5:PBool):TStatus;cdecl;external; +function XcmsCreateCCC(para1:PDisplay; para2:longint; para3:PVisual; para4:PXcmsColor; para5:TXcmsCompressionProc; + para6:TXPointer; para7:TXcmsWhiteAdjustProc; para8:TXPointer):TXcmsCCC;cdecl;external; +function XcmsDefaultCCC(para1:PDisplay; para2:longint):TXcmsCCC;cdecl;external; +function XcmsDisplayOfCCC(para1:TXcmsCCC):PDisplay;cdecl;external; +function XcmsFormatOfPrefix(para1:Pchar):TXcmsColorFormat;cdecl;external; +procedure XcmsFreeCCC(para1:TXcmsCCC);cdecl;external; +function XcmsLookupColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXcmsColor; para5:PXcmsColor; + para6:TXcmsColorFormat):TStatus;cdecl;external; +function XcmsPrefixOfFormat(para1:TXcmsColorFormat):Pchar;cdecl;external; +function XcmsQueryBlack(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external; +function XcmsQueryBlue(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external; +function XcmsQueryColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:TXcmsColorFormat):TStatus;cdecl;external; +function XcmsQueryColors(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:dword; para5:TXcmsColorFormat):TStatus;cdecl;external; +function XcmsQueryGreen(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external; +function XcmsQueryRed(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external; +function XcmsQueryWhite(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external; +function XcmsRGBiToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external; +function XcmsRGBiToRGB(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external; +function XcmsRGBToRGBi(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external; +function XcmsScreenNumberOfCCC(para1:TXcmsCCC):longint;cdecl;external; +function XcmsScreenWhitePointOfCCC(para1:TXcmsCCC):PXcmsColor;cdecl;external; +function XcmsSetCCCOfColormap(para1:PDisplay; para2:TColormap; para3:TXcmsCCC):TXcmsCCC;cdecl;external; +function XcmsSetCompressionProc(para1:TXcmsCCC; para2:TXcmsCompressionProc; para3:TXPointer):TXcmsCompressionProc;cdecl;external; +function XcmsSetWhiteAdjustProc(para1:TXcmsCCC; para2:TXcmsWhiteAdjustProc; para3:TXPointer):TXcmsWhiteAdjustProc;cdecl;external; +function XcmsSetWhitePoint(para1:TXcmsCCC; para2:PXcmsColor):TStatus;cdecl;external; +function XcmsStoreColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor):TStatus;cdecl;external; +function XcmsStoreColors(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsTekHVCClipC(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsTekHVCClipV(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsTekHVCClipVC(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external; +function XcmsTekHVCQueryMaxC(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external; +function XcmsTekHVCQueryMaxV(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external; +function XcmsTekHVCQueryMaxVC(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor):TStatus;cdecl;external; +function XcmsTekHVCQueryMaxVSamples(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsTekHVCQueryMinV(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external; +function XcmsTekHVCToCIEuvY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external; +function XcmsTekHVCWhiteShiftColors(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor; + para6:dword; para7:PBool):TStatus;cdecl;external; +function XcmsVisualOfCCC(para1:TXcmsCCC):PVisual;cdecl;external; + + +implementation + +function XcmsUndefinedFormat : TXcmsColorFormat; + begin + XcmsUndefinedFormat:=TXcmsColorFormat($00000000); + end; + +function XcmsCIEXYZFormat : TXcmsColorFormat; + begin + XcmsCIEXYZFormat:=TXcmsColorFormat($00000001); + end; + +function XcmsCIEuvYFormat : TXcmsColorFormat; + begin + XcmsCIEuvYFormat:=TXcmsColorFormat($00000002); + end; + +function XcmsCIExyYFormat : TXcmsColorFormat; + begin + XcmsCIExyYFormat:=TXcmsColorFormat($00000003); + end; + +function XcmsCIELabFormat : TXcmsColorFormat; + begin + XcmsCIELabFormat:=TXcmsColorFormat($00000004); + end; + +function XcmsCIELuvFormat : TXcmsColorFormat; + begin + XcmsCIELuvFormat:=TXcmsColorFormat($00000005); + end; + +function XcmsTekHVCFormat : TXcmsColorFormat; + begin + XcmsTekHVCFormat:=TXcmsColorFormat($00000006); + end; + +function XcmsRGBFormat : TXcmsColorFormat; + begin + XcmsRGBFormat:=TXcmsColorFormat($80000000); + end; + +function XcmsRGBiFormat : TXcmsColorFormat; + begin + XcmsRGBiFormat:=TXcmsColorFormat($80000001); + end; + +{$ifdef MACROS} +function DisplayOfCCC(ccc : longint) : longint; +begin + DisplayOfCCC:=ccc^.dpy; +end; + +function ScreenNumberOfCCC(ccc : longint) : longint; +begin + ScreenNumberOfCCC:=ccc^.screenNumber; +end; + +function VisualOfCCC(ccc : longint) : longint; +begin + VisualOfCCC:=ccc^.visual; +end; + +function ClientWhitePointOfCCC(ccc : longint) : longint; +begin + ClientWhitePointOfCCC:=@(ccc^.clientWhitePt); +end; + +function ScreenWhitePointOfCCC(ccc : longint) : longint; +begin + ScreenWhitePointOfCCC:=@(ccc^.(pPerScrnInfo^.screenWhitePt)); +end; + +function FunctionSetOfCCC(ccc : longint) : longint; +begin + FunctionSetOfCCC:=ccc^.(pPerScrnInfo^.functionSet); +end; +{$endif MACROS} + +end. diff --git a/packages/x11/xlib.pp b/packages/x11/xlib.pp index 64819a40a3..8dd65326d5 100644 --- a/packages/x11/xlib.pp +++ b/packages/x11/xlib.pp @@ -1,1747 +1,2134 @@ -{ - $Id$ -} unit xlib; interface - -{ Changes after conversion from Xlib.h marked MVC -- Michael Van Canneyt - Removed many many comments. - Including copyright. should be pasted in again. MVC } - -uses X; +uses + x; {$LinkLib c} {$LinkLib X11} - type - TXPointer = ^char; - TBool = LongBool; - PBool = ^TBool; - TStatus = Longint; { Also a choice. MVC } - { Some pointers : } - pppchar = ^ppchar; - ppwindow = ^pwindow; - Twchar_t = cardinal; - Pwchar_t = ^Twchar_t; - Pstatus = ^TStatus; - PXPointer = ^TXPointer; - Plongint = ^Longint; - PPLOngint = ^Plongint; - - const - { - Removed, standard in Pascal - MVC - True = 1; - False = 0; + Automatically converted by H2Pas 0.99.15 from xlib.h + The following command line parameters were used: + -p + -T + -S + -d + -c + xlib.h } - QueuedAlready = 0; - QueuedAfterReading = 1; - { !!!!! - #define ConnectionNumber(dpy) (((_XPrivDisplay)dpy)->fd) - #define RootWindow(dpy, scr) (ScreenOfDisplay(dpy,scr)->root) - #define DefaultScreen(dpy) (((_XPrivDisplay)dpy)->default_screen) - #define DefaultRootWindow(dpy) (ScreenOfDisplay(dpy,DefaultScreen(dpy))->root) - #define DefaultVisual(dpy, scr) (ScreenOfDisplay(dpy,scr)->root_visual) - #define DefaultGC(dpy, scr) (ScreenOfDisplay(dpy,scr)->default_gc) - #define BlackPixel(dpy, scr) (ScreenOfDisplay(dpy,scr)->black_pixel) - #define WhitePixel(dpy, scr) (ScreenOfDisplay(dpy,scr)->white_pixel) - #define AllPlanes ((unsigned long)~0L) - #define QLength(dpy) (((_XPrivDisplay)dpy)->qlen) - #define DisplayWidth(dpy, scr) (ScreenOfDisplay(dpy,scr)->width) - #define DisplayHeight(dpy, scr) (ScreenOfDisplay(dpy,scr)->height) - #define DisplayWidthMM(dpy, scr)(ScreenOfDisplay(dpy,scr)->mwidth) - #define DisplayHeightMM(dpy, scr)(ScreenOfDisplay(dpy,scr)->mheight) - #define DisplayPlanes(dpy, scr) (ScreenOfDisplay(dpy,scr)->root_depth) - #define DisplayCells(dpy, scr) (DefaultVisual(dpy,scr)->map_entries) - #define ScreenCount(dpy) (((_XPrivDisplay)dpy)->nscreens) - #define ServerVendor(dpy) (((_XPrivDisplay)dpy)->vendor) - #define ProtocolVersion(dpy) (((_XPrivDisplay)dpy)->proto_major_version) - #define ProtocolRevision(dpy) (((_XPrivDisplay)dpy)->proto_minor_version) - #define VendorRelease(dpy) (((_XPrivDisplay)dpy)->release) - #define DisplayString(dpy) (((_XPrivDisplay)dpy)->display_name) - #define DefaultDepth(dpy, scr) (ScreenOfDisplay(dpy,scr)->root_depth) - #define DefaultColormap(dpy, scr)(ScreenOfDisplay(dpy,scr)->cmap) - #define BitmapUnit(dpy) (((_XPrivDisplay)dpy)->bitmap_unit) - #define BitmapBitOrder(dpy) (((_XPrivDisplay)dpy)->bitmap_bit_order) - #define BitmapPad(dpy) (((_XPrivDisplay)dpy)->bitmap_pad) - #define ImageByteOrder(dpy) (((_XPrivDisplay)dpy)->byte_order) - - #ifdef CRAY /* unable to get WORD64 without pulling in other symbols - #define NextRequest(dpy) XNextRequest(dpy) - #else - #define NextRequest(dpy) (((_XPrivDisplay)dpy)->request + 1) - #endif - #define LastKnownRequestProcessed(dpy) (((_XPrivDisplay)dpy)->last_request_read) - - /* macros for screen oriented applications (toolkit) - - #define ScreenOfDisplay(dpy, scr)(&((_XPrivDisplay)dpy)->screens[scr]) - #define DefaultScreenOfDisplay(dpy) ScreenOfDisplay(dpy,DefaultScreen(dpy)) - #define DisplayOfScreen(s) ((s)->display) - #define RootWindowOfScreen(s) ((s)->root) - #define BlackPixelOfScreen(s) ((s)->black_pixel) - #define WhitePixelOfScreen(s) ((s)->white_pixel) - #define DefaultColormapOfScreen(s)((s)->cmap) - #define DefaultDepthOfScreen(s) ((s)->root_depth) - #define DefaultGCOfScreen(s) ((s)->default_gc) - #define DefaultVisualOfScreen(s)((s)->root_visual) - #define WidthOfScreen(s) ((s)->width) - #define HeightOfScreen(s) ((s)->height) - #define WidthMMOfScreen(s) ((s)->mwidth) - #define HeightMMOfScreen(s) ((s)->mheight) - #define PlanesOfScreen(s) ((s)->root_depth) - #define CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) - #define MinCmapsOfScreen(s) ((s)->min_maps) - #define MaxCmapsOfScreen(s) ((s)->max_maps) - #define DoesSaveUnders(s) ((s)->save_unders) - #define DoesBackingStore(s) ((s)->backing_store) - #define EventMaskOfScreen(s) ((s)->root_input_mask) - } - { - * Extensions need a way to hang private data on some structures. - } - QueuedAfterFlush = 2; - { number returned by XRegisterExtension } - { next item on list of data for structure } - { !!!!! - int (*free_private)(); /* called to free private storage } - { data private to this extension. } - - type - { Added this for functions at the end. } - PCardinal = ^Cardinal; - - PDisplay=^TDisplay; +{$PACKRECORDS C} - PXExtData = ^TXExtData ; - PPXExtData = ^PXExtData ; - { Put this in to accomodate for the next in the following record. MVC} - TXExtData = record - number : longint; - next : PXExtData; { incorrectly converted. MVC } - private_data : TXPointer; - end; - TXExtCodes = record - extension : longint; - major_opcode : longint; - first_event : longint; - first_error : longint; - end; - PXExtCodes = ^TXExtCodes; - { - * Data structure for retrieving info about pixmap formats. - } - TXPixmapFormatValues = record - depth : longint; - bits_per_pixel : longint; - scanline_pad : longint; - end; - PXPixmapFormatValues = ^TXPixmapFormatValues; - TXGCValues = record - Xfunction : longint; { Renamed function to Xfunction } - plane_mask : cardinal; - foreground : cardinal; - background : cardinal; - 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; - { This was Bool - error in converter ? MVC} - clip_x_origin : longint; - clip_y_origin : longint; - clip_mask : TPixmap; - dash_offset : longint; - dashes : char; - end; - PXGCValues = ^TXGCValues; - { The GC got defined as GC = ^record - probably from *struct, so I - defined a GCrecord. MVC. } - TGC = ^TGCrecord; - TGCrecord = record - ext_data : PXExtData; - gid : TGContext; - end; - { - * Visual structure; contains information about colormapping possible. - } - TVisual = record - ext_data : PXExtData; - visualid : TVisualID; - c_class : longint; - red_mask : cardinal; - green_mask : cardinal; - blue_mask : cardinal; - bits_per_rgb : longint; - map_entries : longint; - end; - PVisual = ^TVisual; - { - * Depth structure; contains information for each possible depth. - } - TDepth = record - depth : longint; - nvisuals : longint; - visuals : PVisual; - end; - PDepth=^TDepth; - { - * Information about the screen. The contents of this structure are - * implementation dependent. A Screen should be treated as opaque - * by application code. - } - { - struct _XDisplay; Forward declare before use for C++ - } - { Defined this, needed for the display field in the following. - Should be a pointer to the previous _Xdisplay... MVC} - p_XDisplay = pointer; - TScreen = record - ext_data : PXExtData; - display : p_XDisplay; - 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 : cardinal; - black_pixel : cardinal; - max_maps : longint; - min_maps : longint; - backing_store : longint; - save_unders : TBool; - root_input_mask : longint; - end; - PScreen = ^TScreen; - { - * Format structure; describes ZFormat data the screen will understand. - } - TScreenFormat = record - ext_data : PXExtData; - depth : longint; - bits_per_pixel : longint; - scanline_pad : longint; - end; - PScreenFormat=^TScreenFormat; - { - * Data structure for setting window attributes. - } - TXSetWindowAttributes = record - background_pixmap : TPixmap; - background_pixel : cardinal; - border_pixmap : TPixmap; - border_pixel : cardinal; - bit_gravity : longint; - win_gravity : longint; - backing_store : longint; - backing_planes : cardinal; - backing_pixel : cardinal; - save_under : TBool; - event_mask : longint; - do_not_propagate_mask : longint; - override_redirect : TBool; - colormap : TColormap; - cursor : TCursor; - end; - PXSetWindowAttributes = ^TXSetWindowAttributes; - TXWindowAttributes = record - x : longint; - y : longint; - width : longint; - height : longint; - border_width : longint; - depth : longint; - visual : PVisual; - root : TWindow; - c_class : longint; - classes : longint; { Renamed from class. MVC} - bit_gravity : longint; - win_gravity : longint; - backing_store : longint; - backing_planes : cardinal; - backing_pixel : cardinal; - 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; - PXWindowAttributes = ^TXWindowAttributes; - { - * Data structure for host setting; getting routines. - * - } - TXHostAddress = record - family : longint; - length : longint; - address : pchar; - end; - PXHostAddress = ^TXHostAddress ; - { - * Data structure for "image" data, used by image manipulation routines. - } - PXImage = ^TXImage; +const + XlibSpecificationRelease = 6; +type - TXImageFunctions = record - create_image: function(display: PDisplay; visual: PVisual; - depth: Cardinal; format, offset: LongInt; data: PChar; - width, height: Cardinal; - bitmap_pad, bytes_per_line: Cardinal): PXImage; cdecl; - destroy_image: function(image: PXImage): LongInt; cdecl; - get_pixel: function(image: PXImage; x, y: LongInt): LongInt; cdecl; - put_pixel: function(image: PXImage; x, y: LongInt; - color: Cardinal): LongInt; cdecl; - sub_image: function(image: PXImage; x, y: LongInt; - w, h: Cardinal): PXImage; cdecl; - add_pixel: function(image: PXImage; value: LongInt): LongInt; - end; + PXPointer = ^TXPointer; + TXPointer = char; + PBool = ^TBool; + TBool = longint; + PStatus = ^TStatus; + TStatus = longint; - 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 : cardinal; - green_mask : cardinal; - blue_mask : cardinal; - obdata : TXPointer; - f : TXImageFunctions - end; - { - * Data structure for XReconfigureWindow - } - TXWindowChanges = record - x : longint; - y : longint; - width : longint; - height : longint; - border_width : longint; - sibling : TWindow; - stack_mode : longint; - end; - PXWindowChanges = ^TXWindowChanges; - { - * Data structure used by color operations - } - { do_red, do_green, do_blue } - TXColor = record - pixel : cardinal; - red : word; - green : word; - blue : word; - flags : char; - pad : char; - end; - PXColor = ^TXColor; - { - * Data structures for graphics operations. On most machines, these are - * congruent with the wire protocol structures, so reformatting the data - * can be avoided on these architectures. - } - TXSegment = record - x1 : integer; - y1 : integer; - x2 : integer; - y2 : integer; - end; - PXSegment = ^TXSegment; - TXPoint = record - x : integer; - y : integer; - end; - PXPoint = ^TXPoint; - TXRectangle = record - x : integer; - y : integer; - width : word; - height : word; - end; - PXRectangle = ^TXRectangle; - TXArc = record - x : integer; - y : integer; - width : word; - height : word; - angle1 : integer; - angle2 : integer; - end; - PXarc = ^TXarc; - { Data structure for XChangeKeyboardControl } - { On, Off, Default } - 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; - PXKeyboardControl = ^TXKeyboardControl; - { Data structure for XGetKeyboardControl } - TXKeyboardState = record - key_click_percent : longint; - bell_percent : longint; - bell_pitch : cardinal; - bell_duration : cardinal; - led_mask : cardinal; - global_auto_repeat : longint; - auto_repeats : array[0..(32)-1] of char; - end; - PXKeyboardState = ^TXKeyboardState; - { Data structure for XGetMotionEvents. } - TXTimeCoord = record - time : TTime; - x : integer; - y : integer; - end; - PXTimeCoord = ^TXTimeCoord; - { Data structure for X[Set,Get]ModifierMapping } - { The server's max # of keys per modifier } - { An 8 by max_keypermod array of modifiers } - TXModifierKeymap = record - max_keypermod : longint; - modifiermap : PKeyCode; - end; - PXModifierKeymap = ^TXModifierKeymap; - { - * Display datatype maintaining display specific data. - * The contents of this structure are implementation dependent. - * A Display should be treated as opaque by application code. - } - { I commented the following. It is a complete mess in the XLib.h !! - MVC - Display = Display; - } - { - struct _XPrivate; /* Forward declare before use for C++ - struct _XrmHashBucketRec; - } - TDisplay = record - ext_data : PXExtData; - private1 : pointer ; { Should be to a _Xprivate struct. MVC } - 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 : 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 : pointer ; { Both of them to a _XPRivate struct. MVC} - private10 : pointer ; - qlen : longint; - last_request_read : cardinal; - request : cardinal; - private11 : TXPointer; - private12 : TXPointer; - private13 : TXPointer; - private14 : TXPointer; - max_request_size : cardinal; - db : pointer; { To a _XrmHashBucketRec struct. MVC } - private15 : Function : longint; cdecl; - display_name : pchar; - default_screen : longint; - nscreens : longint; - screens : PScreen; - motion_buffer : cardinal; - private16 : cardinal; - min_keycode : longint; - max_keycode : longint; - private17 : TXPointer; - private18 : TXPointer; - private19 : longint; - xdefaults : pchar; - end; - { - * Definitions of specific events. - } - { !! Changed all 'type' definitions to 'eventttype' MVC } - { !! Changed al display definitions to 'whatdisplay' MVC } - { !! Idem dito for window,time,property !!} - TXKeyEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - root : TWindow; - subwindow : TWindow; - time : TTime; - x : longint; - y : longint; - x_root : longint; - y_root : longint; - state : cardinal; - keycode : cardinal; - same_screen : TBool; - end; - PXKeyEvent =^TXKeyEvent; - TXKeyPressedEvent = TXKeyEvent; - PXKeyPressedEvent= ^TXKeyPressedEvent; - TXKeyReleasedEvent = TXKeyEvent; - PXKeyReleasedEvent= ^TXKeyReleasedEvent; - TXButtonEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - root : TWindow; - subwindow : TWindow; - time : TTime; - x : longint; - y : longint; - x_root : longint; - y_root : longint; - state : cardinal; - button : cardinal; - same_screen : TBool; - end; - PXButtonEvent = ^TXButtonEvent; - TXButtonPressedEvent = TXButtonEvent; - PXButtonPressedEvent = ^TXButtonPressedEvent; - TXButtonReleasedEvent = TXButtonEvent; - PXButtonReleasedEvent = ^TXButtonReleasedEvent; - TXMotionEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - root : TWindow; - subwindow : TWindow; - time : TTime; - x : longint; - y : longint; - x_root : longint; - y_root : longint; - state : cardinal; - is_hint : char; - same_screen : TBool; - end; - PXMotionEvent = ^TXMotionEvent; - TXPointerMovedEvent = TXMotionEvent; - PXPointerMovedEvent = ^TXPointerMovedEvent; - { - * NotifyAncestor, NotifyVirtual, NotifyInferior, - * NotifyNonlinear,NotifyNonlinearVirtual - } - TXCrossingEvent = record - eventtype : longint; - serial : cardinal; - 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 : cardinal; - end; - PXCrossingEvent = ^TXCrossingEvent; - TXEnterWindowEvent = TXCrossingEvent; - PXEnterWindowEvent = ^TXEnterWindowEvent; - TXLeaveWindowEvent = TXCrossingEvent; - PXLeaveWindowEvent = ^TXLeaveWindowEvent; - TXFocusChangeEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - mode : longint; - detail : longint; - end; - PXFocusChangeEvent = ^TXFocusChangeEvent; - TXFocusInEvent = TXFocusChangeEvent; - PXFocusInEvent = ^TXFocusInEvent; - TXFocusOutEvent = TXFocusChangeEvent; - PXFocusOutEvent = ^TXFocusOutEvent; - TXKeymapEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - key_vector : array[0..(32)-1] of char; - end; - PXKeymapEvent = ^TXKeymapEvent; - TXExposeEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - x : longint; - y : longint; - width : longint; - height : longint; - count : longint; - end; - PXExposeEvent = ^TXExposeEvent; - TXGraphicsExposeEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - drawable : TDrawable; - x : longint; - y : longint; - width : longint; - height : longint; - count : longint; - major_code : longint; - minor_code : longint; - end; - PXGraphicsExposeEvent = ^TXGraphicsExposeEvent; - TXNoExposeEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - drawable : TDrawable; - major_code : longint; - minor_code : longint; - end; - PXNoExposeEvent = ^TXNoExposeEvent; - TXVisibilityEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - state : longint; - end; - PXVisibilityEvent = ^TXVisibilityEvent; - TXCreateWindowEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - parent : TWindow; - window : TWindow; - x : longint; - y : longint; - width : longint; - height : longint; - border_width : longint; - override_redirect : TBool; - end; - PXCreateWindowEvent = ^TXCreateWindowEvent; - TXDestroyWindowEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - event : TWindow; - window : TWindow; - end; - PXDestroyWindowEvent = ^TXDestroyWindowEvent; - TXUnmapEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - event : TWindow; - window : TWindow; - from_configure : TBool; - end; - PXUnmapEvent = ^TXUnmapEvent; - TXMapEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - event : TWindow; - window : TWindow; - override_redirect : TBool; - end; - PXMapEvent = ^TXMapEvent; - TXMapRequestEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - parent : TWindow; - window : TWindow; - end; - PXMapRequestEvent = ^TXMapRequestEvent; - TXReparentEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - event : TWindow; - window : TWindow; - parent : TWindow; - x : longint; - y : longint; - override_redirect : TBool; - end; - PXReparentEvent = ^TXReparentEvent; - TXConfigureEvent = record - eventtype : longint; - serial : cardinal; - 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; - PXConfigureEvent = ^TXConfigureEvent; - TXGravityEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - event : TWindow; - window : TWindow; - x : longint; - y : longint; - end; - PXGravityEvent = ^TXGravityEvent; - TXResizeRequestEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - width : longint; - height : longint; - end; - PXResizeRequestEvent = ^TXResizeRequestEvent; - TXConfigureRequestEvent = record - eventtype : longint; - serial : cardinal; - 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 : cardinal; - end; - PXConfigureRequestEvent = ^TXConfigureRequestEvent; - TXCirculateEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - event : TWindow; - window : TWindow; - place : longint; - end; - PXCirculateEvent = ^TXCirculateEvent; - TXCirculateRequestEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - parent : TWindow; - window : TWindow; - place : longint; - end; - PXCirculateRequestEvent = ^TXCirculateRequestEvent; - TXPropertyEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - atom : TAtom; - time : TTime; - state : longint; - end; - PXPropertyEvent = ^TXPropertyEvent; - TXSelectionClearEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - selection : TAtom; - time : TTime; - end; - PXSelectionClearEvent = ^TXSelectionClearEvent; - TXSelectionRequestEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - owner : TWindow; - requestor : TWindow; - selection : TAtom; - target : TAtom; - {whatproperty : TAtom;} - time : TTime; - end; - PXSelectionRequestEvent = ^TXSelectionRequestEvent; - TXSelectionEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - requestor : TWindow; - selection : TAtom; - target : TAtom; - whatproperty : TAtom; - whattime : TTime; - end; - PXSelectionEvent = ^TXSelectionEvent; - TXColormapEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - colormap : TColormap; - c_new : TBool; - news : TBool; { Was new. MVC } - state : longint; - end; - PXColormapEvent = ^TXColormapEvent; - TXClientMessageEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - message_type : TAtom; - format : longint; - data : record - case longint of - 0 : (b : array[0..(20)-1] of char); - 1 : (s : array[0..(10)-1] of integer); - 2 : (l : array[0..(5)-1] of longint); - end; - end; - PXClientMessageEvent = ^TXClientMessageEvent; - TXMappingEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - request : longint; - first_keycode : longint; - count : longint; - end; - PXMappingEvent = ^TXMappingEvent; - TXErrorEvent = record - eventtype : longint; - Whatdisplay : PDisplay; - resourceid : TXID; - serial : cardinal; - error_code : char; - request_code : char; - minor_code : char; - end; - PXErrorEvent = ^TXErrorEvent; - TXAnyEvent = record - eventtype : longint; - serial : cardinal; - send_event : TBool; - display : PDisplay; - window : TWindow; - end; - PXAnyEvent = ^TXAnyEvent; - TXEvent = record - case longint of - 0 : (eventtype : 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..(24)-1] of longint); - end; - PXEvent = ^TXEvent; - { !!!!!! - #define XAllocID(dpy) ((*((_XPrivDisplay)dpy)->resource_alloc)((dpy))) - } - { - * per character font metric information. - } - TXCharStruct = record - lbearing : integer; - rbearing : integer; - width : integer; - ascent : integer; - descent : integer; - attributes : word; - end; - PXCharStruct = ^TXCharStruct; - TXFontProp = record - name : TAtom; - card32 : cardinal; - end; - PXFontProp = ^TXFontProp; - PXFontstruct = ^TXFontStruct; - PPXFontstruct = ^PXFontStruct; - PPPXFontstruct = ^PPXFontStruct; - TXFontStruct = record - ext_data : PXExtData; - fid : TFont; - direction : cardinal; - min_char_or_byte2 : cardinal; - max_char_or_byte2 : cardinal; - min_byte1 : cardinal; - max_byte1 : cardinal; - all_chars_exist : TBool; - default_char : cardinal; - n_properties : longint; - properties : PXFontProp; - min_bounds : TXCharStruct; - max_bounds : TXCharStruct; - per_char : PXCharStruct; - ascent : longint; - descent : longint; - end; - TXTextItem = record - chars : pchar; - nchars : longint; - delta : longint; - font : TFont; - end; - PXTextItem = ^TXTextItem; - { normal 16 bit characters are two bytes } - TXChar2b = record - byte1 : char; - byte2 : char; - end; - PXChar2b = ^TXChar2b; - TXTextItem16 = record - chars : PXChar2b; - nchars : longint; - delta : longint; - font : TFont; - end; - PXTextItem16 = ^TXTextItem16; - 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; - TXFontSetExtents = record - max_ink_extent : TXRectangle; - max_logical_extent : TXRectangle; - end; - PXFontSetExtents = ^TXFontSetExtents; - TXOMProc = Procedure; cdecl; +const + QueuedAlready = 0; + QueuedAfterReading = 1; + QueuedAfterFlush = 2; +{$ifdef MACROS} +function ConnectionNumber(dpy : longint) : longint; - TXOMrec = record - dummy : integer; - end; - TXOCrec = record - dummy : integer; - end; - TXOM = ^TXOMrec; - TXOC = ^TXOCrec; - { Again an accomodation. MVC } - TXfontSetRecord = record - dummy : integer; - end; - TXFontSet = ^TXFontsetRecord; - TXmbTextItem = record - chars : pchar; - nchars : longint; - delta : longint; - font_set : TXFontSet; - end; - PXmbTextItem = ^TXmbTextItem; - TXwcTextItem = record - chars : Pwchar_t; - nchars : longint; - delta : longint; - font_set : TXFontSet; - end; - PXwcTextItem = ^TXwcTextItem; +function RootWindow(dpy,scr : longint) : longint; - const - XNRequiredCharSet = 'requiredCharSet'; - XNQueryOrientation = 'queryOrientation'; - XNBaseFontName = 'baseFontName'; - XNOMAutomatic = 'omAutomatic'; - XNMissingCharSet = 'missingCharSet'; - XNDefaultString = 'defaultString'; - XNOrientation = 'orientation'; - XNDirectionalDependentDrawing = 'directionalDependentDrawing'; - XNContextualDrawing = 'contextualDrawing'; - XNFontInfo = 'fontInfo'; +function DefaultScreen(dpy : longint) : longint; - type - TXOMCharSetList = record - charset_count : longint; - charset_list : ^pchar; - end; - TXOrientation = ( - XOMOrientation_LTR_TTB, - XOMOrientation_RTL_TTB, - XOMOrientation_TTB_LTR, - XOMOrientation_TTB_RTL, - XOMOrientation_Context - ); - { Input Text description } - TXOMOrientation = record - num_orient : longint; - orient : ^TXOrientation; - end; - TXOMFontInfo = record - num_font : longint; - font_struct_list : ^PXFontStruct; - font_name_list : ^pchar; - end; - TXIMProc = Procedure; cdecl; - { Defined the following to accomodate XIM. MVC} - TXIMrecord = record - field : integer - end; - TXIM = ^TXIMrecord; - { Defined the following to accomodate XIC. MVC} - TXICrecord = record - field : integer - end; - TXIC = ^TXICrecord; - TXIMStyle = cardinal; - TXIMStyles = record - count_styles : word; - supported_styles : ^TXIMStyle; - end; +function DefaultRootWindow(dpy : longint) : longint; - 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; - XLookupKeySymConst = 3; - XLookupBoth = 4; +function DefaultVisual(dpy,scr : longint) : longint; - type - TXVaNestedList = TXPointer; - TXIMCallback = record - client_data : TXPointer; - callback : TXIMProc; - end; - TXIMFeedback = cardinal; +function DefaultGC(dpy,scr : longint) : longint; - 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); +function BlackPixel(dpy,scr : longint) : longint; - type - TXIMText = record - length : word; - feedback : ^TXIMFeedback; - encoding_is_wchar : TBool; - thestring : record { This was string. MVC} - case longint of - 0 : (multi_byte : ^char); - 1 : (wide_char : Pwchar_t); - end; - end; - PXIMText=^TXIMText; - TXIMPreeditState = cardinal; +function WhitePixel(dpy,scr : longint) : longint; - const - XIMPreeditUnKnown = 0; - XIMPreeditEnable = 1; - XIMPreeditDisable = (1) shl (1); +function AllPlanes : dword; - type - TXIMPreeditStateNotifyCallbackStruct = record - state : TXIMPreeditState; - end; - TXIMResetState = cardinal; +function QLength(dpy : longint) : longint; - const - XIMInitialState = 1; - XIMPreserveState = (1) shl (1); +function DisplayWidth(dpy,scr : longint) : longint; - type - TXIMStringConversionFeedback = cardinal; +function DisplayHeight(dpy,scr : longint) : longint; - const - XIMStringConversionLeftEdge = $00000001; - XIMStringConversionRightEdge = $00000002; - XIMStringConversionTopEdge = $00000004; - XIMStringConversionBottomEdge = $00000008; - XIMStringConversionConcealed = $00000010; - XIMStringConversionWrapped = $00000020; +function DisplayWidthMM(dpy,scr : longint) : longint; - type - TXIMStringConversionText = record - length : word; - feedback : ^TXIMStringConversionFeedback; - encoding_is_wchar : TBool; - thestring : record { This was string. MVC} - case longint of - 0 : (mbs : pchar); - 1 : (wcs : pwchar_t); - end; - end; - TXIMStringConversionPosition = word; - TXIMStringConversionType = word; +function DisplayHeightMM(dpy,scr : longint) : longint; - const - XIMStringConversionBuffer = $0001; - XIMStringConversionLine = $0002; - XIMStringConversionWord = $0003; - XIMStringConversionChar = $0004; +function DisplayPlanes(dpy,scr : longint) : longint; - type - TXIMStringConversionOperation = word; +function DisplayCells(dpy,scr : longint) : longint; - const - TXIMStringConversionSubstitution = $0001; - TXIMStringConversionRetrival = $0002; +function ScreenCount(dpy : longint) : longint; - type - TXIMStringConversionCallbackStruct = record - position : TXIMStringConversionPosition; - thetype : TXIMStringConversionType; { This wsa type. MVC} - operation : TXIMStringConversionOperation; - factor : word; - thetext : ^TXIMStringConversionText; { This was text. MVC} - end; - TXIMPreeditDrawCallbackStruct = record - caret : longint; - chg_first : longint; - chg_length : longint; - text : ^TXIMText; - end; - TXIMCaretDirection = ( - XIMForwardChar, - XIMBackwardChar, - XIMForwardWord, - XIMBackwardWord, - XIMCaretUp, - XIMCaretDown, - XIMNextLine, - XIMPreviousLine, - XIMLineStart, - XIMLineEnd, - XIMAbsolutePosition, - XIMDontChange - ); - TXIMCaretStyle = ( - XIMIsInvisible, - XIMIsPrimary, - XIMIsSecondary - ); - TXIMPreeditCaretCallbackStruct = record - position : longint; - direction : TXIMCaretDirection; - style : TXIMCaretStyle; - end; - TXIMStatusDataType = ( - XIMTextType, - XIMBitmapType - ); - TXIMStatusDrawCallbackStruct = record - thetype : TXIMStatusDataType; { Was Type. MVC } - data : record - case longint of - 0 : (text : PXIMText); - 1 : (bitmap : TPixmap); - end; - end; - TXIMHotKeyTrigger = record - keysym : TKeySym; - modifier : longint; - modifier_mask : longint; - end; - TXIMHotKeyTriggers = record - num_hot_key : longint; - key : ^TXIMHotKeyTrigger; - end; - TXIMHotKeyState = cardinal; +function ServerVendor(dpy : longint) : longint; - const - XIMHotKeyStateON = $0001; - XIMHotKeyStateOFF = $0002; +function ProtocolVersion(dpy : longint) : longint; - type - XIMValuesList = record - count_values : word; - supported_values : ^pchar; - end; +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 - TXErrorHandler = Function(_para1 : PDisplay;_para2 : PXErrorEvent) : longint; cdecl; - TXIOErrorHandler = Function(_para1 : PDisplay) : longint; cdecl; - TXConnectionWatchProc = Procedure(_para1 : PDisplay;_para2 : TXPointer;_para3 : longint;_para4 : TBool;_para5 : PXPointer); cdecl; + + 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; -{ Here start the Function definitions in the C header file. MVC } + 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; -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 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;external; -Function XGetModifierMapping(_para1 : PDisplay) : PXModifierKeymap; cdecl;external; -Function XInsertModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;external; -Function XNewModifiermap(_para1 : longint) : PXModifierKeymap; cdecl;external; -Function XCreateImage(_para1 : PDisplay;_para2 : PVisual;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : cardinal;_para8 : cardinal;_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 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint) : PXImage; cdecl;external; -Function XGetSubImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_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) : longint; cdecl;external; -{ WHat to do with this ??? MVC -Function XSetAfterFunction(_para1 : PDisplay;_para2 : function(_para1 : PDisplay) : longint) : function : longint; 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 : cardinal;_para7 : cardinal) : TCursor; cdecl;external; -Function XCreateGlyphCursor(_para1 : PDisplay;_para2 : TFont;_para3 : TFont;_para4 : cardinal;_para5 : cardinal;_para6 : PXColor;_para7 : PXColor) : TCursor; cdecl;external; -Function XCreateFontCursor(_para1 : PDisplay;_para2 : cardinal) : TCursor; cdecl;external; -Function XLoadFont(_para1 : PDisplay;_para2 : pchar) : TFont; cdecl;external; -Function XCreateGC(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_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 : cardinal;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;external; -Function XCreateBitmapFromData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;external; -Function XCreatePixmapFromBitmapData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal) : TPixmap; cdecl;external; -Function XCreateSimpleWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal;_para9 : cardinal) : TWindow; cdecl;external; -Function XGetSelectionOwner(_para1 : PDisplay;_para2 : TAtom) : TWindow; cdecl;external; -Function XCreateWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : cardinal;_para10 : PVisual;_para11 : cardinal;_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;_para3 : TKeyCode;_para4 : longint) : TKeySym; cdecl;external; -Function XLookupKeysym(_para1 : PXKeyEvent;_para2 : longint) : TKeySym; cdecl;external; -Function XGetKeyboardMapping(_para1 : PDisplay;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint;_para5 : 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) : cardinal; 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) : cardinal; cdecl;external; -Function XWhitePixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;external; -Function XAllPlanes : cardinal; cdecl;external; -Function XBlackPixelOfScreen(_para1 : PScreen) : cardinal; cdecl;external; -Function XWhitePixelOfScreen(_para1 : PScreen) : cardinal; cdecl;external; -Function XNextRequest(_para1 : PDisplay) : cardinal; cdecl;external; -{ -Function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; 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; -Function XSetErrorHandler(_para1 : TXErrorHandler) : TXErrorHandler; cdecl;external; -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 : cardinal;_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 : ^^*;_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 : PCardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : cardinal) : TStatus; cdecl;external; -Function XAllocColorPlanes(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : PCardinal;_para10 : PCardinal;_para11 : PCardinal) : 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 : cardinal;_para3 : TCursor;_para4 : TTime) : longint; cdecl;external; -Function XChangeGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : longint; cdecl;external; -Function XChangeKeyboardControl(_para1 : PDisplay;_para2 : cardinal;_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 : pchar;_para8 : longint) : longint; cdecl;external; -Function XChangeSaveSet(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external; -Function XChangeWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXSetWindowAttributes) : longint; cdecl;external; -{ -Function XCheckIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : 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 : cardinal;_para6 : cardinal;_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 : cardinal;_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 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : longint; cdecl;external; -Function XCopyGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : TGC) : longint; cdecl;external; -Function XCopyPlane(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint;_para11 : cardinal) : 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 : cardinal;_para7 : cardinal;_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 : cardinal;_para7 : cardinal) : 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 : cardinal;_para7 : cardinal;_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 : cardinal;_para7 : cardinal) : 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 : PCardinal;_para4 : longint;_para5 : cardinal) : 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 : cardinal;_para6 : cardinal;_para7 : cardinal;_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 : PCardinal) : TBool; cdecl;external; -Function XGetGCValues(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : TStatus; cdecl;external; -Function XGetGeometry(_para1 : PDisplay;_para2 : TDrawable;_para3 : PWindow;_para4 : Plongint;_para5 : Plongint;_para6 : PCardinal;_para7 : PCardinal;_para8 : PCardinal;_para9 : PCardinal) : 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 : pchar;_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 : PCardinal;_para11 : PCardinal;_para12 : PPChar) : longint; cdecl;external; -Function XGetWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : PXWindowAttributes) : TStatus; cdecl;external; -Function XGrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : cardinal;_para7 : longint;_para8 : longint;_para9 : TWindow;_para10 : TCursor) : longint; cdecl;external; -Function XGrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_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 : cardinal;_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 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : 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 XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; 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 : cardinal;_para6 : cardinal) : 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 : PCardinal;_para5 : PCardinal) : longint; cdecl;external; -Function XPeekEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external; -{ -Function XPeekIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : 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 : cardinal;_para10 : cardinal) : longint; cdecl;external; -Function XQLength(_para1 : PDisplay) : longint; cdecl;external; -Function XQueryBestCursor(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external; -Function XQueryBestSize(_para1 : PDisplay;_para2 : longint;_para3 : TDrawable;_para4 : cardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : PCardinal) : TStatus; cdecl;external; -Function XQueryBestStipple(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external; -Function XQueryBestTile(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : 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 : array[0..(32)-1] of char) : longint; cdecl;external; -} -Function XQueryPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : Plongint;_para9 : PCardinal) : 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 : PCardinal) : TStatus; cdecl;external; -Function XRaiseWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external; -Function XReadBitmapFile(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : PCardinal;_para5 : PCardinal;_para6 : PPixmap;_para7 : Plongint;_para8 : Plongint) : longint; cdecl;external; -Function XReadBitmapFileData(_para1 : pchar;_para2 : PCardinal;_para3 : PCardinal;_para4 : PPChar;_para5 : Plongint;_para6 : Plongint) : longint; cdecl;external; -Function XRebindKeysym(_para1 : PDisplay;_para2 : TKeySym;_para3 : PKeySym;_para4 : longint;_para5 : pchar;_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 : cardinal;_para4 : cardinal) : 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 : cardinal) : 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 : cardinal) : 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 : cardinal;_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 : cardinal) : longint; cdecl;external; -Function XSetPointerMapping(_para1 : PDisplay;_para2 : pchar;_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 : cardinal;_para4 : cardinal;_para5 : longint;_para6 : cardinal) : 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 : cardinal) : longint; cdecl;external; -Function XSetWindowBackgroundPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;external; -Function XSetWindowBorder(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external; -Function XSetWindowBorderPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;external; -Function XSetWindowBorderWidth(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : 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 : cardinal;_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 : cardinal;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;external; -Function XUngrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_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 : cardinal;_para7 : cardinal;_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 : cardinal;_para5 : cardinal;_para6 : longint;_para7 : longint) : longint; cdecl;external; -Function XSupportsLocale : TBool; cdecl;external; -Function XSetLocaleModifiers(_para1 : pchar) : pchar; cdecl;external; -{ -Function XOpenOM(_para1 : PDisplay;_para2 : ^*;_para3 : pchar;_para4 : pchar) : TXOM; cdecl;external; -} -Function XCloseOM(_para1 : TXOM) : TStatus; cdecl;external; -Function XDisplayOfOM(_para1 : TXOM) : PDisplay; cdecl;external; -Function XLocaleOfOM(_para1 : TXOM) : pchar; cdecl;external; -Procedure XDestroyOC(_para1 : TXOC); cdecl;external; -Function TXOMOfOC(_para1 : TXOC) : TXOM; 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 : Pwchar_t;_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 : Pwchar_t;_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 : Pwchar_t;_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 : Pwchar_t;_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 : Pwchar_t;_para8 : longint); cdecl;external; -{ -Function XOpenIM(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar) : TXIM; cdecl;external; -} -Function XCloseIM(_para1 : TXIM) : TStatus; cdecl;external; -Function XDisplayOfIM(_para1 : TXIM) : PDisplay; cdecl;external; -Function XLocaleOfIM(_para1 : TXIM) : pchar; cdecl;external; -Procedure XDestroyIC(_para1 : TXIC); cdecl;external; -Procedure XSetICFocus(_para1 : TXIC); cdecl;external; -Procedure XUnsetICFocus(_para1 : TXIC); cdecl;external; -Function XwcResetIC(_para1 : TXIC) : Pwchar_t; cdecl;external; -Function XmbResetIC(_para1 : TXIC) : pchar; cdecl;external; -Function TXIMOfIC(_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 : Pwchar_t;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;external; -{ -Function XRegisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;external; -Function XUnregisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;external; -} -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; + 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. -{ - $Log$ - Revision 1.4 2000-10-29 12:35:09 sg - * Fixed XImage (function pointers are now declared) - - Revision 1.3 2000/10/26 16:40:27 sg - * Fixed declaration of TVisual - - Revision 1.2 2000/07/13 11:33:34 michael - + removed logs - -} diff --git a/packages/x11/xresource.pp b/packages/x11/xresource.pp index 71f5f315ef..fe167ca66a 100644 --- a/packages/x11/xresource.pp +++ b/packages/x11/xresource.pp @@ -1,305 +1,223 @@ -{ - $Id$ -} unit xresource; interface - uses - xlib; + x,xlib; {$LinkLib c} {$LinkLib X11} -{*************************************************************** - * Quark Management - ***************************************************************} - -type - TXrmQuark = Longint; - PXrmQuark = ^TXrmQuark; - TXrmQuarkList = PXrmQuark; - TXrmString = Pchar; - -Const - NULLQUARK = 0 ; - NULLSTRING = 0; - -{ find quark for string, create new quark if none already exists } -Function XrmStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;external; -Function XrmPermStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;external; -{ find string for quark } -Function XrmQuarkToString( p1 : TXrmQuark) : TXrmString;cdecl;external; -Function XrmUniqueQuark : TXrmQuark;cdecl;external; - { -#define XrmStringsEqual(a1, a2) (strcmp(a1, a2) == 0) + Automatically converted by H2Pas 0.99.15 from xresource.h + The following command line parameters were used: + -p + -T + -S + -d + -c + xresource.h } +{$PACKRECORDS C} -{*************************************************************** - * Conversion of Strings to Lists - ***************************************************************} + +function Xpermalloc(para1:dword):Pchar;cdecl;external; +type + + PXrmQuark = ^TXrmQuark; + TXrmQuark = longint; + TXrmQuarkList = PXrmQuark; + PXrmQuarkList = ^TXrmQuarkList; +function NULLQUARK : TXrmQuark; type - TXrmBinding = longint; - TXrmBindingList = ^longint; -Const - XrmBindTightly = 0; - XrmBindLoosely = 1; -procedure XrmStringToQuarkList( - p1 : pchar { string }; - p2 : TXrmQuarkList { quarks_return } -);cdecl;external; + PXrmString = ^TXrmString; + TXrmString = char; +function NULLSTRING : TXrmString; -procedure XrmStringToBindingQuarkList( - p1 : pchar { string }; - p2 : TXrmBindingList { bindings_return }; - p3 : TXrmQuarkList { quarks_return } -);cdecl;external; - - -{*************************************************************** - * Name and Class lists. - ***************************************************************} +function XrmStringToQuark(para1:Pchar):TXrmQuark;cdecl;external; +function XrmPermStringToQuark(para1:Pchar):TXrmQuark;cdecl;external; +function XrmQuarkToString(para1:TXrmQuark):TXrmString;cdecl;external; +function XrmUniqueQuark:TXrmQuark;cdecl;external; +{$ifdef MACROS} +function XrmStringsEqual(a1,a2 : longint) : longint; +{$endif MACROS} type - TXrmName = TXrmQuark; - TXrmNameList = TXrmQuarkList ; -{ -#define XrmNameToString(name) XrmQuarkToString(name) -#define XrmStringToName(string) XrmStringToQuark(string) -#define XrmStringToNameList(str, name) XrmStringToQuarkList(str, name) -} - TXrmClass = TXrmQuark; - TXrmClassList = TXrmQuarkList; -{ -#define XrmClassToString(c_class) XrmQuarkToString(c_class) -#define XrmStringToClass(c_class) XrmStringToQuark(c_class) -#define XrmStringToClassList(str,c_class) XrmStringToQuarkList(str, c_class) -} + PXrmBinding = ^TXrmBinding; + TXrmBinding = (XrmBindTightly,XrmBindLoosely); + TXrmBindingList = PXrmBinding; + PXrmBindingList = ^TXrmBindingList; -{*************************************************************** - * Resource Representation Types and Values - ***************************************************************} +procedure XrmStringToQuarkList(para1:Pchar; para2:TXrmQuarkList);cdecl;external; +procedure XrmStringToBindingQuarkList(para1:Pchar; para2:TXrmBindingList; para3:TXrmQuarkList);cdecl;external; +type + + PXrmName = ^TXrmName; + TXrmName = TXrmQuark; + + PXrmNameList = ^TXrmNameList; + TXrmNameList = TXrmQuarkList; +{$ifdef MACROS} +function XrmNameToString(name : longint) : longint; + +function XrmStringToName(_string : longint) : longint; + +function XrmStringToNameList(str,name : longint) : longint; +{$endif MACROS} type - TXrmRepresentation = TXrmQuark ; - PXrmRepresentation = ^TXrmRepresentation; -{ -#define XrmStringToRepresentation(string) XrmStringToQuark(string) -#define XrmRepresentationToString(type) XrmQuarkToString(type) -} + + PXrmClass = ^TXrmClass; + TXrmClass = TXrmQuark; + + PXrmClassList = ^TXrmClassList; + TXrmClassList = TXrmQuarkList; +{$ifdef MACROS} +function XrmClassToString(c_class : longint) : longint; + +function XrmStringToClass(c_class : longint) : longint; + +function XrmStringToClassList(str,c_class : longint) : longint; +{$endif MACROS} +type + + PXrmRepresentation = ^TXrmRepresentation; + TXrmRepresentation = TXrmQuark; +{$ifdef MACROS} +function XrmStringToRepresentation(_string : longint) : longint; + +function XrmRepresentationToString(_type : longint) : longint; +{$endif MACROS} type - TXrmValue = record - size : word; - theaddr : TXPointer; - end; - PXrmValue = ^TXrmValue; - TXrmValuePtr = PXrmValue; + PXrmValue = ^TXrmValue; + TXrmValue = record + size : dword; + addr : TXPointer; + end; + TXrmValuePtr = PXrmValue; + PXrmValuePtr = ^TXrmValuePtr; -{*************************************************************** - * Resource Manager Functions - ***************************************************************} -{ -typedef struct _XrmHashBucketRec *XrmHashBucket; -typedef XrmHashBucket *XrmHashTable; -typedef XrmHashTable XrmSearchList[]; -typedef struct _XrmHashBucketRec *XrmDatabase; -} -Type - TXrmHashBucket = pointer; - TXrmHashTable = ^TXrmHashBucket; - TXrmSearchList = ^TXrmHashTable; - TXrmDatabase = pointer; - PXrmDatabase = ^TXrmDatabase; + PXrmHashBucketRec = ^TXrmHashBucketRec; + TXrmHashBucketRec = record + end; + TXrmHashBucket = PXrmHashBucketRec; + PXrmHashBucket = ^TXrmHashBucket; -procedure XrmDestroyDatabase( - p1 : TXrmDatabase { database } -);cdecl;external; + PXrmHashTable = ^TXrmHashTable; + TXrmHashTable = TXrmHashBucket; -Procedure XrmQPutResource( - p1 : PXrmDatabase { database }; - p2 : TXrmBindingList { bindings }; - p3 : TXrmQuarkList { quarks }; - p4 : TXrmRepresentation { type }; - p5 : PXrmValue { value } -);cdecl;external; + TXrmDatabase = PXrmHashBucketRec; + PXrmDatabase = ^TXrmDatabase; -Procedure XrmPutResource( - p1 : PXrmDatabase { database }; - p2 : pchar { specifier }; - p3 : pchar { type }; - p4 : PXrmValue { value } -);cdecl;external; - -Procedure XrmQPutStringResource( - p1 : PXrmDatabase { database }; - p2 : TXrmBindingList { bindings }; - p3 : TXrmQuarkList { quarks }; - p4 : Pchar { value } -);cdecl;external; - -Procedure XrmPutStringResource( - P1 : PXrmDatabase { database }; - p2,p3 : pchar -);cdecl;external; - -Procedure XrmPutLineResource( - p1 : PXrmDatabase { database }; - p2 : pchar { line } -);cdecl;external; - -Function XrmQGetResource( - p1 : PXrmDatabase { database }; - p2 : TXrmNameList { quark_name }; - p3 : TXrmClassList { quark_class }; - p4 : PXrmRepresentation { quark_type_return }; - p5 : PXrmValue { value_return } -) : Integer;cdecl;external; - -Function XrmGetResource( - p1 : TXrmDatabase { database }; - p2 : pchar { str_name }; - p3 : pchar { str_class }; - p4 : ppchar { str_type_return }; - p5 : PXrmValue { value_return } -) : Tbool;cdecl;external; - -Function XrmQGetSearchList( - p1 : TXrmDatabase { database }; - p2 : TXrmNameList { names }; - p3 : TXrmClassList { classes }; - p4 : TXrmSearchList { list_return }; - p5 : integer { list_length } -) : Tbool;cdecl;external; - -Function XrmQGetSearchResource( - P1 : TXrmSearchList { list }; - p2 : TXrmName { name }; - p3 : TXrmClass { class }; - p4 : PXrmRepresentation { type_return }; - p5 : PXrmValue { value_return } -) : TBool;cdecl;external; - -{*************************************************************** - * - * Resource Database Management - * - ***************************************************************} - -procedure XrmSetDatabase( - p1 : PDisplay { display }; - p2 : TXrmDatabase { database } -);cdecl;external; - -Function XrmGetDatabase( - p1 : PDisplay { display } -) : TXrmDatabase;cdecl;external; - -Function XrmGetFileDatabase( - p1 : pchar { filename } -) : TXrmDatabase ;cdecl;external; - -Function XrmCombineFileDatabase( - p1 : pchar { filename }; - p2 : PXrmDatabase { target }; - p3 : TBool { override } -) : TStatus ;cdecl;external; - -function XrmGetStringDatabase( - p1 : pchar { data } { null terminated string } -) : TXrmDatabase ;cdecl;external; - -Procedure XrmPutFileDatabase( - p1 : TXrmDatabase { database }; - p2: pchar { filename } -);cdecl;external; - -Procedure XrmMergeDatabases( - p1 : TXrmDatabase { source_db }; - p2 : PXrmDatabase { target_db } -);cdecl;external; - -procedure XrmCombineDatabase( - p1 : TXrmDatabase { source_db }; - p2 : PXrmDatabase { target_db }; - p3 : TBool { override } -);cdecl;external; +procedure XrmDestroyDatabase(para1:TXrmDatabase);cdecl;external; +procedure XrmQPutResource(para1:PXrmDatabase; para2:TXrmBindingList; para3:TXrmQuarkList; para4:TXrmRepresentation; para5:PXrmValue);cdecl;external; +procedure XrmPutResource(para1:PXrmDatabase; para2:Pchar; para3:Pchar; para4:PXrmValue);cdecl;external; +procedure XrmQPutStringResource(para1:PXrmDatabase; para2:TXrmBindingList; para3:TXrmQuarkList; para4:Pchar);cdecl;external; +procedure XrmPutStringResource(para1:PXrmDatabase; para2:Pchar; para3:Pchar);cdecl;external; +procedure XrmPutLineResource(para1:PXrmDatabase; para2:Pchar);cdecl;external; +function XrmQGetResource(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external; +function XrmGetResource(para1:TXrmDatabase; para2:Pchar; para3:Pchar; para4:PPchar; para5:PXrmValue):TBool;cdecl;external; +{ There is no definition of TXrmSearchList } +{function XrmQGetSearchList(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:TXrmSearchList; para5:longint):TBool;cdecl;external; +function XrmQGetSearchResource(para1:TXrmSearchList; para2:TXrmName; para3:TXrmClass; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external;} +procedure XrmSetDatabase(para1:PDisplay; para2:TXrmDatabase);cdecl;external; +function XrmGetDatabase(para1:PDisplay):TXrmDatabase;cdecl;external; +function XrmGetFileDatabase(para1:Pchar):TXrmDatabase;cdecl;external; +function XrmCombineFileDatabase(para1:Pchar; para2:PXrmDatabase; para3:TBool):TStatus;cdecl;external; +function XrmGetStringDatabase(para1:Pchar):TXrmDatabase;cdecl;external; +procedure XrmPutFileDatabase(para1:TXrmDatabase; para2:Pchar);cdecl;external; +procedure XrmMergeDatabases(para1:TXrmDatabase; para2:PXrmDatabase);cdecl;external; +procedure XrmCombineDatabase(para1:TXrmDatabase; para2:PXrmDatabase; para3:TBool);cdecl;external; const - XrmEnumAllLevels = 0; - XrmEnumOneLevel = 1; -(* -Function XrmEnumerateDatabase( - XrmDatabase { db }; - XrmNameList { name_prefix }; - XrmClassList { class_prefix }; - int { mode }; - Bool *(#if NeedNestedPrototypes - XrmDatabase* { db }; - XrmBindingList { bindings }; - XrmQuarkList { quarks }; - XrmRepresentation* { type }; - XrmValue* { value }; - XPointer { closure } + XrmEnumAllLevels = 0; + XrmEnumOneLevel = 1; +type + funcbool=function :TBool; +function XrmEnumerateDatabase(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:longint; para5:funcbool; + para6:TXPointer):TBool;cdecl;external; +function XrmLocaleOfDatabase(para1:TXrmDatabase):Pchar;cdecl;external; +type - ) { proc }; - XPointer { closure } -) : TBool; -*) + PXrmOptionKind = ^TXrmOptionKind; + TXrmOptionKind = (XrmoptionNoArg,XrmoptionIsArg,XrmoptionStickyArg, + XrmoptionSepArg,XrmoptionResArg,XrmoptionSkipArg, + XrmoptionSkipLine,XrmoptionSkipNArgs); -Function XrmLocaleOfDatabase( - P1 : TXrmDatabase { database } -) : Pchar;cdecl;external; + PXrmOptionDescRec = ^TXrmOptionDescRec; + TXrmOptionDescRec = record + option : Pchar; + specifier : Pchar; + argKind : TXrmOptionKind; + value : TXPointer; + end; + TXrmOptionDescList = PXrmOptionDescRec; + PXrmOptionDescList = ^TXrmOptionDescList; +procedure XrmParseCommand(para1:PXrmDatabase; para2:TXrmOptionDescList; para3:longint; para4:Pchar; para5:Plongint; + para6:PPchar);cdecl;external; -{*************************************************************** - * - * Command line option mapping to resource entries - * - ***************************************************************} +implementation -Const - XrmoptionNoArg = 0; { Value is specified in OptionDescRec.value } - XrmoptionIsArg = 1; { Value is the option string itself } - XrmoptionStickyArg = 2; { Value is characters immediately following option } - XrmoptionSepArg = 3; { Value is next argument in argv } - XrmoptionResArg = 4; { Resource and value in next argument in argv } - XrmoptionSkipArg = 5; { Ignore this option and the next argument in argv } - XrmoptionSkipLine = 6; { Ignore this option and the rest of argv } - XrmoptionSkipNArgs = 7; { Ignore this option and the next - OptionDescRes.value arguments in argv } -Type TXrmOptionKind = Integer; +function NULLQUARK : TXrmQuark; + begin + NULLQUARK:=TXrmQuark(0); + end; -TXrmOptionDescRec = record - option : pchar; { Option abbreviation in argv } - specifier : pchar; { Resource specifier } - argKind : TXrmOptionKind; { Which style of option it is } - value : TXpointer; { Value to provide if XrmoptionNoArg } +function NULLSTRING : TXrmString; + begin + NULLSTRING:=TXrmString(0); + end; + +{$ifdef MACROS} +function XrmStringsEqual(a1,a2 : longint) : longint; +begin + XrmStringsEqual:=(strcmp(a1,a2)) = 0; end; -PXrmOptionDescRec= ^TXrmOptionDescRec; -TXrmOptionDescList = PXrmOptionDescRec; +function XrmNameToString(name : longint) : longint; +begin + XrmNameToString:=XrmQuarkToString(name); +end; -Procedure XrmParseCommand( - p1 : TXrmDatabase { database }; - p2 : TXrmOptionDescList { table }; - p3 : integer { table_count }; - p4 : pchar { name }; - p5 : Pointer { argc_in_out }; - p6 : ppchar { argv_in_out } -);cdecl;external; +function XrmStringToName(string : longint) : longint; +begin + XrmStringToName:=XrmStringToQuark(_string); +end; -Implementation +function XrmStringToNameList(str,name : longint) : longint; +begin + XrmStringToNameList:=XrmStringToQuarkList(str,name); +end; + +function XrmClassToString(c_class : longint) : longint; +begin + XrmClassToString:=XrmQuarkToString(c_class); +end; + +function XrmStringToClass(c_class : longint) : longint; +begin + XrmStringToClass:=XrmStringToQuark(c_class); +end; + +function XrmStringToClassList(str,c_class : longint) : longint; +begin + XrmStringToClassList:=XrmStringToQuarkList(str,c_class); +end; + +function XrmStringToRepresentation(_string : longint) : longint; +begin + XrmStringToRepresentation:=XrmStringToQuark(_string); +end; + +function XrmRepresentationToString(_type : longint) : longint; +begin + XrmRepresentationToString:=XrmQuarkToString(_type); +end; +{$endif MACROS} end. -{ - $Log$ - Revision 1.2 2000-07-13 11:33:34 michael - + removed logs - -} diff --git a/packages/x11/xutil.pp b/packages/x11/xutil.pp index 5f2448c551..e32a7dba79 100644 --- a/packages/x11/xutil.pp +++ b/packages/x11/xutil.pp @@ -1,10 +1,4 @@ -{ - $Id$ -} -Unit XUtil; - -{$MODE objfpc} - +unit xutil; interface uses x,xlib; @@ -13,686 +7,385 @@ uses {$LinkLib X11} { - Bitmask returned by XParseGeometry(). Each bit tells if the corresponding - value (x, y, width, height) was found in the parsed string. -} -Const - NoValue = $0000; - XValue = $0001; - YValue = $0002; - WidthValue = $0004; - HeightValue = $0008; - AllValues = $000F; - XNegative = $0010; - YNegative = $0020; - -{ - new version containing base_width, base_height, and win_gravity fields; - used with WM_NORMAL_HINTS. -} -Type - long = Cardinal; { Untill we know better. M.} - PLong = ^Long; - PInteger = ^Integer; - -Type - TAspectRecord = record - x,y : longint; - end; - - TXSizeHints = record - flags : Long; { marks which fields in this structure are defined } - x, y : longint ; { obsolete for new window mgrs, but clients } - width, height: longint ; { should set so old wm's don't mess up } - min_width, min_height : longint ; - max_width, max_height : longint ; - width_inc, height_inc : longint ; - min_aspect, max_aspect : TAspectRecord; - base_width, base_height : longint ; { added by ICCCM version 1 } - win_gravity : longint ; { added by ICCCM version 1 } - end; - PXSizeHints=^TXSizeHints; - -{ - The next block of definitions are for window manager properties that - clients and applications use for communication. + Automatically converted by H2Pas 0.99.15 from xutil.h + The following command line parameters were used: + -p + -T + -S + -d + -c + xutil.h } -{ flags argument in size hints } -Const - USPosition = 1 shl 0; { user specified x, y } - USSize = 1 shl 1; { user specified width, height } - - PPosition = 1 shl 2; { program specified position } - PSize = 1 shl 3; { program specified size } - PMinSize = 1 shl 4; { program specified minimum size } - PMaxSize = 1 shl 5; { program specified maximum size } - PResizeInc = 1 shl 6; { program specified resize increments } - PAspect = 1 shl 7; { program specified min and max aspect ratios } - PBaseSize = 1 shl 8; { program specified base for incrementing } - PWinGravity = 1 shl 9; { program specified window gravity } -{ obsolete } - PAllHints = PPosition or PSize or PMinSize or PMaxSize or PResizeInc or PAspect; - -Type - TXWMHints = record - flags : long; { marks which fields in this structure are defined } - input : TBool ; { does this application rely on the window manager to - get keyboard input? } - initial_state : longint ; { see below } - icon_pixmap : TPixmap ; { pixmap to be used as icon } - icon_window : TWindow ; { window to be used as icon } - icon_x, icon_y : longint ; { initial position of icon } - icon_mask : TPixmap ; { icon mask bitmap } - window_group : TXID ; { id of related window group } - { this structure may be extended in the future } - end; - PXWMHints = ^TXWMHints; - -{ definition for flags of XWMHints } -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; -{ definitions for initial window state } - WithdrawnState = 0; { for windows that are not mapped } - NormalState = 1; { most applications want to start this way } - IconicState = 3; { application wants to start as an icon } -{ Obsolete states no longer defined by ICCCM } - DontCareState = 0; { don't know or care } - ZoomState = 2; { application wants to start zoomed } - InactiveState = 4; { application believes it is seldom used; } - { some wm's may put it on inactive menu } - -{ - new structure for manipulating TEXT properties; used with WM_NAME, - WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND. -} -type - TXTextProperty = record - value : pchar; { same as Property routines } - encoding : TAtom; { prop type } - format : longint ; { prop data format: 8, 16, or 32 } - nitems : Cardinal; { number of data items in value } - end; - PXTextProperty = ^TXTextProperty; - -Const - XNoMemory =-1; - XLocaleNotSupported =-2; - XConverterNotFound =-3; - -Type - TXICCEncodingStyle = longint; - -Const - XStringStyle = 0; { STRING } - XCompoundTextStyle = 1; { COMPOUND_TEXT } - XTextStyle = 2; { text in owner's encoding (current locale)} - XStdICCTextStyle = 3; { STRING, else COMPOUND_TEXT } - -Type - TXIconSize = record - min_width, min_height, - max_width, max_height, - width_inc, height_inc : longint; - end; - PXIconSize = ^TXIconSize; - PPXIconSize = ^PXIconSize; - -type - TXClassHint = record - res_name, - res_class : pchar; - end; - PXClassHint = ^TXClassHint; - -{ - * These macros are used to give some sugar to the image routines so that - * naive people are more comfortable with them. -} - -{ - XDestroyImage(ximage) \ - ((*((ximage)->f.destroy_image))((ximage))) - XGetPixel(ximage, x, y) \ - ((*((ximage)->f.get_pixel))((ximage), (x), (y))) - XPutPixel(ximage, x, y, pixel) \ - ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel))) - XSubImage(ximage, x, y, width, height) \ - ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height))) - XAddPixel(ximage, value) \ - ((*((ximage)->f.add_pixel))((ximage), (value))) -} -{ - * Compose sequence status structure, used in calling XLookupString. - } - - TXComposeStatus = record - compose_ptr : TXPointer ; { state table pointer } - chars_matched : longint ; { match state } - end; - PXComposeStatus = ^TXComposeStatus; - -{ - * Keysym macros, used on Keysyms to test for classes of symbols - } -{ - IsKeypadKey(keysym) \ - (((KeySym)(keysym) >= XK_KP_Space) && ((KeySym)(keysym) <= XK_KP_Equal)) - - IsPrivateKeypadKey(keysym) \ - (((KeySym)(keysym) >= 0x11000000) && ((KeySym)(keysym) <= 0x1100FFFF)) - - IsCursorKey(keysym) \ - (((KeySym)(keysym) >= XK_Home) && ((KeySym)(keysym) < XK_Select)) - - IsPFKey(keysym) \ - (((KeySym)(keysym) >= XK_KP_F1) && ((KeySym)(keysym) <= XK_KP_F4)) - - IsFunctionKey(keysym) \ - (((KeySym)(keysym) >= XK_F1) && ((KeySym)(keysym) <= XK_F35)) - - IsMiscFunctionKey(keysym) \ - (((KeySym)(keysym) >= XK_Select) && ((KeySym)(keysym) <= XK_Break)) - - IsModifierKey(keysym) \ - ((((KeySym)(keysym) >= XK_Shift_L) && ((KeySym)(keysym) <= XK_Hyper_R)) \ - or or ((KeySym)(keysym) == XK_Mode_switch) \ - or or ((KeySym)(keysym) == XK_Num_Lock)) -} -{ - * opaque reference to Region data type - } - -type -{ -typedef struct _XRegion *Region; -} - TRegion = Pointer; - -{ Return values from XRectInRegion() } -Const - RectangleOut =0; - RectangleIn =1; - RectanglePart=2; - - -{ - * Information used by the visual utility routines to find desired visual - * type from the many visuals a display may support. - } - -Type - TXVisualInfo = record - visual : PVisual; - visualid : TVisualID ; - screen : longint; - depth : longint; - c_class : longint; - red_mask : cardinal; - green_mask : cardinal; - blue_mask : Cardinal; - colormap_size : longint; - bits_per_rgb : longint; - end; - PXVisualInfo = ^TXVisualInfo; - -Const - VisualNoMask = $0; - VisualIDMask = $1; - VisualScreenMask = $2; - VisualDepthMask = $4; - VisualClassMask = $8; - VisualRedMaskMask = $10; - VisualGreenMaskMask = $20; - VisualBlueMaskMask = $40; - VisualColormapSizeMask = $80; - VisualBitsPerRGBMask = $100; - VisualAllMask = $1FF; - -{ - * This defines a window manager property that clients may use to - * share standard color maps of type RGB_COLOR_MAP: - } -Type - TXStandardColormap = record - colormap : TColormap ; - red_max : Cardinal; - red_mult : Cardinal; - green_max : Cardinal; - green_mult : Cardinal; - blue_max : Cardinal; - blue_mult : Cardinal; - base_pixel : Cardinal; - visualid : TVisualID; { added by ICCCM version 1 } - killid : TXID ; { added by ICCCM version 1 } - end; - PXStandardColormap = ^TXStandardColormap; - PPXStandardColormap = ^PXStandardColormap; - -Const - ReleaseByFreeingColormap = 1; { for killid field above } -{ return codes for XReadBitmapFile and XWriteBitmapFile } - BitmapSuccess =0; - BitmapOpenFailed =1; - BitmapFileInvalid =2; - BitmapNoMemory =3; - - -{*************************************************************** - * Context Management - ***************************************************************} +{$PACKRECORDS C} const -{ Associative lookup table return codes } - XCSUCCESS =0; { No error. } - XCNOMEM =1; { Out of memory } - XCNOENT =2; { No entry in table } + NoValue = $0000; + XValue = $0001; + YValue = $0002; + WidthValue = $0004; + HeightValue = $0008; + AllValues = $000F; + XNegative = $0010; + YNegative = $0020; type - TXContext = longint; -{ - XUniqueContext() ((XContext) XrmUniqueQuark()) - XStringToContext(string) ((XContext) XrmStringToQuark(string)) -} -function XGetVisualInfo(display: PDisplay; vinfo_mask: LongInt; - vinfo_template: PXVisualInfo; var nitems_return: longint): PXVisualInfo; - cdecl; external; + 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; -{ The following declarations are alphabetized. } +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 -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; -procedure XClipBox(r: TRegion; rect_return: PXRectangle); cdecl; external; -function XCreateRegion: TRegion; cdecl; external; -function XDefaultString: PChar; cdecl; external; -function XDeleteContext(display: PDisplay; rid: TXID; - context: TXContext): LongInt; cdecl; external; -procedure XDestroyRegion(r: TRegion); cdecl; external; -function XEmptyRegion(r: TRegion): TBool; cdecl; external; -function XEqualRegion(r1, r2: TRegion): TBool; cdecl; external; -function XFindContext(display: PDisplay; rid: TXID; context: TXContext; - data_return: PXPointer): LongInt; cdecl; external; -function XGetClassHint(display: PDisplay; w: TWindow; - class_hints_return: PXClassHint): TStatus; cdecl; external; -function XGetIconSizes(display: PDisplay; w: TWindow; - size_list_return: PPXIconSize; count_return: PInteger): TStatus; - cdecl; external; -function XGetNormalHints(display: PDisplay; w: TWindow; - hints_return: PXSizeHints): TStatus; cdecl; external; -function XGetRGBColormaps(display: PDisplay; w: TWindow; - stdcmap_return: PPXStandardColormap; count_return: PInteger; - _property: TAtom): TStatus; cdecl; external; -function XGetSizeHints(display: PDisplay; w: TWindow; - hints_return: PXSizeHints; _property: TAtom): TStatus; cdecl; external; -function XGetStandardColormap(display: PDisplay; w: TWindow; - colormap_return: PXStandardColormap; _property: TAtom): TStatus; - cdecl; external; + 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; -(* -extern Status XGetTextProperty( -#if NeedFunctionPrototypes - Display* { display }, - Window { window }, - XTextProperty* { text_prop_return }, - Atom { property } -#endif -); +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 -extern XVisualInfo *XGetVisualInfo( -#if NeedFunctionPrototypes - Display* { display }, - long { vinfo_mask }, - XVisualInfo* { vinfo_template }, - int* { nitems_return } -#endif -); + PXTextProperty = ^TXTextProperty; + TXTextProperty = record + value : Pbyte; + encoding : TAtom; + format : longint; + nitems : dword; + end; -extern Status XGetWMClientMachine( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XTextProperty* { text_prop_return } -#endif -); +const + XNoMemory = -(1); + XLocaleNotSupported = -(2); + XConverterNotFound = -(3); +type -extern XWMHints *XGetWMHints( -#if NeedFunctionPrototypes - Display* { display }, - Window { w } -#endif -); + PXICCEncodingStyle = ^TXICCEncodingStyle; + TXICCEncodingStyle = (XStringStyle,XCompoundTextStyle,XTextStyle, + XStdICCTextStyle); -extern Status XGetWMIconName( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XTextProperty* { text_prop_return } -#endif -); + 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; -extern Status XGetWMName( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XTextProperty* { text_prop_return } -#endif -);*) + PXClassHint = ^TXClassHint; + TXClassHint = record + res_name : Pchar; + res_class : Pchar; + end; +{$ifdef MACROS} +function XGetPixel(ximage,x,y : longint) : longint; -function XGetWMNormalHints(display: PDisplay; w: TWindow; - hints_return: PXSizeHints; supplied_return: PLong): TStatus; cdecl; external; +function XPutPixel(ximage,x,y,pixel : longint) : longint; -(* -extern Status XGetWMSizeHints( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XSizeHints* { hints_return }, - long* { supplied_return }, - Atom { property } -#endif -); +function XSubImage(ximage,x,y,width,height : longint) : longint; -extern Status XGetZoomHints( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XSizeHints* { zhints_return } -#endif -); *) +function XAddPixel(ximage,value : longint) : longint; +{$endif MACROS} -function XIntersectRegion(sra, srb, dr_return: TRegion): LongInt; cdecl; external; +type -(* -extern void XConvertCase( -#if NeedFunctionPrototypes - KeySym { sym }, - KeySym* { lower }, - KeySym* { upper } -#endif -); *) + PXComposeStatus = ^TXComposeStatus; + TXComposeStatus = record + compose_ptr : TXPointer; + chars_matched : longint; + end; +{$ifdef MACROS} +function IsKeypadKey(keysym : longint) : longint; -function XLookupString(event_struct: PXKeyEvent; buffer_return: PChar; - bytes_buffer: LongInt; keysym_return: PKeySym; - status_in_out: PXComposeStatus): LongInt; cdecl; external; +function IsPrivateKeypadKey(keysym : longint) : longint; -(* -extern Status XMatchVisualInfo( -#if NeedFunctionPrototypes - Display* { display }, - int { screen }, - int { depth }, - int { class }, - XVisualInfo* { vinfo_return } -#endif -); +function IsCursorKey(keysym : longint) : longint; -extern XOffsetRegion( -#if NeedFunctionPrototypes - Region { r }, - int { dx }, - int { dy } -#endif -); +function IsPFKey(keysym : longint) : longint; -extern Bool XPointInRegion( -#if NeedFunctionPrototypes - Region { r }, - int { x }, - int { y } -#endif -); +function IsFunctionKey(keysym : longint) : longint; -extern Region XPolygonRegion( -#if NeedFunctionPrototypes - XPoint* { points }, - int { n }, - int { fill_rule } -#endif -); +function IsMiscFunctionKey(keysym : longint) : longint; +{$endif MACROS} -extern longint XRectInRegion( -#if NeedFunctionPrototypes - Region { r }, - int { x }, - int { y }, - unsigned int { width }, - unsigned int { height } -#endif -); +type -extern longint XSaveContext( -#if NeedFunctionPrototypes - Display* { display }, - XID { rid }, - XContext { context }, - _Xconst char* { data } -#endif -); + PXRegion = ^TXRegion; + TXRegion = record + end; + TRegion = PXRegion; + PRegion = ^TRegion; -extern XSetClassHint( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XClassHint* { class_hints } -#endif -); +const + RectangleOut = 0; + RectangleIn = 1; + RectanglePart = 2; +type -extern XSetIconSizes( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XIconSize* { size_list }, - int { count } -#endif -); *) + 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; -procedure XSetNormalHints(display: PDisplay; w: TWindow; - hints: PXSizeHints); cdecl; external; +const + VisualNoMask = $0; + VisualIDMask = $1; + VisualScreenMask = $2; + VisualDepthMask = $4; + VisualClassMask = $8; + VisualRedMaskMask = $10; + VisualGreenMaskMask = $20; + VisualBlueMaskMask = $40; + VisualColormapSizeMask = $80; + VisualBitsPerRGBMask = $100; + VisualAllMask = $1FF; +type -(* -extern void XSetRGBColormaps( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XStandardColormap* { stdcmaps }, - int { count }, - Atom { property } -#endif -); + 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; -extern XSetSizeHints( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XSizeHints* { hints }, - Atom { property } -#endif -); *) +{$ifdef MACROS} +function ReleaseByFreeingColormap : TXID; +{$endif MACROS} -function XSetStandardProperties(display: PDisplay; w: TWindow; - const window_name, icon_name: PChar; icon_pixmap: TPixmap; - argv: PPChar; argc: LongInt; hints: PXSizeHints): LongInt; - cdecl; external; +const + BitmapSuccess = 0; + BitmapOpenFailed = 1; + BitmapFileInvalid = 2; + BitmapNoMemory = 3; + XCSUCCESS = 0; + XCNOMEM = 1; + XCNOENT = 2; +type -procedure XSetTextProperty(display: PDisplay; w: TWindow; - text_prop: PXTextProperty; AProperty: TAtom); cdecl; external; + PXContext = ^TXContext; + TXContext = longint; +{$ifdef MACROS} +function XUniqueContext : TXContext; -procedure XSetWMClientMachine(display: PDisplay; w: TWindow; - text_prop: PXTextProperty); cdecl; external; +function XStringToContext(_string : longint) : TXContext; +{$endif MACROS} -function XSetWMHints(display: PDisplay; w: TWindow; - wm_hints: PXWMHints): LongInt; cdecl; external; +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; -procedure XSetWMIconName(display: PDisplay; w: TWindow; - text_prop: PXTextProperty); cdecl; external; +implementation -procedure XSetWMName(display: PDisplay; w: TWindow; - text_prop: PXTextProperty); cdecl; external; +{$ifdef MACROS} +function XGetPixel(ximage,x,y : longint) : longint; +begin + XGetPixel:=ximage^.(f.get_pixel)(ximagexy); +end; -procedure XSetWMNormalHints(display: PDisplay; w: TWindow; - hints: PXSizeHints); cdecl; external; +function XPutPixel(ximage,x,y,pixel : longint) : longint; +begin + XPutPixel:=ximage^.(f.put_pixel)(ximagexypixel); +end; -procedure XSetWMProperties(display: PDisplay; w: TWindow; - window_name, icon_name: PXTextProperty; argv: PPChar; argc: LongInt; - normal_hints: PXSizeHints; wm_hints: PXWMHints; class_hints: PXClassHint); - cdecl; external; +function XSubImage(ximage,x,y,width,height : longint) : longint; +begin + XSubImage:=ximage^.(f.sub_image)(ximagexywidthheight); +end; -(* -extern void XmbSetWMProperties( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - _Xconst char* { window_name }, - _Xconst char* { icon_name }, - char** { argv }, - int { argc }, - XSizeHints* { normal_hints }, - XWMHints* { wm_hints }, - XClassHint* { class_hints } -#endif -); +function XAddPixel(ximage,value : longint) : longint; +begin + XAddPixel:=ximage^.(f.add_pixel)(ximagevalue); +end; -extern void XSetWMSizeHints( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XSizeHints* { hints }, - Atom { property } -#endif -); *) +function IsKeypadKey(keysym : longint) : longint; +begin + IsKeypadKey:=((TKeySym(keysym)) >= XK_KP_Space) and (@((TKeySym(keysym)) <= XK_KP_Equal)); +end; -function XSetRegion(display: PDisplay; gc: TGC; r: TRegion): LongInt; cdecl; external; +function IsPrivateKeypadKey(keysym : longint) : longint; +begin + IsPrivateKeypadKey:=((TKeySym(keysym)) >= $11000000) and (@((TKeySym(keysym)) <= $1100FFFF)); +end; -(* -extern void XSetStandardColormap( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XStandardColormap* { colormap }, - Atom { property } -#endif -); +function IsCursorKey(keysym : longint) : longint; +begin + IsCursorKey:=((TKeySym(keysym)) >= XK_Home) and (@((TKeySym(keysym)) < XK_Select)); +end; -extern XSetZoomHints( -#if NeedFunctionPrototypes - Display* { display }, - Window { w }, - XSizeHints* { zhints } -#endif -); *) +function IsPFKey(keysym : longint) : longint; +begin + IsPFKey:=((TKeySym(keysym)) >= XK_KP_F1) and (@((TKeySym(keysym)) <= XK_KP_F4)); +end; -function XShrinkRegion(r: TRegion; dx, dy: LongInt): LongInt; cdecl; external; +function IsFunctionKey(keysym : longint) : longint; +begin + IsFunctionKey:=((TKeySym(keysym)) >= XK_F1) and (@((TKeySym(keysym)) <= XK_F35)); +end; -(* -extern Status XStringListToTextProperty( -#if NeedFunctionPrototypes - char** { list }, - int { count }, - XTextProperty* { text_prop_return } -#endif -); *) +function IsMiscFunctionKey(keysym : longint) : longint; +begin + IsMiscFunctionKey:=((TKeySym(keysym)) >= XK_Select) and (@((TKeySym(keysym)) <= XK_Break)); +end; -function XSubtractRegion(sra, srb, dr_return: TRegion): LongInt; cdecl; external; +function ReleaseByFreeingColormap : TXID; + begin + ReleaseByFreeingColormap:=TXID(1); + end; -(* -extern longint XmbTextListToTextProperty( -#if NeedFunctionPrototypes - Display* { display }, - char** { list }, - int { count }, - XICCEncodingStyle { style }, - XTextProperty* { text_prop_return } -#endif -); +function XUniqueContext : TXContext; +begin + XUniqueContext:=TXContext(XrmUniqueQuark); +end; -extern longint XwcTextListToTextProperty( -#if NeedFunctionPrototypes - Display* { display }, - wchar_t** { list }, - int { count }, - XICCEncodingStyle { style }, - XTextProperty* { text_prop_return } -#endif -); - -extern void XwcFreeStringList( -#if NeedFunctionPrototypes - wchar_t** { list } -#endif -); - -extern Status XTextPropertyToStringList( -#if NeedFunctionPrototypes - XTextProperty* { text_prop }, - char*** { list_return }, - int* { count_return } -#endif -); - -extern longint XmbTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* { display }, - XTextProperty* { text_prop }, - char*** { list_return }, - int* { count_return } -#endif -); - -extern longint XwcTextPropertyToTextList( -#if NeedFunctionPrototypes - Display* { display }, - XTextProperty* { text_prop }, - wchar_t*** { list_return }, - int* { count_return } -#endif -);*) - -function XUnionRectWithRegion(rectangle: PXRectangle; - src_region, dest_region_return: TRegion): LongInt; cdecl; external; - -function XUnionRegion(sra, srb, dr_return: TRegion): LongInt; cdecl; external; - -(* -extern longint XWMGeometry( -#if NeedFunctionPrototypes - Display* { display }, - int { screen_number }, - _Xconst char* { user_geometry }, - _Xconst char* { default_geometry }, - unsigned int { border_width }, - XSizeHints* { hints }, - int* { x_return }, - int* { y_return }, - int* { width_return }, - int* { height_return }, - int* { gravity_return } -#endif -); *) - -function XXorRegion(sra, srb, dr_return: TRegion): LongInt; cdecl; external; - - -Implementation +function XStringToContext(string : longint) : TXContext; +begin + XStringToContext:=TXContext(XrmStringToQuark(_string)); +end; +{$endif MACROS} end. -{ - $Log$ - Revision 1.3 2000-12-23 22:48:33 sg - * Converted declaration of XSetWMProperties (merged from fixbranch) - - Revision 1.2 2000/07/13 11:33:34 michael - + removed logs - -}