- procedure Tform1.FormCreate(Sender: TObject); //Init beim Starten
- var Nearclipping, Farclipping:Single;
- Handle:THandle;
- begin
- //--------------
- Dc:= Getdc(Zeichenflaeche.Handle); // Init OpenGL
- if not Initopengl then Application.Terminate;
- Rc:= Createrenderingcontext( Dc,[Opdoublebuffered],24,0,0,0,0,0);
- Activaterenderingcontext(Dc, Rc); // Ende Init Open Gl.
- // Open GL Werte zuweisen
- Glmatrixmode(Gl_Projection);
- Glloadidentity;
- Glortho(-32800,32800,-32800,32800,0,128);
- Glviewport(0,0,Zeichenflaeche.Width,Zeichenflaeche.Height);
- Gldisable(Gl_Depth_Test);
- Glclear(Gl_Color_Buffer_Bit);
- end;