Durch Auflösung nicht zentriert

[pacman1986]

nachdem ich die auflösung geändert hab mit delphi

Delphi-Quellcode:

function NewRes(XRes, YRes: DWORD; Frequency: Cardinal): Integer;
var
  DevMode: TDeviceMode;
begin
  EnumDisplaySettings(nil, 0, DevMode);
  DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
  DevMode.dmPelsWidth := XRes;
  DevMode.dmPelsHeight := YRes;
  DevMode.dmDisplayFrequency := Frequency;
  Result := ChangeDisplaySettings(DevMode, 0);
end;

is links und oben noch 1- 2 cm schwarz alles was ist los ?

[jfheins]

Ich kann dir zwar nicht helfen, aber bist du sicher, dass du Delphi.NET benutzt ?

[pacman1986]

ups :-D :coder2:

[Luckie]

Von welcher Auflösung in welche schaltest du um und unterstützen das die Grafikkarte und der Monitor? Ghet es denn über die Eigenschaften der Grafikkarte richtig?

[pacman1986]

jep von 1024*768 auf 800*600 halt ....
alles wir unterstützt

[pacman1986]

habs dank dir Luckie
die Frequenz wurd bei dieser auflösung net unterstützt hab 75 bei 800* 600 aber nur 60 funzen danke euch :D

[Nicolai1234]

hmm, ich jetzt nicht woran der Fehler liegt, aber probiere dochmal den QT aus der Codelib: Wie kann ich die Bildschirmauflösung ändern?
Vielleicht geht es ja damit. Vllt. liegt es ja auch an der Frequenz...

Edit: Mist, zu langsam

[Daniel Schuhmann]

Benutzt Du ein Notebook? Dann solltest Du im BIOS oder im Treiber mal die Option einstellen, dass das Bild auf den ganzen Monitor gezogen wird. In vielen Treibern lässt sich das deaktivieren, damit die kleinere Auflösung klar bleibt und nicht interpoliert wird.

Ansonsten (normaler PC mit CRT) wird es sicher ein Frequenzproblem sein, ggf. einfach das Bild in der neuen Auflösung nochmal einstellen.

[turboPASCAL]

Ändern der Bildschirmauflösung:

Delphi-Quellcode:

function ChangeRes(X, Y:Integer; Frequency: Byte; FullScreen: Boolean): Boolean;
var DevMode:TDeviceMode;
begin
  // Initialisieren
  EnumDisplaySettings(nil, 0, DevMode);
  DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
  DevMode.dmDisplayFrequency := Frequency;
  DevMode.dmPelsWidth  := X;
  DevMode.dmPelsHeight := Y;

  // Auflösung ändern
  if FullScreen
    then Result := ChangeDisplaySettings(DevMode, CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL
    else Result := ChangeDisplaySettings(DevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end;

// Aufruf zB.:
begin
  //... 
  If not ChangeRes(800, 600, 0, True) then
  begin
    MessageBox(0,
      'Das ändern der Auflösung ist fehlgeschlagen....',
      'Fehler:', MB_OK or MB_ICONERROR);
    Exit;
  end;

  //... 
  
  //  Normale, in Windows eingestellte Bildschirmauflösung wiederherstellen:
  ChangeDisplaySettings(PDeviceMode(nil)^,0);
end;

Wenn bei Frequency "0" angegeben wird setzt Win die passende (wenn möglich).
Es ist nicht gut einfach eine Vorzugeben, da auch TFT's nicht immer 1024x768 mit 6Hz darstellen,
Die Frequenz muss man dan auch erst mittels GetDeviceCaps auslesen/bestimmen.

zB.:

Delphi-Quellcode:

  DC := GetDC(Handle);
  Bits := GetDeviceCaps(DC, BITSPIXEL);
  HRes := GetDeviceCaps(DC, HORZRES);
  VRes := GetDeviceCaps(DC, VERTRES);
  Freq := GetDeviceCaps(DC, VREFRESH); //<---<<<

[pacman1986]

Danke PRobier ich gleich ma aus :D