| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TOOLBAR

Comp ©   (2004-10-02 11:37:00) 

Здравствуйте, уважаемые мастера. Ребята, привожу небольшой кусочек кода - создание TOOLBAR. Все вроде правильно, но только почему-то кнопочки не все создаются. Точнее может и создаются - место выделяется, но отображается только одна.
В чем тут дело?

var
...

tbButtons:  array[0..1] of TTBButton;
tbBitmap:   TTBADDBITMAP;

procedure ToolbarCreate;

begin

with tbButtons[0] do
  begin
      iBitmap := 0;
      idCommand := 0;
      fsStyle :=TBSTYLE_BUTTON ;
      fsState := TBSTATE_ENABLED;
      dwData := 0;
      iString := 0;
  end;

 with tbButtons[1] do
  begin
      iBitmap := 0;
      idCommand := 0;
      fsStyle :=TBSTYLE_BUTTON;
      fsState := TBSTATE_ENABLED;
      dwData := 0;
      iString := 0;
  end;

     Toolbar1 :=CreateToolbarEx(Handle,WS_CHILD  or WS_VISIBLE,
     1,0,Hinstance,0,@tbButtons,2,24,22,0,0, Sizeof(tbButtons));

{А это пока не включаю, да и не надо.}
// SendMessage(ToolBar1, TB_ADDBUTTONS,1,LongInt(@tbButtons));

end;

begin

   ...  

    Toolbarcreate; // Не хотят кнопочки все создаваться - тока одна

    while(GetMessage(Msg,Handle,0,0))do
    begin
         TranslateMessage(Msg);
         DispatchMessage(Msg);
    end;
end.

Примечание.

1. Пожалуйста, отвечайте те, кто знает.
2. Пожалуйста, очень прошу, не кидайте тупых реплик типа "Не изобретай велосипед..." или "На VCL это все проще..."
3. Буду признателен за ответы, попавшие прямо в цель.

P.S. Кстати, насчет велосипеда - Программирование на API это не изобретение велосипеда, а его сборка, только более нудная и из мелких, но более прочных деталей...

---

Comp   (2004-10-02 14:30:00) [1]

Все-же есть в форуме знающие ребята.
Но только не всегда попадешь.

Иногда такая шваль собирается которая ещё и умничает и реплики тупые высказывает... Не буду называть имена.

И модератор тоже, пусть сначала разберется кто гадит, а потом принимает меры.

Извините.

---

Comp   (2004-10-02 14:23:00) [2]

easy

Спасибо.

Я по примерам С++ делал и что-то не обратил внимание...

---

easy   (2004-10-02 11:46:00) [3]

Sizeof( TTBButton)

---

Наверх