CEF4Delphi/source/uCEFLinuxTypes.pas

unit uCEFLinuxTypes;

interface

{$IFDEF LINUX}
type
  PXEvent        = pointer;

  {$IFDEF FMX}
  // https://developer.gnome.org/glib/stable/glib-Basic-Types.htm
  gboolean       = longbool;
  gpointer       = pointer;
  gconstpointer  = pointer;
  gchar          = ansichar;
  guchar         = byte;
  gint           = integer;
  guint          = cardinal;
  gshort         = smallint;
  gushort        = word;
  gulong         = uint64;
  glong          = int64;
  gint8          = shortint;
  guint8         = byte;
  gint16         = int16;
  guint16        = uint16;
  gint32         = int32;
  guint32        = uint32;
  gint64         = int64;
  guint64        = uint64;
  gfloat         = single;
  gdouble        = double;
  gsize          = NativeUInt;
  gssize         = NativeInt;
  goffset        = gint64;
  gintptr        = NativeInt;
  guintptr       = NativeUInt;
  Pgchar         = ^gchar;
  PGData         = pointer;
  PGClosure      = pointer;
  TGConnectFlags = integer;
  GType          = gulong;
  PGtkWidget     = pointer;
  TGdkEventType  = int32;
  PGdkEventKey   = ^TGdkEventKey;
  PXDisplay      = pointer;
  PDisplay       = pointer;

  PXErrorEvent = ^TXErrorEvent;
  TXErrorEvent = record
     _type : longint;
     display : PDisplay;
     resourceid : uint64;
     serial : uint64;
     error_code : uint8;
     request_code : uint8;
     minor_code : uint8;
   end;

  PGTypeClass = ^TGTypeClass;
  TGTypeClass = record
    g_type : GType;
  end;

  TGTypeInstance = record
    g_class : PGTypeClass;
  end;

  TGObject = record
    g_type_instance : TGTypeInstance;
    ref_count       : guint;
    qdata           : PGData;
  end;

  TGdkDrawable = record
    parent_instance : TGObject;
  end;

  PGdkWindow = ^TGdkWindow;
  TGdkWindow = TGdkDrawable;
  TGdkEventKey = record
    _type            : TGdkEventType;
    window           : PGdkWindow;
    send_event       : gint8;
    time             : guint32;
    state            : guint;
    keyval           : guint;
    length           : gint;
    _string          : Pgchar;
    hardware_keycode : guint16;
    group            : guint8;
  end;

  TGCallBackProcedure = procedure;
  TGCallback          = procedure (para1: TGCallBackProcedure); cdecl;
  TGClosureNotify     = procedure(data: gpointer; closure: PGClosure); cdecl;

  TRGBQuad = record
    rgbBlue     : Byte;
    rgbGreen    : Byte;
    rgbRed      : Byte;
    rgbReserved : Byte;
  end;

  PGdkScreen = ^TGdkScreen;
  TGdkScreen = record
    parent_instance : TGObject;
  end;
{$ENDIF}
{$ENDIF}

implementation

end.