OpenGL in Delphi Form

[Josef_D]

Wie bekomme ich eine OpenGL Objekt in einen Delphi Frame (Delphi 5) ?

[Michael Habbe]

Such mal hier: http://www.delphipraxis.net/forum_main.html
Da sind einige sehr sehr interessante Projekte im Gange..

[Josef_D]

So gehts:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OpenGL12, AppEvnts;

type
TForm1 = class(TForm)
ApplicationEvents1: TApplicationEvents;
procedure FormCreate(Sender: TObject);
procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
DC : HDC;
RC : HGLRC;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
DummyPal : HPalette;
begin
DC := GetDC(Handle);
RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0, DummyPal);
ActivateRenderingContext(DC, RC);
end;

procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
var Done: Boolean);
begin
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
glClearColor(0,0,0,0);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

glColor3f(1.0, 0.0, 0.0);

glOrtho(-2.0, 2.0, -2.0, 2.0, -2.0, 2.0);
glBegin(GL_POLYGON);
glVertex2f(-0.5, -0.5);
glVertex2f(-0.5, 0.5);
glVertex2f(0.5, 0.5);
glVertex2f(0.5, -0.5);
glEnd();

glFlush();
SwapBuffers(DC);
end;

end.

Um den Code zu compilieren benötigt Ihr nur noch OpenGL12. Das gibt es in vielen Tutorials zu OpenGL als Download

[Kevin Fleischer]

OpenGL12.pas ist nicht mehr aktuell.

Wer OpenGL mit Delphi programmieren will sollte sich einfach an die passende Quelle wenden: delphiGL.com

Die haben mit ihrem Wiki nicht nur das größte OpenGL Nachschlagewerk im ganzen Netz sondern auch noch >50 Tutorials.

wiki.delphigl.co