1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:

  procedure SetDCPixelFormat(Handle: HDC);
  var
    nPixelFormat: GLUint;
  const
    pfd: PIXELFORMATDESCRIPTOR = (
        nSize: sizeof( PIXELFORMATDESCRIPTOR );
        nVersion: 1;
        dwFlags: PFD_DRAW_TO_WINDOW
        or PFD_SUPPORT_OPENGL
        or PFD_DOUBLEBUFFER;
        iPixelType: PFD_TYPE_RGBA;
        cColorBits: 16;
        cRedBits: 0;
        cRedShift: 0;
        cGreenBits: 0;
        cBlueBits: 0;
        cBlueShift: 0;
        cAlphaBits: 0;
        cAlphaShift: 0;
        cAccumBits: 0;
        cAccumRedBits: 0;
        cAccumGreenBits: 0;
        cAccumBlueBits: 0;
        cAccumAlphaBits: 0;
        cDepthBits: 16;
        cStencilBits: 0;
        cAuxBuffers: 0;
        iLayerType: PFD_MAIN_PLANE;
        bReserved: 0;
        dwLayerMask: 0;
        dwVisibleMask: 0;
        dwDamageMask: 0
    );
  begin
    nPixelFormat:=ChoosePixelFormat(h_DC, @pfd);
    SetPixelFormat(h_DC,nPixelFormat,@pfd);
  end;

procedure LoadTextures();
begin
fTexture := TglBitmap2D.Create; // Instanz der Klasse erstellen
fTexture.LoadFromFile('texture.bmp'); // Datei laden
fTexture.GenTexture; // geladene Textur an OpenGL übergeben
end;

{Prozedur die die Grundeinstellungen von OpenGl einstellt}
procedure TForm1.InitGL;
begin
  glClearColor(0,0,0,0);
  glClearDepth(1);
  glDepthFunc(GL_LESS);
  glShadeModel(GL_SMOOTH);
  glEnable(GL_DEPTH_TEST);


  glViewport(0,0,Width,Height);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45,Width/Height,1,200);
  glMatrixMode(GL_MODELVIEW);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //OpenGl intitialisieren
  InitOpenGl;
  //DeviceContext des Formulars
  h_DC:=GetDC(Form1.Handle);
  //Pixelformat
  SetDCPixelFormat(h_DC);
  //ZeichenKontext erstellen
  hRC:=CreateRenderingContext( h_DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,0,0,
                               0);

  ActivateRenderingContext(h_DC,hRC);

  InitGl;
  //Texturen in den Speicher schreiben
  LoadTextures;
  Application.OnIdle := IdleHandler;
end;

procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
begin
  DrawScene;
  Done:=False;
end;

procedure TForm1.DrawScene;
var Quadric: PGLUQuadric;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  //Hier wird die Scene gezeichnet

    glTranslatef( 0, 0, 0);

    Quadric:=gluNewQuadric;
    gluQuadricTexture(Quadric, TRUE);

    fTexture.Bind;
    gluSphere(Quadric, 30, 180, 180);


  SwapBuffers(h_DC);
  Sleep(5);
end;