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:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:

unit Main_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpenGl;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure WM_Create(var Msg: TWMCreate); message WM_Create;
    procedure WM_ShowWindow(var Msg: TWMShowWindow); message WM_ShowWindow;
    procedure WM_Close(var Msg: TWMClose); message WM_Close;
  end;

var
  Form1: TForm1;
  h_DC: HDC;
  FRC: HGLRC;
  FInitialised: Boolean;

implementation

{$R *.dfm}

procedure TForm1.WM_Create(var Msg: TWMCreate);
begin
 Application.Title:='Schwimmvereinführer';
end;

procedure TForm1.WM_ShowWindow(var Msg: TWMShowWindow);
var
  PixelFormat: Integer;
  pfd: PIXELFORMATDESCRIPTOR;
  Error: Cardinal;
begin
 dglopengl.InitOpenGL();
 // Pixelformatdescription leeren
 ZeroMemory(@pfd, SizeOf(pfd));
 // pfd initialisieren
 pfd.nSize:=SizeOf(PIXELFORMATDESCRIPTOR); // Die Größe vom pfd
 pfd.nVersion:=1;                             // version
 pfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
 pfd.iPixelType:=PFD_TYPE_RGBA;                 // RGBA color format
 pfd.cColorBits:=32;                            // Farbtiefe
 pfd.cDepthBits:=16;                            // Tiefenbuffer
 h_DC:=GetDC(Handle);
 // richtiges Pixelformat suchen
 PixelFormat:=ChoosePixelFormat(h_DC, @pfd);
 if (PixelFormat = 0) then
  begin
   MessageBox(0, 'Unable to find a suitable pixel format', 'Error', MB_OK or MB_ICONERROR);
   Exit;
  end;
 DescribePixelFormat(h_DC, PixelFormat, SizeOf(pfd), pfd);
 // Pixelformat auf den DC zuweisen
 if (not SetPixelFormat(h_DC, PixelFormat, @pfd)) then
  begin
    MessageBox(0, 'Unable to set the pixel format', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
 // OpenGL Rendercontext setzen.
 FRC:=wglCreateContext(h_DC);
 if (FRC=0) then
  begin
   MessageBox(0, 'Unable to create an OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
   Exit;
 end;
 // Den Rendercontext auswählen
 if (not wglMakeCurrent(h_DC, FRC)) then
  begin
   MessageBox(0, 'Unable to activate OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
   Exit;
 end;
 ReadExtensions;
 ReadImplementationProperties;
 // Depth Test
 glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
        glDepthFunc(GL_LEQUAL);
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_CULL_FACE);
  glDepthMask(True);
  glClearDepth(1);
  // Colors
  glColorMask(True, True, True, True);
  glClearColor(0, 0, 0, 1);
  // Wenn OpenGL die Normalen nicht von selber normalisiert, kann es sein,
  // dass das Licht auf den Oberflächen zu hell bzw. zu Dunkel wird
  glEnable(GL_NORMALIZE);

  glShadeModel(GL_SMOOTH);

  // Setting up Light

  glDisable(GL_LIGHTING);

  glEnable(GL_COLOR_MATERIAL);
  Error := glGetError;
  if Error<>0 then
   begin
    ShowMessage(gluErrorString(Error));
   end;
 FInitialised:=True;
// FormResize(Self);
end;

procedure TForm1.WM_Close(var Msg: TWMClose);
begin
 // Makes current rendering context not current, and releases the device
 // context that is used by the rendering context.
 if (not wglMakeCurrent(h_DC, 0)) then
  begin
   MessageBox(0, 'wglMakeCurrent failed to release DC!', 'Error', MB_OK or MB_ICONERROR)
  end;
 // Attempts to delete the rendering context
 if (FRC<>0) then
  begin
   if (not wglDeleteContext(FRC)) then
    begin
     MessageBox(0, 'Release of rendering context failed!', 'Error', MB_OK or MB_ICONERROR)
    end;
   FRC:=0;
  end;
 ReleaseDC(Handle, h_DC);
 h_DC:=0;
 FInitialised:=False
end;

end.					

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:

procedure TForm1.FormResize(Sender: TObject);
var
  VP: array[0..1] of Integer;
  Aspect: Single;
begin
 if (FInitialised) then
  begin
   // Set the viewport for the OpenGL window
   glGetIntegerv(GL_MAX_VIEWPORT_DIMS, @VP);
   // Dont make the Window to large
   // Viewport von OpenGL setzen
   glViewport(0, 0, Form1.ClientWidth, Form1.ClientHeight);
   // Seitenverhötniss berechnen.
   Aspect := ClientWidth / ClientHeight;
   // Projection matrix
   glMatrixMode(GL_PROJECTION);
   glLoadIdentity();
   // Perspektive setzen
   gluPerspective(45.0, Aspect, 0.1, 128.0);
   // Modelview Matrix
   glMatrixMode(GL_MODELVIEW);
   glLoadIdentity;
   Form1.FormPaint(Self);
 end
end;					

1:
2:
3:
4:
5:

SDL_GL_SetAttribute( SDL_GL_RED_SIZE, 5 );
  SDL_GL_SetAttribute( SDL_GL_GREEN_SIZE, 5 );
  SDL_GL_SetAttribute( SDL_GL_BLUE_SIZE, 5 );
  SDL_GL_SetAttribute( SDL_GL_DEPTH_SIZE, 16 );
  SDL_GL_SetAttribute( SDL_GL_DOUBLEBUFFER, 1 );