Nicht nur Form vergrößern, sondern auch Elemente

[-=cats=-]

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

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 ?