Monitore und dessen Positionen anzeigen (Bildschirmanordnung)

[dGeek]

Mit TScreen und TMonitor gibt es ja keine Probleme.

Ich habe Probleme mit der Berechnung und der Skalierung ;)

[BadenPower]

Zitat:

Zitat von dGeek (Beitrag 1290494)

Ich glaube das wird mit mir heute nichts mehr :P

Delphi-Quellcode:

    aShape.Left := ScreenToClient(p).Y;
    aShape.Top := ScreenToClient(p).X;

Das Koordinatensystem ist auch nicht gerade Dein Freund?

[dGeek]

Nein, heute nicht :P X und Y vertauscht, wie peinlich.

[dGeek]

So ich bin jetzt soweit, dass die Shapes sichtbar angezeigt werden.
Aber: wenn sich Monitor 2 links neben Monitor 1 befindet, ist Monitor 2 im negativen Bereich, da Monitor 1 immer an Position 0|0 ist:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  p: TPoint;
  i: Integer;
  aShape: TShape;
begin
  for i := 0 to Screen.MonitorCount - 1 do
  begin
    p := Point(Screen.Monitors[i].Left, Screen.Monitors[i].Top);

    aShape := (FindComponent('Shape' + IntToStr(i + 1)) as TShape);
    aShape.Left := prozentwert(p.X, 5);
    aShape.Top := prozentwert(p.Y, 5);

    aShape.Width := prozentwert(Screen.Monitors[i].Width, 5);
    aShape.Height := prozentwert(Screen.Monitors[i].Height, 5);

    showmessage(IntToStr(aShape.Left) + ' - ' + IntToStr(aShape.Top));
  end;
end;

[Sir Rufo]

Und was ist daran schlimm, dass da negative Werte sind? Das sagt ja auch die Doku

[dGeek]

Es ist schlimm, weil es dann nicht auf meinem Formular sichtbar ist da Monitor 1 immer an Position 0|0 ist :P

[Sir Rufo]

Zitat:

Zitat von dGeek (Beitrag 1290510)

Es ist schlimm, weil es dann nicht auf meinem Formular sichtbar ist da Monitor 1 immer an Position 0|0 ist :P

Ist aber auch ein schlimmer Finger dein Formular. Kannst du das nicht austricksen indem du zu jedem Wert einen bestimmten Wert addierst. Ein guter Wert wäre ja der Wert, der dann mit dem Left-Wert des 2. Monitors zusammen 0 ergibt. :cyclops:

[dGeek]

Dann müsste ich ja aber auch den ersten Monitor, der sich an Position 0|0 befindet, mit verschieben und alle anderen ebenfalls.

Das kann doch so nicht richtig sein, oder?

[Sir Rufo]

Oder um es technischer zu formulieren:

Du benötigst zur Darstellung einen Zoom-Faktor

Delphi-Quellcode:

Single

und einen Offset

Delphi-Quellcode:

TPoint

.

Oder versuchst du auch die Monitore 1:1 darzustellen (per Wallpainting) :mrgreen:

[BadenPower]

Zitat:

Zitat von dGeek (Beitrag 1290512)

Das kann doch so nicht richtig sein, oder?

Doch, dass hat alles seine Richtigkeit, da der primäre Monitor immer mit 0/0 beginnt, da es der einzige Monitor ist, welchen Du nicht ohne weiteres " abstöpseln kannst.

Die anderen Monitore werden demnach um den primären Monitor herum gebaut und beziehen ihre Positionsangaben immer auf den Primären.



Schau die auch dazu noch:

Screen.Width
Screen.Height
Screen.Display.Top
Screen.Display.Left
Screen.Display.Width
Screen.Display.Height

und die ganzen

Screen.WorkArea...

-Propertys an.

Dann verstehst Du auch die Zusammenhänge.