MainWindow.Toolbar

[SirWolf]

Было бы не плохо что бы эту панель можно было скрывать, например из меню Файл.
Сейчас пользуюсь

Код: Выделить всё

MainWindow.Toolbar.hide;
MainWindow.Toolbar.Show;


Для нужных форм. Или например в дизайнере указывать, для таких-то форм скрывать, для таких-то отображать.
PS. Простите если повторяюсь.

[Develop-Soft]

Я б вообще в формы перетащил...

[SirWolf]

Например для ноута удобно ее скрывать она не слабо так места занимает на низких разрешениях.
Я вот сделал надпись с версией проги внизу маленькую и на нее прикрутил

Код: Выделить всё

procedure ToolBArHide(Sender: TObject) ;
  begin
  if  MainWindow.Toolbar.visible = true then
  MainWindow.Toolbar.Hide
  else
  MainWindow.Toolbar.Show;
  end;

procedure Form_Create;
begin
 MainWindow.Toolbar.Hide;
 dxLabel15.OnClick:=@ToolBArHide;
end;

На тот случай когда она понадобится.

[Develop-Soft]

Ну ее можно в принципе сжать, только иконки вручную придется в 16*16 ресайзить...

[Develop-Soft]

Маленький тюнинг:

Код: Выделить всё

procedure ToolBArHide(Sender: TObject) ;
  begin
     MainWindow.Toolbar.visible = ( not MainWindow.Toolbar.visible);
  end;

[SirWolf]

Спасибо за тюнинг
там тлоько := вместо =

[Develop-Soft]

там тлоько := вместо =

Видимо "Т9" сработал на телефоне и съел двоеточие...