Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Rund ums Auflösung ändern, auslesen, ermitteln der Möglichen (https://www.delphipraxis.net/80214-rund-ums-aufloesung-aendern-auslesen-ermitteln-der-moeglichen.html)

Zacherl 4. Nov 2006 18:33


Rund ums Auflösung ändern, auslesen, ermitteln der Möglichen
 
Hi,

trotz Suche habe ich hier nicht wirklich gefunden, was ich suche ... und zwar brauche ich eine Funktion, die die Ausflösung des Monitors bleibend ändert (also wie über Anzeige).

Dann eine Fuktion, um die aktuelle Auflösung zu ermitteln (da hab ich aber glaube ich was in der CodeLib gefunden) und eine Funktion, die mir alle möglichen Auflösungen, die der Monitor aktivieren kann, auflistet.

Vielen Dank
Florian

DGL-luke 4. Nov 2006 19:01

Re: Rund ums Auflösung ändern, auslesen, ermitteln der Mögli
 
Hoffe, dieser Ausschnitt aus einem aktuellen Projekt von mir hilft dir:

Delphi-Quellcode:
procedure TFResChange.FormCreate(Sender: TObject);
var
  cnt : Integer;
  DevMode : TDevMode;
  Resolution: PDevMode;
begin
  Resolutions := TList.Create;

  //Auflistung der Display-Modi - © delphi.about.com
  cnt := 0;
  while EnumDisplaySettings(nil,cnt,DevMode) do
  begin
    with Devmode do
    begin
      LBResolutions.Items.Add(Format('%dx%d %d Bit %d Hz ', [dmPelsWidth,dmPelsHeight,dmBitsperPel,dmDisplayFrequency])) ;
      New(Resolution);            // Speicherbereich reservieren
      Resolution^ := DevMode;     // kopieren
      Resolutions.Add(Resolution); // Zur Liste
    end;
    Inc(cnt);
  end;
end;
EDIT: außerdem für dich interessant: Delphi-Referenz durchsuchenChangeDisplaySettings ;-)

Zacherl 4. Nov 2006 19:12

Re: Rund ums Auflösung ändern, auslesen, ermitteln der Mögli
 
Danke, das hilft mir schonmal sehr weiter :thumb:

Florian


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:13 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz