ChangeDisplaySettings dreht Bildschirm

mg4all · Beiträge: 62 WIN 7 Delphi 7 Enterprise

Hallo Leute

Ich suche hier schon eine ganze Weile herum, finde aber nichts passendes. Ich ändere mit folgendem Code die Bildschirmauflösung :

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

function ChangeResolution(sizex, sizey, bpp: DWORD): Boolean;
var
  DeviceMode: TDeviceMode;
  i: Integer;
begin
  i := 0;
  Result := False;
  ZeroMemory(@DeviceMode, sizeof(DeviceMode));
  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;

Unter WIN 7 auch kein Problem. Wenn ich es aber unter WIN XP ausprobiere wird der Bildschirm gedreht. Kann mir jemand helfen ?

Danke

_________________
Wer nicht fragt hat schon verloren !!!

jaenicke · Verfasst: So 19.12.10 12:20

Du prüfst ja auch die Orientierung nicht. Ich vermute einmal es gibt bei dir dann mehrere Einträge mit den selben Daten, aber verschiedenen Orientierungen. Und da du einfach irgendeinen nimmst, weißt du auch nicht welche genommen wird.

Ich rate einmal, dass du dmOrientation auch prüfen musst.

mg4all · Beiträge: 62 WIN 7 Delphi 7 Enterprise

Kannst du mir einen Tip geben wie ich das machen kann ?

_________________
Wer nicht fragt hat schon verloren !!!

jaenicke · Verfasst: So 19.12.10 12:36

Wie meinst du das? Genauso wie du die anderen Werte wie Bildschirmbreite auch prüfst. :nixweiss:

Lass dir doch erst einmal die Werte ausgeben. Dann weißt du, ob es so ist, wenn du nämlich dort nicht nur Null bekommst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

      if (DeviceMode.dmPelsWidth = sizex) and
        (DeviceMode.dmPelsHeight = SizeY) and
        (DeviceMode.dmBitsPerPel = bpp) then
      begin
        ShowMessage(IntToStr(Integer(DeviceMode.dmOrientation)));

Was mir auch aufgefallen ist:
Die Bildschirmfrequenz prüfst du auch nicht. Zumindest dabei gibt es meistens mehrere Möglichkeiten.

mg4all · Beiträge: 62 WIN 7 Delphi 7 Enterprise

Ja ich bekomme bei allen Auflösungen eine 0 zurück wobei die letzten beiden wieder gedreht sind.

_________________
Wer nicht fragt hat schon verloren !!!

jaenicke · Verfasst: So 19.12.10 13:16

Naja, dann bleibt nur zu debuggen und die restlichen Werte einmal zu vergleichen.

Da das bei Delphi 7 noch nicht per MouseOver ging, musst du glaube ich beim Haltepunkt dann DeviceMode markieren, Strg + F7 drücken und dann untersuchen oder so drücken.

mg4all · Beiträge: 62 WIN 7 Delphi 7 Enterprise

Danke erst mal für die Antworten, werde es dann später weiterprobieren. Jetzt muß ich erst einmal los.

_________________
Wer nicht fragt hat schon verloren !!!

Martok · Verfasst: So 19.12.10 14:58

jaenicke hat folgendes geschrieben :

Da das bei Delphi 7 noch nicht per MouseOver ging, musst du glaube ich beim Haltepunkt dann DeviceMode markieren, Strg + F7 drücken und dann untersuchen oder so drücken.

Was natürlich Quatsch ist, in Delphi 7 hat sich das MouseOver-Ding (das es seit D3 oder so gibt) lediglich leichter von with-Strukturen verwirren lassen. Das geht logischerweise erst richtig, seit es ErrorInsight gibt und ein kompletter Parse-Tree in der IDE vorgehalten wird.
Just sayin'

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

jaenicke · Verfasst: So 19.12.10 15:30

Martok hat folgendes geschrieben :

Was natürlich Quatsch ist, in Delphi 7 hat sich das MouseOver-Ding (das es seit D3 oder so gibt) lediglich leichter von with-Strukturen verwirren lassen.

Was hast du denn da für ein Addon drin? Bei mir geht das nicht. :nixweiss:

Wenn da überhaupt mal ein Hint kommt, dann kann ich da nie was ausklappen und damit auch nicht die Werte innerhalb von z.B. DisplayMode anschauen. So sieht das nach Delphi 7 aus:
Delphi_LiveHints

Und das mit with klappt auch mit XE noch nicht. Deshalb hasse ich das, wenn wieder irgendwer ein with gestreut hat und ich es debuggen muss. :roll:

// EDIT:
Bei mir kommt noch nichtmal überhaupt ein Hint, keine Ahnung ob man das noch aktivieren musste. Ausklappen ließ sich jedenfalls auf jeden Fall nix. Und bei Delphi 3 rührt sich erst recht nix.

Einloggen, um Attachments anzusehen!

Martok · Verfasst: So 19.12.10 16:05

Gut, aufklappen wirklich nicht, da braucht man noch den Debug-Inspektor für. Wobei ich sagen muss, dass mir dieses freifliegende auch nicht so gefällt, jedenfalls nicht auf meinen Bildschirmauflösungen. Und in TD2006 ist das Ding ja auch noch immer mal einfach so wieder verschwunden wenn man grade 5 Ebenen tief drin war, das hat den Spaß etwas getrübt.

Wenn die Datenstrukturen einfach genug sind, reicht aber auch das:
delphihint

jaenicke hat folgendes geschrieben :

Bei mir kommt noch nichtmal überhaupt ein Hint, keine Ahnung ob man das noch aktivieren musste. Ausklappen ließ sich jedenfalls auf jeden Fall nix. Und bei Delphi 3 rührt sich erst recht nix.

Es gibt eine Einstellung "Auswertung durch Kurzhinweis" in den Editoroptionen (Tab Programmierhilfe), aber die ist standardmäßig aktiv. :nixweiss:

Dann eben D4, das weiß ich definitiv. Ich war aber eigentlich der Meinung, sie hätten da nicht groß was am Debugger gemacht...

Einloggen, um Attachments anzusehen!

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

jaenicke · Verfasst: So 19.12.10 16:10

Martok hat folgendes geschrieben :

Dann eben D4, das weiß ich definitiv.

Die Option gibts, auch in D3, passieren tut trotzdem nix. :nixweiss:

Ist ja auch egal, was ich eingangs meinte war ja gerade das Ausklappen zum Vergleich der Werte. ;-)

// EDIT:
Was mir bei dem Hint fehlt ist ein Link "Open in inspector". :mrgreen:

Tilman · Verfasst: So 19.12.10 16:14

@jaenicke bevor du lange rumsuchst... diese Funktion ist in D7 enthalten, aber extrem buggy. Ich glaube unter XP hat sie bei mir immer nach der Installation von Delphi so 1-2 Wochen funktioniert, dann war sie weg und ließ sich auch über die Einstellungen nicht wieder bekommen, unter Vista ging sie bei mir noch nie.

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)

jaenicke · Verfasst: So 19.12.10 16:15

Tilman hat folgendes geschrieben :

Ich glaube unter XP hat sie bei mir immer nach der Installation von Delphi so 1-2 Wochen funktioniert, dann war sie weg und ließ sich auch über die Einstellungen nicht wieder bekommen, unter Vista ging sie bei mir noch nie.

Das kommt mir sehr bekannt vor. ;-)

Ich hab dann immer ein Backupimage zurückgespielt seinerzeit. :mrgreen:

mg4all · Beiträge: 62 WIN 7 Delphi 7 Enterprise

Ok Leute habe eine Lösung gefunden.

Erst mal Danke an alle für die rege Beteiligung. Ich nehme jetzt einfach die 2. funktionierende Auflösung, diese geht unter XP und WIN 7. Hier mal der geänderte Code:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

function ChangeResolution(sizex, sizey, bpp: DWORD): Boolean;
var
  DeviceMode: TDeviceMode;
  i: Integer;
begin
  i := 0;
  Result := False;
  ZeroMemory(@DeviceMode, sizeof(DeviceMode));
  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);
          if i = 1 then
          break;
      end;
    Inc(i);
  end;
end;

Thanks

_________________
Wer nicht fragt hat schon verloren !!!

jaenicke · Verfasst: So 19.12.10 21:42

Naja, das funktioniert dann rein zufällig auf deinem System. Bei einem System gibt es bei mir nur eine Einstellung pro Auflösung, bei einem anderen deren 4. Also was hat das für einen Sinn, es sei denn das ist ausschließlich für deine Systeme? :nixweiss:

Und die Bildschirmfrequenzen beachtest du ja gar nicht erst.

mg4all · Beiträge: 62 WIN 7 Delphi 7 Enterprise

Hast du einen anderen Tip wie ich das Problem lösen kann ?

_________________
Wer nicht fragt hat schon verloren !!!

jaenicke · Verfasst: So 19.12.10 22:12

Hast du denn mal geschaut was der Unterschied zwischen den beiden Einträgen ist? Du kannst auch jeweils einen Screenshot vom Inspektor machen, wenn du möchtest, dann können wir auch schauen.

mg4all · Beiträge: 62 WIN 7 Delphi 7 Enterprise

Gibt es keine andere Möglichkeit auf Vollbild zu schalten ohne den Desktop zu verändern ?

_________________
Wer nicht fragt hat schon verloren !!!

jaenicke · Verfasst: So 19.12.10 22:33

Was hat das eine mit dem anderen denn zu tun? :gruebel:

was hast du eigentlich vor?

mg4all · Beiträge: 62 WIN 7 Delphi 7 Enterprise

Ich schreibe ein Spiel in 1024 x 768 Auflösung und möchte dieses im Vollbild anzeigen lassen.

_________________
Wer nicht fragt hat schon verloren !!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme