DGL • Thema anzeigen - OpenGL Initialisierung funktioniert nicht

OpenGL Initialisierung funktioniert nicht

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

donald

Betreff des Beitrags: OpenGL Initialisierung funktioniert nicht

Verfasst: Do Jan 03, 2013 11:56

DGL Member

Registriert: Do Jan 03, 2013 04:07
Beiträge: 4
Programmiersprache: AutoIt, Delphi

Hallo,

als neuling in diesem Forum möchte ich noch kurz ein großes Lob an alle fleißigen Tutorial schreiber aussprechen, die es mir und sicherlich auch sehr vielen vor mir ermöglichen, auf eine bequeme Art und Weise OpenGL zu erlernen

Nun zu meinem Problem. Ich habe mich durch die Tutorial Lektionen 1 & 2 von Phobeus gearbeitet, und trotz intensiver Überlegungen und herumprobiererei es nicht geschafft, mein OpenGL so zu initialisieren, dass danach die Form1 einen schwarzen Hintergrund hat ich darauf zeichnen kann.

mein Code sieht so aus

Code:

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,dglOpenGl,SDL,easySDL;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  DC, RC:HDC;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  InitOpenGL;
  DC:=GetDC(Handle);
  RC:=CreateRenderingContext(DC, //Device Contest
                             [opDoubleBuffered], //Optionen
                             32, //Color Bits
                             24, //ZBits
                             0,  //Stencil Bits
                             0,  //AccumBits
                             0,  //AuxBuffers
                             0); //Layer
  ActivateRenderingContext(DC, RC);
 
  glMatrixMode(GL_PROJECTION);
    glLoadIdentity;
    gluPerspective(60, ClientWidth/ClientHeight, 0.1, 100);
    glMatrixMode(GL_MODELVIEW);
 
  //Begin der Zeichenversuche
 
  glClear(GL_Color_Buffer_Bit or GL_DEPTH_bUFFER_BIT);
  glClearColor(0.0,0.0,0.0,0.5);
  glLoadIdentity;
  glTranslatef(-1.5, 0,-6);
 
  glBegin(GL_TRIANGLES);
  glVertex3f(-1,-1, 0);
  glVertex3f( 1,-1, 0);
  glVertex3f( 0, 1, 0);
    glEnd;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  ReleaseDC(Handle,DC);
  DestroyRenderingContext(RC);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
end;
 
end.

PS: Ich denke das dieses Problem hier öfter auftaucht, konnte nur noch keinen Thread finden, der es behandelt.
PPS: OpenGL funktioniert natürlich tadellos und wenn ich mir die Beispieldateien lade funktionieren auch diese. Ich versteh bloß nicht, was an meiner Variante so viele Probleme verursacht

Nach oben

breakdancingYoda

Betreff des Beitrags: Re: OpenGL Initialisierung funktioniert nicht

Verfasst: Do Jan 03, 2013 12:47

DGL Member

Registriert: Sa Mär 31, 2012 23:14
Beiträge: 26
Programmiersprache: PASCAL

Du zeichnest in den Backbuffer... und noch mal in den Backbuffer... und nochmal...
Aber: du zeigst immer nur den Frontbuffer an.
Du musst das gezeichnete noch mit SwapBuffers(DC); als "fertig" deklarieren.

MfG Yoda

_________________
The force, strong it is in OpenGL.

Nach oben

donald

Betreff des Beitrags: Re: OpenGL Initialisierung funktioniert nicht

Verfasst: Do Jan 03, 2013 12:56

DGL Member

Registriert: Do Jan 03, 2013 04:07
Beiträge: 4
Programmiersprache: AutoIt, Delphi

Vielen Dank für den Tip.

Es funktioniert nun

Zuletzt geändert von donald am Do Jan 03, 2013 13:20, insgesamt 1-mal geändert.

Nach oben

Lord Horazont

Betreff des Beitrags: Re: OpenGL Initialisierung funktioniert nicht

Verfasst: Do Jan 03, 2013 13:13

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Ich würde erstmal das Zeichnen in einen Timer oder in Application.OnIdle auslagern. Beim FormCreate zu zeichnen ist risky – der Inhalt kann schnell überschrieben werden, z.B. wenn das fenster endgültig angezeigt wird (im FormCreate ist das Fenster noch nicht sichtbar).

Dann ist der Hinweis mit SwapBuffers wirklich wichtig. Wenn das fehlt, siehst du nix, auch deine ClearColor nicht. Übrigens musst du die glClearColor vor dem clearen setzen.

grüße

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

donald

Betreff des Beitrags: Re: OpenGL Initialisierung funktioniert nicht

Verfasst: Do Jan 03, 2013 13:30

DGL Member

Registriert: Do Jan 03, 2013 04:07
Beiträge: 4
Programmiersprache: AutoIt, Delphi

Ich habe etwas beim VCL Template abgeschaut und danach meine Zeichenoperationen ins OnIdle Event verschoben.
Jetzt wird auch ein schönes buntes Dreieck vor schwarzem Hintergrund angezeigt

Vielen Dank für die Ratschläge.

MfG, donald

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.