mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 20:29:12 +02:00
added published properties for gtkglarea
git-svn-id: trunk@2411 -
This commit is contained in:
mattias
parent
171619dd1d
commit
27c1fa5151
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -36,7 +36,7 @@ components/codetools/stdcodetools.pas svneol=native#text/pascal
|
||||
components/gtk/gtkglarea/gtkglarea.pp svneol=native#text/pascal
|
||||
components/gtk/gtkglarea/gtkglarea_int.pp svneol=native#text/pascal
|
||||
components/gtk/gtkglarea/nvgl.pp svneol=native#text/pascal
|
||||
components/gtk/gtkglarea/nvglx.pas svneol=native#text/pascal
|
||||
components/gtk/gtkglarea/nvglx.pp svneol=native#text/pascal
|
||||
components/synedit/allunits.pp svneol=native#text/pascal
|
||||
components/synedit/syncompletion.pas svneol=native#text/pascal
|
||||
components/synedit/synedit.inc svneol=native#text/pascal
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,8 +1,12 @@
|
||||
// File: nvGLX.pp
|
||||
// modified: 01-04-2003
|
||||
//
|
||||
// FreePascal Bindings for libGLX
|
||||
// Version 0.5.0
|
||||
// supported NVIDIA Driver Version: 4348
|
||||
// Author: Reimar Grabowski
|
||||
|
||||
{
|
||||
FreePascal Bindings for libGL by NVIDIA glx.h
|
||||
|
||||
Author: Mattias Gaertner
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL, included in this distribution, *
|
||||
@ -14,71 +18,70 @@
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
unit NVGLX;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
{$LinkLib GL}
|
||||
{$PACKRECORDS C}
|
||||
|
||||
unit nvGLX;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
X, XLib, XUtil, NVGL;
|
||||
X, XLib, XUtil, nvGL;
|
||||
|
||||
{$PACKRECORDS C}
|
||||
const
|
||||
GLX_VERSION_1_1 = 1;
|
||||
GLX_VERSION_1_2 = 1;
|
||||
|
||||
{ ------------------------------------------------------------------------------
|
||||
Names for attributes to glXGetConfig.
|
||||
}
|
||||
{ support GLX rendering }
|
||||
{ GLX Extensions }
|
||||
GLX_EXT_import_context = 1;
|
||||
GLX_EXT_visual_info = 1;
|
||||
GLX_EXT_visual_rating = 1;
|
||||
GLX_SGIX_fbconfig = 1;
|
||||
GLX_SGIX_pbuffer = 1;
|
||||
GLX_NV_float_buffer = 1;
|
||||
{ Names for attributes to glXGetConfig. }
|
||||
{ support GLX rendering }
|
||||
GLX_USE_GL = 1;
|
||||
{ depth of the color buffer }
|
||||
{ depth of the color buffer }
|
||||
GLX_BUFFER_SIZE = 2;
|
||||
{ level in plane stacking }
|
||||
{ level in plane stacking }
|
||||
GLX_LEVEL = 3;
|
||||
{ true if RGBA mode }
|
||||
{ true if RGBA mode }
|
||||
GLX_RGBA = 4;
|
||||
{ double buffering supported }
|
||||
{ double buffering supported }
|
||||
GLX_DOUBLEBUFFER = 5;
|
||||
{ stereo buffering supported }
|
||||
{ stereo buffering supported }
|
||||
GLX_STEREO = 6;
|
||||
{ number of aux buffers }
|
||||
{ number of aux buffers }
|
||||
GLX_AUX_BUFFERS = 7;
|
||||
{ number of red component bits }
|
||||
{ number of red component bits }
|
||||
GLX_RED_SIZE = 8;
|
||||
{ number of green component bits }
|
||||
{ number of green component bits }
|
||||
GLX_GREEN_SIZE = 9;
|
||||
{ number of blue component bits }
|
||||
{ number of blue component bits }
|
||||
GLX_BLUE_SIZE = 10;
|
||||
{ number of alpha component bits }
|
||||
{ number of alpha component bits }
|
||||
GLX_ALPHA_SIZE = 11;
|
||||
{ number of depth bits }
|
||||
{ number of depth bits }
|
||||
GLX_DEPTH_SIZE = 12;
|
||||
{ number of stencil bits }
|
||||
{ number of stencil bits }
|
||||
GLX_STENCIL_SIZE = 13;
|
||||
{ number of red accum bits }
|
||||
{ number of red accum bits }
|
||||
GLX_ACCUM_RED_SIZE = 14;
|
||||
{ number of green accum bits }
|
||||
{ number of green accum bits }
|
||||
GLX_ACCUM_GREEN_SIZE = 15;
|
||||
{ number of blue accum bits }
|
||||
{ number of blue accum bits }
|
||||
GLX_ACCUM_BLUE_SIZE = 16;
|
||||
{ number of alpha accum bits }
|
||||
{ number of alpha accum bits }
|
||||
GLX_ACCUM_ALPHA_SIZE = 17;
|
||||
|
||||
{ number of multisample buffers }
|
||||
{ number of multisample buffers }
|
||||
GLX_SAMPLE_BUFFERS_ARB = 100000;
|
||||
{ number of multisample samples }
|
||||
{ number of multisample samples }
|
||||
GLX_SAMPLES_ARB = 100001;
|
||||
|
||||
|
||||
{ ------------------------------------------------------------------------------
|
||||
FBConfig-specific attributes
|
||||
}
|
||||
|
||||
{ FBConfig-specific attributes }
|
||||
GLX_X_VISUAL_TYPE = $22;
|
||||
{ Like visual_info VISUAL_CAVEAT }
|
||||
{ Like visual_info VISUAL_CAVEAT }
|
||||
GLX_CONFIG_CAVEAT = $20;
|
||||
GLX_TRANSPARENT_TYPE = $23;
|
||||
GLX_TRANSPARENT_INDEX_VALUE = $24;
|
||||
@ -94,7 +97,6 @@ const
|
||||
GLX_MAX_PBUFFER_HEIGHT = $8017;
|
||||
GLX_MAX_PBUFFER_PIXELS = $8018;
|
||||
GLX_VISUAL_ID = $800B;
|
||||
|
||||
GLX_DRAWABLE_TYPE_SGIX = GLX_DRAWABLE_TYPE;
|
||||
GLX_RENDER_TYPE_SGIX = GLX_RENDER_TYPE;
|
||||
GLX_X_RENDERABLE_SGIX = GLX_X_RENDERABLE;
|
||||
@ -104,109 +106,87 @@ const
|
||||
GLX_MAX_PBUFFER_PIXELS_SGIX = GLX_MAX_PBUFFER_PIXELS;
|
||||
GLX_OPTIMAL_PBUFFER_WIDTH_SGIX = $8019;
|
||||
GLX_OPTIMAL_PBUFFER_HEIGHT_SGIX = $801A;
|
||||
|
||||
|
||||
{ ------------------------------------------------------------------------------
|
||||
Error return values from glXGetConfig. Success is indicated by
|
||||
a value of 0.
|
||||
}
|
||||
{ screen # is bad }
|
||||
{ Error return values from glXGetConfig. Success is indicated by a value of 0. }
|
||||
{ screen # is bad }
|
||||
GLX_BAD_SCREEN = 1;
|
||||
{ attribute to get is bad }
|
||||
{ attribute to get is bad }
|
||||
GLX_BAD_ATTRIBUTE = 2;
|
||||
{ no glx extension on server }
|
||||
{ no glx extension on server }
|
||||
GLX_NO_EXTENSION = 3;
|
||||
{ visual # not known by GLX }
|
||||
{ visual # not known by GLX }
|
||||
GLX_BAD_VISUAL = 4;
|
||||
GLX_BAD_CONTEXT = 5;
|
||||
GLX_BAD_VALUE = 6;
|
||||
GLX_BAD_ENUM = 7;
|
||||
|
||||
|
||||
{ ------------------------------------------------------------------------------
|
||||
FBConfig attribute values
|
||||
}
|
||||
{ Generic "don't care" value for glX ChooseFBConfig attributes (except GLX_LEVEL) }
|
||||
{ FBConfig attribute values }
|
||||
{ Generic "don't care" value for glX ChooseFBConfig attributes (except GLX_LEVEL). }
|
||||
GLX_DONT_CARE = $FFFFFFFF;
|
||||
|
||||
{ GLX_RENDER_TYPE bits }
|
||||
{ GLX_RENDER_TYPE bits }
|
||||
GLX_RGBA_BIT = $00000001;
|
||||
GLX_COLOR_INDEX_BIT = $00000002;
|
||||
GLX_RGBA_BIT_SGIX = GLX_RGBA_BIT;
|
||||
GLX_COLOR_INDEX_BIT_SGIX = GLX_COLOR_INDEX_BIT;
|
||||
|
||||
{ GLX_DRAWABLE_TYPE bits }
|
||||
{ GLX_DRAWABLE_TYPE bits }
|
||||
GLX_WINDOW_BIT = $00000001;
|
||||
GLX_PIXMAP_BIT = $00000002;
|
||||
GLX_PBUFFER_BIT = $00000004;
|
||||
GLX_WINDOW_BIT_SGIX = GLX_WINDOW_BIT;
|
||||
GLX_PIXMAP_BIT_SGIX = GLX_PIXMAP_BIT;
|
||||
GLX_PBUFFER_BIT_SGIX = GLX_PBUFFER_BIT;
|
||||
|
||||
{ GLX_CONFIG_CAVEAT attribute values }
|
||||
{ GLX_CONFIG_CAVEAT attribute values }
|
||||
GLX_NONE = $8000;
|
||||
GLX_SLOW_CONFIG = $8001;
|
||||
GLX_NON_CONFORMANT_CONFIG = $800D;
|
||||
|
||||
{ GLX_X_VISUAL_TYPE attribute values }
|
||||
{ GLX_X_VISUAL_TYPE attribute values }
|
||||
GLX_TRUE_COLOR = $8002;
|
||||
GLX_DIRECT_COLOR = $8003;
|
||||
GLX_PSEUDO_COLOR = $8004;
|
||||
GLX_STATIC_COLOR = $8005;
|
||||
GLX_GRAY_SCALE = $8006;
|
||||
GLX_STATIC_GRAY = $8007;
|
||||
|
||||
{ GLX_TRANSPARENT_TYPE attribute values }
|
||||
{ #define GLX_NONE 0x8000 }
|
||||
{ GLX_TRANSPARENT_TYPE attribute values }
|
||||
{ #define GLX_NONE 0x8000 }
|
||||
GLX_TRANSPARENT_RGB = $8008;
|
||||
GLX_TRANSPARENT_INDEX = $8009;
|
||||
|
||||
{ glXCreateGLXPbuffer attributes }
|
||||
{ glXCreateGLXPbuffer attributes }
|
||||
GLX_PRESERVED_CONTENTS = $801B;
|
||||
GLX_LARGEST_PBUFFER = $801C;
|
||||
{ New for GLX 1.3 }
|
||||
{ New for GLX 1.3 }
|
||||
GLX_PBUFFER_HEIGHT = $8040;
|
||||
{ New for GLX 1.3 }
|
||||
{ New for GLX 1.3 }
|
||||
GLX_PBUFFER_WIDTH = $8041;
|
||||
GLX_PRESERVED_CONTENTS_SGIX = GLX_PRESERVED_CONTENTS;
|
||||
GLX_LARGEST_PBUFFER_SGIX = GLX_LARGEST_PBUFFER;
|
||||
|
||||
{ glXQueryGLXPBuffer attributes }
|
||||
{ glXQueryGLXPBuffer attributes }
|
||||
GLX_WIDTH = $801D;
|
||||
GLX_HEIGHT = $801E;
|
||||
GLX_EVENT_MASK = $801F;
|
||||
GLX_WIDTH_SGIX = GLX_WIDTH;
|
||||
GLX_HEIGHT_SGIX = GLX_HEIGHT;
|
||||
GLX_EVENT_MASK_SGIX = GLX_EVENT_MASK;
|
||||
|
||||
{ glXCreateNewContext render_type attribute values }
|
||||
{ glXCreateNewContext render_type attribute values }
|
||||
GLX_RGBA_TYPE = $8014;
|
||||
GLX_COLOR_INDEX_TYPE = $8015;
|
||||
GLX_RGBA_TYPE_SGIX = GLX_RGBA_TYPE;
|
||||
GLX_COLOR_INDEX_TYPE_SGIX = GLX_COLOR_INDEX_TYPE;
|
||||
|
||||
{ glXQueryContext attributes }
|
||||
{ #define GLX_FBCONFIG_ID 0x8013 }
|
||||
{ #define GLX_RENDER_TYPE 0x8011 }
|
||||
{ glXQueryContext attributes }
|
||||
{ #define GLX_FBCONFIG_ID 0x8013 }
|
||||
{ #define GLX_RENDER_TYPE 0x8011 }
|
||||
GLX_SCREEN = $800C;
|
||||
|
||||
{ glXSelectEvent event mask bits }
|
||||
{ glXSelectEvent event mask bits }
|
||||
GLX_PBUFFER_CLOBBER_MASK = $08000000;
|
||||
GLX_PBUFFER_CLOBBER_MASK_SGIX = GLX_PBUFFER_CLOBBER_MASK;
|
||||
|
||||
{ GLXPbufferClobberEvent event_type values }
|
||||
{ GLXPbufferClobberEvent event_type values }
|
||||
GLX_DAMAGED = $8020;
|
||||
GLX_SAVED = $8021;
|
||||
GLX_DAMAGED_SGIX = GLX_DAMAGED;
|
||||
GLX_SAVED_SGIX = GLX_SAVED;
|
||||
|
||||
{ GLXPbufferClobberEvent draw_type values }
|
||||
{ GLXPbufferClobberEvent draw_type values }
|
||||
GLX_WINDOW = $8022;
|
||||
GLX_PBUFFER = $8023;
|
||||
GLX_WINDOW_SGIX = GLX_WINDOW;
|
||||
GLX_PBUFFER_SGIX = GLX_PBUFFER;
|
||||
|
||||
{ GLXPbufferClobberEvent buffer_mask bits }
|
||||
{ GLXPbufferClobberEvent buffer_mask bits }
|
||||
GLX_FRONT_LEFT_BUFFER_BIT = $00000001;
|
||||
GLX_FRONT_RIGHT_BUFFER_BIT = $00000002;
|
||||
GLX_BACK_LEFT_BUFFER_BIT = $00000004;
|
||||
@ -223,77 +203,57 @@ const
|
||||
GLX_DEPTH_BUFFER_BIT_SGIX = GLX_DEPTH_BUFFER_BIT;
|
||||
GLX_STENCIL_BUFFER_BIT_SGIX = GLX_STENCIL_BUFFER_BIT;
|
||||
GLX_ACCUM_BUFFER_BIT_SGIX = GLX_ACCUM_BUFFER_BIT;
|
||||
|
||||
|
||||
{ ------------------------------------------------------------------------------
|
||||
Extension return values from glXGetConfig. These are also
|
||||
accepted as parameter values for glXChooseVisual.
|
||||
}
|
||||
{ visual_info extension type }
|
||||
{ Extension return values from glXGetConfig. These are also
|
||||
accepted as parameter values for glXChooseVisual. }
|
||||
{ visual_info extension type }
|
||||
GLX_X_VISUAL_TYPE_EXT = $22;
|
||||
{ visual_info extension }
|
||||
{ visual_info extension }
|
||||
GLX_TRANSPARENT_TYPE_EXT = $23;
|
||||
{ visual_info extension }
|
||||
{ visual_info extension }
|
||||
GLX_TRANSPARENT_INDEX_VALUE_EXT = $24;
|
||||
{ visual_info extension }
|
||||
{ visual_info extension }
|
||||
GLX_TRANSPARENT_RED_VALUE_EXT = $25;
|
||||
{ visual_info extension }
|
||||
{ visual_info extension }
|
||||
GLX_TRANSPARENT_GREEN_VALUE_EXT = $26;
|
||||
{ visual_info extension }
|
||||
{ visual_info extension }
|
||||
GLX_TRANSPARENT_BLUE_VALUE_EXT = $27;
|
||||
{ visual_info extension }
|
||||
{ visual_info extension }
|
||||
GLX_TRANSPARENT_ALPHA_VALUE_EXT = $28;
|
||||
|
||||
{ Property values for visual_type }
|
||||
{ Property values for visual_type }
|
||||
GLX_TRUE_COLOR_EXT = $8002;
|
||||
GLX_DIRECT_COLOR_EXT = $8003;
|
||||
GLX_PSEUDO_COLOR_EXT = $8004;
|
||||
GLX_STATIC_COLOR_EXT = $8005;
|
||||
GLX_GRAY_SCALE_EXT = $8006;
|
||||
GLX_STATIC_GRAY_EXT = $8007;
|
||||
|
||||
{ Property values for transparent pixel }
|
||||
{ Property values for transparent pixel }
|
||||
GLX_NONE_EXT = $8000;
|
||||
GLX_TRANSPARENT_RGB_EXT = $8008;
|
||||
GLX_TRANSPARENT_INDEX_EXT = $8009;
|
||||
|
||||
{ Property values for visual_rating }
|
||||
{ visual_rating extension type }
|
||||
{ Property values for visual_rating }
|
||||
{ visual_rating extension type }
|
||||
GLX_VISUAL_CAVEAT_EXT = $20;
|
||||
GLX_SLOW_VISUAL_EXT = $8001;
|
||||
GLX_NON_CONFORMANT_VISUAL_EXT = $800D;
|
||||
|
||||
|
||||
{ ------------------------------------------------------------------------------
|
||||
Names for attributes to glXGetClientString.
|
||||
}
|
||||
{ Names for attributes to glXGetClientString. }
|
||||
GLX_VENDOR = $1;
|
||||
GLX_VERSION = $2;
|
||||
GLX_EXTENSIONS = $3;
|
||||
|
||||
|
||||
{ ------------------------------------------------------------------------------
|
||||
Names for attributes to glXQueryContextInfoEXT.
|
||||
}
|
||||
{ id of share context }
|
||||
{ Names for attributes to glXQueryContextInfoEXT. }
|
||||
{ id of share context }
|
||||
GLX_SHARE_CONTEXT_EXT = $800A;
|
||||
{ id of context's visual }
|
||||
{ id of context's visual }
|
||||
GLX_VISUAL_ID_EXT = $800B;
|
||||
{ screen number }
|
||||
{ screen number }
|
||||
GLX_SCREEN_EXT = $800C;
|
||||
{ GLX Extension Strings }
|
||||
GLX_EXT_import_context = 1;
|
||||
GLX_EXT_visual_info = 1;
|
||||
GLX_EXT_visual_rating = 1;
|
||||
GLX_SGIX_fbconfig = 1;
|
||||
GLX_SGIX_pbuffer = 1;
|
||||
{ NV_float_buffer }
|
||||
GLX_FLOAT_COMPONENTS_NV = $20B0;
|
||||
|
||||
{ GLX resources. }
|
||||
|
||||
type
|
||||
{-------------------------------------------------------------------------------
|
||||
GLX resources.
|
||||
}
|
||||
TXID = dword;
|
||||
|
||||
TXID = cardinal;
|
||||
|
||||
PGLXContextID = ^GLXContextID;
|
||||
GLXContextID = TXID;
|
||||
@ -312,116 +272,135 @@ type
|
||||
|
||||
PGLXFBConfigID = ^GLXFBConfigID;
|
||||
GLXFBConfigID = TXID;
|
||||
|
||||
{-------------------------------------------------------------------------------
|
||||
GLXContext is a pointer to opaque data.
|
||||
}
|
||||
TGLXContext = pointer; // nvidia knows __GLXcontextRec, but I didn't found it
|
||||
|
||||
{-------------------------------------------------------------------------------
|
||||
GLXFBConfig is a pointer to opaque data.
|
||||
}
|
||||
{ GLXContext is a pointer to opaque data. }
|
||||
|
||||
//GLXContext = __GLXcontextRec;
|
||||
PGLXContext = ^TGLXContext;
|
||||
TGLXContext = pointer;
|
||||
|
||||
{ GLXFBConfig is a pointer to opaque data. }
|
||||
|
||||
PGLXFBConfig = ^TGLXFBConfig;
|
||||
TGLXFBConfig = pointer; // nvidia knows __GLXFBConfigRec, but I didn't find it
|
||||
TGLXFBConfig = pointer;
|
||||
|
||||
PGLXFBConfigSGIX = ^TGLXFBConfigSGIX;
|
||||
TGLXFBConfigSGIX = pointer; // nvidia knows __GLXFBConfigRec, but I didn't find it
|
||||
|
||||
{------------------------------------------------------------------------------}
|
||||
TGLXFBConfigSGIX = pointer;
|
||||
|
||||
function glXChooseVisual(dpy:PDisplay; screen:longint; attribList:Plongint):PXVisualInfo; cdecl; external;
|
||||
procedure glXCopyContext(dpy:PDisplay; src:TGLXContext; dst:TGLXContext; mask:GLuint); cdecl; external;
|
||||
function glXCreateContext(dpy:PDisplay; vis:PXVisualInfo; shareList:TGLXContext; direct:TBool):TGLXContext; cdecl; external;
|
||||
function glXCreateGLXPixmap(dpy:PDisplay; vis:PXVisualInfo; pixmap:TPixmap):GLXPixmap; cdecl; external;
|
||||
procedure glXDestroyContext(dpy:PDisplay; ctx:TGLXContext); cdecl; external;
|
||||
procedure glXDestroyGLXPixmap(dpy:PDisplay; pix:GLXPixmap); cdecl; external;
|
||||
function glXGetConfig(dpy:PDisplay; vis:PXVisualInfo; attrib:longint; value:Plongint):longint; cdecl; external;
|
||||
function glXGetCurrentContext:TGLXContext; cdecl; external;
|
||||
function glXGetCurrentDrawable:GLXDrawable; cdecl; external;
|
||||
function glXIsDirect(dpy:PDisplay; ctx:TGLXContext):TBool; cdecl; external;
|
||||
function glXMakeCurrent(dpy:PDisplay; drawable:GLXDrawable; ctx:TGLXContext):TBool; cdecl; external;
|
||||
function glXQueryExtension(dpy:PDisplay; errorBase:Plongint; eventBase:Plongint):TBool; cdecl; external;
|
||||
function glXQueryVersion(dpy:PDisplay; major:Plongint; minor:Plongint):TBool; cdecl; external;
|
||||
procedure glXSwapBuffers(dpy:PDisplay; drawable:GLXDrawable); cdecl; external;
|
||||
procedure glXUseXFont(font:TFont; first:longint; count:longint; listBase:longint); cdecl; external;
|
||||
procedure glXWaitGL; cdecl; external;
|
||||
procedure glXWaitX; cdecl; external;
|
||||
function glXGetClientString(dpy:PDisplay; name:longint):Pchar; cdecl; external;
|
||||
function glXQueryServerString(dpy:PDisplay; screen:longint; name:longint):Pchar; cdecl; external;
|
||||
function glXQueryExtensionsString(dpy:PDisplay; screen:longint):Pchar; cdecl; external;
|
||||
PCardinal = ^Cardinal;
|
||||
|
||||
{ New for GLX 1.3 ------------------------------------------------------------ }
|
||||
function glXGetFBConfigs(dpy:PDisplay; screen:longint; nelements:Plongint):PGLXFBConfig; cdecl; external;
|
||||
function glXChooseFBConfig(dpy:PDisplay; screen:longint; attrib_list:Plongint; nelements:Plongint):PGLXFBConfig; cdecl; external;
|
||||
function glXGetFBConfigAttrib(dpy:PDisplay; config:TGLXFBConfig; attribute:longint; value:Plongint):longint; cdecl; external;
|
||||
function glXGetVisualFromFBConfig(dpy:PDisplay; config:TGLXFBConfig):PXVisualInfo; cdecl; external;
|
||||
function glXCreateWindow(dpy:PDisplay; config:TGLXFBConfig; win:TWindow; attrib_list:Plongint):GLXWindow; cdecl; external;
|
||||
procedure glXDestroyWindow(dpy:PDisplay; win:GLXWindow); cdecl; external;
|
||||
function glXCreatePixmap(dpy:PDisplay; config:TGLXFBConfig; pixmap:TPixmap; attrib_list:Plongint):GLXPixmap; cdecl; external;
|
||||
procedure glXDestroyPixmap(dpy:PDisplay; pixmap:GLXPixmap); cdecl; external;
|
||||
function glXCreatePbuffer(dpy:PDisplay; config:TGLXFBConfig; attrib_list:Plongint):GLXPbuffer; cdecl; external;
|
||||
procedure glXDestroyPbuffer(dpy:PDisplay; pbuf:GLXPbuffer); cdecl; external;
|
||||
procedure glXQueryDrawable(dpy:PDisplay; draw:GLXDrawable; attribute:longint; value:Pdword); cdecl; external;
|
||||
function glXCreateNewContext(dpy:PDisplay; config:TGLXFBConfig; render_type:longint; share_list:TGLXContext; direct:TBool):TGLXContext; cdecl; external;
|
||||
function glXMakeContextCurrent(display:PDisplay; draw:GLXDrawable; read:GLXDrawable; ctx:TGLXContext):TBool; cdecl; external;
|
||||
function glXGetCurrentReadDrawable:GLXDrawable; cdecl; external;
|
||||
function glXGetCurrentDisplay:PDisplay; cdecl; external;
|
||||
function glXQueryContext(dpy:PDisplay; ctx:TGLXContext; attribute:longint; value:Plongint):longint; cdecl; external;
|
||||
procedure glXSelectEvent(dpy:PDisplay; draw:GLXDrawable; event_mask:dword); cdecl; external;
|
||||
procedure glXGetSelectedEvent(dpy:PDisplay; draw:GLXDrawable; event_mask:Pdword); cdecl; external;
|
||||
{ GLX 1.0 functions. }
|
||||
|
||||
{ Extensions ---------------------------------------------------------------}
|
||||
function glXGetContextIDEXT(ctx:TGLXContext):GLXContextID; cdecl; external;
|
||||
function glXGetCurrentDrawableEXT:GLXDrawable; cdecl; external;
|
||||
function glXImportContextEXT(dpy:PDisplay; contextID:GLXContextID):TGLXContext; cdecl; external;
|
||||
procedure glXFreeContextEXT(dpy:PDisplay; ctx:TGLXContext); cdecl; external;
|
||||
function glXQueryContextInfoEXT(dpy:PDisplay; ctx:TGLXContext; attribute:longint; value:Plongint):longint; cdecl; external;
|
||||
function glXChooseVisual(dpy:PDisplay; screen:longint; attrib_list:Plongint):PXVisualInfo;cdecl;external;
|
||||
procedure glXCopyContext(dpy:PDisplay; src:TGLXContext; dst:TGLXContext; mask: cardinal);cdecl;external;
|
||||
function glXCreateContext(dpy:PDisplay; vis:PXVisualInfo; share_list:TGLXContext; direct:TBool):TGLXContext;cdecl;external;
|
||||
function glXCreateGLXPixmap(dpy:PDisplay; vis:PXVisualInfo; pixmap:TPixmap):GLXPixmap;cdecl;external;
|
||||
procedure glXDestroyContext(dpy:PDisplay; ctx:TGLXContext);cdecl;external;
|
||||
procedure glXDestroyGLXPixmap(dpy:PDisplay; pix:GLXPixmap);cdecl;external;
|
||||
function glXGetConfig(dpy:PDisplay; vis:PXVisualInfo; attrib:longint; value:Plongint):longint;cdecl;external;
|
||||
function glXGetCurrentContext:TGLXContext;cdecl;external;
|
||||
function glXGetCurrentDrawable:GLXDrawable;cdecl;external;
|
||||
function glXIsDirect(dpy:PDisplay; ctx:TGLXContext):TBool;cdecl;external;
|
||||
function glXMakeCurrent(dpy:PDisplay; drawable:GLXDrawable; ctx:TGLXContext):TBool;cdecl;external;
|
||||
function glXQueryExtension(dpy:PDisplay; error_base:Plongint; event_base:Plongint):TBool;cdecl;external;
|
||||
function glXQueryVersion(dpy:PDisplay; major:Plongint; minor:Plongint):TBool;cdecl;external;
|
||||
procedure glXSwapBuffers(dpy:PDisplay; drawable:GLXDrawable);cdecl;external;
|
||||
procedure glXUseXFont(font:TFont; first:longint; count:longint; list_base:longint);cdecl;external;
|
||||
procedure glXWaitGL;cdecl;external;
|
||||
procedure glXWaitX;cdecl;external;
|
||||
|
||||
function glXGetProcAddressARB(procName:PGLubyte): TProcedure; cdecl; external;
|
||||
{ GLX 1.1 functions. }
|
||||
|
||||
function glXAllocateMemoryNV(size:GLsizei; readfreq:GLfloat; writefreq:GLfloat; priority:GLfloat):pointer; cdecl; external;
|
||||
procedure glXFreeMemoryNV(pointer:PGLvoid); cdecl; external;
|
||||
function glXGetClientString(dpy:PDisplay; name:longint):Pchar;cdecl;external;
|
||||
function glXQueryServerString(dpy:PDisplay; screen:longint; name:longint):Pchar;cdecl;external;
|
||||
function glXQueryExtensionsString(dpy:PDisplay; screen:longint):Pchar;cdecl;external;
|
||||
|
||||
{ Extensions added for the SGI, SGIS and SGIX extensions ----------------------}
|
||||
{ Video Sync extension }
|
||||
function glXGetVideoSyncSGI(count:Pdword):longint; cdecl; external;
|
||||
function glXWaitVideoSyncSGI(divisor:longint; remainder:longint; count:Pdword):longint; cdecl; external;
|
||||
function glXGetRefreshRateSGI(rate:Pdword):longint; cdecl; external;
|
||||
{ GLX 1.2 functions. }
|
||||
|
||||
{ Swap Group extension }
|
||||
procedure glXJoinSwapGroupSGIX(dpy:PDisplay; drawable:GLXDrawable; member:GLXDrawable); cdecl; external;
|
||||
function glXGetCurrentDisplay:PDisplay;cdecl;external;
|
||||
|
||||
{ Swap Barrier extension }
|
||||
procedure glXBindSwapBarrierSGIX(dpy:PDisplay; drawable:GLXDrawable; barrier:longint); cdecl; external;
|
||||
function glXQueryMaxSwapBarriersSGIX(dpy:PDisplay; screen:longint; max:Plongint):TBool; cdecl; external;
|
||||
{ GLX 1.3 functions. }
|
||||
|
||||
{ SGIX FBConfig extension }
|
||||
function glXGetFBConfigAttribSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX; attribute:longint; value_return:Plongint):longint; cdecl; external;
|
||||
function glXChooseFBConfigSGIX(dpy:PDisplay; screen:longint; attribList:Plongint; nitems:Plongint):PGLXFBConfigSGIX; cdecl; external;
|
||||
function glXCreateGLXPixmapWithConfigSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX; pixmap:TPixmap; attribList:Plongint):GLXPixmap; cdecl; external;
|
||||
function glXCreateContextWithConfigSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX; renderType:longint; shareList:TGLXContext; allowDirect:TBool):TGLXContext; cdecl; external;
|
||||
function glXGetVisualFromFBConfigSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX):PXVisualInfo; cdecl; external;
|
||||
function glXGetFBConfigFromVisualSGIX(dpy:PDisplay; vis:PXVisualInfo):TGLXFBConfigSGIX; cdecl; external;
|
||||
function glXCreateGLXPbufferSGIX(dpy:PDisplay; config:TGLXFBConfig; width:dword; height:dword; attribList:Plongint):GLXPbuffer; cdecl; external;
|
||||
procedure glXDestroyGLXPbufferSGIX(dpy:PDisplay; pbuf:GLXPbuffer); cdecl; external;
|
||||
procedure glXQueryGLXPbufferSGIX(dpy:PDisplay; pbuf:GLXPbuffer; attribute:longint; value:Pdword); cdecl; external;
|
||||
procedure glXSelectEventSGIX(dpy:PDisplay; drawable:GLXDrawable; mask:dword); cdecl; external;
|
||||
procedure glXGetSelectedEventSGIX(dpy:PDisplay; drawable:GLXDrawable; mask:Pdword); cdecl; external;
|
||||
function glXChooseFBConfig(dpy:PDisplay; screen:longint; attrib_list:Plongint; nelements:Plongint):PGLXFBConfig;cdecl;external;
|
||||
function glXCreateNewContext(dpy:PDisplay; config:TGLXFBConfig; render_type:longint; share_list:TGLXContext; direct:TBool):TGLXContext;cdecl;external;
|
||||
function glXCreatePbuffer(dpy:PDisplay; config:TGLXFBConfig; attrib_list:Plongint):GLXPbuffer;cdecl;external;
|
||||
function glXCreatePixmap(dpy:PDisplay; config:TGLXFBConfig; pixmap:TPixmap; attrib_list:Plongint):GLXPixmap;cdecl;external;
|
||||
function glXCreateWindow(dpy:PDisplay; config:TGLXFBConfig; win:TWindow; attrib_list:Plongint):GLXWindow;cdecl;external;
|
||||
procedure glXDestroyPbuffer(dpy:PDisplay; pbuf:GLXPbuffer);cdecl;external;
|
||||
procedure glXDestroyPixmap(dpy:PDisplay; pixmap:GLXPixmap);cdecl;external;
|
||||
procedure glXDestroyWindow(dpy:PDisplay; win:GLXWindow);cdecl;external;
|
||||
function glXGetCurrentReadDrawable:GLXDrawable;cdecl;external;
|
||||
function glXGetFBConfigAttrib(dpy:PDisplay; config:TGLXFBConfig; attribute:longint; value:Plongint):longint;cdecl;external;
|
||||
function glXGetFBConfigs(dpy:PDisplay; screen:longint; nelements:Plongint):PGLXFBConfig;cdecl;external;
|
||||
procedure glXGetSelectedEvent(dpy:PDisplay; draw:GLXDrawable; event_mask:Pcardinal);cdecl;external;
|
||||
function glXGetVisualFromFBConfig(dpy:PDisplay; config:TGLXFBConfig):PXVisualInfo;cdecl;external;
|
||||
function glXMakeContextCurrent(display:PDisplay; draw:GLXDrawable; read:GLXDrawable; ctx:TGLXContext):TBool;cdecl;external;
|
||||
function glXQueryContext(dpy:PDisplay; ctx:TGLXContext; attribute:longint; value:Plongint):longint;cdecl;external;
|
||||
procedure glXQueryDrawable(dpy:PDisplay; draw:GLXDrawable; attribute:longint; value:Pcardinal);cdecl;external;
|
||||
procedure glXSelectEvent(dpy:PDisplay; draw:GLXDrawable; event_mask:cardinal);cdecl;external;
|
||||
|
||||
{ ARB_get_proc_address }
|
||||
|
||||
function glXGetProcAddressARB(procName:PGLubyte):Tprocedure ;cdecl;external;
|
||||
|
||||
{ EXT_import_context }
|
||||
|
||||
procedure glXFreeContextEXT(dpy:PDisplay; ctx:TGLXContext);cdecl;external;
|
||||
function glXGetContextIDEXT(ctx:TGLXContext):GLXContextID;cdecl;external;
|
||||
function glXGetCurrentDrawableEXT:GLXDrawable;cdecl;external;
|
||||
function glXImportContextEXT(dpy:PDisplay; contextID:GLXContextID):TGLXContext;cdecl;external;
|
||||
function glXQueryContextInfoEXT(dpy:PDisplay; ctx:TGLXContext; attribute:longint; value:Plongint):longint;cdecl;external;
|
||||
|
||||
{ NV_vertex_array_range }
|
||||
|
||||
function glXAllocateMemoryNV(size:GLsizei; readfreq:GLfloat; writefreq:GLfloat; priority:GLfloat):pointer;cdecl;external;
|
||||
procedure glXFreeMemoryNV(pointer:GLvoid);cdecl;external;
|
||||
|
||||
{ SGI_video_sync }
|
||||
|
||||
function glXGetVideoSyncSGI(count:Pcardinal):longint;cdecl;external;
|
||||
function glXWaitVideoSyncSGI(divisor:longint; remainder:longint; count:Pcardinal):longint;cdecl;external;
|
||||
function glXGetRefreshRateSGI(rate:Pcardinal):longint;cdecl;external;
|
||||
|
||||
{ SGIX_swap_group }
|
||||
|
||||
procedure glXJoinSwapGroupSGIX(dpy:PDisplay; drawable:GLXDrawable; member:GLXDrawable);cdecl;external;
|
||||
|
||||
{ SGIX_swap_barrier }
|
||||
|
||||
procedure glXBindSwapBarrierSGIX(dpy:PDisplay; drawable:GLXDrawable; barrier:longint);cdecl;external;
|
||||
function glXQueryMaxSwapBarriersSGIX(dpy:PDisplay; screen:longint; max:Plongint):TBool;cdecl;external;
|
||||
|
||||
{ SGIX_fbconfig }
|
||||
|
||||
function glXGetFBConfigAttribSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX; attribute:longint; value_return:Plongint):longint;cdecl;external;
|
||||
function glXChooseFBConfigSGIX(dpy:PDisplay; screen:longint; attrib_list:Plongint; nelements:Plongint):PGLXFBConfigSGIX;cdecl;external;
|
||||
function glXCreateGLXPixmapWithConfigSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX; pixmap:TPixmap):GLXPixmap;cdecl;external;
|
||||
function glXCreateContextWithConfigSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX; render_type:longint; share_list:TGLXContext; direct:TBool):TGLXContext;cdecl;external;
|
||||
function glXGetVisualFromFBConfigSGIX(dpy:PDisplay; config:TGLXFBConfigSGIX):PXVisualInfo;cdecl;external;
|
||||
function glXGetFBConfigFromVisualSGIX(dpy:PDisplay; vis:PXVisualInfo):TGLXFBConfigSGIX;cdecl;external;
|
||||
|
||||
{ SGIX_pbuffer }
|
||||
|
||||
function glXCreateGLXPbufferSGIX(dpy:PDisplay; config:TGLXFBConfig; width:cardinal; height:cardinal; attrib_list:Plongint):GLXPbuffer;cdecl;external;
|
||||
procedure glXDestroyGLXPbufferSGIX(dpy:PDisplay; pbuf:GLXPbuffer);cdecl;external;
|
||||
procedure glXQueryGLXPbufferSGIX(dpy:PDisplay; pbuf:GLXPbuffer; attribute:longint; value:Pcardinal);cdecl;external;
|
||||
procedure glXSelectEventSGIX(dpy:PDisplay; drawable:GLXDrawable; mask:cardinal);cdecl;external;
|
||||
procedure glXGetSelectedEventSGIX(dpy:PDisplay; drawable:GLXDrawable; mask:Pcardinal);cdecl;external;
|
||||
|
||||
{ Should these go here, or in another header? }
|
||||
{ GLX Events }
|
||||
|
||||
{-------------------------------------------------------------------------------
|
||||
GLX Events
|
||||
}
|
||||
type
|
||||
PGLXPbufferClobberEvent = ^GLXPbufferClobberEvent;
|
||||
GLXPbufferClobberEvent = record
|
||||
event_type : longint; { GLX_DAMAGED or GLX_SAVED }
|
||||
draw_type : longint; { GLX_WINDOW or GLX_PBUFFER }
|
||||
serial : dword; { # of last request processed by server }
|
||||
send_event : TBool; { true if this came for SendEvent request }
|
||||
serial : cardinal; { # of last request processed by server }
|
||||
send_event : TBool; { true if this came for SendEvent request }
|
||||
display : PDisplay; { display the event was read from }
|
||||
drawable : GLXDrawable; { XID of Drawable }
|
||||
buffer_mask : dword; { mask indicating which buffers are affected }
|
||||
aux_buffer : dword; { which aux buffer was affected }
|
||||
buffer_mask : cardinal; { mask indicating which buffers are affected }
|
||||
aux_buffer : cardinal; { which aux buffer was affected }
|
||||
x : longint;
|
||||
y : longint;
|
||||
width : longint;
|
||||
@ -435,11 +414,10 @@ type
|
||||
0 : ( glxpbufferclobber : GLXPbufferClobberEvent );
|
||||
1 : ( pad : array[0..23] of longint );
|
||||
end;
|
||||
|
||||
TGLXEvent = T__GLXEvent;
|
||||
PGLXEvent = ^TGLXEvent;
|
||||
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
|
||||
@ -500,7 +500,6 @@ type
|
||||
FLastWidth : Integer;
|
||||
FLeft: Integer;
|
||||
FMouseEntered: boolean;
|
||||
FOnActivate : TNotifyEvent;
|
||||
FOnResize: TNotifyEvent;
|
||||
FOnClick: TNotifyEvent;
|
||||
FOnConstrainedResize : TConstrainedResizeEvent;
|
||||
@ -662,7 +661,7 @@ type
|
||||
property ParentColor: Boolean read FParentColor write FParentColor;
|
||||
property ParentShowHint : Boolean read FParentShowHint write SetParentShowHint default True;
|
||||
property Text: TCaption read GetText write SetText;
|
||||
property OnConstrainedResize : TConstrainedResizeEvent read FOnConstrainedResize write FOnConstrainedResize;
|
||||
property OnConstrainedResize: TConstrainedResizeEvent read FOnConstrainedResize write FOnConstrainedResize;
|
||||
property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
|
||||
property OnTripleClick: TNotifyEvent read FOnTripleClick write FOnTripleClick;
|
||||
property OnQuadClick: TNotifyEvent read FOnQuadClick write FOnQuadClick;
|
||||
@ -742,7 +741,7 @@ type
|
||||
property Width: Integer read FWidth write SetWidth;
|
||||
property HelpType: THelpType read FHelpType write FHelpType default htContext;
|
||||
property HelpKeyword: String read FHelpKeyword write SetHelpKeyword stored IsHelpKeyWordStored;
|
||||
property HelpContext: THelpContext read FHelpContext write SetHelpContext stored IsHelpContextStored default 0;
|
||||
property HelpContext: THelpContext read FHelpContext write SetHelpContext stored IsHelpContextStored;
|
||||
end;
|
||||
|
||||
|
||||
@ -1461,6 +1460,9 @@ end.
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.117 2003/05/09 14:21:25 mattias
|
||||
added published properties for gtkglarea
|
||||
|
||||
Revision 1.116 2003/05/03 09:53:33 mattias
|
||||
fixed popupmenu for component palette
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user