Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.11;
Скачать: 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 вся ветка

Текущий архив: 2005.12.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
4-1129090176
Smertb
2005-10-12 08:09
2005.12.11
hook


2-1132925432
Alexey V.
2005-11-25 16:30
2005.12.11
Чтение текстового файла


2-1132571683
Андрей111
2005-11-21 14:14
2005.12.11
Перехват изменения состояния окна!


4-1128284071
XeON
2005-10-03 00:14
2005.12.11
CD эмулятор


14-1132392037
Separator
2005-11-19 12:20
2005.12.11
XML