DGL • Thema anzeigen - vollbild funzt net

vollbild funzt net

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Seth

Betreff des Beitrags: vollbild funzt net

Verfasst: Sa Jul 29, 2006 13:23

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

hallo, ich möchte gerne mein bild vervollbilden ^^ aber sobald ich

MainForm.BorderStyle := bsNone; oder

MainForm.FormStyle := fsstayontop;

benutzte, bleibt das bild leer, es wird dann nichts mehr gezeichnet. habs mit meiner eigenen prozedur und
der aus den templates versucht, es funzt einfach net

Nach oben

The-Winner

Betreff des Beitrags:

Verfasst: Sa Jul 29, 2006 17:02

DGL Member

Registriert: Di Jun 06, 2006 09:59
Beiträge: 474

Du musst vorher Opengl schließen, dann auf Vollbild wechseln, dann OpenGl wieder neu initialisieren. Das liegt daran, dass Delphi intern das Fensterhandle zerstört und neu erstellt.

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Sa Jul 29, 2006 17:34

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

jetzt habe ich komischerweise keine texturen, obwohl gl_texture_2d aktiviert wird Oo

so sieht das ganze aus:

Code:

 
procedure TEngine.DoFullscreen;
begin
  with Form do
  begin
    //Ecke oben links
    top := 0;
    left := 0;
    //Volle Größe
    clientwidth := screen.width;
    clientheight := screen.height;
    //Status maximiert
    Windowstate := wsMaximized;
 
    //OpenGL freigeben
    if Initialised then
    begin
      DeactivateRenderingContext;
      wglDeleteContext(RC);
      ReleaseDC(Form.Handle, DC);
      ChangeDisplaySettings(DevMode(nil^), 0);
    end;
 
    //Kein Rahmen
    borderstyle := bsnone;
    //Immer im Vordergrund
    formstyle := fsstayontop;
 
    // Nicht initialisiert
    Initialised := false;
 
    // OpenGL Initialisieren
    InitOpenGL;
 
    // Handle holen
    DC := GetDC(Form.Handle);
 
    // RenderContext erstellen und aktivieren
    RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
    ActivateRenderingContext(DC, RC);
 
    // Aktivieren von Texturen, Tiefen-Tests, etc.
    glEnable(GL_TEXTURE_2D);
    glEnable(GL_DEPTH_TEST);
    glDepthFunc(GL_LESS);
    glEnable(GL_CULL_FACE);
    glCullFace(GL_BACK);
 
    // Löschfarbe auf Schwarz setzen
    glClearColor(0, 0, 0, 0);
 
    // Initialisierung abgeschlossen
    Initialised := True;
  end;
end;
 

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Sa Jul 29, 2006 18:15

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Du musst natürlich auch Texturen neuladen, Displaylisten neuerstellen und etc...

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Sa Jul 29, 2006 18:32

DGL Member

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

Zitat:

Du musst vorher Opengl schließen, dann auf Vollbild wechseln, dann OpenGl wieder neu initialisieren. Das liegt daran, dass Delphi intern das Fensterhandle zerstört und neu erstellt.

Man kann auch über SetWindowLong(...) den Rahmen umstellen ohne das Fensterhandle neu zu erstellen. fsstayontop kann man mittels ShowWindow(...) erreichen. Die genauen Parameter stehen in der Hilfe.

Nach oben

Seth

Betreff des Beitrags:

Verfasst: So Jul 30, 2006 09:02

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

danke, das funzt perfekt, danke

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: Bing [Bot] und 5 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.