Ручное масштабирование формы

Delphi , Программа и Интерфейс , Размеры и Положение

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Der erste Parameter von ScaleBy ist der Multiplikator, der zweite 
  der Divisor. Folgendes Beispiel skaliert die Form auf 150% 

  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;

Программный код на Delphi, демонстрирующий использование метода ScaleBy для ручного изменения размера формы. Метод ScaleBy принимает два параметра: множитель и делитель.

Вот что происходит в этом коде:

1. Когда кнопка с надписью "Button1" нажата, выполняется процедура Button1Click.
2. В процедуре вызывается метод ScaleBy с двумя аргументами: 150 как множителем и 100 как делителем.
3. Метод ScaleBy изменяет размер формы, умножая ее текущую ширину и высоту на множитель (150) и затем делив результат на делитель (100).

Эффект этого кода - изменение размера формы до 150% от ее оригинального значения.

Обратите внимание, что если вам нужно вернуть размер формы к его исходному значению после изменения, вы можете вызвать метод ScaleBy с параметрами по умолчанию (множитель 1 и делитель 100), что не изменяет размер формы.

Вот альтернативный способ достижения того же результата с помощью одной строки кода:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Scale := Self.Width * 150 / 100;
end;

В этом варианте мы используем свойство Scale формы для непосредственного изменения ее размера. Расчет аналогичен тому, который использовался в оригинальном коде, но выполнен в одной строке.

Ручное масштабирование формы с помощью параметра ScaleBy, который принимает в себя мультипликатор и делимое.

Комментарии и вопросы

:: Главная :: Размеры и Положение ::