Скачать: CL | DM;

Изменение размеров панелей как в Total Commander   Найти похожие ветки 

← →
Stive   (2005-11-22 23:37) [0]

Здравствуйте форумчане.
Вот уже несколько часов бьюсь над тем, чтобы сделать такую вещь.
При изменении размеров окна Total Commander"a обе панельки с файлами уменьшаются пропорционально. Как можно добиться того же эффекта в свой программе. Уже перепробовал все комбинации Align и Anchors... пока нужной не нашёл.

Как добиться нужного результата? Может кто сталкивался...

Спасибо!

---

← →
Игорь Шевченко ©   (2005-11-23 00:23) [1]

> При изменении размеров окна


Возникает событие OnResize, в котором размеры окна уже новые. Пересчитать размеры дочерних контролов труда ведь не составит, верно ?

---

← →
Stive   (2005-11-23 00:27) [2]

> Игорь Шевченко ©   (23.11.05 00:23) [1]

Так и поступлю. Просто бумал, может существует "автоматизированный" способ :-)

---

← →
Stive   (2005-11-23 01:13) [3]

Всё заработало по совету [1].

 private
   { Private declarations }
   FSpliterPercent: byte;
...
procedure TfmFTP.FormShow(Sender: TObject);
begin
 FSpliterPercent := round(100 / Width * Splitter.Left);
 Splitter.Hint := inttostr(FSpliterPercent) + "%";
end;
...
procedure TfmFTP.SplitterMoved(Sender: TObject);
begin
 FSpliterPercent := round(100 / Width * Splitter.Left);
 Splitter.Hint := inttostr(FSpliterPercent) + "%";
end;
...
procedure TfmFTP.FormResize(Sender: TObject);
begin
 pnRemote.Width := round(Width / 100 * FSpliterPercent);
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c