создание TToolButton в runtime

 
0
 
Delphi, Kylix & Pascal
ava
chikistbuch | 04.10.2013, 22:06
Всем привет. Создаю в 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?

Спасибо за помощь!
Comments (2)
ava
Чучмек | 04.10.2013, 22:40 #

  ToolBar.ButtonHeight:=45;
  ToolBar.ButtonWidth:=45;
ava
chikistbuch | 05.10.2013, 12:44 #
)))) Спасибо, Чучмек!
Please register or login to write.
Firm of day
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Contributors
advanced
Submit