Главная страница
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.05 c
14-1132564096
stone
2005-11-21 12:08
2005.12.11
Долой кактусы, даешь пирамиды :))


14-1132381507
Kolan
2005-11-19 09:25
2005.12.11
Поздравьте меня, я сдал на права :)


2-1132914479
psa247
2005-11-25 13:27
2005.12.11
Create Process !


2-1132947934
Kot
2005-11-25 22:45
2005.12.11
Нажтая клавиша в кодировке ANSI


1-1131694544
Deka
2005-11-11 10:35
2005.12.11
Оптимизация под конкретный процессор в Дельфи...