DGL • Thema anzeigen - gl-context auf panel oder paintbox ausgeben.

gl-context auf panel oder paintbox ausgeben.

Moderator: DGL-Team

Seite 1 von 2

[ 26 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

rochus

Betreff des Beitrags: gl-context auf panel oder paintbox ausgeben.

Verfasst: Mi Jan 08, 2003 22:31

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

hallo

ich schreib gerade ein etwas komplexeres programm, bei dem ich unter anderem in eine pagecontrol einsetze. auf einer "page" soll nun ein 3d window für opengl sein. ich hab jetzt irgendwo gelesen, dass es jemandem gelungen ist, den opengl-context auf ein panel zu projizieren. hab ich ausprobiert, aber bei der überprüfung if errorcode <> GL_NO_ERROR kommt dann ein fehler. warum? ich hab das auch bei ner paintbox probiert. selber fehler. die fehlermeldung ist invalid operation..

hier mal der source (der nicht zu groß ist):

Code:

 
var
 
 &nbsp;glcontext : hglrc;
 
procedure TForm1.FormCreate(Sender: TObject);
 
var
 
 &nbsp;pfd: tpixelformatdescriptor;
 
 &nbsp;formatindex: integer;
 
begin
 
 &nbsp;fillchar(pfd,sizeof(pfd),0);
 
 &nbsp;with pfd do
 
 &nbsp;begin
 
 &nbsp; &nbsp;nsize := sizeof(pfd);
 
 &nbsp; &nbsp;nversion := 1;
 
 &nbsp; &nbsp;dwflags := pfd_draw_to_window or pfd_support_opengl;
 
 &nbsp; &nbsp;ipixeltype := pfd_type_rgba;
 
 &nbsp; &nbsp;ccolorbits := 24;
 
 &nbsp; &nbsp;cdepthbits := 32;
 
 &nbsp; &nbsp;ilayertype := pfd_main_plane;
 
 &nbsp;end;
 
 &nbsp;formatindex := choosepixelformat(paintbox1.Canvas.Handle,@pfd);
 
 &nbsp;setpixelformat(canvas.Handle,formatindex,@pfd);
 
 &nbsp;glcontext := wglcreatecontext(paintbox1.Canvas.Handle);
 
 &nbsp;wglmakecurrent(paintbox1.canvas.Handle,glcontext);
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
 
begin
 
 &nbsp;wglmakecurrent(paintbox1.canvas.Handle,0);
 
 &nbsp;wgldeletecontext(glcontext);
 
end;
 
procedure TForm1.FormPaint(Sender: TObject);
 
var
 
 &nbsp;errorcode : glenum;
 
begin
 
 &nbsp;glclearcolor(0.0,0.4,0.0,0.0);
 
 &nbsp;glclear(gl_color_buffer_bit);
 
 &nbsp;errorcode := glgeterror;
 
 &nbsp;if errorcode<>gl_no_error then
 
 &nbsp; &nbsp;raise exception.Create('error' + &nbsp;#13 + gluerrorstring(errorcode));
 
end;

_________________
http://www.rochus.net

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 05:30

DGL Member

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

Edit : Sorry, hab aus Versehen den falschen Codeschnippsel genommen und verbessert...hab ihn grad durch den richtigen ersetzt!

Hm...du bist innerhalb kurzer Zeit der Dritte, der den selben Fehler macht.Ändere mal deinen Code :

Code:

 
formatindex := choosepixelformat(paintbox1.Canvas.Handle,@pfd); 
 
setpixelformat(canvas.Handle,formatindex,@pfd); 
 
glcontext := wglcreatecontext(paintbox1.Canvas.Handle); 
 
glmakecurrent(paintbox1.canvas.Handle,glcontext);

nach

Code:

 
formatindex := choosepixelformat(Panel1.Handle,@pfd); 
 
setpixelformat(Panel1.Handle,formatindex,@pfd); 
 
glcontext := wglcreatecontext(Panel1.Handle); 
 
wglmakecurrent(Panel1.Handle,glcontext);

Du darfst auf keinen Fall das Handle des Canvas einer Control an OpenGL übergeben, sondern nur das normale Handle der Control selbst!
Und wenn obiges nicht funzt, dann hol dir mittels DC := GetDC(Panel1.Handle) einen gütligen DeviceContext.

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

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 20:02

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

ich hab jetzt obiges mal auf ein panel angewendet:
startet man das programm normal, erscheint das panel.
resize ich jetzt, zeigt sich statt des panels opengl.
wie umgehe ich das?
wenn ich in formcreate ein panel.invalidate setze bringt es nichts. ebensowenig im formpaint.

_________________
http://www.rochus.net

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 20:07

DGL Member

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

Bevor OpenGL auf deinem Panel rendert, musst du "ihm" erstmal nen Viewport geben...am besten machst du das im OnResize-Event deiner Form, da dieser zum Einen beim Programmstart und zum anderen beim Ändern der Fenstergröße erfolgt :

Code:

 
procedure TForm1.FormResize(Sender: TObject);
 
begin
 
if (HandleAllocated) and (DC > 0) and (RC > 0) then
 
 &nbsp;begin
 
 &nbsp;glViewport(0, 0, Panel1.ClientWidth, Panel1.ClientHeight);
 
 &nbsp;glMatrixMode(GL_PROJECTION);
 
 &nbsp;glLoadIdentity;
 
 &nbsp;gluPerspective(45, Panel1.ClientWidth/Panel1.ClientHeight, 0.1, 1024);
 
 &nbsp;end;
 
end;

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

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 20:31

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

ah, ok, vielen dank!

_________________
http://www.rochus.net

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 22:06

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

okay, mitlerweile bin ich daheim und habs natürlich sofort ausprobiert.

es ist immer noch so, dass opengl erst gezeichnet wird, wenn ich es per hand (oder im quellcode form.width:=form.width+1;) verändert hab.

???

_________________
http://www.rochus.net

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 22:13

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

okay, bin etwas weiter gekommen: wenn ich einen butten drauf lege und

Code:

 
procedure form1.button1click(sender:tobject);
 
begin
 
 &nbsp;form1.invalidate;
 
end;

damit verbinde, wird opengl richtig auf dem panel gezeichnet. hrmpf. ich möchte aber zunächst, dass es das automatisch beim start tut und nicht erst beim buttonclicken..

_________________
http://www.rochus.net

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 22:34

DGL Member

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

Hmpff...Normalerweise sollte das mit dem OnSize-Event ohne Probs klappen...
Aber ruf den OnSize-Event mit self als Parameter oder Invalidate doch einfach in deinem OnCreate-Ereignis auf.

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

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 22:40

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

bringt beides nichts! auch gleichzeitig nichts.

wenn ich invalidate ins onpaint lege, dann hab ich wahnsinnige performanceprobleme (is ja wohl logisch...) -> ist quasi dann eine endlosschleife :-)

:

form malt -> invalidate -> form malt -> invalidate -> form malt -> invalidate -> ...

_________________
http://www.rochus.net

Nach oben

Thunderman

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 22:46

DGL Member

Registriert: Sa Okt 26, 2002 17:14
Beiträge: 188
Wohnort: Hannover/Lüneburg

Hallo!

Kannst Du nciht einfach den Code aus dem OnResize in ne eigene prozedur packen und diese dann im OnCreate und im OnResize aufrufen?

_________________
Thunderman
Bei schwierigen Problemen entscheiden wir uns einfach für die richtige Lösung. Klar?

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 22:48

DGL Member

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

Zitat:

bringt beides nichts! auch gleichzeitig nichts.

wenn ich invalidate ins onpaint lege, dann hab ich wahnsinnige performanceprobleme (is ja wohl logisch...) -> ist quasi dann eine endlosschleife :-)

Du sollst das OnResize-Event ja auch im OnCreate-Event deiner Form aufrufen...wenns dann immernoch net geht, dann ist an deiner Rendercontext-Initialisierung etwas mächtig falsch gelaufen...an deiner Stelle würde ich mir mal die OpenGL12.pas von Mike Lischke herunterladen.
Dort gibts die Funktion CreateRenderingContext, mit der man ganz bequem nen Context erstellen kann, und der man einfach nur Parameter wie Farbtiefe, Z-Puffertiefe, usw. übergibt.

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

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 22:51

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

das funktioniert leider eben so wenig...

ich bin jetzt weg. also antworten und weitere tests erst morgen wieder, weil ich morgen ne klausur schreib und nicht allzu müde sein sollte....

_________________
http://www.rochus.net

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 22:56

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

die hab ich schon, auch die gl,glu,glut von delphi3d.net

mal schaun. aber heute nicht mehr!

bis morgen dann :-)

_________________
http://www.rochus.net

Nach oben

rochus

Betreff des Beitrags:

Verfasst: Fr Jan 10, 2003 16:20

DGL Member

Registriert: So Dez 29, 2002 10:37
Beiträge: 251
Wohnort: Ulm

sodele, hab jetzt das mit dem createrenderingcontext über opengl12.pas von lischke gemacht, exakt selber fehler, alle tips befolgt. hier der sourccode:

Code:

 
var
 
 &nbsp;dc : HDC;
 
 &nbsp;rc : HGLRC;
 
procedure TForm1.FormCreate(Sender: TObject);
 
var
 
 &nbsp;palette &nbsp; &nbsp; : hpalette;
 
begin
 
 &nbsp;dc := getdc(panel1.Handle);
 
 &nbsp;rc := createrenderingcontext(dc,[],32,0,0,0,0,palette);
 
 &nbsp;wglmakecurrent(dc,rc);
 
 &nbsp;if not initopengl then
 
 &nbsp; &nbsp;raiselastoserror;
 
 &nbsp;formresize(application);
 
end;
 
procedure TForm1.FormPaint(Sender: TObject);
 
var
 
 &nbsp;errorcode : tglenum;
 
begin
 
 &nbsp;glClearColor(0.0,0.4,0.0,0.0);
 
 &nbsp;glClear(gl_color_buffer_bit or gl_depth_buffer_bit);
 
 &nbsp;errorcode := glgeterror;
 
 &nbsp;if errorcode <> gl_no_error then
 
 &nbsp; &nbsp;raise exception.Create('error in paint' + #13 + gluerrorstring(errorcode));
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
 
begin
 
 wglmakecurrent(dc,0);
 
 wgldeletecontext(rc);
 
end;
 
procedure TForm1.FormResize(Sender: TObject);
 
begin
 
 &nbsp;if (HandleAllocated) and (DC > 0) and (RC > 0) then 
 
 &nbsp;begin 
 
 &nbsp; &nbsp;glViewport(0, 0, Panel1.ClientWidth, Panel1.ClientHeight);
 
 &nbsp; &nbsp;glMatrixMode(GL_PROJECTION);
 
 &nbsp; &nbsp;glLoadIdentity;
 
 &nbsp; &nbsp;gluPerspective(45, Panel1.ClientWidth/Panel1.ClientHeight, 0.1, 1024); 
 
 &nbsp;end;
 
end;

_________________
http://www.rochus.net

Nach oben

Aya

Betreff des Beitrags:

Verfasst: Fr Jan 10, 2003 16:47

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

Hi,

das liegt soweit ich das sehe am OnFormPaint..

pack den Code den du da hast mal in's Application.OnIdle..

Also so:

Code:

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
 
var 
 
 &nbsp;errorcode : tglenum; 
 
begin 
 
 &nbsp;glClearColor(0.0,0.4,0.0,0.0); 
 
 &nbsp;glClear(gl_color_buffer_bit or gl_depth_buffer_bit); 
 
 &nbsp;errorcode := glgeterror; 
 
 &nbsp;if errorcode <> gl_no_error then 
 
 &nbsp; &nbsp;raise exception.Create('error in paint' + #13 + gluerrorstring(errorcode)); 
 
 &nbsp;Done:=false; //WICHTIG!! :)
 
end;

Nach oben

Seite 1 von 2

[ 26 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Foren-Übersicht » Programmierung » OpenGL

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.