VPF::Отображение кнопки на Toolbar-е - Форум программистов

santilaas

Дата 3.2.2007, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Проблема такая: есть форма. На форму положил Toolbar (свойство ShowCaptions= False), на нем создал стандартные кнопки (на них отображаю только картинки) + ПЕРЕД ними (т.е. слева) добавил кнопку SpeedButton (Transparent=False, Flat=True) (объясню почему добавил - дело в том, что стандартные кнопки Toolbar-а всегда одинаковы по свойствам, а мне нужно было сделать ещё одну кнопку, на которой был бы текст с картинкой, а не одна картинка). Для простоты - сокращу описание своей проблемы - на самой форме есть 2 кнопки.
1 кнопка:

Код


Form1.SpeedButton.Visible:= True;

2 кнопка:

Код


Form1.SpeedButton.Visible:= False;

Соответственно, кнопка SpeedButton должна либо отображаться, либо нет. НО - проблема в том, что когда я делаю её невидимой, то место, занятое под кнопку, остается (т.е. по сути убирается только её заголовок и картинка), а мне нужно, чтобы кнопка вообще была невидимой и кнопки Toolbar-а начинались от левого края, а когда делаю её видимой, чтобы все возвращалось на свои места.
Пожалуйста, помогите разобраться - наверное я чего-то не так делаю?!

--------------------

[

Sunvas

Дата 3.2.2007, 21:07 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

santilaas, есть простое решение проблемы: при скрытии speedbutton-a переноси его в правый конец toolbar-a и все будет симпатично.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

VICTAR

Дата 3.2.2007, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Можно сдвинуть все кнопки:

Код


procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=1 to pred(ToolBar1.ButtonCount)do
  ToolBar1.Buttons[i].Left:=ToolBar1.Buttons[i-1].Left;
SpeedButton1.Visible:=false;
end;

а потом восстановить все как было:

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
SpeedButton1.Visible:=true;
SpeedButton1.Left:=0;
end;

Sunvas

Дата 3.2.2007, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

VICTAR, ты фактически немного усложнил мой вариант. Но смысл остался тотже.
Просто нужную кнопку перенести в конец:

Код


speedbutton1.Left:=ToolBar1.Buttons[ToolBar1.ButtonCount-1].Left+ToolBar1.Buttons[ToolBar1.ButtonCount-1].Width

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

santilaas

Дата 4.2.2007, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Sunvas, VICTAR , спасибо Вам за помощь - то, что надо. (+1) каждому.

--------------------

[

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »