- unit Unit1;
 - interface
 - uses
 - SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,
 - QDialogs, QStdCtrls, xlib, OpenGL12, ctl, QExtCtrls, QT;
 - type
 - TForm1 = class(TForm)
 - Timer1: TTimer;
 - procedure FormCreate(Sender: TObject);
 - procedure FormDestroy(Sender: TObject);
 - procedure FormResize(Sender: TObject);
 - procedure Timer1Timer(Sender: TObject);
 - private
 - { Private-Deklarationen }
 - public
 - { Public-Deklarationen }
 - end;
 - var
 - Form1: TForm1;
 - tex : tglint;
 - dpy : PDisplay;
 - cx : ^integer;
 - vi : PXVisualInfo;
 - glwin : XID;
 - attributes : array [0..40] of integer;
 - .......
 - procedure TForm1.FormCreate(Sender: TObject);
 - begin
 - initopengl;
 - dpy:=Application.Display;
 - setup_atts;
 - vi:=glXChooseVisual(dpy, XDefaultScreen(dpy), @attributes[0]); //<--In dieser Zeile ist der Fehler... ich weiß blos nicht weshalb.......
 - cx := glXCreateContext(dpy, vi, nil, True);
 - glwin := QWidget_winId(form1.Handle);
 - glXMakeCurrent(dpy, glwin, cx);
 - glenable(gl_texture_2d);
 - glEnable(GL_DEPTH_TEST);
 - InitTextures;
 - glLoadIdentity;
 - end;
 
