Bildschirmauflösung ?

[Hansa]

Hi,

wie ermittele ich die Bildschirmauflösung ? Ich muß im Programm eine Warnung anzeigen, wenn sie zu gering ist.

[gmarts]

Ich mache das immer so:

Delphi-Quellcode:

breite:=screen.Monitors[0].Width;
hoehe:=screen.Monitors[0].heigth;

[Hansa]

Wie sieht es dann aus zur Laufzeit ? Was ist, wenn beim Start des Programmes die Auflösung zu gering ist ?

[gmarts]

Zitat:

Zitat von Hansa

Wie sieht es dann aus zur Laufzeit ? Was ist, wenn beim Start des Programmes die Auflösung zu gering ist ?

Du hast dir doch schon selbst geantwortet! :)

Zitat:

Zitat von Hansa

Ich muß im Programm eine Warnung anzeigen, wenn sie zu gering ist.

Abgesehen von der Warnung, kannst die Auflösung dann ändern ([dp]Auflösung ändern[/dp]) oder den Benutzer auffordern, das zu tun.

[Muetze1]

Moin!

Na das liegt doch dann in deiner Hand was denn ist. Entweder du gibst die Warnung aus und lässt den Benutzer dann fortfahren oder du beendest das Programm.

MfG
Muetze1

[C64-Flo]

Kann man nicht einfach die Bildschirmauflösung automatisch ändern?

wäre zwar frech (wenn man sie beim verlassen des programms nicht wieder in den orginalzustand versetzt :p) aber praktisch!

:thumb:

[Thorben77]

Zitat:

Zitat von Hansa

Abgesehen von der Warnung, kannst die Auflösung dann ändern ([dp]Auflösung ändern[/dp]) oder den Benutzer auffordern, das zu tun.

Hat Hansa doch schon geschrieben, wie du die Auflösung änderst (bzw. wo du's findest). :wink:

[Matze]

Zitat:

Zitat von C64-Flo

Kann man nicht einfach die Bildschirmauflösung automatisch ändern?

Wenn es kein Spiel ist, würde ich das Programm dann sicher nicht verwenden.

[cl]Auflösung[/cl]


Edit: Tippfehler korrigiert

[kiar]

hallo hansa,

wie wäre es, dein prog an die bildschirmaulösung anzupassen?

raik

[Hansa]

Zitat:

Zitat von kiar

...wie wäre es, dein prog an die bildschirmaulösung anzupassen?

Dann sage wie. Hätte wenn und aber, das gibts genügend. 8) :mrgreen:

[tommie-lie]

Zitat:

Zitat von Hansa

Was ist, wenn beim Start des Programmes die Auflösung zu gering ist ?

Dann solltest du die Auflösung überprüfen, bevor sie relevant für die Oberfläche wird, ergo bevor deine großen Formulare angezeigt werden. z.B. kannst du sowas in der Projektdatei machen, und dort die Forms nur erzeugen, wenn die Auflösung passt, andernfalls mit ShowMessage eine Fehlermeldung anzeigen und das Programm beenden.

[himitsu]

Zitat:

Zitat von "tommie-lie

...und dort die Forms nur erzeugen, wenn die Auflösung passt, andernfalls mit ShowMessage eine Fehlermeldung anzeigen und das Programm beenden.

Also das wäre besimmt nicht nett und ich würde dann auch dieses Programm nicht verwenden wollen, wenn es mir eine bestimmte Auflösung vorschreibt.

Aber man könnte in diesem Fall ja ein kleineres Formular anzeigen, wo z.B. immer nur bestimmte Teile angezeigt werden (also mit verschiedenen/umschaltbaren Bereichen...)

[tommie-lie]

Zitat:

Zitat von himitsu

Also das wäre besimmt nicht nett und ich würde dann auch dieses Programm nicht verwenden wollen, wenn es mir eine bestimmte Auflösung vorschreibt.

Ist letztendlich Hansas Entscheidung, eine Fehlermeldung finde ich nicht unüblich, wenn auf der Verpackung (bzw Homepage) draufsteht, daß es eine Auflösung von x*y zwingend vorraussetzt.

Zitat:

Zitat von himitsu

Aber man könnte in diesem Fall ja ein kleineres Formular anzeigen, wo z.B. immer nur bestimmte Teile angezeigt werden (also mit verschiedenen/umschaltbaren Bereichen...)

Könnte man auch, das Prinzip ist aber das gleiche und Hansa fragte ja nach dem wie und weniger nach dem was.

[Hansa]

Meine Herren :mrgreen:

Zitat:

Zitat von Hansa

Hi,

wie ermittele ich die Bildschirmauflösung ? Ich muß im Programm eine Warnung anzeigen, wenn sie zu gering ist.

Darum geht es. 8)

[kiar]

ich kann immer nur auf diese funktion verweisen

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);

const
   screenwidthdev  = 1024; // Einstellungen auf dem Entwicklungsrechner
   screenheightdev =  768; // dito
var
   x,y:integer;
begin
   scaled := true;
   x:= Screen.width;
   y:= Screen.Height;
   if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
     begin
        frmMain.Height := (frmMain.ClientHeight* y div ScreenHeightDev) +
                                frmMain.Height- frmMain.ClientHeight;
        frmMain.Width  := (frmMain.ClientWidth * x div ScreenWidthDev)  +
                                frmMain.Height - frmMain.ClientHeight;
        scaleBy(x,Screenwidthdev);
     end;
   // Achtung frmMain muss durch dein Formular ausgetauscht werden
end;

muetze1 meinte das

Delphi-Quellcode:

scaled:=true

das gleiche macht. ich konnte das aber noch nicht erreichen :wall:

raik

[tommie-lie]

Zitat:

Zitat von Hansa

Zitat:

Zitat von Hansa

wie ermittele ich die Bildschirmauflösung ? Ich muß im Programm eine Warnung anzeigen, wenn sie zu gering ist.

Darum geht es. 8)

Eine Mögliche Lösung dazu findest du hier. Ich habe auf deine Frage danach geantwortet, was denn beim Start des Programmes sei: du musst die Fehlermeldung ausgeben, bevor das zu große Fenster angezeigt wird.