Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите, плиз...

UserL © (2002-01-29 08:27:00)
Кинул на форму ToolBar и наделал кнопачек га нем. Нада чтоб одна кнопка, при изменении размеров формы была всегда с правой стороны формы. Как ето седлать?
Я пробовал кинуть панель на ToolBar и менять
Panel.Width:=ClientWidth-(Количество кнопок*Width кнопок).
Но при восстановлении формы из развернутого состояния в окно, кнопка, которая находится справа, исчезает. ;о((
Помогите, мастера.......

Shirson (2002-01-31 09:32:00) [1]
Ставишь панель
Ровняешь ее как Top
В нее вставляешь тулбар со своей кнопкой, ровняешь его правому краю, делаешь кнопку, уменьшаешь размеры тулбара или ставишь ему автосайз.
Засовываешь в панель еще один тулбар, ровняешь его по клиенту и закидываешь всеми остальными кнопками.
Все :)

UserL (2002-01-31 08:31:00) [2]
> MBo ©
Спасибо... Нада было у этих кнопок свойство Layout поставить
в blGlyphTop.

MBo (2002-01-31 07:34:00) [3]
BitBtn, SpeedButton

UserL (2002-01-31 07:20:00) [4]
> Miwa ©
Позицирование слева или с права на TToolBar`е не работает почемуто... Все кнопки становятся рядом друг с другом, выравниваясь по левому краю...

Мож кто подскажет компонент (Кнопку) чтобы был рисунок с верху а подпись снизу на кнопке?

Miwa (2002-01-29 12:20:00) [5]
А как вам такой вариант?
procedure TForm1.FormResize(Sender: TObject); begin button1.Left:=Width - 10 - button1.Width; end;
"10" - это просто чтобы кнопка была немножко смещена от края формы.

Gennady (2002-01-29 12:11:00) [6]
DrawEdge - для бордера кнопки
DrawText - для текста кнопки

но следует учесть, что при изменении размера окна нужно снова прорисовывать тулбар. при наведении мышкой(если Flat) и при клике нужно тоже делать соответствующую прорисовку, дабы "кнопка" ничем не отличалась от настоящей.

Johnny (2002-01-29 11:58:00) [7]
Тот же самый глюк, хотя я их вообще не трогаю. Тоже после изменения окна начинают двигаться как захотят. Все это на MDI форме, на обычной не пробовал.

UserL (2002-01-29 10:37:00) [8]
А как нарисовать?

UserL (2002-01-29 10:36:00) [9]
Если ставиш сепаратор, то совсем лажа получается...
После первого восстановления окна из развернутого окна, все кнопки сбиваются в одну кучу, а сепаратор получается слева...

Gennady (2002-01-29 09:59:00) [10]
а может проще самому там ту кнопку нарисовать?

MBo (2002-01-29 08:54:00) [11]
ага,сначала ня не уловил.
вставь перед нужной кнопкой сепаратор и что-нибудь типа
procedure TForm1.FormResize(Sender: TObject);
begin
toolbutton4.Width:=width div 2;//toolbutton4-сепаратор
end;

UserL (2002-01-29 08:48:00) [12]
У панели ето включено, а у кнопки (TToolButton)такого свойства нету. Но всеравно не работает...

MBo (2002-01-29 08:43:00) [13]
включи в ее anchors вместо akLeft akRight
(если Delphi не старые)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »