Скачать: CL | DM;

TOOLBAR   Найти похожие ветки 

← →
Comp ©   (2004-10-02 11:37) [0]

Здравствуйте, уважаемые мастера. Ребята, привожу небольшой кусочек кода - создание 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 это не изобретение велосипеда, а его сборка, только более нудная и из мелких, но более прочных деталей...

---

← →
easy ©   (2004-10-02 11:46) [1]

Sizeof(TTBButton)

---

← →
Comp ©   (2004-10-02 14:23) [2]

easy

Спасибо.

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

---

← →
Comp ©   (2004-10-02 14:30) [3]

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

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

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

Извините.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c