AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

MonitorCount im Betrieb aktualisieren?

Ein Thema von Rabe · begonnen am 3. Mär 2011 · letzter Beitrag vom 8. Mär 2011
Antwort Antwort
Rabe

Registriert seit: 20. Apr 2010
12 Beiträge
 
#1

AW: MonitorCount im Betrieb aktualisieren?

  Alt 4. Mär 2011, 16:24
Mit den Anregungen hier bin ich mal auf Endeckungsreise gegangen und habe an unterschiedlichen Stellen ind forms.pas den Aufruf von "Screen.GetMonitors" entdeckt.

Code:
procedure TScreen.GetMonitors;
begin
  ClearMonitors;
{$IF DEFINED(CLR)}
                                         
  EnumDisplayMonitors(0, nil, TMonitorEnumerator.Create(Screen.FMonitors).FEnumProc, 0);
{$ELSE}
  EnumDisplayMonitors(0, nil, @EnumMonitorsProc, LongInt(Screen.FMonitors));
{$IFEND}
end;
Ich würde das für eine Art "Refresh" halten. Aber - die Methode ist private.

Jetzt wollte ich TScreen in forms.pas um eine öffentliche Methode ergänzen, die GetMonitors aufruft. Es ist mir fast perinlich aber ich bekomme forms.pas nicht übersetzt.

Kann mir mal kurz einer nen Schubs geben? Müsste forms.pas als Bestandteil des Projektes nach Veränderung nicht automatisch übersetzt werden??? In jedem Fall ist forms.pas in dem im Optionen.Suchpfad eingetragegen Verzeichnis $(BDS)\SOURCE\WIN32\VCL vorhanden und lesbar.

Gruß
RaBe


Ups: Posts auf 2. Seite nicht gesehen - pfui über mich.

Geändert von Rabe ( 4. Mär 2011 um 16:57 Uhr) Grund: 2. Seite Posts nicht gesehen...
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.557 Beiträge
 
Delphi 12 Athens
 
#2

AW: MonitorCount im Betrieb aktualisieren?

  Alt 4. Mär 2011, 16:59
Die VCL Resourcen ändert man halt nicht.

Delphi nutzt nie die PAS, sondern die entsprechenden vorkompilierten DCUs oder die Units, welche in den BPLs liegen, wenn man Runtimepackages nutzt.

Wenn doch, dann muß man diese DCUs manuell kompilieren und die abhängigen BPLs neu erzeugen.



Screen.FindMonitor(0); führt einen Refresh durch ... man mag es kaum glauben.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Rabe

Registriert seit: 20. Apr 2010
12 Beiträge
 
#3

AW: MonitorCount im Betrieb aktualisieren?

  Alt 4. Mär 2011, 17:25
Die VCL Resourcen ändert man halt nicht.
und man geht auch nicht bei rot über die Ampel

Screen.FindMonitor(0); führt einen Refresh durch ... man mag es kaum glauben.
ruft ja auch Screen.GetMonitors auf. Aber beide Methoden sind private deklariert.

Kann mich mal einer aufklären, wie ich da ran komme OHNE die VCL zu ändern?

Anscheinend sehe ich gerade den Wald vor Bäumen nicht...
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.557 Beiträge
 
Delphi 12 Athens
 
#4

AW: MonitorCount im Betrieb aktualisieren?

  Alt 4. Mär 2011, 18:04
Ups, dann hatte ich mich vorhin verguckt.

OK, dann versuchen wir's einfach mal so Screen.MonitorFromWindow(INVALID_HANDLE_VALUE, mdNull); ?
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Rabe

Registriert seit: 20. Apr 2010
12 Beiträge
 
#5

gelöst: MonitorCount im Betrieb aktualisieren

  Alt 4. Mär 2011, 18:45
OK, dann versuchen wir's einfach mal so Screen.MonitorFromWindow(INVALID_HANDLE_VALUE, mdNull);
Ausgezeichnet - könnte besser nicht sein!

Im FormShow aufgerufen und danach wieder Mointorkonfiguration auswerten - schon wird das Formular für dem Beamer passgenau angezeigt, auch wenn der Beamer während der laufenden Anwendung an- oder abgestöpselt wird.

Viel Dank an Alle...

Gruß
RaBe
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.557 Beiträge
 
Delphi 12 Athens
 
#6

AW: gelöst: MonitorCount im Betrieb aktualisieren

  Alt 4. Mär 2011, 18:53
Eigentlich dachte ich ja, daß auch dieses bei der INI/Settings-Change-Message mit aktualisiert wird.
Statt im OnShow kannste in Application.OnIniChange oder besser über diese TApplication-VCL-Komponente, auf eine Änderung reagieren, auch/vorallem wärend das Programm läuft.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Rabe

Registriert seit: 20. Apr 2010
12 Beiträge
 
#7

AW: gelöst: MonitorCount im Betrieb aktualisieren

  Alt 4. Mär 2011, 19:01
besser über diese TApplication-VCL-Komponente, auf eine Änderung reagieren, auch/vorallem wärend das Programm läuft.
Die Anwendung wird wie PowerPoint eingesetzt. F5 = Präsentation starten, ESC = beenden. Ich gehe einfach davon aus, dass während einer laufenden Präsentation nicht am Beamer rumgefummelt wird. Die Situation ist eher die, dass beim Aufbau schon mal die Anwendung gestartet wird und mit F5 dann festgestellt wird, dass der Beamer nicht läuft (weil nicht angeschlossen).

Wenn dann der dann Beamer angeschlossen wird, kann ruhig mit ESC die "Testpräsentation" beendet und mit F5 neu gestartet werden. Das läuft meist schon intuitiv ab. Somit finde ich, dass es im FormShow bestens aufgehoben ist.

Wichtig ist nur, dass die Anwendung nicht beendet werden muss. Da kommt Otto-N nicht sooo schnell drauf

Gruß
RaBe
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz