Масштабирование и перемещение компонентов

[Dennis777]

Писал программу под 1366 на 768. На форме много кнопок и лейблов с имейджами. Теперь нужно все это добро приспособить к работе с разными расширениями, да так, чтобы все компоненты помимо размеров правильно меняли свое расположение. Жутко запарился с этой фигней.

Если кто-то подскажет приемлемое рабочее решение - обещаю перевести ему 10 баксов на вебмани ну или пополнить мобильный/интернет.

Помогите, пожалуйста!

[Yurk@]

как вариант: определяй разрешение монитора и изменяй размены по определенному коэфициенту на основе разрешения монитора

[Человек_Борща]

Запрос в гугл "Delphi *component*+*resize*" без ковычек даст вам все ответы.
Поиск это все.

[Dennis777]

пробывал кучу ресайзеров. Ну по крайней мере 2 точно. Оба неправильно располагали компоненты после масштабирования. Не выдерживали пропорции

[Dennis777]

Сообщение от Yurk@

как вариант: определяй разрешение монитора и изменяй размены по определенному коэфициенту на основе разрешения монитора

размеры то изменяются, а вот как с расположением элементов быть? не то место занимают(

[Volkogriz]

Доброе время суток!

как вариант: определяй разрешение монитора и изменяй размены по определенному коэфициенту на основе разрешения монитора

if Разрешение = then
Begin
Лево=
ВЕРХ=
end
else
if Разрешение = then
Begin
И Т.Д И Т.П
Нудно но
Мне очень помогло в своё время!
С уважением,
Volkogriz!

[superedward]

+1 Volkogriz, иногда простое решение - самое верное

[phomm]

Вообще более адекватное решение - это панели, алайны (Align) , анкоры (Anchors) , и обработчик ресайза для специфических случаев, во всех этих случаях пользоваться Client- размерами. Также может быть не при ресайзе - например свертка развертка некой панельки.
Пример

procedure TmainForm.FormResize(Sender: TObject);
var
  wd, hg: Byte;
begin
  gblog.Width := grid.ClientWidth div 2;
  gbchat.Width := grid.ClientWidth div 2;
  gbchat.left := grid.left + grid.Width div 2 + 3;
end;

procedure TMainForm.GBlogClick(Sender: TObject);
begin
  if gblogfolded then
  begin
    GBchat.Align := alRight;
    GBlog.Align := alCustom;
    GBlog.Parent := Self;
    GBlog.Left := Panel1.Left;
    gblog.height := Self.ClientHeight div 3;
  end
  else
  begin
    GBchat.Align := alClient;
    GBlog.Parent := Panel2;
    GBlog.Align := alLeft;
    GBlog.Left := 0;
    gblog.height := Panel3.Height;
  end;
  gblog.Top := ClientHeight - gblog.height;
  gblogfolded := not gblogfolded;
end;

Автор, Вы бы хоть привели скрин чтоли, код уж нет смысла просить, но по нему то уж точно можно было бы сказать реально ли поднять такую функциональность без существенных переделок. А то коли программа не проектировалась даже под такое - то там может быть вообще неподъёмно, при определенных условиях (типа завязка кода на размещение компонентов - тогда работа вообще отвалится при подобных переделках)

[Dennis777]

http://clip2net.com/page/m166009/42673073
Вот ссылка на скрин. Размеры к координатам не привязанны. Разьве что зеленый человечек ходит по точкам, на которых расположены скрытые радиобаттоны.
Прописовать ручками расположение каждой кнопочки достаточно геморно, учитывая то, что это только главная форма... А помимо нее есть еще дофига дочерних форм, на которых расположены кучи имейджов, лейблов и тд и тп

[Аватар]

Есть два варианта
1. По рекомендациям в #8
2. Если геморно прописовать ручками каждую кнопочку, то оставить все как есть

Изменение размеров шрифта также может повлиять на дизайн формы