VPF::создание TToolButton в runtime - Форум программистов

chikistbuch

Дата 4.10.2013, 21:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем привет. Создаю в runtime ToolBar, а на нем ToolButton:

Код


var
  P: TPanel;
  Parent: TWinControl;
  ToolBar: TToolBar;
  ToolButton: TToolButton;
begin
  Parent:=form1.Panel2;

  P:=TPanel.Create(Parent);
  P.Name:='DBGridPanel';
  P.Height:=200;
  p.Top:=2;
  P.Align:=alTop;
  P.Caption:='';
  P.Parent:=Parent;
  
  ToolBar:=TToolBar.Create(P); //создаем панель инсрументов
  ToolBar.Name:='DBToolBar';
  ToolBar.Align:=alTop;
  ToolBar.Height:=48;
  ToolBar.Parent:=P;

  ToolButton:=TToolButton.Create(ToolBar); //создаем кнопки панели инструментов
  ToolButton.Name:='DBToolBarButton';
  ToolButton.Height:=45;
  ToolButton.Width:=45;
  ToolButton.Parent:=ToolBar;
end;

Вот только этот ToolButton получается не 45х45, а 23х22:
user posted image

Вопрос: почему размер ToolButton не 45х45?

Спасибо за помощь!

Чучмек

Дата 4.10.2013, 22:40 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Код


  ToolBar.ButtonHeight:=45;
  ToolBar.ButtonWidth:=45;

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

умную мысль держи при себе, а дурной - поделись с другими

chikistbuch

Дата 5.10.2013, 12:44 (ссылка)

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

Загрузка ...

Шустрый

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

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

)))) Спасибо, Чучмек!

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