Bildschirmauflösung ?

[tommie-lie]

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 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 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 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

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 scaled:=true das gleiche macht. ich konnte das aber noch nicht erreichen

raik

[tommie-lie]

Zitat von Hansa:

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.