* PChar -> PAnsiChar

packages/x11/src/fontconfig.pas

@@ -217,13 +217,13 @@ type
   PFcCharSet = ^TFcCharSet;
 
   TFcObjectType = record
-    object_: PChar;
+    object_: PAnsiChar;
     type_: TFcType;
   end;
 
   TFcConstant = record
     name: PFcChar8;
-    object_: PChar;
+    object_: PAnsiChar;
     value: cint;
   end;
 

packages/x11/src/keysym.pp

@@ -54,7 +54,7 @@ Const
  * tables in client code.
  *}
 
-  XK_BackSpace          = $FF08;        { back space, back char }
+  XK_BackSpace          = $FF08;        { back space, back AnsiChar }
   XK_Tab                = $FF09;
   XK_Linefeed           = $FF0A;        { Linefeed, LF }
   XK_Clear              = $FF0B;
@@ -1878,7 +1878,7 @@ Const
   XK_Georgian_can  = $10010ea;  { U+10EA GEORGIAN LETTER CAN }
   XK_Georgian_jil  = $10010eb;  { U+10EB GEORGIAN LETTER JIL }
   XK_Georgian_cil  = $10010ec;  { U+10EC GEORGIAN LETTER CIL }
-  XK_Georgian_char = $10010ed;  { U+10ED GEORGIAN LETTER CHAR }
+  XK_Georgian_char = $10010ed;  { U+10ED GEORGIAN LETTER AnsiChar }
   XK_Georgian_xan  = $10010ee;  { U+10EE GEORGIAN LETTER XAN }
   XK_Georgian_jhan = $10010ef;  { U+10EF GEORGIAN LETTER JHAN }
   XK_Georgian_hae  = $10010f0;  { U+10F0 GEORGIAN LETTER HAE }

packages/x11/src/sync.pp

@@ -65,7 +65,7 @@ const
 type
   PXSyncSystemCounter = ^TXSyncSystemCounter;
   TXSyncSystemCounter = record
-    name: Pchar;              { null-terminated name of system counter }
+    name: PAnsiChar;              { null-terminated name of system counter }
     counter: TXSyncCounter;   { counter id of this system counter }
     resolution: TXSyncValue;  { resolution of this system counter }
   end;

packages/x11/src/xauth.inc

@@ -29,13 +29,13 @@ type
   TXauth = record
     family: cushort;
     address_length: cushort;
-    address: Pchar;
+    address: PAnsiChar;
     number_length: cushort;
-    number: Pchar;
+    number: PAnsiChar;
     name_length: cushort;
-    name: PChar;
+    name: PAnsiChar;
     data_length: cushort;
-    data: PChar;
+    data: PAnsiChar;
   end;
 
 {$ifndef _XAUTH_STRUCT_ONLY}
@@ -54,21 +54,21 @@ type
 
 _XFUNCPROTOBEGIN
 
-char *XauFileName(void);
+AnsiChar *XauFileName(void);
 
 Xauth *XauReadAuth(
 FILE*	/* auth_file */
 );
 
 int XauLockAuth(
-_Xconst char*	/* file_name */,
+_Xconst AnsiChar*	/* file_name */,
 int		/* retries */,
 int		/* timeout */,
 long		/* dead */
 );
 
 int XauUnlockAuth(
-_Xconst char*	/* file_name */
+_Xconst AnsiChar*	/* file_name */
 );
 
 int XauWriteAuth(
@@ -84,19 +84,19 @@ unsigned int	/* address_length */,
 unsigned short	/* family */,
 unsigned short	/* address_length */,
 #endif
-_Xconst char*	/* address */,
+_Xconst AnsiChar*	/* address */,
 #if NeedWidePrototypes
 unsigned int	/* number_length */,
 #else
 unsigned short	/* number_length */,
 #endif
-_Xconst char*	/* number */,
+_Xconst AnsiChar*	/* number */,
 #if NeedWidePrototypes
 unsigned int	/* name_length */,
 #else
 unsigned short	/* name_length */,
 #endif
-_Xconst char*	/* name */
+_Xconst AnsiChar*	/* name */
 );
 
 Xauth *XauGetBestAuthByAddr(
@@ -107,15 +107,15 @@ unsigned int	/* address_length */,
 unsigned short	/* family */,
 unsigned short	/* address_length */,
 #endif
-_Xconst char*	/* address */,
+_Xconst AnsiChar*	/* address */,
 #if NeedWidePrototypes
 unsigned int	/* number_length */,
 #else
 unsigned short	/* number_length */,
 #endif
-_Xconst char*	/* number */,
+_Xconst AnsiChar*	/* number */,
 int		/* types_length */,
-char**		/* type_names */,
+AnsiChar**		/* type_names */,
 _Xconst int*	/* type_lengths */
 );
 

packages/x11/src/xcms.pp

@@ -165,7 +165,7 @@ type
         functionSet : TXPointer;
         screenData : TXPointer;
         state : byte;
-        pad : array[0..2] of char;
+        pad : array[0..2] of AnsiChar;
      end;
 
    PXcmsCCC = ^TXcmsCCC;
@@ -198,11 +198,11 @@ type
        PXcmsFuncListPtr = ^TXcmsFuncListPtr;
        TXcmsFuncListPtr = TXcmsConversionProc;
 
-       TXcmsParseStringProc = function (para1:Pchar; para2:PXcmsColor):longint;cdecl;
+       TXcmsParseStringProc = function (para1:PAnsiChar; para2:PXcmsColor):longint;cdecl;
 
        PXcmsColorSpace = ^TXcmsColorSpace;
        TXcmsColorSpace = record
-            prefix : Pchar;
+            prefix : PAnsiChar;
             id : TXcmsColorFormat;
             parseString : TXcmsParseStringProc;
             to_CIEXYZ : TXcmsFuncListPtr;
@@ -222,7 +222,7 @@ in declaration at line 323 *)
 
 function XcmsAddFunctionSet(para1:PXcmsFunctionSet):TStatus;cdecl;external libX11;
 function XcmsAllocColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:TXcmsColorFormat):TStatus;cdecl;external libX11;
-function XcmsAllocNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXcmsColor; para5:PXcmsColor;
+function XcmsAllocNamedColor(para1:PDisplay; para2:TColormap; para3:PAnsiChar; para4:PXcmsColor; para5:PXcmsColor;
                para6:TXcmsColorFormat):TStatus;cdecl;external libX11;
 function XcmsCCCOfColormap(para1:PDisplay; para2:TColormap):TXcmsCCC;cdecl;external libX11;
 function XcmsCIELabClipab(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
@@ -259,11 +259,11 @@ function XcmsCreateCCC(para1:PDisplay; para2:longint; para3:PVisual; para4:PXcms
                para6:TXPointer; para7:TXcmsWhiteAdjustProc; para8:TXPointer):TXcmsCCC;cdecl;external libX11;
 function XcmsDefaultCCC(para1:PDisplay; para2:longint):TXcmsCCC;cdecl;external libX11;
 function XcmsDisplayOfCCC(para1:TXcmsCCC):PDisplay;cdecl;external libX11;
-function XcmsFormatOfPrefix(para1:Pchar):TXcmsColorFormat;cdecl;external libX11;
+function XcmsFormatOfPrefix(para1:PAnsiChar):TXcmsColorFormat;cdecl;external libX11;
 procedure XcmsFreeCCC(para1:TXcmsCCC);cdecl;external libX11;
-function XcmsLookupColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXcmsColor; para5:PXcmsColor;
+function XcmsLookupColor(para1:PDisplay; para2:TColormap; para3:PAnsiChar; para4:PXcmsColor; para5:PXcmsColor;
                para6:TXcmsColorFormat):TStatus;cdecl;external libX11;
-function XcmsPrefixOfFormat(para1:TXcmsColorFormat):Pchar;cdecl;external libX11;
+function XcmsPrefixOfFormat(para1:TXcmsColorFormat):PAnsiChar;cdecl;external libX11;
 function XcmsQueryBlack(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external libX11;
 function XcmsQueryBlue(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external libX11;
 function XcmsQueryColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:TXcmsColorFormat):TStatus;cdecl;external libX11;

packages/x11/src/xext.pp

@@ -40,8 +40,8 @@ const
 type
   XextErrorHandler = function(
     dpy: PDisplay;
-    {_Xconst} ext_name: Pchar;
-    {_Xconst} reason: PChar
+    {_Xconst} ext_name: PAnsiChar;
+    {_Xconst} reason: PAnsiChar
   ): cint; cdecl;
 
 function XSetExtensionErrorHandler(
@@ -50,7 +50,7 @@ function XSetExtensionErrorHandler(
 
 function XMissingExtension(
     dpy: PDisplay;
-    {_Xconst} ext_name: PChar
+    {_Xconst} ext_name: PAnsiChar
 ): cint; cdecl; external libXext;
 
 implementation

packages/x11/src/xf86dga.pp

@@ -76,7 +76,7 @@ Type
   PXDGAMode = ^TXDGAMode;
   TXDGAMode = Record
     num : cint;                 { A unique identifier for the mode (num > 0) }
-    name : PChar;               { name of mode given in the XF86Config }
+    name : PAnsiChar;               { name of mode given in the XF86Config }
     verticalRefresh : cfloat;
     flags : cint;               { DGA_CONCURRENT_ACCESS, etc... }
     imageWidth : cint;          { linear accessible portion (pixels) }

packages/x11/src/xf86vmode.pp

@@ -142,8 +142,8 @@ Type
 
   PXF86VidModeMonitor = ^TXF86VidModeMonitor;
   TXF86VidModeMonitor = Record
-    vendor : PChar;
-    model : PChar;
+    vendor : PAnsiChar;
+    model : PAnsiChar;
     EMPTY : cfloat;
     nhsync : cuchar;
     hsync : PXF86VidModeSyncRange;

packages/x11/src/xfixes.pp

@@ -105,7 +105,7 @@ type
     pixels: Pculong;
 //#if XFIXES_MAJOR >= 2
     atom: TAtom;                    { Version >= 2 only }
-    name: PChar;                    { Version >= 2 only }
+    name: PAnsiChar;                    { Version >= 2 only }
 //#endif
   end;
 
@@ -123,7 +123,7 @@ type
     cursor_serial: culong;
     pixels: Pculong;
     atom: TAtom;
-    name: PChar;
+    name: PAnsiChar;
   end;
 
 //#endif
@@ -233,16 +233,16 @@ XFixesSetPictureClipRegion(dpy: PDisplay; picture: TXID;
                            region: TXserverRegion); cdecl; external libXfixes;
 
 procedure
-XFixesSetCursorName(dpy: PDisplay; cursor: TCursor; name: PChar); cdecl; external libXfixes;
+XFixesSetCursorName(dpy: PDisplay; cursor: TCursor; name: PAnsiChar); cdecl; external libXfixes;
 
 function XFixesGetCursorName(dpy: PDisplay; cursor: TCursor; atom: PAtom)
-: PChar; cdecl; external libXfixes;
+: PAnsiChar; cdecl; external libXfixes;
 
 procedure
 XFixesChangeCursor(dpy: PDisplay; source: TCursor; destination: TCursor); cdecl; external libXfixes;
 
 procedure
-XFixesChangeCursorByName(dpy: PDisplay; source: TCursor; name: PChar); cdecl; external libXfixes;
+XFixesChangeCursorByName(dpy: PDisplay; source: TCursor; name: PAnsiChar); cdecl; external libXfixes;
 
 //#endif	/* XFIXES_MAJOR >= 2 */
 

packages/x11/src/xft.pas

@@ -105,19 +105,19 @@ function  XftDrawCreate(display : PXDisplay; win : TXID; vis : PVisual; colorm :
 procedure XftDrawChange(xftd : PXftDraw; win : TXID); cdecl; external libXft;
 procedure XftDrawDestroy(draw : PXftDraw); cdecl; external libXft;
 function  XftDrawPicture(draw : PXftDraw) : TPicture; cdecl; external libXft;
-function  XftFontOpenName(display : PXDisplay; scr : integer; par3 : PChar) : PXftFont; cdecl; external libXft;
+function  XftFontOpenName(display : PXDisplay; scr : integer; par3 : PAnsiChar) : PXftFont; cdecl; external libXft;
 procedure XftFontClose(display : PXDisplay; fnt : PXftFont); cdecl; external libXft;
-procedure XftDrawStringUtf8(draw : PXftDraw; var col : TXftColor; fnt : PXftFont; x,y : integer; txt : PChar; len : integer); cdecl; external libXft;
-procedure XftDrawString8(draw : PXftDraw; var col : TXftColor; fnt : PXftFont; x,y : integer; txt : PChar; len : integer); cdecl; external libXft;
-procedure XftDrawString16(draw : PXftDraw; var col : TXftColor; fnt : PXftFont; x,y : integer; txt : PChar; len : integer); cdecl; external libXft;
-procedure XftTextExtentsUtf8(display : PXDisplay; fnt : PXftFont; txt : PChar; len : integer; var extents : TXGlyphInfo); cdecl; external libXft;
-procedure XftTextExtents8(display : PXDisplay; fnt : PXftFont; txt : PChar; len : integer; var extents : TXGlyphInfo); cdecl; external libXft;
-procedure XftTextExtents16(display : PXDisplay; fnt : PXftFont; txt : PChar; len : integer; var extents : TXGlyphInfo); cdecl; external libXft;
+procedure XftDrawStringUtf8(draw : PXftDraw; var col : TXftColor; fnt : PXftFont; x,y : integer; txt : PAnsiChar; len : integer); cdecl; external libXft;
+procedure XftDrawString8(draw : PXftDraw; var col : TXftColor; fnt : PXftFont; x,y : integer; txt : PAnsiChar; len : integer); cdecl; external libXft;
+procedure XftDrawString16(draw : PXftDraw; var col : TXftColor; fnt : PXftFont; x,y : integer; txt : PAnsiChar; len : integer); cdecl; external libXft;
+procedure XftTextExtentsUtf8(display : PXDisplay; fnt : PXftFont; txt : PAnsiChar; len : integer; var extents : TXGlyphInfo); cdecl; external libXft;
+procedure XftTextExtents8(display : PXDisplay; fnt : PXftFont; txt : PAnsiChar; len : integer; var extents : TXGlyphInfo); cdecl; external libXft;
+procedure XftTextExtents16(display : PXDisplay; fnt : PXftFont; txt : PAnsiChar; len : integer; var extents : TXGlyphInfo); cdecl; external libXft;
 //function XftGlyphExists(display : PXDisplay; fnt : PXftFont; ch : integer) : longbool; cdecl; external libXft;
 //procedure XftDrawSetClipRectangles(draw : PXftDraw; xorigin, yorigin : integer; rect : PXRectangle; rnum : integer); cdecl; external libXft;
 procedure XftDrawSetClip(draw : PXftDraw; rg : TRegion); cdecl; external libXft;
 function  XftListFonts(display : PXDisplay; screen : integer; params : array of const) : PFcFontSet; cdecl; external libXft;
-function  XftNameUnparse(pat : PFcPattern; dest : PChar; destlen : integer) : boolean; cdecl; external libXft;
+function  XftNameUnparse(pat : PFcPattern; dest : PAnsiChar; destlen : integer) : boolean; cdecl; external libXft;
 procedure FcFontSetDestroy(fsp : PFcFontSet); cdecl; external libXft;
 
 implementation

packages/x11/src/xinput.pp

@@ -198,7 +198,7 @@ type
     x_root: cint;              { coordinates relative to root }
     y_root: cint;              { coordinates relative to root }
     state: cuint;              { key or button mask }
-    is_hint: char;             { detail }
+    is_hint: AnsiChar;             { detail }
     same_screen: TBool;        { same screen flag }
     device_state: cuint;       { device key or button mask }
     axes_count: cuchar;
@@ -657,7 +657,7 @@ type
   TXDeviceInfo = record
     id: TXID;
     _type: TAtom;
-    name: PChar;
+    name: PAnsiChar;
     num_classes: cint;
     use: cint;
     inputclassinfo: TXAnyClassPtr;
@@ -1063,7 +1063,7 @@ procedure XFreeDeviceState(
 
 function XGetExtensionVersion(
     display: PDisplay;
-    name: {_Xconst} Pchar
+    name: {_Xconst} PAnsiChar
 ): PXExtensionVersion; cdecl; external libXi;
 
 function XListInputDevices(

packages/x11/src/xinput2.pp

@@ -44,7 +44,7 @@ type
   PXIAddMasterInfo = ^TXIAddMasterInfo;
   TXIAddMasterInfo = record
     _type: cint;
-    name: PChar;
+    name: PAnsiChar;
     send_core: TBool;
     enable: TBool;
   end;
@@ -172,7 +172,7 @@ type
   PXIDeviceInfo = ^TXIDeviceInfo;
   TXIDeviceInfo = record
     deviceid: cint;
-    name: PChar;
+    name: PAnsiChar;
     use: cint;
     attachment: cint;
     enabled: TBool;

packages/x11/src/xkb.pp

@@ -260,7 +260,7 @@ type
         TXkbMessageAction = record
                              _type   : Byte;
                              flags   : Byte;
-                             message : array [0..5] of char;
+                             message : array [0..5] of AnsiChar;
                             end;
 
 type
@@ -1109,14 +1109,14 @@ type
 type
         PXkbKeyNamePtr = ^TXkbKeyNameRec;
         TXkbKeyNameRec = record
-                          name : array [0..XkbKeyNameLength -1] of Char;
+                          name : array [0..XkbKeyNameLength -1] of AnsiChar;
                          end;
 
 type
         PXkbKeyAliasPtr = ^TXkbKeyAliasRec;
         TXkbKeyAliasRec = record
-                                                                                 real  : array [0..XkbKeyNameLength -1] of Char;
-                           alias : array [0..XkbKeyNameLength -1] of Char;
+                                                                                 real  : array [0..XkbKeyNameLength -1] of AnsiChar;
+                           alias : array [0..XkbKeyNameLength -1] of AnsiChar;
                           end;
 
         {
@@ -1321,15 +1321,15 @@ const
 type
         PXkbPropertyPtr = ^TXkbPropertyRec;
         TXkbPropertyRec = record
-                           name  : PChar;
-                           value : PChar;
+                           name  : PAnsiChar;
+                           value : PAnsiChar;
                           end;
 
 type
         PXkbColorPtr = ^TXkbColorRec;
         TXkbColorRec = record
                         pixel : Word;
-                        spec  : PChar;
+                        spec  : PAnsiChar;
                        end;
 
 type
@@ -1399,8 +1399,8 @@ type
                              width     : SmallInt;
                              height    : SmallInt;
                              color_ndx : Word;
-                             text      : PChar;
-                             font      : PChar;
+                             text      : PAnsiChar;
+                             font      : PAnsiChar;
                             end;
 
 type
@@ -1428,7 +1428,7 @@ type
                              angle     : SmallInt;
                              color_ndx : Word;
                              shape_ndx : Word;
-                             logo_name : PChar;
+                             logo_name : PAnsiChar;
                             end;
 
 type
@@ -1536,7 +1536,7 @@ type
                            name            : TAtom;
                            width_mm        : Word;
                                                                                  height_mm       : Word;
-                           label_font      : PChar;
+                           label_font      : PAnsiChar;
                            label_color     : PXkbColorPtr;
                            base_color      : PXkbColorPtr;
                            sz_properties   : Word;
@@ -1717,7 +1717,7 @@ type
         PXkbComponentNamePtr = ^TXkbComponentNameRec;
         TXkbComponentNameRec = record
                                 flags : Word;
-                                name  : PChar;
+                                name  : PAnsiChar;
                                end;
 
 type
@@ -1757,7 +1757,7 @@ type
 type
         PXkbDeviceInfoPtr = ^TXkbDeviceInfoRec;
         TXkbDeviceInfoRec = record
-                             name          : PChar;
+                             name          : PAnsiChar;
                              _type         : TAtom;
                              device_spec   : Word;
                              has_own_state : Boolean;
@@ -1825,13 +1825,13 @@ procedure XkbSetKeyColor (g : PXkbGeometryPtr; k : PXkbKeyPtr; c : PXkbColorPtr)
 
 function XkbGeomColorIndex (g : PXkbGeometryPtr; c : PXkbColorPtr) : longint;
 
-function XkbAddGeomProperty (geom : PXkbGeometryPtr; name : PChar; value : PChar) : PXkbPropertyPtr;
+function XkbAddGeomProperty (geom : PXkbGeometryPtr; name : PAnsiChar; value : PAnsiChar) : PXkbPropertyPtr;
         cdecl; external libX11 name 'XkbAddGeomProperty';
 
-function XkbAddGeomKeyAlias (geom : PXkbGeometryPtr; alias : PChar; real : PChar) : PXkbKeyAliasPtr;
+function XkbAddGeomKeyAlias (geom : PXkbGeometryPtr; alias : PAnsiChar; real : PAnsiChar) : PXkbKeyAliasPtr;
         cdecl; external libX11 name 'XkbAddGeomKeyAlias';
 
-function XkbAddGeomColor (geom : PXkbGeometryPtr; spec : PChar; pixel : Word) : PXkbColorPtr;
+function XkbAddGeomColor (geom : PXkbGeometryPtr; spec : PAnsiChar; pixel : Word) : PXkbColorPtr;
         cdecl; external libX11 name 'XkbAddGeomColor';
 
 function XkbAddGeomOutline (shape : PXkbShapePtr; sz_points : SmallInt) : PXkbOutlinePtr;
@@ -1859,7 +1859,7 @@ function XkbAddGeomOverlayRow (overlay : PXkbOverlayPtr; row_under : SmallInt;
         cdecl; external libX11 name 'XkbAddGeomOverlayRow';
 
 function XkbAddGeomOverlayKey (overlay : PXkbOverlayPtr; row   : PXkbOverlayRowPtr;
-                                                                                                                         over    : PChar;          under : PChar)              : PXkbOverlayKeyPtr;
+                                                                                                                         over    : PAnsiChar;          under : PAnsiChar)              : PXkbOverlayKeyPtr;
         cdecl; external libX11 name 'XkbAddGeomOverlayKey';
 
 function XkbAddGeomDoodad (geom : PXkbGeometryPtr; section : PXkbSectionPtr; name : TAtom) : PXkbDoodadPtr;
@@ -1977,7 +1977,7 @@ function XkbComputeRowBounds (geom : PXkbGeometryPtr; section : PXkbSectionPtr;
 function XkbComputeSectionBounds (geom : PXkbGeometryPtr; section : PXkbSectionPtr) : Boolean;
         cdecl; external libX11 name 'XkbComputeSectionBounds';
 
-function XkbFindOverlayForKey (geom : PXkbGeometryPtr; wanted : PXkbSectionPtr; under : PChar) : PChar;
+function XkbFindOverlayForKey (geom : PXkbGeometryPtr; wanted : PXkbSectionPtr; under : PAnsiChar) : PAnsiChar;
         cdecl; external libX11 name 'XkbFindOverlayForKey';
 
 function XkbGetGeometry (dpy : PDisplay; xkb : PXkbDescPtr) : TStatus;
@@ -1988,24 +1988,24 @@ function XkbGetNamedGeometry (dpy : PDisplay; xkb : PXkbDescPtr; name : TAtom) :
 
 
 {$ifdef XKB_IN_SERVER}
-function SrvXkbAddGeomKeyAlias (geom : PXkbGeometryPtr; alias : PChar; real : PChar) : PXkbKeyAliasPtr;
+function SrvXkbAddGeomKeyAlias (geom : PXkbGeometryPtr; alias : PAnsiChar; real : PAnsiChar) : PXkbKeyAliasPtr;
         cdecl; external libX11 name 'XkbAddGeomKeyAlias';
 
-function SrvXkbAddGeomColor (geom : PXkbGeometryPtr; spec : PChar; pixel : Word) : PXkbColorPtr;
+function SrvXkbAddGeomColor (geom : PXkbGeometryPtr; spec : PAnsiChar; pixel : Word) : PXkbColorPtr;
         cdecl; external libX11 name 'XkbAddGeomColor';
 
 function SrvXkbAddGeomDoodad (geom : PXkbGeometryPtr; section : PXkbSectionPtr;
                               name : TAtom)                                     : PXkbDoodadPtr;
         cdecl; external libX11 name 'XkbAddGeomDoodad';
 
-function SrvXkbAddGeomKey (geom : PXkbGeometryPtr; alias : PChar; real : PChar) : PXkbKeyAliasPtr;
+function SrvXkbAddGeomKey (geom : PXkbGeometryPtr; alias : PAnsiChar; real : PAnsiChar) : PXkbKeyAliasPtr;
         cdecl; external libX11 name 'XkbAddGeomKeyAlias';
 
 function SrvXkbAddGeomOutline (shape : PXkbShapePtr; sz_points : SmallInt) : PXkbOutlinePtr;
         cdecl; external libX11 name 'XkbAddGeomOutline';
 
 function SrvXkbAddGeomOverlay (overlay : PXkbOverlayPtr; row   : PXkbOverlayRowPtr;
-                                                                                                                         over    : PChar;          under : PChar)              : PXkbOverlayKeyPtr;
+                                                                                                                         over    : PAnsiChar;          under : PAnsiChar)              : PXkbOverlayKeyPtr;
         cdecl; external libX11 name 'XkbAddGeomOverlayKey';
 
 function SrvXkbAddGeomOverlayRow (overlay : PXkbOverlayPtr; row_under : SmallInt;
@@ -2013,10 +2013,10 @@ function SrvXkbAddGeomOverlayRow (overlay : PXkbOverlayPtr; row_under : SmallInt
         cdecl; external libX11 name 'XkbAddGeomOverlayRow';
 
 function SrvXkbAddGeomOverlayKey (overlay : PXkbOverlayPtr; row   : PXkbOverlayRowPtr;
-                                                                                                                         over    : PChar;          under : PChar)              : PXkbOverlayKeyPtr;
+                                                                                                                         over    : PAnsiChar;          under : PAnsiChar)              : PXkbOverlayKeyPtr;
         cdecl; external libX11 name 'XkbAddGeomOverlayKey';
 
-function SrvXkbAddGeomProperty (geom : PXkbGeometryPtr; name : PChar; value : PChar) : PXkbPropertyPtr;
+function SrvXkbAddGeomProperty (geom : PXkbGeometryPtr; name : PAnsiChar; value : PAnsiChar) : PXkbPropertyPtr;
         cdecl; external libX11 name 'XkbAddGeomProperty';
 
 function SrvXkbAddGeomRow (section : PXkbSectionPtr; sz_keys : SmallInt) : PXkbRowPtr;

packages/x11/src/xkblib.pp

@@ -258,7 +258,7 @@ type
                                   key_event_follows : Boolean;   // true if key event also generated
                                   group             : Smallint;  // effective group
                                   mods              : Word;      // effective mods
-                                  message           : array [0..XkbActionMessageLength] of Char;
+                                  message           : array [0..XkbActionMessageLength] of AnsiChar;
                                                            // message -- leave space for NUL
                                  end;
 
@@ -350,7 +350,7 @@ const
 function XkbIgnoreExtension (ignore : Boolean) : Boolean;
         cdecl; external libX11 name 'XkbIgnoreExtension';
 
-function XkbOpenDisplay (name : PChar; ev_rtrn, err_rtrn,
+function XkbOpenDisplay (name : PAnsiChar; ev_rtrn, err_rtrn,
                          major_rtrn, minor_rtrn, reason : PSmallint) : PDisplay;
         cdecl; external libX11 name 'XkbOpenDisplay';
 
@@ -371,10 +371,10 @@ function XkbGetXlibControls (dpy : PDisplay) : Word;
         cdecl; external libX11 name 'XkbGetXlibControls';
 
 type
-        TXkbInternAtomFunc = function (dpy : PDisplay; name : PChar; only_if_exists : Boolean) : TAtom; cdecl;
+        TXkbInternAtomFunc = function (dpy : PDisplay; name : PAnsiChar; only_if_exists : Boolean) : TAtom; cdecl;
 
 type
-        TXkbGetAtomNameFunc = function (dpy : PDisplay; atom : TAtom) : PChar; cdecl;
+        TXkbGetAtomNameFunc = function (dpy : PDisplay; atom : TAtom) : PAnsiChar; cdecl;
 
 procedure XkbSetAtomFuncs (getAtom : TXkbInternAtomFunc; getName : TXkbGetAtomNameFunc);
         cdecl; external libX11 name 'XkbSetAtomFuncs';
@@ -396,7 +396,7 @@ function XkbLookupKeySym (dpy               : PDisplay; keycode       : TKeyCode
         cdecl; external libX11 name 'XkbLookupKeySym';
 
 function XkbLookupKeyBinding (dpy    : PDisplay; sym_rtrn : TKeySym;  mods       : Word;
-                              buffer : PChar;    nbytes   : Smallint; extra_rtrn : PSmallint) : Smallint;
+                              buffer : PAnsiChar;    nbytes   : Smallint; extra_rtrn : PSmallint) : Smallint;
         cdecl; external libX11 name 'XkbLookupKeyBinding';
 
 function XkbTranslateKeyCode (xkb              : PXkbDescPtr; keycode       : TKeyCode; modifiers,
@@ -404,7 +404,7 @@ function XkbTranslateKeyCode (xkb              : PXkbDescPtr; keycode       : TK
         cdecl; external libX11 name 'XkbTranslateKeyCode';
 
 function XkbTranslateKeySym (dpy    : PDisplay; sym_return : TKeySym;  modifiers  : Word;
-                             buffer : PChar;    nbytes     : Smallint; extra_rtrn : PSmallint) : Smallint;
+                             buffer : PAnsiChar;    nbytes     : Smallint; extra_rtrn : PSmallint) : Smallint;
         cdecl; external libX11 name 'XkbTranslateKeySym';
 
 function XkbSetAutoRepeatRate (dpy : PDisplay; deviceSpec, delay, interval : Word) : Boolean;
@@ -779,7 +779,7 @@ function XkbToControl (c : Byte) : Byte;
 
 (***====================================================================***)
 
-function XkbSetDebuggingFlags (dpy : PDisplay; mask, flags : Word; msg : PChar;
+function XkbSetDebuggingFlags (dpy : PDisplay; mask, flags : Word; msg : PAnsiChar;
                                ctrls_mask, ctrls, rtrn_flags, rtrn_ctrls : Word) : Boolean;
         cdecl; external libX11 name 'XkbSetDebuggingFlags';
 

packages/x11/src/xlib.pp

@@ -37,7 +37,7 @@ const
 type
 
    PXPointer = ^TXPointer;
-   TXPointer = ^char;
+   TXPointer = ^AnsiChar;
    PBool = ^TBool;
    { We cannot use TBool = LongBool, because Longbool(True)=-1, 
      and that is not handled well by X. So we leave TBool=cint; 
@@ -212,15 +212,15 @@ type
    TXHostAddress = record
         family : cint;
         length : cint;
-        address : Pchar;
+        address : PAnsiChar;
      end;
 
    PXServerInterpretedAddress = ^TXServerInterpretedAddress;
    TXServerInterpretedAddress = record
         typelength : cint;
         valuelength : cint;
-        _type : Pchar;
-        value : Pchar;
+        _type : PAnsiChar;
+        value : PAnsiChar;
      end;
 
    PXImage = ^TXImage;
@@ -228,7 +228,7 @@ type
         width, height : cint;
         xoffset : cint;
         format : cint;
-        data : Pchar;
+        data : PAnsiChar;
         byte_order : cint;
         bitmap_unit : cint;
         bitmap_bit_order : cint;
@@ -242,7 +242,7 @@ type
         obdata : TXPointer;
         f : record
              create_image : function (para1:PXDisplay; para2:PVisual; para3:cuint; para4:cint; para5:cint;
-                          para6:Pchar; para7:cuint; para8:cuint; para9:cint; para10:cint):PXImage;cdecl;
+                          para6:PAnsiChar; para7:cuint; para8:cuint; para9:cint; para10:cint):PXImage;cdecl;
              destroy_image : function (para1:PXImage):cint;cdecl;
              get_pixel : function (para1:PXImage; para2:cint; para3:cint):culong;cdecl;
              put_pixel : function (para1:PXImage; para2:cint; para3:cint; para4:culong):cint;cdecl;
@@ -346,7 +346,7 @@ type
         private2 : cint;
         proto_major_version : cint;
         proto_minor_version : cint;
-        vendor : Pchar;
+        vendor : PAnsiChar;
         private3 : TXID;
         private4 : TXID;
         private5 : TXID;
@@ -371,7 +371,7 @@ type
         max_request_size : cunsigned;
         db : PXrmHashBucketRec;
         private15 : function (para1:PXDisplay):cint;cdecl;
-        display_name : Pchar;
+        display_name : PAnsiChar;
         default_screen : cint;
         nscreens : cint;
         screens : PScreen;
@@ -382,7 +382,7 @@ type
         private17 : TXPointer;
         private18 : TXPointer;
         private19 : cint;
-        xdefaults : Pchar;
+        xdefaults : PAnsiChar;
      end;
 
    PXKeyEvent = ^TXKeyEvent;
@@ -913,7 +913,7 @@ type
 
    PXTextItem = ^TXTextItem;
    TXTextItem = record
-        chars : Pchar;
+        chars : PAnsiChar;
         nchars : cint;
         delta : cint;
         font : TFont;
@@ -962,7 +962,7 @@ type
 
    PXmbTextItem = ^TXmbTextItem;
    TXmbTextItem = record
-        chars : Pchar;
+        chars : PAnsiChar;
         nchars : cint;
         delta : cint;
         font_set : TXFontSet;
@@ -992,7 +992,7 @@ type
    PXOMCharSetList = ^TXOMCharSetList;
    TXOMCharSetList = record
         charset_count : cint;
-        charset_list : PPChar;
+        charset_list : PPAnsiChar;
      end;
 
    PXOrientation = ^TXOrientation;
@@ -1010,7 +1010,7 @@ type
    TXOMFontInfo = record
         num_font : cint;
         font_struct_list : ^PXFontStruct;
-        font_name_list : PPChar;
+        font_name_list : PPAnsiChar;
      end;
 
    PXIM = ^TXIM;
@@ -1132,7 +1132,7 @@ type
         encoding_is_wchar : TBool;
         _string : record
             case longint of
-               0 : ( multi_byte : Pchar );
+               0 : ( multi_byte : PAnsiChar );
                1 : ( wide_char : PWideChar ); {wchar_t*}
             end;
      end;
@@ -1178,7 +1178,7 @@ type
         encoding_is_wchar : TBool;
         _string : record
             case longint of
-               0 : ( mbs : Pchar );
+               0 : ( mbs : PAnsiChar );
                1 : ( wcs : PWideChar ); {wchar_t*}
             end;
      end;
@@ -1276,7 +1276,7 @@ type
    PXIMValuesList = ^TXIMValuesList;
    TXIMValuesList = record
         count_values : cushort;
-        supported_values : PPChar;
+        supported_values : PPAnsiChar;
      end;
 {$ifndef os2}
   var
@@ -1285,13 +1285,13 @@ type
 type
   funcdisp    = function(display:PDisplay):cint;cdecl;
   funcifevent = function(display:PDisplay; event:PXEvent; p : TXPointer):TBoolResult;cdecl;
-  chararr32   = array[0..31] of char;
+  chararr32   = array[0..31] of AnsiChar;
   pchararr32  = chararr32;
 
 const
   AllPlanes : culong = culong(not 0);
 
-function XLoadQueryFont(para1:PDisplay; para2:Pchar):PXFontStruct;cdecl;external libX11;
+function XLoadQueryFont(para1:PDisplay; para2:PAnsiChar):PXFontStruct;cdecl;external libX11;
 function XQueryFont(para1:PDisplay; para2:TXID):PXFontStruct;cdecl;external libX11;
 function XGetMotionEvents(para1:PDisplay; para2:TWindow; para3:TTime; para4:TTime; para5:Pcint):PXTimeCoord;cdecl;external libX11;
 function XDeleteModifiermapEntry(para1:PXModifierKeymap; para2:TKeyCode; para3:cint):PXModifierKeymap;cdecl;external libX11;
@@ -1299,26 +1299,26 @@ function XGetModifierMapping(para1:PDisplay):PXModifierKeymap;cdecl;external lib
 function XInsertModifiermapEntry(para1:PXModifierKeymap; para2:TKeyCode; para3:cint):PXModifierKeymap;cdecl;external libX11;
 function XNewModifiermap(para1:cint):PXModifierKeymap;cdecl;external libX11;
 function XCreateImage(para1:PDisplay; para2:PVisual; para3:cuint; para4:cint; para5:cint;
-           para6:Pchar; para7:cuint; para8:cuint; para9:cint; para10:cint):PXImage;cdecl;external libX11;
+           para6:PAnsiChar; para7:cuint; para8:cuint; para9:cint; para10:cint):PXImage;cdecl;external libX11;
 function XInitImage(para1:PXImage):TStatus;cdecl;external libX11;
 function XGetImage(para1:PDisplay; para2:TDrawable; para3:cint; para4:cint; para5:cuint;
            para6:cuint; para7:culong; para8:cint):PXImage;cdecl;external libX11;
 function XGetSubImage(para1:PDisplay; para2:TDrawable; para3:cint; para4:cint; para5:cuint;
            para6:cuint; para7:culong; para8:cint; para9:PXImage; para10:cint;
            para11:cint):PXImage;cdecl;external libX11;
-function XOpenDisplay(para1:Pchar):PDisplay;cdecl;external libX11;
+function XOpenDisplay(para1:PAnsiChar):PDisplay;cdecl;external libX11;
 procedure XrmInitialize;cdecl;external libX11;
-function XFetchBytes(para1:PDisplay; para2:Pcint):Pchar;cdecl;external libX11;
-function XFetchBuffer(para1:PDisplay; para2:Pcint; para3:cint):Pchar;cdecl;external libX11;
-function XGetAtomName(para1:PDisplay; para2:TAtom):Pchar;cdecl;external libX11;
-function XGetAtomNames(para1:PDisplay; para2:PAtom; para3:cint; para4:PPchar):TStatus;cdecl;external libX11;
-function XGetDefault(para1:PDisplay; para2:Pchar; para3:Pchar):Pchar;cdecl;external libX11;
-function XDisplayName(para1:Pchar):Pchar;cdecl;external libX11;
-function XKeysymToString(para1:TKeySym):Pchar;cdecl;external libX11;
+function XFetchBytes(para1:PDisplay; para2:Pcint):PAnsiChar;cdecl;external libX11;
+function XFetchBuffer(para1:PDisplay; para2:Pcint; para3:cint):PAnsiChar;cdecl;external libX11;
+function XGetAtomName(para1:PDisplay; para2:TAtom):PAnsiChar;cdecl;external libX11;
+function XGetAtomNames(para1:PDisplay; para2:PAtom; para3:cint; para4:PPAnsiChar):TStatus;cdecl;external libX11;
+function XGetDefault(para1:PDisplay; para2:PAnsiChar; para3:PAnsiChar):PAnsiChar;cdecl;external libX11;
+function XDisplayName(para1:PAnsiChar):PAnsiChar;cdecl;external libX11;
+function XKeysymToString(para1:TKeySym):PAnsiChar;cdecl;external libX11;
 function XSynchronize(para1:PDisplay; para2:TBool):funcdisp;cdecl;external libX11;
 function XSetAfterFunction(para1:PDisplay; para2:funcdisp):funcdisp;cdecl;external libX11;
-function XInternAtom(para1:PDisplay; para2:Pchar; para3:TBool):TAtom;cdecl;external libX11;
-function XInternAtoms(para1:PDisplay; para2:PPchar; para3:cint; para4:TBool; para5:PAtom):TStatus;cdecl;external libX11;
+function XInternAtom(para1:PDisplay; para2:PAnsiChar; para3:TBool):TAtom;cdecl;external libX11;
+function XInternAtoms(para1:PDisplay; para2:PPAnsiChar; para3:cint; para4:TBool; para5:PAtom):TStatus;cdecl;external libX11;
 function XCopyColormapAndFree(para1:PDisplay; para2:TColormap):TColormap;cdecl;external libX11;
 function XCreateColormap(para1:PDisplay; para2:TWindow; para3:PVisual; para4:cint):TColormap;cdecl;external libX11;
 function XCreatePixmapCursor(ADisplay:PDisplay; ASource:TPixmap; AMask:TPixmap; AForegroundColor:PXColor; ABackgroundColor:PXColor;
@@ -1326,13 +1326,13 @@ function XCreatePixmapCursor(ADisplay:PDisplay; ASource:TPixmap; AMask:TPixmap;
 function XCreateGlyphCursor(ADisplay:PDisplay; ASourceFont:TFont; AMaskFont:TFont; ASourceChar:cuint; AMaskChar:cuint;
            AForegroundColor:PXColor; ABackgroundColor:PXColor):TCursor;cdecl;external libX11;
 function XCreateFontCursor(ADisplay:PDisplay; AShape:cuint):TCursor;cdecl;external libX11;
-function XLoadFont(para1:PDisplay; para2:Pchar):TFont;cdecl;external libX11;
+function XLoadFont(para1:PDisplay; para2:PAnsiChar):TFont;cdecl;external libX11;
 function XCreateGC(para1:PDisplay; para2:TDrawable; para3:culong; para4:PXGCValues):TGC;cdecl;external libX11;
 function XGContextFromGC(para1:TGC):TGContext;cdecl;external libX11;
 procedure XFlushGC(para1:PDisplay; para2:TGC);cdecl;external libX11;
 function XCreatePixmap(ADisplay:PDisplay; ADrawable:TDrawable; AWidth:cuint; AHeight:cuint; ADepth:cuint):TPixmap;cdecl;external libX11;
-function XCreateBitmapFromData(ADiplay:PDisplay; ADrawable:TDrawable; AData:Pchar; AWidth:cuint; AHeight:cuint):TPixmap;cdecl;external libX11;
-function XCreatePixmapFromBitmapData(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:cuint; para5:cuint;
+function XCreateBitmapFromData(ADiplay:PDisplay; ADrawable:TDrawable; AData:PAnsiChar; AWidth:cuint; AHeight:cuint):TPixmap;cdecl;external libX11;
+function XCreatePixmapFromBitmapData(para1:PDisplay; para2:TDrawable; para3:PAnsiChar; para4:cuint; para5:cuint;
            para6:culong; para7:culong; para8:cuint):TPixmap;cdecl;external libX11;
 function XCreateSimpleWindow(ADisplay:PDisplay; AParent:TWindow; AX:cint; AY:cint; AWidth:cuint;
            AHeight:cuint; ABorderWidth:cuint; ABorder:culong; ABackground:culong):TWindow;cdecl;external libX11;
@@ -1341,26 +1341,26 @@ function XCreateWindow(ADisplay:PDisplay; AParent:TWindow; AX:cint; AY:cint; AWi
            AHeight:cuint; ABorderWidth:cuint; ADepth:cint; AClass:cuint; AVisual:PVisual;
            AValueMask:culong; AAttributes:PXSetWindowAttributes):TWindow;cdecl;external libX11;
 function XListInstalledColormaps(para1:PDisplay; para2:TWindow; para3:Pcint):PColormap;cdecl;external libX11;
-function XListFonts(para1:PDisplay; para2:Pchar; para3:cint; para4:Pcint):PPChar;cdecl;external libX11;
-function XListFontsWithInfo(para1:PDisplay; para2:Pchar; para3:cint; para4:Pcint; para5:PPXFontStruct):PPChar;cdecl;external libX11;
-function XGetFontPath(para1:PDisplay; para2:Pcint):PPChar;cdecl;external libX11;
-function XListExtensions(para1:PDisplay; para2:Pcint):PPChar;cdecl;external libX11;
+function XListFonts(para1:PDisplay; para2:PAnsiChar; para3:cint; para4:Pcint):PPAnsiChar;cdecl;external libX11;
+function XListFontsWithInfo(para1:PDisplay; para2:PAnsiChar; para3:cint; para4:Pcint; para5:PPXFontStruct):PPAnsiChar;cdecl;external libX11;
+function XGetFontPath(para1:PDisplay; para2:Pcint):PPAnsiChar;cdecl;external libX11;
+function XListExtensions(para1:PDisplay; para2:Pcint):PPAnsiChar;cdecl;external libX11;
 function XListProperties(para1:PDisplay; para2:TWindow; para3:Pcint):PAtom;cdecl;external libX11;
 function XListHosts(para1:PDisplay; para2:Pcint; para3:PBool):PXHostAddress;cdecl;external libX11;
 function XKeycodeToKeysym(para1:PDisplay; para2:TKeyCode; para3:cint):TKeySym;cdecl;external libX11;
 function XLookupKeysym(para1:PXKeyEvent; para2:cint):TKeySym;cdecl;external libX11;
 function XGetKeyboardMapping(para1:PDisplay; para2:TKeyCode; para3:cint; para4:Pcint):PKeySym;cdecl;external libX11;
-function XStringToKeysym(para1:Pchar):TKeySym;cdecl;external libX11;
+function XStringToKeysym(para1:PAnsiChar):TKeySym;cdecl;external libX11;
 function XMaxRequestSize(para1:PDisplay):clong;cdecl;external libX11;
 function XExtendedMaxRequestSize(para1:PDisplay):clong;cdecl;external libX11;
-function XResourceManagerString(para1:PDisplay):Pchar;cdecl;external libX11;
-function XScreenResourceString(para1:PScreen):Pchar;cdecl;external libX11;
+function XResourceManagerString(para1:PDisplay):PAnsiChar;cdecl;external libX11;
+function XScreenResourceString(para1:PScreen):PAnsiChar;cdecl;external libX11;
 function XDisplayMotionBufferSize(para1:PDisplay):culong;cdecl;external libX11;
 function XVisualIDFromVisual(para1:PVisual):TVisualID;cdecl;external libX11;
 function XInitThreads:TStatus;cdecl;external libX11;
 procedure XLockDisplay(para1:PDisplay);cdecl;external libX11;
 procedure XUnlockDisplay(para1:PDisplay);cdecl;external libX11;
-function XInitExtension(para1:PDisplay; para2:Pchar):PXExtCodes;cdecl;external libX11;
+function XInitExtension(para1:PDisplay; para2:PAnsiChar):PXExtCodes;cdecl;external libX11;
 function XAddExtension(para1:PDisplay):PXExtCodes;cdecl;external libX11;
 function XFindOnExtensionList(para1:PPXExtData; para2:cint):PXExtData;cdecl;external libX11;
 function XEHeadOfExtensionList(para1:TXEDataObject):PPXExtData;cdecl;external libX11;
@@ -1378,8 +1378,8 @@ function XBlackPixelOfScreen(para1:PScreen):culong;cdecl;external libX11;
 function XWhitePixelOfScreen(para1:PScreen):culong;cdecl;external libX11;
 function XNextRequest(para1:PDisplay):culong;cdecl;external libX11;
 function XLastKnownRequestProcessed(para1:PDisplay):culong;cdecl;external libX11;
-function XServerVendor(para1:PDisplay):Pchar;cdecl;external libX11;
-function XDisplayString(para1:PDisplay):Pchar;cdecl;external libX11;
+function XServerVendor(para1:PDisplay):PAnsiChar;cdecl;external libX11;
+function XDisplayString(para1:PDisplay):PAnsiChar;cdecl;external libX11;
 function XDefaultColormap(para1:PDisplay; para2:cint):TColormap;cdecl;external libX11;
 function XDefaultColormapOfScreen(para1:PScreen):TColormap;cdecl;external libX11;
 function XDisplayOfScreen(para1:PScreen):PDisplay;cdecl;external libX11;
@@ -1404,10 +1404,10 @@ function XGetWMProtocols(para1:PDisplay; para2:TWindow; para3:PPAtom; para4:Pcin
 function XSetWMProtocols(para1:PDisplay; para2:TWindow; para3:PAtom; para4:cint):TStatus;cdecl;external libX11;
 function XIconifyWindow(para1:PDisplay; para2:TWindow; para3:cint):TStatus;cdecl;external libX11;
 function XWithdrawWindow(para1:PDisplay; para2:TWindow; para3:cint):TStatus;cdecl;external libX11;
-function XGetCommand(para1:PDisplay; para2:TWindow; para3:PPPchar; para4:Pcint):TStatus;cdecl;external libX11;
+function XGetCommand(para1:PDisplay; para2:TWindow; para3:PPPAnsiChar; para4:Pcint):TStatus;cdecl;external libX11;
 function XGetWMColormapWindows(para1:PDisplay; para2:TWindow; para3:PPWindow; para4:Pcint):TStatus;cdecl;external libX11;
 function XSetWMColormapWindows(para1:PDisplay; para2:TWindow; para3:PWindow; para4:cint):TStatus;cdecl;external libX11;
-procedure XFreeStringList(para1:PPchar);cdecl;external libX11;
+procedure XFreeStringList(para1:PPAnsiChar);cdecl;external libX11;
 function XSetTransientForHint(ADisplay:PDisplay; AWindow:TWindow; APropWindow:TWindow):cint;cdecl;external libX11;
 function XActivateScreenSaver(para1:PDisplay):cint;cdecl;external libX11;
 function XAddHost(para1:PDisplay; para2:PXHostAddress):cint;cdecl;external libX11;
@@ -1420,7 +1420,7 @@ function XAllocColorCells(para1:PDisplay; para2:TColormap; para3:TBool; para4:Pc
 function XAllocColorPlanes(para1:PDisplay; para2:TColormap; para3:TBool; para4:Pculong; para5:cint;
            para6:cint; para7:cint; para8:cint; para9:Pculong; para10:Pculong;
            para11:Pculong):TStatus;cdecl;external libX11;
-function XAllocNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor; para5:PXColor):TStatus;cdecl;external libX11;
+function XAllocNamedColor(para1:PDisplay; para2:TColormap; para3:PAnsiChar; para4:PXColor; para5:PXColor):TStatus;cdecl;external libX11;
 function XAllowEvents(para1:PDisplay; para2:cint; para3:TTime):cint;cdecl;external libX11;
 function XAutoRepeatOff(para1:PDisplay):cint;cdecl;external libX11;
 function XAutoRepeatOn(para1:PDisplay):cint;cdecl;external libX11;
@@ -1482,7 +1482,7 @@ function XDrawArc(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:
            para6:cuint; para7:cuint; para8:cint; para9:cint):cint;cdecl;external libX11;
 function XDrawArcs(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXArc; para5:cint):cint;cdecl;external libX11;
 function XDrawImageString(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:cint;
-           para6:Pchar; para7:cint):cint;cdecl;external libX11;
+           para6:PAnsiChar; para7:cint):cint;cdecl;external libX11;
 function XDrawImageString16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:cint;
            para6:PXChar2b; para7:cint):cint;cdecl;external libX11;
 function XDrawLine(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:cint;
@@ -1497,7 +1497,7 @@ function XDrawRectangle(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint;
 function XDrawRectangles(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXRectangle; para5:cint):cint;cdecl;external libX11;
 function XDrawSegments(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXSegment; para5:cint):cint;cdecl;external libX11;
 function XDrawString(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:cint;
-           para6:Pchar; para7:cint):cint;cdecl;external libX11;
+           para6:PAnsiChar; para7:cint):cint;cdecl;external libX11;
 function XDrawString16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:cint;
            para6:PXChar2b; para7:cint):cint;cdecl;external libX11;
 function XDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:cint;
@@ -1506,7 +1506,7 @@ function XDrawText16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; par
            para6:PXTextItem16; para7:cint):cint;cdecl;external libX11;
 function XEnableAccessControl(para1:PDisplay):cint;cdecl;external libX11;
 function XEventsQueued(para1:PDisplay; para2:cint):cint;cdecl;external libX11;
-function XFetchName(para1:PDisplay; para2:TWindow; para3:PPchar):TStatus;cdecl;external libX11;
+function XFetchName(para1:PDisplay; para2:TWindow; para3:PPAnsiChar):TStatus;cdecl;external libX11;
 function XFillArc(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:cint;
            para6:cuint; para7:cuint; para8:cint; para9:cint):cint;cdecl;external libX11;
 function XFillArcs(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXArc; para5:cint):cint;cdecl;external libX11;
@@ -1521,25 +1521,25 @@ function XFree(para1:pointer):cint;cdecl;external libX11;
 function XFreeColormap(para1:PDisplay; para2:TColormap):cint;cdecl;external libX11;
 function XFreeColors(para1:PDisplay; para2:TColormap; para3:Pculong; para4:cint; para5:culong):cint;cdecl;external libX11;
 function XFreeCursor(ADisplay:PDisplay; ACursor:TCursor):cint;cdecl;external libX11;
-function XFreeExtensionList(para1:PPchar):cint;cdecl;external libX11;
+function XFreeExtensionList(para1:PPAnsiChar):cint;cdecl;external libX11;
 function XFreeFont(para1:PDisplay; para2:PXFontStruct):cint;cdecl;external libX11;
-function XFreeFontInfo(para1:PPchar; para2:PXFontStruct; para3:cint):cint;cdecl;external libX11;
-function XFreeFontNames(para1:PPchar):cint;cdecl;external libX11;
-function XFreeFontPath(para1:PPchar):cint;cdecl;external libX11;
+function XFreeFontInfo(para1:PPAnsiChar; para2:PXFontStruct; para3:cint):cint;cdecl;external libX11;
+function XFreeFontNames(para1:PPAnsiChar):cint;cdecl;external libX11;
+function XFreeFontPath(para1:PPAnsiChar):cint;cdecl;external libX11;
 function XFreeGC(para1:PDisplay; para2:TGC):cint;cdecl;external libX11;
 function XFreeModifiermap(para1:PXModifierKeymap):cint;cdecl;external libX11;
 function XFreePixmap(para1:PDisplay; para2:TPixmap):cint;cdecl;external libX11;
-function XGeometry(para1:PDisplay; para2:cint; para3:Pchar; para4:Pchar; para5:cuint;
+function XGeometry(para1:PDisplay; para2:cint; para3:PAnsiChar; para4:PAnsiChar; para5:cuint;
            para6:cuint; para7:cuint; para8:cint; para9:cint; para10:Pcint;
            para11:Pcint; para12:Pcint; para13:Pcint):cint;cdecl;external libX11;
-function XGetErrorDatabaseText(para1:PDisplay; para2:Pchar; para3:Pchar; para4:Pchar; para5:Pchar;
+function XGetErrorDatabaseText(para1:PDisplay; para2:PAnsiChar; para3:PAnsiChar; para4:PAnsiChar; para5:PAnsiChar;
            para6:cint):cint;cdecl;external libX11;
-function XGetErrorText(para1:PDisplay; para2:cint; para3:Pchar; para4:cint):cint;cdecl;external libX11;
+function XGetErrorText(para1:PDisplay; para2:cint; para3:PAnsiChar; para4:cint):cint;cdecl;external libX11;
 function XGetFontProperty(para1:PXFontStruct; para2:TAtom; para3:Pculong):TBoolResult;cdecl;external libX11;
 function XGetGCValues(para1:PDisplay; para2:TGC; para3:culong; para4:PXGCValues):TStatus;cdecl;external libX11;
 function XGetGeometry(para1:PDisplay; para2:TDrawable; para3:PWindow; para4:Pcint; para5:Pcint;
            para6:Pcuint; para7:Pcuint; para8:Pcuint; para9:Pcuint):TStatus;cdecl;external libX11;
-function XGetIconName(para1:PDisplay; para2:TWindow; para3:PPchar):TStatus;cdecl;external libX11;
+function XGetIconName(para1:PDisplay; para2:TWindow; para3:PPAnsiChar):TStatus;cdecl;external libX11;
 function XGetInputFocus(para1:PDisplay; para2:PWindow; para3:Pcint):cint;cdecl;external libX11;
 function XGetKeyboardControl(para1:PDisplay; para2:PXKeyboardState):cint;cdecl;external libX11;
 function XGetPointerControl(para1:PDisplay; para2:Pcint; para3:Pcint; para4:Pcint):cint;cdecl;external libX11;
@@ -1566,7 +1566,7 @@ function XImageByteOrder(para1:PDisplay):cint;cdecl;external libX11;
 function XInstallColormap(para1:PDisplay; para2:TColormap):cint;cdecl;external libX11;
 function XKeysymToKeycode(para1:PDisplay; para2:TKeySym):TKeyCode;cdecl;external libX11;
 function XKillClient(para1:PDisplay; para2:TXID):cint;cdecl;external libX11;
-function XLookupColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor; para5:PXColor):TStatus;cdecl;external libX11;
+function XLookupColor(para1:PDisplay; para2:TColormap; para3:PAnsiChar; para4:PXColor; para5:PXColor):TStatus;cdecl;external libX11;
 function XLowerWindow(ADisplay:PDisplay; AWindow:TWindow):cint;cdecl;external libX11;
 function XMapRaised(ADisplay:PDisplay; AWindow:TWindow):cint;cdecl;external libX11;
 function XMapSubwindows(ADisplay:PDisplay; AWindow:TWindow):cint;cdecl;external libX11;
@@ -1579,8 +1579,8 @@ function XMoveResizeWindow(ADisplay:PDisplay; AWindow:TWindow; AX:cint; AY:cint;
 function XMoveWindow(ADisplay:PDisplay; AWindow:TWindow; AX:cint; AY:cint):cint;cdecl;external libX11;
 function XNextEvent(ADisplay:PDisplay; AEvent:PXEvent):cint;cdecl;external libX11;
 function XNoOp(para1:PDisplay):cint;cdecl;external libX11;
-function XParseColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor):TStatus;cdecl;external libX11;
-function XParseGeometry(para1:Pchar; para2:Pcint; para3:Pcint; para4:Pcuint; para5:Pcuint):cint;cdecl;external libX11;
+function XParseColor(para1:PDisplay; para2:TColormap; para3:PAnsiChar; para4:PXColor):TStatus;cdecl;external libX11;
+function XParseGeometry(para1:PAnsiChar; para2:Pcint; para3:Pcint; para4:Pcuint; para5:Pcuint):cint;cdecl;external libX11;
 function XPeekEvent(ADisplay:PDisplay; AEvent:PXEvent):cint;cdecl;external libX11;
 function XPeekIfEvent(para1:PDisplay; para2:PXEvent; para3:funcifevent; para4:TXPointer):cint;cdecl;external libX11;
 function XPending(para1:PDisplay):cint;cdecl;external libX11;
@@ -1601,21 +1601,21 @@ function XQueryBestTile(para1:PDisplay; para2:TDrawable; para3:cuint; para4:cuin
            para6:Pcuint):TStatus;cdecl;external libX11;
 function XQueryColor(para1:PDisplay; para2:TColormap; para3:PXColor):cint;cdecl;external libX11;
 function XQueryColors(para1:PDisplay; para2:TColormap; para3:PXColor; para4:cint):cint;cdecl;external libX11;
-function XQueryExtension(para1:PDisplay; para2:Pchar; para3:Pcint; para4:Pcint; para5:Pcint):TBoolResult;cdecl;external libX11;
+function XQueryExtension(para1:PDisplay; para2:PAnsiChar; para3:Pcint; para4:Pcint; para5:Pcint):TBoolResult;cdecl;external libX11;
 {?}
 function XQueryKeymap(para1:PDisplay; para2:pchararr32):cint;cdecl;external libX11;
 function XQueryPointer(para1:PDisplay; para2:TWindow; para3:PWindow; para4:PWindow; para5:Pcint;
            para6:Pcint; para7:Pcint; para8:Pcint; para9:Pcuint):TBoolResult;cdecl;external libX11;
-function XQueryTextExtents(para1:PDisplay; para2:TXID; para3:Pchar; para4:cint; para5:Pcint;
+function XQueryTextExtents(para1:PDisplay; para2:TXID; para3:PAnsiChar; para4:cint; para5:Pcint;
            para6:Pcint; para7:Pcint; para8:PXCharStruct):cint;cdecl;external libX11;
 function XQueryTextExtents16(para1:PDisplay; para2:TXID; para3:PXChar2b; para4:cint; para5:Pcint;
            para6:Pcint; para7:Pcint; para8:PXCharStruct):cint;cdecl;external libX11;
 function XQueryTree(para1:PDisplay; para2:TWindow; para3:PWindow; para4:PWindow; para5:PPWindow;
            para6:Pcuint):TStatus;cdecl;external libX11;
 function XRaiseWindow(para1:PDisplay; para2:TWindow):cint;cdecl;external libX11;
-function XReadBitmapFile(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:Pcuint; para5:Pcuint;
+function XReadBitmapFile(para1:PDisplay; para2:TDrawable; para3:PAnsiChar; para4:Pcuint; para5:Pcuint;
            para6:PPixmap; para7:Pcint; para8:Pcint):cint;cdecl;external libX11;
-function XReadBitmapFileData(para1:Pchar; para2:Pcuint; para3:Pcuint; para4:PPcuchar; para5:Pcint;
+function XReadBitmapFileData(para1:PAnsiChar; para2:Pcuint; para3:Pcuint; para4:PPcuchar; para5:Pcint;
            para6:Pcint):cint;cdecl;external libX11;
 function XRebindKeysym(para1:PDisplay; para2:TKeySym; para3:PKeySym; para4:cint; para5:Pcuchar;
            para6:cint):cint;cdecl;external libX11;
@@ -1641,16 +1641,16 @@ function XSetClipOrigin(para1:PDisplay; para2:TGC; para3:cint; para4:cint):cint;
 function XSetClipRectangles(para1:PDisplay; para2:TGC; para3:cint; para4:cint; para5:PXRectangle;
            para6:cint; para7:cint):cint;cdecl;external libX11;
 function XSetCloseDownMode(para1:PDisplay; para2:cint):cint;cdecl;external libX11;
-function XSetCommand(para1:PDisplay; para2:TWindow; para3:PPchar; para4:cint):cint;cdecl;external libX11;
-function XSetDashes(para1:PDisplay; para2:TGC; para3:cint; para4:Pchar; para5:cint):cint;cdecl;external libX11;
+function XSetCommand(para1:PDisplay; para2:TWindow; para3:PPAnsiChar; para4:cint):cint;cdecl;external libX11;
+function XSetDashes(para1:PDisplay; para2:TGC; para3:cint; para4:PAnsiChar; para5:cint):cint;cdecl;external libX11;
 function XSetFillRule(para1:PDisplay; para2:TGC; para3:cint):cint;cdecl;external libX11;
 function XSetFillStyle(para1:PDisplay; para2:TGC; para3:cint):cint;cdecl;external libX11;
 function XSetFont(para1:PDisplay; para2:TGC; para3:TFont):cint;cdecl;external libX11;
-function XSetFontPath(para1:PDisplay; para2:PPchar; para3:cint):cint;cdecl;external libX11;
+function XSetFontPath(para1:PDisplay; para2:PPAnsiChar; para3:cint):cint;cdecl;external libX11;
 function XSetForeground(para1:PDisplay; para2:TGC; para3:culong):cint;cdecl;external libX11;
 function XSetFunction(para1:PDisplay; para2:TGC; para3:cint):cint;cdecl;external libX11;
 function XSetGraphicsExposures(para1:PDisplay; para2:TGC; para3:TBool):cint;cdecl;external libX11;
-function XSetIconName(para1:PDisplay; para2:TWindow; para3:Pchar):cint;cdecl;external libX11;
+function XSetIconName(para1:PDisplay; para2:TWindow; para3:PAnsiChar):cint;cdecl;external libX11;
 function XSetInputFocus(para1:PDisplay; para2:TWindow; para3:cint; para4:TTime):cint;cdecl;external libX11;
 function XSetLineAttributes(para1:PDisplay; para2:TGC; para3:cuint; para4:cint; para5:cint;
            para6:cint):cint;cdecl;external libX11;
@@ -1671,18 +1671,18 @@ function XSetWindowBorder(para1:PDisplay; para2:TWindow; para3:culong):cint;cdec
 function XSetWindowBorderPixmap(para1:PDisplay; para2:TWindow; para3:TPixmap):cint;cdecl;external libX11;
 function XSetWindowBorderWidth(para1:PDisplay; para2:TWindow; para3:cuint):cint;cdecl;external libX11;
 function XSetWindowColormap(para1:PDisplay; para2:TWindow; para3:TColormap):cint;cdecl;external libX11;
-function XStoreBuffer(para1:PDisplay; para2:Pchar; para3:cint; para4:cint):cint;cdecl;external libX11;
-function XStoreBytes(para1:PDisplay; para2:Pchar; para3:cint):cint;cdecl;external libX11;
+function XStoreBuffer(para1:PDisplay; para2:PAnsiChar; para3:cint; para4:cint):cint;cdecl;external libX11;
+function XStoreBytes(para1:PDisplay; para2:PAnsiChar; para3:cint):cint;cdecl;external libX11;
 function XStoreColor(para1:PDisplay; para2:TColormap; para3:PXColor):cint;cdecl;external libX11;
 function XStoreColors(para1:PDisplay; para2:TColormap; para3:PXColor; para4:cint):cint;cdecl;external libX11;
-function XStoreName(para1:PDisplay; para2:TWindow; para3:Pchar):cint;cdecl;external libX11;
-function XStoreNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:culong; para5:cint):cint;cdecl;external libX11;
+function XStoreName(para1:PDisplay; para2:TWindow; para3:PAnsiChar):cint;cdecl;external libX11;
+function XStoreNamedColor(para1:PDisplay; para2:TColormap; para3:PAnsiChar; para4:culong; para5:cint):cint;cdecl;external libX11;
 function XSync(para1:PDisplay; para2:TBool):cint;cdecl;external libX11;
-function XTextExtents(para1:PXFontStruct; para2:Pchar; para3:cint; para4:Pcint; para5:Pcint;
+function XTextExtents(para1:PXFontStruct; para2:PAnsiChar; para3:cint; para4:Pcint; para5:Pcint;
            para6:Pcint; para7:PXCharStruct):cint;cdecl;external libX11;
 function XTextExtents16(para1:PXFontStruct; para2:PXChar2b; para3:cint; para4:Pcint; para5:Pcint;
            para6:Pcint; para7:PXCharStruct):cint;cdecl;external libX11;
-function XTextWidth(para1:PXFontStruct; para2:Pchar; para3:cint):cint;cdecl;external libX11;
+function XTextWidth(para1:PXFontStruct; para2:PAnsiChar; para3:cint):cint;cdecl;external libX11;
 function XTextWidth16(para1:PXFontStruct; para2:PXChar2b; para3:cint):cint;cdecl;external libX11;
 function XTranslateCoordinates(ADisplay:PDisplay; ASrcWindow:TWindow; ADestWindow:TWindow; ASrcX:cint; ASrcY:cint;
            ADestXReturn:Pcint; ADestYReturn:Pcint; AChildReturn:PWindow):TBool;cdecl;external libX11;
@@ -1702,41 +1702,41 @@ function XWarpPointer(para1:PDisplay; para2:TWindow; para3:TWindow; para4:cint;
 function XWidthMMOfScreen(para1:PScreen):cint;cdecl;external libX11;
 function XWidthOfScreen(para1:PScreen):cint;cdecl;external libX11;
 function XWindowEvent(para1:PDisplay; para2:TWindow; para3:clong; para4:PXEvent):cint;cdecl;external libX11;
-function XWriteBitmapFile(para1:PDisplay; para2:Pchar; para3:TPixmap; para4:cuint; para5:cuint;
+function XWriteBitmapFile(para1:PDisplay; para2:PAnsiChar; para3:TPixmap; para4:cuint; para5:cuint;
            para6:cint; para7:cint):cint;cdecl;external libX11;
 function XSupportsLocale:TBool;cdecl;external libX11;
-function XSetLocaleModifiers(para1:Pchar):Pchar;cdecl;external libX11;
-function XOpenOM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):TXOM;cdecl;external libX11;
+function XSetLocaleModifiers(para1:PAnsiChar):PAnsiChar;cdecl;external libX11;
+function XOpenOM(para1:PDisplay; para2:PXrmHashBucketRec; para3:PAnsiChar; para4:PAnsiChar):TXOM;cdecl;external libX11;
 function XCloseOM(para1:TXOM):TStatus;cdecl;external libX11;
-function XSetOMValues(para1:TXOM; dotdotdot:array of const):Pchar;cdecl;external libX11;
-function XGetOMValues(para1:TXOM; dotdotdot:array of const):Pchar;cdecl;external libX11;
+function XSetOMValues(para1:TXOM; dotdotdot:array of const):PAnsiChar;cdecl;external libX11;
+function XGetOMValues(para1:TXOM; dotdotdot:array of const):PAnsiChar;cdecl;external libX11;
 function XDisplayOfOM(para1:TXOM):PDisplay;cdecl;external libX11;
-function XLocaleOfOM(para1:TXOM):Pchar;cdecl;external libX11;
+function XLocaleOfOM(para1:TXOM):PAnsiChar;cdecl;external libX11;
 function XCreateOC(para1:TXOM; dotdotdot:array of const):TXOC;cdecl;external libX11;
 procedure XDestroyOC(para1:TXOC);cdecl;external libX11;
 function XOMOfOC(para1:TXOC):TXOM;cdecl;external libX11;
-function XSetOCValues(para1:TXOC; dotdotdot:array of const):Pchar;cdecl;external libX11;
-function XGetOCValues(para1:TXOC; dotdotdot:array of const):Pchar;cdecl;external libX11;
-function XCreateFontSet(para1:PDisplay; para2:Pchar; para3:PPPchar; para4:Pcint; para5:PPchar):TXFontSet;cdecl;external libX11;
+function XSetOCValues(para1:TXOC; dotdotdot:array of const):PAnsiChar;cdecl;external libX11;
+function XGetOCValues(para1:TXOC; dotdotdot:array of const):PAnsiChar;cdecl;external libX11;
+function XCreateFontSet(para1:PDisplay; para2:PAnsiChar; para3:PPPAnsiChar; para4:Pcint; para5:PPAnsiChar):TXFontSet;cdecl;external libX11;
 procedure XFreeFontSet(para1:PDisplay; para2:TXFontSet);cdecl;external libX11;
-function XFontsOfFontSet(para1:TXFontSet; para2:PPPXFontStruct; para3:PPPchar):cint;cdecl;external libX11;
-function XBaseFontNameListOfFontSet(para1:TXFontSet):Pchar;cdecl;external libX11;
-function XLocaleOfFontSet(para1:TXFontSet):Pchar;cdecl;external libX11;
+function XFontsOfFontSet(para1:TXFontSet; para2:PPPXFontStruct; para3:PPPAnsiChar):cint;cdecl;external libX11;
+function XBaseFontNameListOfFontSet(para1:TXFontSet):PAnsiChar;cdecl;external libX11;
+function XLocaleOfFontSet(para1:TXFontSet):PAnsiChar;cdecl;external libX11;
 function XContextDependentDrawing(para1:TXFontSet):TBoolResult;cdecl;external libX11;
 function XDirectionalDependentDrawing(para1:TXFontSet):TBoolResult;cdecl;external libX11;
 function XContextualDrawing(para1:TXFontSet):TBoolResult;cdecl;external libX11;
 function XExtentsOfFontSet(para1:TXFontSet):PXFontSetExtents;cdecl;external libX11;
-function XmbTextEscapement(para1:TXFontSet; para2:Pchar; para3:cint):cint;cdecl;external libX11;
+function XmbTextEscapement(para1:TXFontSet; para2:PAnsiChar; para3:cint):cint;cdecl;external libX11;
 function XwcTextEscapement(para1:TXFontSet; para2:PWideChar; para3:cint):cint;cdecl;external libX11;
-function Xutf8TextEscapement(para1:TXFontSet; para2:Pchar; para3:cint):cint;cdecl;external libX11;
-function XmbTextExtents(para1:TXFontSet; para2:Pchar; para3:cint; para4:PXRectangle; para5:PXRectangle):cint;cdecl;external libX11;
+function Xutf8TextEscapement(para1:TXFontSet; para2:PAnsiChar; para3:cint):cint;cdecl;external libX11;
+function XmbTextExtents(para1:TXFontSet; para2:PAnsiChar; para3:cint; para4:PXRectangle; para5:PXRectangle):cint;cdecl;external libX11;
 function XwcTextExtents(para1:TXFontSet; para2:PWideChar; para3:cint; para4:PXRectangle; para5:PXRectangle):cint;cdecl;external libX11;
-function Xutf8TextExtents(para1:TXFontSet; para2:Pchar; para3:cint; para4:PXRectangle; para5:PXRectangle):cint;cdecl;external libX11;
-function XmbTextPerCharExtents(para1:TXFontSet; para2:Pchar; para3:cint; para4:PXRectangle; para5:PXRectangle;
+function Xutf8TextExtents(para1:TXFontSet; para2:PAnsiChar; para3:cint; para4:PXRectangle; para5:PXRectangle):cint;cdecl;external libX11;
+function XmbTextPerCharExtents(para1:TXFontSet; para2:PAnsiChar; para3:cint; para4:PXRectangle; para5:PXRectangle;
            para6:cint; para7:Pcint; para8:PXRectangle; para9:PXRectangle):TStatus;cdecl;external libX11;
 function XwcTextPerCharExtents(para1:TXFontSet; para2:PWideChar; para3:cint; para4:PXRectangle; para5:PXRectangle;
            para6:cint; para7:Pcint; para8:PXRectangle; para9:PXRectangle):TStatus;cdecl;external libX11;
-function Xutf8TextPerCharExtents(para1:TXFontSet; para2:Pchar; para3:cint; para4:PXRectangle; para5:PXRectangle;
+function Xutf8TextPerCharExtents(para1:TXFontSet; para2:PAnsiChar; para3:cint; para4:PXRectangle; para5:PXRectangle;
            para6:cint; para7:Pcint; para8:PXRectangle; para9:PXRectangle):TStatus;cdecl;external libX11;
 procedure XmbDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:cint;
             para6:PXmbTextItem; para7:cint);cdecl;external libX11;
@@ -1745,44 +1745,44 @@ procedure XwcDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; pa
 procedure Xutf8DrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:cint; para5:cint;
             para6:PXmbTextItem; para7:cint);cdecl;external libX11;
 procedure XmbDrawString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:cint;
-            para6:cint; para7:Pchar; para8:cint);cdecl;external libX11;
+            para6:cint; para7:PAnsiChar; para8:cint);cdecl;external libX11;
 procedure XwcDrawString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:cint;
             para6:cint; para7:PWideChar; para8:cint);cdecl;external libX11;
 procedure Xutf8DrawString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:cint;
-            para6:cint; para7:Pchar; para8:cint);cdecl;external libX11;
+            para6:cint; para7:PAnsiChar; para8:cint);cdecl;external libX11;
 procedure XmbDrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:cint;
-            para6:cint; para7:Pchar; para8:cint);cdecl;external libX11;
+            para6:cint; para7:PAnsiChar; para8:cint);cdecl;external libX11;
 procedure XwcDrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:cint;
             para6:cint; para7:PWideChar; para8:cint);cdecl;external libX11;
 procedure Xutf8DrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:cint;
-            para6:cint; para7:Pchar; para8:cint);cdecl;external libX11;
-function XOpenIM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):PXIM;cdecl;external libX11;
+            para6:cint; para7:PAnsiChar; para8:cint);cdecl;external libX11;
+function XOpenIM(para1:PDisplay; para2:PXrmHashBucketRec; para3:PAnsiChar; para4:PAnsiChar):PXIM;cdecl;external libX11;
 function XCloseIM(para1:PXIM):TStatus;cdecl;external libX11;
-function XGetIMValues(para1:PXIM; dotdotdot:array of const):Pchar;cdecl;external libX11;
-function XSetIMValues(para1:PXIM; dotdotdot:array of const):Pchar;cdecl;external libX11;
+function XGetIMValues(para1:PXIM; dotdotdot:array of const):PAnsiChar;cdecl;external libX11;
+function XSetIMValues(para1:PXIM; dotdotdot:array of const):PAnsiChar;cdecl;external libX11;
 function XDisplayOfIM(para1:PXIM):PDisplay;cdecl;external libX11;
-function XLocaleOfIM(para1:PXIM):Pchar;cdecl;external libX11;
+function XLocaleOfIM(para1:PXIM):PAnsiChar;cdecl;external libX11;
 function XCreateIC(para1:PXIM; dotdotdot:array of const):PXIC;cdecl;external libX11;
 procedure XDestroyIC(para1:PXIC);cdecl;external libX11;
 procedure XSetICFocus(para1:PXIC);cdecl;external libX11;
 procedure XUnsetICFocus(para1:PXIC);cdecl;external libX11;
 function XwcResetIC(para1:PXIC):PWideChar;cdecl;external libX11;
-function XmbResetIC(para1:PXIC):Pchar;cdecl;external libX11;
-function Xutf8ResetIC(para1:PXIC):Pchar;cdecl;external libX11;
-function XSetICValues(para1:PXIC; dotdotdot:array of const):Pchar;cdecl;external libX11;
-function XGetICValues(para1:PXIC; dotdotdot:array of const):Pchar;cdecl;external libX11;
+function XmbResetIC(para1:PXIC):PAnsiChar;cdecl;external libX11;
+function Xutf8ResetIC(para1:PXIC):PAnsiChar;cdecl;external libX11;
+function XSetICValues(para1:PXIC; dotdotdot:array of const):PAnsiChar;cdecl;external libX11;
+function XGetICValues(para1:PXIC; dotdotdot:array of const):PAnsiChar;cdecl;external libX11;
 function XIMOfIC(para1:PXIC):PXIM;cdecl;external libX11;
 function XFilterEvent(para1:PXEvent; para2:TWindow):TBoolResult;cdecl;external libX11;
-function XmbLookupString(para1:PXIC; para2:PXKeyPressedEvent; para3:Pchar; para4:cint; para5:PKeySym;
+function XmbLookupString(para1:PXIC; para2:PXKeyPressedEvent; para3:PAnsiChar; para4:cint; para5:PKeySym;
            para6:PStatus):cint;cdecl;external libX11;
 function XwcLookupString(para1:PXIC; para2:PXKeyPressedEvent; para3:PWideChar; para4:cint; para5:PKeySym;
            para6:PStatus):cint;cdecl;external libX11;
-function Xutf8LookupString(para1:PXIC; para2:PXKeyPressedEvent; para3:Pchar; para4:cint; para5:PKeySym;
+function Xutf8LookupString(para1:PXIC; para2:PXKeyPressedEvent; para3:PAnsiChar; para4:cint; para5:PKeySym;
            para6:PStatus):cint;cdecl;external libX11;
 function XVaCreateNestedList(unused:cint; dotdotdot:array of const):TXVaNestedList;cdecl;external libX11;
-function XRegisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar; para5:TXIDProc;
+function XRegisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:PAnsiChar; para4:PAnsiChar; para5:TXIDProc;
            para6:TXPointer):TBoolResult;cdecl;external libX11;
-function XUnregisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar; para5:TXIDProc;
+function XUnregisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:PAnsiChar; para4:PAnsiChar; para5:TXIDProc;
            para6:TXPointer):TBoolResult;cdecl;external libX11;
 type
    TXConnectionWatchProc = procedure (para1:PDisplay; para2:TXPointer; para3:cint; para4:TBool; para5:PXPointer);cdecl;
@@ -1791,7 +1791,7 @@ function XInternalConnectionNumbers(para1:PDisplay; para2:PPcint; para3:Pcint):T
 procedure XProcessInternalConnection(para1:PDisplay; para2:cint);cdecl;external libX11;
 function XAddConnectionWatch(para1:PDisplay; para2:TXConnectionWatchProc; para3:TXPointer):TStatus;cdecl;external libX11;
 procedure XRemoveConnectionWatch(para1:PDisplay; para2:TXConnectionWatchProc; para3:TXPointer);cdecl;external libX11;
-procedure XSetAuthorization(para1:Pchar; para2:cint; para3:Pchar; para4:cint);cdecl;external libX11;
+procedure XSetAuthorization(para1:PAnsiChar; para2:cint; para3:PAnsiChar; para4:cint);cdecl;external libX11;
 
 {
   _Xmbtowc?
@@ -1825,11 +1825,11 @@ function DisplayHeightMM(dpy : PDisplay; scr : cint) : cint;
 function DisplayPlanes(dpy : PDisplay; scr : cint) : cint;
 function DisplayCells(dpy : PDisplay; scr : cint) : cint;
 function ScreenCount(dpy : PDisplay) : cint;
-function ServerVendor(dpy : PDisplay) : Pchar;
+function ServerVendor(dpy : PDisplay) : PAnsiChar;
 function ProtocolVersion(dpy : PDisplay) : cint;
 function ProtocolRevision(dpy : PDisplay) : cint;
 function VendorRelease(dpy : PDisplay) : cint;
-function DisplayString(dpy : PDisplay) : Pchar;
+function DisplayString(dpy : PDisplay) : PAnsiChar;
 function DefaultDepth(dpy : PDisplay; scr : cint) : cint;
 function DefaultColormap(dpy : PDisplay; scr : cint) : TColormap;
 function BitmapUnit(dpy : PDisplay) : cint;
@@ -1870,8 +1870,8 @@ function XGetWindowProperty(para1:PDisplay; para2:TWindow; para3:TAtom; para4:cl
 function XGrabKeyboard(para1:PDisplay; para2:TWindow; para3:Boolean; para4:cint; para5:cint; para6:TTime):cint;
 function XGrabPointer(para1:PDisplay; para2:TWindow; para3:Boolean; para4:cuint; para5:cint;
            para6:cint; para7:TWindow; para8:TCursor; para9:TTime):cint;
-function XInternAtom(para1:PDisplay; para2:Pchar; para3:Boolean):TAtom;
-function XInternAtoms(para1:PDisplay; para2:PPchar; para3:cint; para4:Boolean; para5:PAtom):TStatus;
+function XInternAtom(para1:PDisplay; para2:PAnsiChar; para3:Boolean):TAtom;
+function XInternAtoms(para1:PDisplay; para2:PPAnsiChar; para3:cint; para4:Boolean; para5:PAtom):TStatus;
 function XSendEvent(para1:PDisplay; para2:TWindow; para3:Boolean; para4:clong; para5:PXEvent):TStatus;
 function XSetGraphicsExposures(para1:PDisplay; para2:TGC; para3:Boolean):cint;
 function XSync(para1:PDisplay; para2:Boolean):cint;
@@ -1961,7 +1961,7 @@ begin
    ScreenCount:=(PXPrivDisplay(dpy))^.nscreens;
 end;
 
-function ServerVendor(dpy : PDisplay) : Pchar;
+function ServerVendor(dpy : PDisplay) : PAnsiChar;
 begin
    ServerVendor:=(PXPrivDisplay(dpy))^.vendor;
 end;
@@ -1981,7 +1981,7 @@ begin
    VendorRelease:=(PXPrivDisplay(dpy))^.release;
 end;
 
-function DisplayString(dpy : PDisplay) : Pchar;
+function DisplayString(dpy : PDisplay) : PAnsiChar;
 begin
    DisplayString:=(PXPrivDisplay(dpy))^.display_name;
 end;
@@ -2163,13 +2163,13 @@ begin
   Result:=XGrabPointer(para1,para2,Ord(para3),para4,para5,para6,para7,para8,para9);
 end;
 
-function XInternAtom(para1:PDisplay; para2:Pchar; para3:Boolean):TAtom;
+function XInternAtom(para1:PDisplay; para2:PAnsiChar; para3:Boolean):TAtom;
 
 begin
   Result:=XInternAtom(para1,para2,Ord(para3));
 end;
 
-function XInternAtoms(para1:PDisplay; para2:PPchar; para3:cint; para4:Boolean; para5:PAtom):TStatus;
+function XInternAtoms(para1:PDisplay; para2:PPAnsiChar; para3:cint; para4:Boolean; para5:PAtom):TStatus;
 
 begin
   Result:=XInternAtoms(para1,para2,para3,Ord(para4),para5);

packages/x11/src/xrender.pp

@@ -230,11 +230,11 @@ function XRenderCreateGlyphSet(dpy:PDisplay; format:PXRenderPictFormat):TGlyphSe
 function XRenderReferenceGlyphSet(dpy:PDisplay; existing:TGlyphSet):TGlyphSet;cdecl;external libX11;
 procedure XRenderFreeGlyphSet(dpy:PDisplay; glyphset:TGlyphSet);cdecl;external libX11;
 procedure XRenderAddGlyphs(dpy:PDisplay; glyphset:TGlyphSet; gids:PGlyph; glyphs:PXGlyphInfo; nglyphs:longint;
-            images:Pchar; nbyte_images:longint);cdecl;external libX11;
+            images:PAnsiChar; nbyte_images:longint);cdecl;external libX11;
 procedure XRenderFreeGlyphs(dpy:PDisplay; glyphset:TGlyphSet; gids:PGlyph; nglyphs:longint);cdecl;external libX11;
 procedure XRenderCompositeString8(dpy:PDisplay; op:longint; src:TPicture; dst:TPicture; maskFormat:PXRenderPictFormat;
             glyphset:TGlyphSet; xSrc:longint; ySrc:longint; xDst:longint; yDst:longint;
-            _string:Pchar; nchar:longint);cdecl;external libX11;
+            _string:PAnsiChar; nchar:longint);cdecl;external libX11;
 
 implementation
 

packages/x11/src/xresource.pp

@@ -27,7 +27,7 @@ const
 {$PACKRECORDS C}
 
 
-function Xpermalloc(para1:dword):Pchar;cdecl;external libX11;
+function Xpermalloc(para1:dword):PAnsiChar;cdecl;external libX11;
 type
 
    PXrmQuark = ^TXrmQuark;
@@ -39,16 +39,16 @@ function NULLQUARK : TXrmQuark;
 type
 
    PXrmString = ^TXrmString;
-   TXrmString = ^char;
+   TXrmString = ^AnsiChar;
 
 function NULLSTRING : TXrmString;
 
-function XrmStringToQuark(para1:Pchar):TXrmQuark;cdecl;external libX11;
-function XrmPermStringToQuark(para1:Pchar):TXrmQuark;cdecl;external libX11;
+function XrmStringToQuark(para1:PAnsiChar):TXrmQuark;cdecl;external libX11;
+function XrmPermStringToQuark(para1:PAnsiChar):TXrmQuark;cdecl;external libX11;
 function XrmQuarkToString(para1:TXrmQuark):TXrmString;cdecl;external libX11;
 function XrmUniqueQuark:TXrmQuark;cdecl;external libX11;
 {$ifdef MACROS}
-function XrmStringsEqual(a1,a2 : pchar) : boolean;
+function XrmStringsEqual(a1,a2 : PAnsiChar) : boolean;
 {$endif MACROS}
 
 type
@@ -58,8 +58,8 @@ type
    TXrmBindingList = PXrmBinding;
    PXrmBindingList = ^TXrmBindingList;
 
-procedure XrmStringToQuarkList(para1:Pchar; para2:TXrmQuarkList);cdecl;external libX11;
-procedure XrmStringToBindingQuarkList(para1:Pchar; para2:TXrmBindingList; para3:TXrmQuarkList);cdecl;external libX11;
+procedure XrmStringToQuarkList(para1:PAnsiChar; para2:TXrmQuarkList);cdecl;external libX11;
+procedure XrmStringToBindingQuarkList(para1:PAnsiChar; para2:TXrmBindingList; para3:TXrmQuarkList);cdecl;external libX11;
 type
 
    PXrmName = ^TXrmName;
@@ -70,9 +70,9 @@ type
 {$ifdef MACROS}
 function XrmNameToString(name : longint) : TXrmString;
 
-function XrmStringToName(_string : Pchar) : longint;
+function XrmStringToName(_string : PAnsiChar) : longint;
 
-procedure XrmStringToNameList(str:Pchar; name : PXrmQuark);
+procedure XrmStringToNameList(str:PAnsiChar; name : PXrmQuark);
 {$endif MACROS}
 
 type
@@ -85,16 +85,16 @@ type
 {$ifdef MACROS}
 function XrmClassToString(c_class : longint) : TXrmString;
 
-function XrmStringToClass(c_class : Pchar) : longint;
+function XrmStringToClass(c_class : PAnsiChar) : longint;
 
-procedure XrmStringToClassList(str:Pchar; c_class : PXrmQuark);
+procedure XrmStringToClassList(str:PAnsiChar; c_class : PXrmQuark);
 {$endif MACROS}
 type
 
    PXrmRepresentation = ^TXrmRepresentation;
    TXrmRepresentation = TXrmQuark;
 {$ifdef MACROS}
-function XrmStringToRepresentation(_string : Pchar) : longint;
+function XrmStringToRepresentation(_string : PAnsiChar) : longint;
 
 function XrmRepresentationToString(_type : longint) : TXrmString;
 {$endif MACROS}
@@ -123,21 +123,21 @@ type
 
 procedure XrmDestroyDatabase(para1:TXrmDatabase);cdecl;external libX11;
 procedure XrmQPutResource(para1:PXrmDatabase; para2:TXrmBindingList; para3:TXrmQuarkList; para4:TXrmRepresentation; para5:PXrmValue);cdecl;external libX11;
-procedure XrmPutResource(para1:PXrmDatabase; para2:Pchar; para3:Pchar; para4:PXrmValue);cdecl;external libX11;
-procedure XrmQPutStringResource(para1:PXrmDatabase; para2:TXrmBindingList; para3:TXrmQuarkList; para4:Pchar);cdecl;external libX11;
-procedure XrmPutStringResource(para1:PXrmDatabase; para2:Pchar; para3:Pchar);cdecl;external libX11;
-procedure XrmPutLineResource(para1:PXrmDatabase; para2:Pchar);cdecl;external libX11;
+procedure XrmPutResource(para1:PXrmDatabase; para2:PAnsiChar; para3:PAnsiChar; para4:PXrmValue);cdecl;external libX11;
+procedure XrmQPutStringResource(para1:PXrmDatabase; para2:TXrmBindingList; para3:TXrmQuarkList; para4:PAnsiChar);cdecl;external libX11;
+procedure XrmPutStringResource(para1:PXrmDatabase; para2:PAnsiChar; para3:PAnsiChar);cdecl;external libX11;
+procedure XrmPutLineResource(para1:PXrmDatabase; para2:PAnsiChar);cdecl;external libX11;
 function XrmQGetResource(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external libX11;
-function XrmGetResource(para1:TXrmDatabase; para2:Pchar; para3:Pchar; para4:PPchar; para5:PXrmValue):TBool;cdecl;external libX11;
+function XrmGetResource(para1:TXrmDatabase; para2:PAnsiChar; para3:PAnsiChar; para4:PPAnsiChar; para5:PXrmValue):TBool;cdecl;external libX11;
 { There is no definition of TXrmSearchList }
 {function XrmQGetSearchList(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:TXrmSearchList; para5:longint):TBool;cdecl;external libX11;
 function XrmQGetSearchResource(para1:TXrmSearchList; para2:TXrmName; para3:TXrmClass; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external libX11;}
 procedure XrmSetDatabase(para1:PDisplay; para2:TXrmDatabase);cdecl;external libX11;
 function XrmGetDatabase(para1:PDisplay):TXrmDatabase;cdecl;external libX11;
-function XrmGetFileDatabase(para1:Pchar):TXrmDatabase;cdecl;external libX11;
-function XrmCombineFileDatabase(para1:Pchar; para2:PXrmDatabase; para3:TBool):TStatus;cdecl;external libX11;
-function XrmGetStringDatabase(para1:Pchar):TXrmDatabase;cdecl;external libX11;
-procedure XrmPutFileDatabase(para1:TXrmDatabase; para2:Pchar);cdecl;external libX11;
+function XrmGetFileDatabase(para1:PAnsiChar):TXrmDatabase;cdecl;external libX11;
+function XrmCombineFileDatabase(para1:PAnsiChar; para2:PXrmDatabase; para3:TBool):TStatus;cdecl;external libX11;
+function XrmGetStringDatabase(para1:PAnsiChar):TXrmDatabase;cdecl;external libX11;
+procedure XrmPutFileDatabase(para1:TXrmDatabase; para2:PAnsiChar);cdecl;external libX11;
 procedure XrmMergeDatabases(para1:TXrmDatabase; para2:PXrmDatabase);cdecl;external libX11;
 procedure XrmCombineDatabase(para1:TXrmDatabase; para2:PXrmDatabase; para3:TBool);cdecl;external libX11;
 
@@ -148,7 +148,7 @@ type
   funcbool=function :TBool;
 function XrmEnumerateDatabase(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:longint; para5:funcbool;
            para6:TXPointer):TBool;cdecl;external libX11;
-function XrmLocaleOfDatabase(para1:TXrmDatabase):Pchar;cdecl;external libX11;
+function XrmLocaleOfDatabase(para1:TXrmDatabase):PAnsiChar;cdecl;external libX11;
 type
 
    PXrmOptionKind = ^TXrmOptionKind;
@@ -158,16 +158,16 @@ type
 
    PXrmOptionDescRec = ^TXrmOptionDescRec;
    TXrmOptionDescRec = record
-        option : Pchar;
-        specifier : Pchar;
+        option : PAnsiChar;
+        specifier : PAnsiChar;
         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 libX11;
+procedure XrmParseCommand(para1:PXrmDatabase; para2:TXrmOptionDescList; para3:longint; para4:PAnsiChar; para5:Plongint;
+            para6:PPAnsiChar);cdecl;external libX11;
 
 implementation
 
@@ -182,7 +182,7 @@ function NULLSTRING : TXrmString;
   end;
 
 {$ifdef MACROS}
-function XrmStringsEqual(a1,a2 : pchar) : boolean;
+function XrmStringsEqual(a1,a2 : PAnsiChar) : boolean;
 begin
    XrmStringsEqual:=(strcomp(a1,a2)) = 0;
 end;
@@ -192,12 +192,12 @@ begin
    XrmNameToString:=XrmQuarkToString(name);
 end;
 
-function XrmStringToName(_string : Pchar) : longint;
+function XrmStringToName(_string : PAnsiChar) : longint;
 begin
    XrmStringToName:=XrmStringToQuark(_string);
 end;
 
-procedure XrmStringToNameList(str:Pchar; name : PXrmQuark);
+procedure XrmStringToNameList(str:PAnsiChar; name : PXrmQuark);
 begin
    XrmStringToQuarkList(str,name);
 end;
@@ -207,17 +207,17 @@ begin
    XrmClassToString:=XrmQuarkToString(c_class);
 end;
 
-function XrmStringToClass(c_class : Pchar) : longint;
+function XrmStringToClass(c_class : PAnsiChar) : longint;
 begin
    XrmStringToClass:=XrmStringToQuark(c_class);
 end;
 
-procedure XrmStringToClassList(str:Pchar; c_class : PXrmQuark);
+procedure XrmStringToClassList(str:PAnsiChar; c_class : PXrmQuark);
 begin
    XrmStringToQuarkList(str,c_class);
 end;
 
-function XrmStringToRepresentation(_string : Pchar) : longint;
+function XrmStringToRepresentation(_string : PAnsiChar) : longint;
 begin
    XrmStringToRepresentation:=XrmStringToQuark(_string);
 end;

packages/x11/src/xshm.pp

@@ -61,7 +61,7 @@ type
    TXShmSegmentInfo = record
         shmseg : TShmSeg;
         shmid : cint;
-        shmaddr : Pchar;
+        shmaddr : PAnsiChar;
         readOnly : TBool;
      end;
 
@@ -76,9 +76,9 @@ function XShmPutImage(dpy:PDisplay;d:TDrawable;gc:TGC;image:PXImage;
            send_event:TBool):TStatus;cdecl;external libX11;
 function XShmGetImage(dpy:PDisplay;d:TDrawable;image:PXImage;x,y:cint;
            plane_mask:culong):TStatus;cdecl;external libX11;
-function XShmCreateImage(dpy:PDisplay;visual:PVisual;depth:cuint;format:cint;data:Pchar;
+function XShmCreateImage(dpy:PDisplay;visual:PVisual;depth:cuint;format:cint;data:PAnsiChar;
            shminfo:PXShmSegmentInfo;width,height:cuint):PXImage;cdecl;external libX11;
-function XShmCreatePixmap(dpy:PDisplay;d:TDrawable;data:Pchar;shminfo:PXShmSegmentInfo;
+function XShmCreatePixmap(dpy:PDisplay;d:TDrawable;data:PAnsiChar;shminfo:PXShmSegmentInfo;
            width,height,depth:cuint):TPixmap;cdecl;external libX11;
 
 { overloaded functions to handle TBool parameters as actual booleans }

packages/x11/src/xtestext1.pp

@@ -95,7 +95,7 @@ type
     window: TWindow;
   end;
 
-function XTestFakeInput({register} dpy: PDisplay; action_list_addr: Pchar; action_list_size, ack_flag: cint): cint; cdecl; external libXext;
+function XTestFakeInput({register} dpy: PDisplay; action_list_addr: PAnsiChar; action_list_size, ack_flag: cint): cint; cdecl; external libXext;
 function XTestGetInput({register} dpy: PDisplay; action_handling: cint): cint; cdecl; external libXext;
 function XTestQueryInputSize({register} dpy: PDisplay; size_return: Pculong): cint; cdecl; external libXext;
 function XTestPressKey(display: PDisplay; device_id: cint; delay: culong; keycode, key_action: cuint): cint; cdecl; external libXext;

packages/x11/src/xutil.pp

@@ -127,8 +127,8 @@ type
 
    PXClassHint = ^TXClassHint;
    TXClassHint = record
-        res_name : Pchar;
-        res_class : Pchar;
+        res_name : PAnsiChar;
+        res_class : PAnsiChar;
      end;
 
 type
@@ -217,7 +217,7 @@ function XAllocStandardColormap:PXStandardColormap;cdecl;external libX11;
 function XAllocWMHints:PXWMHints;cdecl;external libX11;
 function XClipBox(para1:TRegion; para2:PXRectangle):cint;cdecl;external libX11;
 function XCreateRegion:TRegion;cdecl;external libX11;
-function XDefaultString:Pchar;cdecl;external libX11;
+function XDefaultString:PAnsiChar;cdecl;external libX11;
 function XDeleteContext(para1:PDisplay; para2:TXID; para3:TXContext):cint;cdecl;external libX11;
 function XDestroyRegion(para1:TRegion):cint;cdecl;external libX11;
 function XEmptyRegion(para1:TRegion):cint;cdecl;external libX11;
@@ -240,50 +240,50 @@ function XGetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4
 function XGetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external libX11;
 function XIntersectRegion(para1:TRegion; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
 procedure XConvertCase(para1:TKeySym; para2:PKeySym; para3:PKeySym);cdecl;external libX11;
-function XLookupString(para1:PXKeyEvent; para2:Pchar; para3:cint; para4:PKeySym; para5:PXComposeStatus):cint;cdecl;external libX11;
+function XLookupString(para1:PXKeyEvent; para2:PAnsiChar; para3:cint; para4:PKeySym; para5:PXComposeStatus):cint;cdecl;external libX11;
 function XMatchVisualInfo(para1:PDisplay; para2:cint; para3:cint; para4:cint; para5:PXVisualInfo):TStatus;cdecl;external libX11;
 function XOffsetRegion(para1:TRegion; para2:cint; para3:cint):cint;cdecl;external libX11;
 function XPointInRegion(para1:TRegion; para2:cint; para3:cint):TBoolResult;cdecl;external libX11;
 function XPolygonRegion(para1:PXPoint; para2:cint; para3:cint):TRegion;cdecl;external libX11;
 function XRectInRegion(para1:TRegion; para2:cint; para3:cint; para4:cuint; para5:cuint):cint;cdecl;external libX11;
-function XSaveContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:Pchar):cint;cdecl;external libX11;
+function XSaveContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:PAnsiChar):cint;cdecl;external libX11;
 function XSetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):cint;cdecl;external libX11;
 function XSetIconSizes(para1:PDisplay; para2:TWindow; para3:PXIconSize; para4:cint):cint;cdecl;external libX11;
 function XSetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):cint;cdecl;external libX11;
 procedure XSetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:cint; para5:TAtom);cdecl;external libX11;
 function XSetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):cint;cdecl;external libX11;
-function XSetStandardProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:TPixmap;
-           para6:PPchar; para7:cint; para8:PXSizeHints):cint;cdecl;external libX11;
+function XSetStandardProperties(para1:PDisplay; para2:TWindow; para3:PAnsiChar; para4:PAnsiChar; para5:TPixmap;
+           para6:PPAnsiChar; para7:cint; para8:PXSizeHints):cint;cdecl;external libX11;
 procedure XSetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom);cdecl;external libX11;
 procedure XSetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11;
 function XSetWMHints(para1:PDisplay; para2:TWindow; para3:PXWMHints):cint;cdecl;external libX11;
 procedure XSetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11;
 procedure XSetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11;
 procedure XSetWMNormalHints(ADisplay:PDisplay; AWindow:TWindow; AHints:PXSizeHints);cdecl;external libX11;
-procedure XSetWMProperties(ADisplay:PDisplay; AWindow:TWindow; AWindowName:PXTextProperty; AIconName:PXTextProperty; AArgv:PPchar;
+procedure XSetWMProperties(ADisplay:PDisplay; AWindow:TWindow; AWindowName:PXTextProperty; AIconName:PXTextProperty; AArgv:PPAnsiChar;
             AArgc:cint; ANormalHints:PXSizeHints; AWMHints:PXWMHints; AClassHints:PXClassHint);cdecl;external libX11;
-procedure XmbSetWMProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:PPchar;
+procedure XmbSetWMProperties(para1:PDisplay; para2:TWindow; para3:PAnsiChar; para4:PAnsiChar; para5:PPAnsiChar;
             para6:cint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external libX11;
-procedure Xutf8SetWMProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:PPchar;
+procedure Xutf8SetWMProperties(para1:PDisplay; para2:TWindow; para3:PAnsiChar; para4:PAnsiChar; para5:PPAnsiChar;
             para6:cint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external libX11;
 procedure XSetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom);cdecl;external libX11;
 function XSetRegion(para1:PDisplay; para2:TGC; para3:TRegion):cint;cdecl;external libX11;
 procedure XSetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom);cdecl;external libX11;
 function XSetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):cint;cdecl;external libX11;
 function XShrinkRegion(para1:TRegion; para2:cint; para3:cint):cint;cdecl;external libX11;
-function XStringListToTextProperty(para1:PPchar; para2:cint; para3:PXTextProperty):TStatus;cdecl;external libX11;
+function XStringListToTextProperty(para1:PPAnsiChar; para2:cint; para3:PXTextProperty):TStatus;cdecl;external libX11;
 function XSubtractRegion(para1:TRegion; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
-function XmbTextListToTextProperty(para1:PDisplay; para2:PPchar; para3:cint; para4:TXICCEncodingStyle; para5:PXTextProperty):cint;cdecl;external libX11;
+function XmbTextListToTextProperty(para1:PDisplay; para2:PPAnsiChar; para3:cint; para4:TXICCEncodingStyle; para5:PXTextProperty):cint;cdecl;external libX11;
 function XwcTextListToTextProperty(para1:PDisplay; para2:PPWideChar; para3:cint; para4:TXICCEncodingStyle; para5:PXTextProperty):cint;cdecl;external libX11;
-function Xutf8TextListToTextProperty(para1:PDisplay; para2:PPchar; para3:cint; para4:TXICCEncodingStyle; para5:PXTextProperty):cint;cdecl;external libX11;
+function Xutf8TextListToTextProperty(para1:PDisplay; para2:PPAnsiChar; para3:cint; para4:TXICCEncodingStyle; para5:PXTextProperty):cint;cdecl;external libX11;
 procedure XwcFreeStringList(para1:PPWideChar);cdecl;external libX11;
-function XTextPropertyToStringList(para1:PXTextProperty; para2:PPPchar; para3:Pcint):TStatus;cdecl;external libX11;
-function XmbTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPchar; para4:Pcint):cint;cdecl;external libX11;
+function XTextPropertyToStringList(para1:PXTextProperty; para2:PPPAnsiChar; para3:Pcint):TStatus;cdecl;external libX11;
+function XmbTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPAnsiChar; para4:Pcint):cint;cdecl;external libX11;
 function XwcTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPWideChar; para4:Pcint):cint;cdecl;external libX11;
-function Xutf8TextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPchar; para4:Pcint):cint;cdecl;external libX11;
+function Xutf8TextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPAnsiChar; para4:Pcint):cint;cdecl;external libX11;
 function XUnionRectWithRegion(para1:PXRectangle; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
 function XUnionRegion(para1:TRegion; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
-function XWMGeometry(para1:PDisplay; para2:cint; para3:Pchar; para4:Pchar; para5:cuint;
+function XWMGeometry(para1:PDisplay; para2:cint; para3:PAnsiChar; para4:PAnsiChar; para5:cuint;
            para6:PXSizeHints; para7:Pcint; para8:Pcint; para9:Pcint; para10:Pcint;
            para11:Pcint):cint;cdecl;external libX11;
 function XXorRegion(para1:TRegion; para2:TRegion; para3:TRegion):cint;cdecl;external libX11;
@@ -302,7 +302,7 @@ function IsFunctionKey(keysym : TKeySym) : Boolean;
 function IsMiscFunctionKey(keysym : TKeySym) : Boolean;
 function IsModifierKey(keysym : TKeySym) : Boolean;
 {function XUniqueContext : TXContext;
-function XStringToContext(_string : Pchar) : TXContext;}
+function XStringToContext(_string : PAnsiChar) : TXContext;}
 {$endif MACROS}
 
 implementation
@@ -377,7 +377,7 @@ begin
    XUniqueContext:=TXContext(XrmUniqueQuark);
 end;
 
-function XStringToContext(_string : Pchar) : TXContext;
+function XStringToContext(_string : PAnsiChar) : TXContext;
 begin
    XStringToContext:=TXContext(XrmStringToQuark(_string));
 end;}

packages/x11/src/xvlib.pp

@@ -75,14 +75,14 @@ type
     flags : cint; { XvGettable, XvSettable }
     min_value : cint;
     max_value : cint;
-    name : pchar;
+    name : PAnsiChar;
   end;
 
   PPXvEncodingInfo = ^PXvEncodingInfo;
   PXvEncodingInfo = ^TXvEncodingInfo;
   TXvEncodingInfo = record
     encoding_id : TXvEncodingID;
-    name : pchar;
+    name : PAnsiChar;
     width : culong;
     height : culong;
     rate : TXvRational;
@@ -101,7 +101,7 @@ type
     base_id : TXvPortID;
     num_ports : culong;
     _type : cchar;
-    name : pchar;
+    name : PAnsiChar;
     num_formats : culong;
     formats : PXvFormat;
     num_adaptors : culong;
@@ -174,7 +174,7 @@ type
     vert_y_period : cuint;
     vert_u_period : cuint;
     vert_v_period : cuint;
-    component_order : array[0..31] of char; { eg. UYVY }
+    component_order : array[0..31] of AnsiChar; { eg. UYVY }
     scanline_order : cint;                  { XvTopToBottom, XvBottomToTop }
   end;