ChangeResolution dreht Desktop???

[mtin]

das ist mal wirklich merkwürdig!

ich benutze diese ChangeResolution-Funktion hier:

Delphi-Quellcode:

function ChangeResolution(sizex, sizey, bpp: DWORD): Boolean;
var
 DeviceMode: TDeviceModeA;
 i: Integer;
begin
 i := 0;
 Result := False;
 while EnumDisplaySettings(nil, i, DeviceMode) do begin
   with DeviceMode do
     if (dmPelsWidth = sizex) and
        (dmPelsHeight = SizeY) and 
        (dmBitsPerPel = bpp) then begin
       // erst testen, bevor wir umschalten!
       case ChangeDisplaySettings(DeviceMode, CDS_TEST) of
         // es wird klappen!
         DISP_CHANGE_SUCCESSFUL:
           Result := True;

         DISP_CHANGE_RESTART:
           Showmessage('Neustart erforderlich');

         DISP_CHANGE_BADFLAGS:
           Showmessage('Ungültige Bildschirmeinstellungen');

         DISP_CHANGE_FAILED:
           Showmessage('Auflösung konnte nicht geändert werden');

         DISP_CHANGE_BADMODE:
           Showmessage('Bildschirm unterstützt diese Auflösung nicht');

         // Nur Windows NT
         DISP_CHANGE_NOTUPDATED:
           Showmessage('Registry konnte nicht aktualisiert werden');

       else
         Result := True;
       end;

       if Result then 
         //jetzt wird umgeschaltet
         ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN)
     end;
   Inc(i);
 end;
end;

Zuhause funktioniert die auch perfekt(Radeon9800), aber in der Schule an den Rechnern (ham irgendsoeinen integrierten Intel-Grafikspaß) ist der Bildschirm dann auf dem Kopf! und man muss ihn erst durch zweimaliges drücken einer bestimmte Tastenkombination (Bildschirm um 90° drehen) wieder richtig herum drehen...

Hat jemand ne Ahnung woran das liegt/wie ich das lösen könnte, dass die ChangeResolution funktion sowohl zuhause als auch auf den Schulrechnern läuft?

[fLaSh11]

1.Gedanke (ohne auf Code zu schauen): vllt habt ihr ja in der Schule eine Sperre, die es verbietet, Systemeinstellungen zu verändert (wäre ganz sinnvoll ). Die Proc ChageResolution versucht jetzt die Auflösung zu ändern, aber nicht über die normalen Systemeinstellungen und schwupps... kommt es zu einem Fehler, der alles "verdreht" (klischeehaft^^)

[mtin]

neee wir dürfen ja die auflösung verändern^^
bzw. wenn ich das in Windows mache klappts...nur die Funktion will nich....bzw mit ihr gehts ja auch nur eben mussich dann erst den bildschirm wieder richtich rum drehen...

[teebee]

In DeviceMode steht am Anfang nur Unsinn, da es eine lokale Variable ist. EnumDisplaySettings setzt nicht alle Felder in DeviceMode, sodass danach immer noch zum Teil Unsinn in DeviceMode steht (z.B. vielleicht in dmDisplayOrientation bei XP, was Du dann ja unverändert zurückgibst). Als erstes würde ich zu Beginn DeviceMode ausnullen ZeroMemory(@DeviceMode, sizeof(DeviceMode)); und dann noch die Größe eintragenDeviceMode.dmSize := sizeof(DeviceMode)); Letzteres empfiehlt zumindest das MSDN:

Zitat:

lpDevMode
[out] Pointer to a DEVMODE structure into which the function stores information about the specified graphics mode. Before calling EnumDisplaySettings, set the dmSize member to sizeof(DEVMODE), and set the dmDriverExtra member to indicate the size, in bytes, of the additional space available to receive private driver data.

GRuß, teebee

[mtin]

okay, danke soweit, werd das mal morgen in info testen!
aber mal nen anderer Ansatz, in der Funktion steht doch am Anfang

Delphi-Quellcode:

   with DeviceMode do 
     if (dmPelsWidth = sizex) and 
        (dmPelsHeight = SizeY) and 
        (dmBitsPerPel = bpp) then begin

kann man da nich einfach noch (dmDisplayOrientation = xxx) anfügen? vielleicht hat noch jemand ne Ahnung welche Werte dmDisplayOrientation annehmen kann?

[BenBE]

Soweit ich mich erinnere ist dmOrientation eine einfache Angabe in Grad des Winkels um den gedreht wird. In diesem Fall sollte also die Prüfung auf =0 vollkommen ausreichen.

[teebee]

Zitat von mtin:

kann man da nich einfach noch (dmDisplayOrientation = xxx) anfügen?

dmDisplayOrientation wird laut MSDN nicht von EnumDisplaySettings gesetzt, d.h. da kann immernoch Müll drin stehen (wenn DeviceMode nicht ausgenullt wird), sodass der Vergleich evtl. nie erfüllt wird. Unter DEVMODE findest Du die möglichen Werte.

Gruß, teebee

[Muetze1]

Ausserdem musst du durch eine Bitmaske (dmFields) angeben welche Informationen in der DEVMODE Struktur gültig sind! So lange du also dieses Bit für die Orientation (DM_DISPLAYORIENTATION) nicht setzt, wird diese auch nicht beachtet.

[mtin]

mh, bin glaub ich zu dämlich dazu
also in dem TDevMode von Delphi 7 gibts gar kein dmDisplayOrientation

was jetzt

[xaromz]

Hallo,

Zitat von mtin:

mh, bin glaub ich zu dämlich dazu
also in dem TDevMode von Delphi 7 gibts gar kein dmDisplayOrientation

was jetzt

wenn Du in DeviceMode.dmSize die richtige Größe angegeben und am Anfang alles mit Null gefüllt hast, dann sollte das eigentlich kein Problem sein.

Gruß
xaromz