Formular und deren Komponenten skalierbar

[Poolspieler]

Hi,
guckst Du hier:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  // Fenstergröße verdoppeln
  Form1.ScaleBy(Form1.PixelsPerInch * 2, Screen.PixelsPerInch);
  Form1.Realign;
  Form1.Repaint;
  Form1.Refresh;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  // Fenstergröße halbieren
  Form1.ScaleBy(round(Form1.PixelsPerInch / 2), Screen.PixelsPerInch);
  Form1.Realign;
  Form1.Repaint;
  Form1.Refresh;
end;

Gruß,
Poolspieler