[Alegun]

Сообщение от nixon232

Да я не думаю, что у меня сложный случай, но что-то не могу понять...

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

Максимум, что здесь подходит, так это расчитать расположение всех составляющих под два варианта мелкого и крупного шрифта в Create формы

Код:

procedure TForm1.FormCreate(Sender: TObject);
 function SmallFonts : BOOLEAN;
 var
  DC : HDC;
 begin
  DC := GetDC(0);
  Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);
  ReleaseDC(0, DC);
 end;
begin
 if SmallFonts then
  begin
// под мелкий шрифт
Panel1.Width:= 25; 
...
  end else
   begin
// под другой
Panel1.Width:= 27; 
...
   end;
end;

и вообще запретить изменять размеры формы посредством WMGetMinMaxInfo. Свобода и удобство - это хорошо, но практичность и простота при разработке лучше. Овчинка выделки не стоит: пол кода, а может и больше, будет в одних расчётах положения...