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

Спасибо.

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

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

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

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

Извините.

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