Kleine Testanwendung für Multi-Monitor-Systeme

[Codehunter]

Die Schubserei vom Sample Window funktioniert auch? Screenshots?

[RWarnecke]

Bei mir hat auch alles sauber funktioniert auf einem Windows 7 64Bit mit einer NVidia Geforce GTX670 mit vier Monitore.

[freeway]

soweit sogut funktioniert alles...
wenn ich den 2ten Monitor auswähle [Show sample window] wird das Fenster auf dem ersten Monitor angezeigt, gewollt so ?

[lbccaleb]

Bei mir funktioniert das auch. Win7 64 Bit Nvidia Karte aber nur 1 Monitor

[v2afrank]

Die Screenshots funktionieren.
Nur Show Sample Window wird bei beiden Monitoren auf dem ersten angezeigt

[Codehunter]

@freeway: Das kann ich dir nicht genau beantworten warum das bei dir so ist. Ich lese die Videotreiber und Monitore in der Reihenfolge aus, wie sie Windows intern gespeichert hat. Die Reihenfolge wird immer beibehalten, so wie sie ursprünglich bei der Treiberinstallation gefunden wurde. Hast du evtl. in deinen Grafikeinstellungen die beiden Bildschirme vertauscht?

Guck mal nach, wenn du in meinem Testprogramm im Baum auf den Grafikkarteneintrag oberhalb der Monitore klickst, bei welchem von beiden "Primary display: YES" angeizeigt wird. Standardmäßig sollte das der erste der Einträge sein. Wenn man irgendwann händisch mal was geändert hat kann es auch ein anderer sein. Ebenso sollte beim ersten (im Baum obersten) Monitor "Desktop anchor coordinates: 0x0" stehen. Steht da was anderes wurde wohl irgendwann mal händisch was geändert.

@v2afrank: Der Button "Show Sample Window" erzeugt erstmal das Sample-Fenster und das immer auf dem primären Display. Das ist gewollt so um die anderen Buttons "Move" und "Center" verdeutlichen zu können.

EDIT: Hatte mich bei "freeway" verlesen. Daher die Streichung. Vielleicht hätte ich das "Show Sample Window" ein bissi anders machen sollen, scheint verwirrend zu sein. Aber es ist ja kein Anwenderprogramm wo es auf Usability ankommt

[jobo]

An Win 7 64
Sieht ok aus, aber was macht "move relative.."?
Ich hab's geschnallt, ist ok!


Was die Details bedeuten ist mir nicht klar, aber sicher sagt es Dir was.
Es gäbe mit den gleichen Monis noch ein XP 32 bit, dann müsste ich aber unter den Tisch krabbeln und ein Kabel einstecken. Könnte ich auf Wunsch auch machen.

Daten:

Code:

Device name: \\.\DISPLAY1
Device string: ATI Radeon HD 5450
Active: YES
Primary display: YES
Screen is attached to desktop: YES
Screen mirrors the desktop: NO
Supports more modes than attached monitor: YES
Removable device: NO
VGA compatible video mode: NO

Device name: \\.\DISPLAY1\Monitor0
Device string: PnP-Monitor (Standard)
Height: 1200
Width: 1600
Desktop anchor coordinates: 0x0
Monitor rect (Left x Top : Right x Bottom): 0x0:1600x1200
Work rect without toolbars (Left x Top : Right x Bottom): 118x0:1600x1200
Current frequency: 60 Hz
Current color depth: 32 Bit


Device name: \\.\DISPLAY2
Device string: ATI Radeon HD 5450
Active: YES
Primary display: NO
Screen is attached to desktop: YES
Screen mirrors the desktop: NO
Supports more modes than attached monitor: YES
Removable device: NO
VGA compatible video mode: NO

Device name: \\.\DISPLAY2\Monitor0
Device string: PnP-Monitor (Standard)
Height: 1024
Width: 1280
Desktop anchor coordinates: 1600x0
Monitor rect (Left x Top : Right x Bottom): 1600x0:2880x1024
Work rect without toolbars (Left x Top : Right x Bottom): 1600x0:2880x1024
Current frequency: 75 Hz
Current color depth: 32 Bit

[Bernhard Geyer]

Hast du/jemand schon getestet was passiert wenn während der Laufzeit der Anwendung Monitore (Beamer bei Laptop) dazu bzw. weggenommen werden.
Hier hatte ich auch schon Problem da die Delphi-Interne Montorliste AFAIK nicht während der Laufzeit aktualisiert wird.

[Codehunter]

Zitat von jobo:

Sieht ok aus, aber was macht "move relative.."?

Verschiebt ein Fenster unter Beibehaltung seiner zum Monitor relativen Koordinaten auf einen anderen Bildschirm. Wenn ein Fenster also z.B. Left=10 und Top=10 gesetzt hat, dann werden mit dieser Funktion die Koordinaten auf den anderen Monitor umgerechnet und das Fenster dort hin verschoben. So ähnlich wie man das in der VCL mit ScreenToClient und ClientToScreen hat.

Zitat von jobo:

Was die Details bedeuten ist mir nicht klar

Kurze Erläuterung:

Die Grafikkarte bzw. der Schnittstellentreiber
Device name: \\.\DISPLAY1 --> Windows-interner Treibername
Device string: ATI Radeon HD 5450 --> Gerätename so wie er im Gerätemanager angezeigt wird
Active: YES --> Wird im Moment verwendet
Primary display: YES --> Primäre Displayschnittstelle
Screen is attached to desktop: YES --> Bildschirm ist Teil des Desktops (= "Anzeige auf diesen Bildschirm erweitern" bei Windows)
Screen mirrors the desktop: NO --> Bildschirm spiegelt den Desktop (trifft oft auf Beamer zu)
Supports more modes than attached monitor: YES --> Grafikkarte kann mehr Auflösungen, Farbtiefen, Refreshraten als der angeschlossene Monitor
Removable device: NO --> Weiß ich auch nicht genau, ich vermute das bezieht sich auf USB-Grafikkarten (siehe DISPLAY_DEVICE structure im MSDN)
VGA compatible video mode: NO --> Wird wohl nur im abgesicherten Modus als YES angezeigt (^= 640x480-8Bit@60Hz)

Der Monitor, Beamer etc.
Device name: \\.\DISPLAY1\Monitor0 --> Windows-interner Treibername
Device string: PnP-Monitor (Standard) --> Gerätename so wie er im Gerätemanager angezeigt wird
Height: 1200 --> Vertikale Auflösung
Width: 1600 --> Horizontale Auflösung
Desktop anchor coordinates: 0x0 --> Linke obere Ecke relativ zum gesamten Desktop
Monitor rect (Left x Top : Right x Bottom): 0x0:1600x1200 --> Kompletter Bereich relativ zum gesamten Desktop, der auf diesem Bildschirm dargestellt wird
Work rect without toolbars (Left x Top : Right x Bottom): 118x0:1600x1200 --> Bereich ohne z.B. die Taskleiste relativ zum gesamten Desktop, der auf diesem Bildschirm dargestellt wird
Current frequency: 60 Hz --> Refresh-Rate
Current color depth: 32 Bit --> Farbtiefe

Interessant bei der ganzen Sache: Windows unterscheidet nicht strikt zwischen Videotreiber (im Baum als Karte dargestellt) und Bildschirmen (im Baum als blauer Flatscreen). Vielmehr sieht Windows beides als Einheit an, wobei der Monitor eine Untermenge der Grafikkarte ist. Es gibt auch virtuelle Grafiktreiber die keinen Monitor kennen (z.B. der VNC-Videotreiber).

@Bernhard: Genau an dem Problem bastel ich gerade. Ich müsste die Message WM_DISPLAYCHANGE hooken. Allerdings beiß ich da im Moment noch auf Granit:

Delphi-Quellcode:

var
  Form1: TForm1;
  MainHook : HHOOK;

  function SysMsgHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;

implementation

{$R *.dfm}

function SysMsgHook(Code: Integer; wParam : WPARAM;
   lParam : LPARAM): Longint; stdcall;
var
  Buffer: TEventMsg;
begin
  result:= 0;
  Buffer:= PEventMsg(lParam)^;

  if Buffer.Message = WM_DISPLAYCHANGE then begin
    ShowMessage('OK');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MainHook:= SetWindowsHookEx(WH_SHELL, SysMsgHook, hInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnhookWindowsHookEx(MainHook);
end;

Ich hab schon die verschiedensten Hook-IDs für SetWindowsHookEx ausprobiert, die Hook-Proc SysMsgHook wird nie aufgerufen wenn sich die Bildschirmeinstellungen ändern. Entweder hab ich den Hook vermurkst (wahrscheinlich) oder Windows sendet einfach kein WM_DISPLAYCHANGE (unwahrscheinlich). Any suggestions?