Resize формы

← →
ghg © (2003-04-15 16:04) [0]

Хочется поиметь нормальное масштабирование с сохранением пропорций.
При уменьшении размера формы все компоненты на форме сворачиваются в точку.
Ниже написан код действующий при resize"е формы. Что в нем не правильно?
procedure TForm2.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin if (NewWidth/Newheight)>otnoshenie then newwidth:=round(otnoshenie*Newheight) else newheight:=round(Newwidth/otnoshenie); if (Newheight<574)or(NewWidth<735) then begin Newwidth:=735; NewHeight:=574; end; ChangeScale(newwidth,form2.width); end;

Параметр otnoshenie:=form2.width/form2.height;
вычисляется при создании формы и не меняется в дальнейшем.

← →
ZeroDivide © (2003-04-15 16:09) [1]

Форма имеет
МаxHeight и MaxWidth для таких случаев.

← →
ghg © (2003-04-15 16:32) [2]

И при чем тут МаxHeight и MaxWidth?

← →
Diouzshev © (2003-04-15 17:26) [3]

не мучься? используй свойство Tcomponent.Ancors
размеры кнопок, едитов и пр. меняться не будут, но форма расползется красиво

← →
Diouzshev © (2003-04-15 17:26) [4]

не мучься! используй свойство Tcomponent.Ancors
размеры кнопок, едитов и пр. меняться не будут, но форма расползется красиво

так мне надо чтобы и все чтоб на форме тоже расползлось

такое ощущение что глючит ChangeScale

разобрался

надо было вместо ChangeScale, использовать ScaleControls

всем спасибо

Resize формы Найти похожие ветки