Перерасчет координат объектов

[Stilet]

они растягиваются на больше чем нужно

Я обычно выставляю align и autosize для компонентов, и выравниваю их панелями на форме.

[Алексей_2012]

Я обычно выставляю align и autosize для компонентов, и выравниваю их панелями на форме.

align у меня alCustom
autosize=false;

а как выравнять панелями?

[Stilet]

как выравнять панелями?

Даже не знаю как на словах описать...
Кидаешь панель, задаешь ей выравнивание alTop. На нее две кнопки - одна alLeft вторая alClient. Таким образом при развороте формы кнопки сами будут разворачиваться. Понятное дело что все проблемы на этом не решаются, но я привык так делать. Некоторые свойства некоторых контролов конечно приходится описывать в OnResize, но при таком раскладе не всех.
Это как бы "говнокод верстки таблицами", но меня устраивает.

[xrob]

А если разрешение экрана другое и/или размер шрифта

Не заметил у автора ничего, связанного со шрифтами, но это не суть.
Даже если бы от них чего и зависело, что мешает воспользоваться Canvas.TextHeight / TextWidth ?
или это неправильно? если это неправильно, зачем тогда нужны эти функции?
компонент написан для неправильных целей?

я в своих проектах все выравниваю ручками в OnResize,
по-моему это не так уж и сложно...

[Yurk@]

я в своих проектах все выравниваю ручками в OnResize,
по-моему это не так уж и сложно...

ну если у тебя на форме десяток компонентов - не сложно.
а когда их много десятков - каждый ровнять - к чем такие пляски если есть Anchors

[Алексей_2012]

верно, но анкорс не всегда помогает так, как хотелось бы

[Stilet]

анкорс не всегда помогает так, как хотелось бы

Верно. Поэтому

я в своих проектах все выравниваю ручками в OnResize

Рекурсия, господа

[Алексей_2012]

В общем анкорс для картинки три никак не сработал, картинка уходит за ричедит, в общем пришлось написать в ручную все

procedure TForm1.EffectButton1Click(Sender: TObject);
var io:shortint;
begin
 if Form1.WindowState<>wsMaximized then
  begin
  Form1.WindowState:=wsMaximized;
   for io := 0 to ComponentCount - 1 do
   begin
    if (Components[io] is Timage) then
    begin
     if Components[io]=image10 then continue;
    (Components[io] as Timage).height:=350;
    (Components[io] as Timage).width:=350;
    end;
    if (Components[io] is Tbutton) then  (Components[io] as Tbutton).Top:=image3.top+image3.height+50;
   end;
  effectbutton1.Hint:='Ñâåðíóòü';
  end
 else
  begin
   Form1.WindowState:=wsnormal;
   effectbutton1.Hint:='Ðàçâåðíóòü';
   for io := 0 to ComponentCount - 1 do
   begin
    if (Components[io] is Timage) then
    begin
     if Components[io]=image10 then continue;
    (Components[io] as Timage).height:=250;
    (Components[io] as Timage).width:=250;
    end;
      if (Components[io] is Tbutton) then  (Components[io] as Tbutton).Top:=image3.top+image3.height+50;
   end;
  end;
 effectbutton2.left:=statictext2.width-53;
 effectbutton1.left:=effectbutton2.left-60;
   image3.left:=richedit1.left-image3.Width-35;
 end;

как можно упростить?