DGL • Thema anzeigen - OpenGL auf Panel / Image ?

OpenGL auf Panel / Image ?

Moderator: DGL-Team

Seite 1 von 1

[ 11 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Basti

Betreff des Beitrags: OpenGL auf Panel / Image ?

Verfasst: Sa Nov 13, 2004 12:49

DGL Member

Registriert: Mo Nov 01, 2004 10:49
Beiträge: 14
Wohnort: Schönebeck

Hi Leute, ich brauche gerade eine etwas andere Variante der OpenGL Iniialisierung.
Ich erzeige mit Delphi ein Formular und habe darauf eine Komponente.
Ich würde jetzt gerne die OpenGL Szene nur auf dieser Komponente darstellen,
damit das restliche Formular noch für den Rest des Leveleditors genutzt werden kann.

Ich habe es zunächst mit einem Panel versucht, aber für die Lösung, die ich im DF gefunden habe,
braucht die Komponente ein Canvas und Handle.
Leider hat ein Image wider kein Handle

Code:

 
procedure SetDCPixelFormat(Handle: HDC);
var
  [...]
begin
  [...]
  SetPixelFormat(Handle, nPixelFormat, @pfd);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DC := GetDC(Form1.Handle);
  SetDCPixelFormat(Form1.Canvas.Handle);
  hrc := wglCreateContext(Form1.Canvas.Handle);
end;
 

Eigentlich möchte ich das genau so machen, aber ich finde halt keine Komponente,
die Canvas und Handle hat.
Vielleicht könnt ihr mir irgendwie helfen.
Danke
Sebastian

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Sa Nov 13, 2004 12:57

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Nimm anstelle des Form Handles das Handle des Panels und hole von dem Panel Handle mit GetDC das DC dann.

DC := GetDC(Form1.Panel1.Handle);
SetDCPixelFormat(DC);
hrc := wglCreateContext(DC);

Nach oben

Basti

Betreff des Beitrags:

Verfasst: Sa Nov 13, 2004 12:59

DGL Member

Registriert: Mo Nov 01, 2004 10:49
Beiträge: 14
Wohnort: Schönebeck

Das funktioniert nicht.
Ich brauche irgendwie was mit dem Canvas, wie bei meinem Beispiel.

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Sa Nov 13, 2004 13:08

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Was willst du denn dann überhaupt mit dem Canvas machen? Der wird doch durch das OpenGL-Rendering eh unbrauchbar. Wenn du das trotzdem brauchst. Und ausserdem hat ein Canvas doch nen Handle.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Frase

Betreff des Beitrags:

Verfasst: Sa Nov 13, 2004 13:12

Forenkatze

Registriert: Mi Okt 22, 2003 18:30
Beiträge: 1945
Wohnort: Närnberch
Programmiersprache: Scala, Java, C*

Kann sein, dass ich mich irre. Aber bekam mein das Handle vom Canvas nicht mit Canvas.Handle? :wink:

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Sa Nov 13, 2004 13:15

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Das Canvas Handle ist ein DC, der TCanvas kapselt ja ein DC, während das Handle eines Panel ein Fenster Handle ist. Soweit ich das mal ausprobiert haben, funktioniert OpenGL nicht mit dem Handle eines normalen Canvas, sondern nur wenn man das DC extra mit GetDC erzeugt.

Nach oben

Frase

Betreff des Beitrags:

Verfasst: Sa Nov 13, 2004 13:20

Forenkatze

Registriert: Mi Okt 22, 2003 18:30
Beiträge: 1945
Wohnort: Närnberch
Programmiersprache: Scala, Java, C*

Bilder sagen mehr als Worte:

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Basti

Betreff des Beitrags:

Verfasst: Sa Nov 13, 2004 13:25

DGL Member

Registriert: Mo Nov 01, 2004 10:49
Beiträge: 14
Wohnort: Schönebeck

Also ich habe jetzt das ganze mit dem OpenGL 1.5 Template versucht, da geht es.
Aber mit meiner Version nicht (1.2).
Liegt sicher aber an meiner Vorlage

Ich wollte einfach mal versuchen, ob das auch mit dem Code aus dem DF geht:
http://www.delphi-forum.de/topic_Wie+be ... hi_72.html
Der erste Sourcecode lädt das auf das ganze Formular.
Und das wollte ich jetzt so umstellen, dass es nur auf ein Panel geladen wird.
Ihr könnt den Code ja mal kopieren und dann Panel einsetzen und so wir ihr meint veändern.
Bei mir geht das nicht.
Ich bin doch ziemlich neu in OpenGL deshalb will ich keinen Mist erzählen.
Schaut euch das Beispiel mal an. Ich weiss net, warum man da einen Canvas braucht.

Ach ja: Das ein Form ein Handle hat und dass der / das Canvas von dem Form dann auch ein Handle hat wusste ich.
Genau darum geht es ja bei dem Beispiel. Wenn ein Objekt Handle und Canvas hat geht es.
Aber ein Panel hat nur den Handle und kein Canvas.
Und das Image hat zwar Canvas, aber das Image selber keinen Handle.

Nach oben

MatReno

Betreff des Beitrags:

Verfasst: Di Feb 01, 2005 11:06

DGL Member

Registriert: Mo Jan 31, 2005 11:02
Beiträge: 432
Wohnort: Rheinlandpfalz

Ich hab das auch mal mit nem Panel ausprobiert.
Bei mir klappts (benutze auch OpenGl 1.5).

Du schreibst einfach bei Init-Procedure rein:

DC := GetDC(Form1.Panel1.Handle);
SetDCPixelFormat(Form1.Panel1.Handle);
hrc := wglCreateContext(Form1.Panel1.Handle);

musste halt ausprobieren!

Schreibst einfach überall wo 'Form1.handle' steht,
'Form1.Panel1.handle' rein, und dann müsste es funktionieren! :wink:

pheasant

_________________
http://texelviews.delphigl.com

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Di Feb 01, 2005 14:48

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

Probier es mal so:

Code:

var
  RC: HGLRC;
  DC: HDC;
  StartTick : Cardinal;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
// Wenn gewollt, dann hier in den Vollbildmodus wechseln
// Muss vorm Erstellen des Kontextes geschehen, da durch den Wechsel der
// Gerätekontext ungültig wird!
 
// OpenGL-Funtionen initialisieren
InitOpenGL;
// Gerätekontext holen
DC := GetDC(Panel1.Handle);
// Renderkontext erstellen (32 Bit Farbtiefe, 24 Bit Tiefenpuffer, Doublebuffering)
RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
// Erstellten Renderkontext aktivieren
ActivateRenderingContext(DC, RC);
// Tiefenpuffer aktivieren
glEnable(GL_DEPTH_TEST);
 
// Nur Fragmente mit niedrigerem Z-Wert (näher an Betrachter) \"durchlassen\"
glDepthFunc(GL_LESS);
// Löschfarbe für Farbpuffer setzen
glClearColor(0,0,0,0);
// Zeitpunkt des Programmstarts für FPS-Messung speichern
StartTick := GetTickCount;
end;
 
procedure TForm1.Destroy(Sender:TObject);
begin
// Renderkontext deaktiveren
DeactivateRenderingContext;
// Renderkontext \"befreien\"
wglDeleteContext(RC);
// Erhaltenen Gerätekontext auch wieder freigeben
ReleaseDC(Handle, DC);
// Falls wir im Vollbild sind, Bildschirmmodus wieder zurücksetzen
ChangeDisplaySettings(devmode(nil^), 0);
end;
 
// Idle-Prozedur in ein ApplicationEvents
 
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
// In die Projektionsmatrix wechseln
glMatrixMode(GL_PROJECTION);
// Identitätsmatrix laden
glLoadIdentity;
// Viewport an Clientareal des Fensters anpassen
glViewPort(0, 0,Panel1.Width, Panel1.Height);
// Perspective, FOV und Tiefenreichweite setzen
gluPerspective(60, Panel1.Width/Panel1.Height, 1, 128);
// In die Modelansichtsmatrix wechseln
glMatrixMode(GL_MODELVIEW);
// Identitätsmatrix laden
glLoadIdentity;
// Farb- und Tiefenpuffer löschen
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
// <-- Hier kommen die Befehle rein
 
// Hinteren Puffer nach vorne bringen
SwapBuffers(DC);
end;

Muss gehen (also bei mir gings

)

Nach oben

Blechwolf

Betreff des Beitrags:

Verfasst: Di Feb 22, 2005 12:41

DGL Member

Registriert: Fr Nov 12, 2004 14:58
Beiträge: 76
Wohnort: Aachen

LH_Freak hat geschrieben:

Muss gehen (also bei mir gings

)

Funktioniert, wenn man noch ein GluLookAt reinschiebt und die Kamera richtig setzt.

Beispiel:

Code:

 
gluLookAt(0,0,10,
          0,0,0,
          0,1,0);
 

Gruß

Wolf

_________________
Ein Schiff im Hafen ist sicher. Aber dafür werden Schiffe nicht gebaut. (Engl. Sprichwort)

Nach oben

Seite 1 von 1

[ 11 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 8 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.