Форма

← →
killer © (2004-05-16 13:44) [0]

Подскажите пожалуйста... создал форму на своем компъютере..... она во весь экран... а потом на другом компе, с меньшим разрешением, запустил программу, то появились полосы прокрутки... а как сделать чтобы форма и объекты все на ней подгонялись под разрешение?

← →
Mim1 © (2004-05-16 13:52) [1]

в oncreate
ChangeScale(Screen.Width,{ваш режим - ширина},Screen.Height,{ваш режим - высота});

← →
Anatoly Podgoretsky © (2004-05-16 14:27) [2]

Ну так подстраиваяя позиции и размеры в ран тайм.

← →
killer © (2004-05-16 14:31) [3]

пишу так, вылитает ошибка....
ChangeScale(Screen.Width, 1280, Screen.Height, 1024);

а так, окно почему-то больше становится...
ChangeScale(Screen.Width, Screen.Height);

← →
Mim1 © (2004-05-16 14:36) [4]

Звиняюсь
procedure ChangeScale(MV, DV, MH, DH: Integer); override; // это для qt (clx)
а если вы используйте vcl
procedure ChangeScale(M, D: Integer); override;
то есть ChangeScale(Screen.Width, 1280);

← →
killer © (2004-05-16 14:46) [5]

у меня на форме еще фотка лежит........ а как сделать чтобы размеры самой фотографии подогнались?

← →
Mim1 © (2004-05-16 14:50) [6]

TImage, Stretch

← →
killer © (2004-05-16 14:58) [7]

а вот еще....... с высотой тоже самое? Т.е.
ChangeScale(Screen.Height, 1024);

← →
killer © (2004-05-16 15:46) [8]

или не надо ChangeScale(Screen.Height, 1024); ???

← →
Mim1 © (2004-05-16 15:47) [9]

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

а....... вот еще... у меня Label идет после Image.... а почему при малом разрешении он оказывается на фотке? А еще надписи на кнопках которые не влазиют... :(((

что мне делать то?

Попробуй использовать свойства Anchors для привязки компонентов.

А лучше оптимизируй форму под размеры не более 800x600

Форма Найти похожие ветки