...

GetClientRect(Handle, rc);

newWidth := (rc.Right – rc.Left) * 120 div 100;

newHeight := (rc.Bottom – rc.Top) * 120 div 100;

Width := Width + newWidth – (rc.Right – rc.Left);

Height := Height + newHeight – (rc.Bottom – rc.Top);

Загрузка...