Functions içinde orantıda bir düzeltme önerisi

[mrmarman]

@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;