Текущий архив: 2004.11.07;
Скачать: 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 вся ветка
Текущий архив: 2004.11.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.047 c
