- 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;