Главная страница
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.099 c
3-1130435799
BigSerg
2005-10-27 21:56
2005.12.11
Unicode+Ado+Oracle


14-1132635587
Экспериментатор
2005-11-22 07:59
2005.12.11
Чем форматировать исходники, чтобы в божий вид привести


8-1120762481
ronyn
2005-07-07 22:54
2005.12.11
Как к тексту добавить графику?


2-1132933237
DelphiLexx
2005-11-25 18:40
2005.12.11
Наследование форм - выдается ошибка


5-1115894879
Almaz
2005-05-12 14:47
2005.12.11
Свойство типа TShortCut у наследника TCollectionItem