Nicht nur Form vergrößern, sondern auch Elemente

[sakura]

Ich denke, dass was er sucht ist das wirkliche Scaling. Folgende Methode erledigt die Aufgabe. Im Anhang ist auch ein Beispielprojekt.

Delphi-Quellcode:

procedure TForm1.MaximizeAndScale;
var
  sWidth: Double;
  sHeight: Double;
begin
  sWidth := Screen.MonitorFromWindow(Handle).Width / Width;
  sHeight := Screen.MonitorFromWindow(Handle).Height / Height;
  if sWidth < sHeight then
  begin
    ScaleBy(Round(Screen.MonitorFromWindow(Handle).Width * 1.02), Width);
  end
  else
  begin
    ScaleBy(Round(Screen.MonitorFromWindow(Handle).Height * 1.02), Height);
  end;
  WindowState := wsMaximized;
end;

...:cat:...

[DP-Maintenance]

Dieses Thema wurde von "sakura" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.

[-=cats=-]

:dancer: Coooool :thumb:

Das war genau das was ich gesucht hatte !!!!!!!!!!

Vielen Dank !!!!! :)

[-=cats=-]

Kannst Du mir noch erklären, was genau in diesem Abschnitt passiert ?

Zitat:

Zitat von sakura

Delphi-Quellcode:

  if sWidth < sHeight then
  begin
    ScaleBy(Round(Screen.MonitorFromWindow(Handle).Width * 1.02), Width);
  end
  else
  begin
    ScaleBy(Round(Screen.MonitorFromWindow(Handle).Height * 1.02), Height);
  end;

Warum *1.02 ?

[kalmi01]

Moin, moin,

Zitat:

Zitat von sakura

Ich denke, dass was er sucht ist das wirkliche Scaling. Folgende Methode erledigt die Aufgabe

Einzger Haken dabei ist die ScaleBy-interne Rundung auf ganze Pixel.
Dadurch zerlegt es das Formular, wenn es häufig vergrößert/verkleinert wird.

[sakura]

Zitat:

Zitat von -=cats=-

Warum *1.02 ?

Wie Kalmi schon geschrieben hat, wird intern viel gerundet und über die Zeit habe ich einfach festgestellt, dass beim Vergrößern ca. 2% Abweichung korrigiert werden wollen. Beim Verkleinern muss man diese wieder negativieren. Aber wenn es oft hin und her geht, dann geht das Layout verloren. Zum Starten ist es okay, aber häufig nutzen ist imo keine gute Idee.

...:cat:...

[kalmi01]

Die im Anhang befindliche Unit sollte da etwas "geschmeidiger" Funktionieren, als ScaleBy :hi:

[-=cats=-]

Zitat:

Zitat von sakura

Aber wenn es oft hin und her geht, dann geht das Layout verloren.

Was meinst Du damit ?
Sitzen die Buttons dann nicht mehr richtig ? Oder verschwinden sie komplett ?
Also, ich nutze das schon häufig mit der Größe (das sie verändert werden muss).

[kalmi01]

Zitat:

Sitzen die Buttons dann nicht mehr richtig ? Oder verschwinden sie komplett ?

Wenn die Koordinate mehrfach berechnet werden und das Ergebnis wir anschl. auf integer gerundet, dann veränder sich halt die Positionen.
Dito was die Größe der Buttons angeht.
Irgendwann ist das Form dann nur noch Schrott.

[messie]

Zitat:

Zitat von kalmi01

Die im Anhang befindliche Unit sollte da etwas "geschmeidiger" Funktionieren, als ScaleBy :hi:

Magst Du die Kompo mal mit ein paar Worten beschreiben? Woher, wohin, wozu?



@ cats: Wenn Du die ScaleBy-Funktion nutzt, solltest Du Dein Form beim Schließen freigeben und es beim Aufruf neu erzeugen. Dann hast Du auch keine Rundungseffekte, jedenfalls wenn Du BorderStyle bsSingle setzt.

Grüße, Messie