Корректное изменение размеров фреймов

[GreenWizard]

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

В программе я динамически создаю фреймы (они, условно, состоят из заголовка и контента) и размещаю их в виде списка, один под другим. При нажатии на "заголовок" фрейма происходит скрытие/показ "контента" и, соответственно, изменение размеров самого фрейма.
У фрема задано Align = Top, а у компонентов внутри тоже хитрые привязки размеров.

Проблема: если фреймы не вмещаются в окне/scrollbox-e, то появляется полоса прокрутки и нарушается размеры заголовка/контента... либо часть всего фрейма скрывается под прокруткой, либо скрывается только заголовок/контент.... при исчезновение прокрутки иногда всё правильно растягивается, а иногда нет.

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

[Аватар]

AutoScroll:=False не помогает?

[GreenWizard]

Сообщение от Аватар

AutoScroll:=False не помогает?

увы, не вариант... нужно, в худшем случае, чтоб скроллбар был виден всегда (как у TMemo), чтоб не менялся размер рабочей области

[Аватар]

Проблема: если фреймы не вмещаются в окне/scrollbox-e, то появляется полоса прокрутки и нарушается размеры заголовка/контента... либо часть всего фрейма скрывается под прокруткой, либо скрывается только заголовок/контент.... при исчезновение прокрутки иногда всё правильно растягивается, а иногда нет.

Рассчитывать размеры фрейма так, чтобы в минимальном состоянии он умещался на предложенном родителе. А уж Align = Top чтобы мог по крайней мере не уменьшить его размеры. По другому ни как. Как себе представляешь попытку засунуть футбольный мяч в бумажник? Или бумажник подходящего размера, или сдутый мяч, хотя все равно не влезет

[GreenWizard]

Сообщение от Аватар

Рассчитывать размеры фрейма так, чтобы в минимальном состоянии он умещался на предложенном родителе. А уж Align = Top чтобы мог по крайней мере не уменьшить его размеры. По другому ни как. Как себе представляешь попытку засунуть футбольный мяч в бумажник? Или бумажник подходящего размера, или сдутый мяч, хотя все равно не влезет

ну, например, просто запускать заново процесс перерасчёта размеров всех фреймов, если размер родителя его изменился)

[Аватар]

Не давать уменьшить размер родителя ниже определенного уровня. Свойство Constraints. А программный пересчет приведет к тому, что текст с лупой нужно будет читать

[GreenWizard]

сам спросил - сам и отвечай.
В общем, такой костыль:

.........................
const
  WM_HACK = WM_USER + 755;

type
  TfrmSelectOrder = class(TForm)
    scrlbx1: TScrollBox;
    procedure scrlbx1CanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
    procedure scrlbx1Resize(Sender: TObject);
  private
    scrlVisible: Boolean;
    procedure OnHack(var msg: TMessage); message WM_HACK;
  end;
.........................................
procedure TfrmSelectOrder.FormCreate(Sender: TObject);
// тут я заполняю scrlbx1 фреймами с Align = alTop
end;
................................
procedure TfrmSelectOrder.OnHack(var msg: TMessage);
var
  i: Integer;
begin
  for i := 0 to scrlbx1.ControlCount - 1 do
    scrlbx1.Controls[i].Width := 5; // принуждаем фреймы пересчитать размеры
end;

// запоминаем была ли видна прокрутка до изменения размеров scrlbx1
procedure TfrmSelectOrder.scrlbx1CanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
  scrlVisible := scrlbx1.VertScrollBar.IsScrollBarVisible;
end;

procedure TfrmSelectOrder.scrlbx1Resize(Sender: TObject);
begin
  // если прокрутка только появилась, то нужно принудительно фреймы обновить
  if scrlbx1.VertScrollBar.IsScrollBarVisible <> scrlVisible then
    PostMessage(Handle, WM_HACK, 0, 0);
end;

Костыль, увы, но как правильно - не понятно.