Scale a form manually

Spread the love

The first parameter of ScaleBy is the multiplier, the second
the divisor. The example scale the form to 150%

procedure TForm1.Button1Click(Sender: TObject);
begin
     ScaleBy(150, 100);
end;