Форум: "WinAPI";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
ВнизCreateToolbarEx Найти похожие ветки
← →
SPeller (2002-07-24 19:08) [0]Всем доброго времени суток! Не доскажете ли пример создания тулбара через CreateToolbarEx. А то я пытался но не вышло. Вот как делал:
(ради примера хотел сделать с одной кнопкой)
var t:ttbbutton; hbm:longint;
hbm:=LoadImage(0,"C:\Img\Open.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE);
t.iBitmap:=0;
t.idCommand:=2;
t.fsState:=0;
t.fsStyle:=TBSTYLE_BUTTON;
t.bReserved[1]:=0;
t.bReserved[2]:=0;
t.dwData:=5;
t.iString:=0;
htb:=CreateToolbarEx(Form.Handle,WS_CHILD or WS_VISIBLE or TBSTYLE_ALTDRAG,0,1,0,hbm,@t,1,20,20,16,16,sizeof(t));
Чего здесь не хватает?
← →
Eugene Lachinov (2002-07-24 19:37) [1]Если проблема в том, что кнопка не нажималась
t.fsState:=TBSTATE_ENABLED;
← →
SPeller (2002-07-25 05:34) [2]Нет, проблема была в том, что тулбар вообще не создавался, переменная htb после вызова функции обращалась в 0, что говорит что в параметрах что-то не так.
← →
Eugene Lachinov (2002-07-25 08:48) [3]>SPeller
У меня все создалось и показалось, правда, на Windows 2000, в какой момент выполнялся этот код, я пробовал по нажатию кнопки.
← →
SPeller (2002-07-25 13:59) [4]Действительно, на кнопке работает. Я писал на KOL и в обработчике FormCreate оно не хотело создаваться. Тперь другой вопрос: как сделать плоские кнопки?
← →
Eugene Lachinov (2002-07-25 14:19) [5]Наверно, добавить стиль TBSTYLE_FLAT к TBSTYLE_ALTDRAG
← →
SPeller (2002-07-25 14:55) [6]Блин, ну почему в хелпе нет этих констант?
Тут вот ещё гемор: пытаюсь сделать несколько кнопок - не выходит:
procedure TForm1.Button1Click(Sender: TObject);
var t:array[0..4] of ttbbutton;
begin
hbm:=LoadImage(0,"C:\UniTest\Img\Open.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE);
t[0].iBitmap:=0;
t[0].idCommand:=2;
t[0].fsState:=TBSTATE_ENABLED;
t[0].fsStyle:=TBSTYLE_BUTTON;
t[0].bReserved[1]:=0;
t[0].bReserved[2]:=0;
t[0].dwData:=5;
t[0].iString:=0;
t[1].iBitmap:=0;
t[1].idCommand:=3;
t[1].fsState:=TBSTATE_ENABLED;
t[1].fsStyle:=TBSTYLE_BUTTON;
t[1].bReserved[1]:=0;
t[1].bReserved[2]:=0;
t[1].dwData:=6;
t[1].iString:=0;
t[2].iBitmap:=0;
t[2].idCommand:=4;
t[2].fsState:=TBSTATE_ENABLED;
t[2].fsStyle:=TBSTYLE_BUTTON;
t[2].bReserved[1]:=0;
t[2].bReserved[2]:=0;
t[2].dwData:=7;
t[2].iString:=0;
t[3].iBitmap:=0;
t[3].idCommand:=5;
t[3].fsState:=TBSTATE_ENABLED;
t[3].fsStyle:=TBSTYLE_SEP;
t[3].bReserved[1]:=0;
t[3].bReserved[2]:=0;
t[3].dwData:=8;
t[3].iString:=0;
t[4].iBitmap:=0;
t[4].idCommand:=6;
t[4].fsState:=TBSTATE_ENABLED;
t[4].fsStyle:=TBSTYLE_BUTTON;
t[4].bReserved[1]:=0;
t[4].bReserved[2]:=0;
t[4].dwData:=9;
t[4].iString:=0;
htb:=CreateToolbarEx(Form1.Handle,TBSTYLE_FLAT or WS_VISIBLE or WS_CHILD,0,1,0,hbm,@t[0],5,17,17,16,16,sizeof(t));
button1.Enabled:=false;
end;
Вылазит ексепшин. Где грабли? Помогите пожалуйста!
← →
Eugene Lachinov (2002-07-25 15:32) [7]htb:=CreateToolbarEx(Form1.Handle,TBSTYLE_FLAT or WS_VISIBLE or WS_CHILD,0,1,0,hbm,@t[0],5,17,17,16,16,sizeof(ttbbutton));
← →
SPeller (2002-07-25 15:38) [8]Спасибо. Скоро ещё приду :-)))
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c