Scale your Delphi Application forms and form components automatically. This is an example project for ScaleForm function which helps you to re-scale your form and inner components of your form with the ratio and dimention you wished.
Örnekte (kendi bilgisayarımda) "Büyüt" butonuna basınca da küçülüyordu.
İnceleyince 50 / 50 olunca aynı oranı koruduğunu gözlemledim. Dolayısıyla aşağıdaki şekilde bir düzeltme bende iş gördü.
Saygılarımla.
case AType of // make larger TLarger: begin AForm.scaleby(trunc(ratio * 50), 40); end; // make smaller TSmaller: AForm.scaleby(trunc(ratio * 50), 60); end;
@ilgazdev Merhaba.
Örnekte (kendi bilgisayarımda) "Büyüt" butonuna basınca da küçülüyordu. İnceleyince 50 / 50 olunca aynı oranı koruduğunu gözlemledim. Dolayısıyla aşağıdaki şekilde bir düzeltme bende iş gördü. Saygılarımla.
case AType of // make larger TLarger: begin AForm.scaleby(trunc(ratio * 50), 40); end; // make smaller TSmaller: AForm.scaleby(trunc(ratio * 50), 60); end;