Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ControlBar

Автор: Garmahis 12.4.2005, 13:44

На контрол баре в режиме ран-тайм создаются тулбары и на этих тулбарах кнопочки. В процессе работы размеры тул баров меняются. И получается такая бяка, что один тулбар залезает на соседний. При клике на контрол бар тул бары выстраиваются нормально. Как прогрмно заставить сонтрол бар сортироавть сои панели?

Автор: Girder 12.4.2005, 14:42

Попробуй, после изменений(добавления... удаления... и т.п.), вот ентот код:

Код

...
var i:integer;
begin
 for i:=0 to ControlBar1.ControlCount-1 do
  if (ControlBar1.Controls[i] is TToolBar) then
   With TToolBar(ControlBar1.Controls[i]) do
    begin
     Align:=alNone;
     AutoSize:=true;
     Height:=0;
    end;
 ControlBar1.AutoSize:=true;
end;

Автор: Garmahis 12.4.2005, 15:20

Большое спасибо!!! Всё фурычит!