DGL • Thema anzeigen - Fullscreen

Fullscreen - Delphi 4

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Felix

Betreff des Beitrags: Fullscreen - Delphi 4

Verfasst: Di Sep 06, 2005 08:52

DGL Member

Registriert: Di Aug 23, 2005 18:04
Beiträge: 18

Möchte gern im Vollbild - ohne Windows-Statuszeile - arbeiten, ergo WindowState := wsMaximized; BorderStyle := bsNone;

Stelle ich dies im Formular ein, wird die Anwendung ruckelig und sehr, sehr langsam. (Anwendung wird mit Timer neu gezeichnet, da nicht auf Tastatureingaben geachtet werden muß)
Verwende ich folgende Routine bei FormCreate erhalte ich keine Fehlermeldung und einen grauen Bildschirm auf dem nix gezeichnet wird.

Code:

procedure TForm1.GoToFullScreen(AWidth, AHeight, ABPP, AFrequency : Word);
var
 dmScreenSettings : DevMode;
begin
    try
    // Fenster vor Vollbild vorbereiten
    WindowState := wsMaximized;
    BorderStyle := bsNone;
    ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
 
    with dmScreenSettings do
    begin
        dmSize              := SizeOf(dmScreenSettings);
        dmPelsWidth         := AWidth;                    // Breite
        dmPelsHeight        := AHeight;                   // Höhe
        dmBitsPerPel        := ABPP;                      // Farbtiefe
        dmDisplayFrequency  := AFrequency;                // Bildwiederholfrequenz
        dmFields            := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL or DM_DISPLAYFREQUENCY;
    end;
   except
        on e: exception do writeln(debugfile, 'Konnte Vollbildmodus nicht aktivieren!' + e.message);
    end;
 
end;
 

Ein weiteres Problem habe ich beim Einstellen des Pixelformates. Hier erhalte ich eine Exception in der GLU32.dll

Code:

 
procedure TForm1.SetupPixelFormat(DC:HDC);
const
   pfd:TPIXELFORMATDESCRIPTOR = (
        nSize:sizeof(TPIXELFORMATDESCRIPTOR);// size
        nVersion:1;// version
        dwFlags:PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or
                PFD_DOUBLEBUFFER;// support double-buffering
        iPixelType:PFD_TYPE_RGBA;// color type
        cColorBits:24;// preferred color depth
        cRedBits:0; cRedShift:0;// color bits (ignored)
        cGreenBits:0;  cGreenShift:0;
        cBlueBits:0; cBlueShift:0;
        cAlphaBits:0;  cAlphaShift:0;   // no alpha buffer
        cAccumBits: 0;
        cAccumRedBits: 0;  // no accumulation buffer,
        cAccumGreenBits: 0;     // accum bits (ignored)
        cAccumBlueBits: 0;
        cAccumAlphaBits: 0;
        cDepthBits:16;// depth buffer
        cStencilBits:0;// no stencil buffer
        cAuxBuffers:0;// no auxiliary buffers
        iLayerType:PFD_MAIN_PLANE;  // main layer
   bReserved: 0;
   dwLayerMask: 0;
   dwVisibleMask: 0;
   dwDamageMask: 0;                    // no layer, visible, damage masks
   );
var pixelFormat:integer;
begin
    try
   pixelFormat := ChoosePixelFormat(DC, @pfd);
   if (pixelFormat = 0) then
        exit;
   if (SetPixelFormat(DC, pixelFormat, @pfd) <> TRUE) then
        exit;
   except
       on e: exception do writeln('pixelformat' + e.message);
   end;
end;
 

Eine Fehlerausgabe in Textdatei erhalte ich hier auch nicht - wahrscheinlich weil der Fehler in der DLL erzeugt wird.

Bitte um Hilfe oder Hinweis, wo ich konkrete Informationen erhalte!
Danke

Nach oben

Felix

Betreff des Beitrags:

Verfasst: Di Sep 06, 2005 17:13

DGL Member

Registriert: Di Aug 23, 2005 18:04
Beiträge: 18

Problem gelöst

Nach oben

Grizzly

Betreff des Beitrags:

Verfasst: Di Sep 06, 2005 17:23

DGL Member

Registriert: Sa Nov 13, 2004 11:00
Beiträge: 229
Wohnort: Steinhude

für den Fall, das andere ähnliche Probleme haben wärs aber vll. nicht schlecht wenn du noch kurz schreibst was es war

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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