Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

Проблема с ToolBar 


solo   (2002-01-24 14:02) [0]

Здравствуйте уважаемые, помогите если сможете. При написании программы в delphi на чистом winapi создаю ToolBar, где 12 элементов, элементы 3,5,10 - сепараторы (отсчет естественно от нуля). Ресурс содержащий битмапы для 9-ти кнопок подключен (виден в редакторе ресурсов). Почему-то не выводятся изображения на кнопки(при первом прогоне было все хорошо, но после изменений в программе, ни как не не затронувших ни файл ресурса, ни приведенную ниже процедуру изображений не видно - глюк ????????). Код:
procedure CreateToolPanel;
//Создание панели инструментов
var
i, j: Integer;
ArrTTBButton: array [0..11] of TTBButton;
begin
j:=0;
for i:=0 to 11 do
begin
if (i=3)or(i=5)or(i=10) then
begin
ArrTTBButton[i].iBitmap:=0;
ArrTTBButton[i].idCommand:=0;
ArrTTBButton[i].fsStyle:=tbstyle_sep;
end
else
begin
ArrTTBButton[i].iBitmap:=j;
ArrTTBButton[i].idCommand:=210+j;
ArrTTBButton[i].fsStyle:=tbstyle_button;
inc(j);
end;
ArrTTBButton[i].fsState:=tbstate_enabled;
ArrTTBButton[i].dwData:=0;
ArrTTBButton[i].iString:=0;
end;
ToolWnd:=CreateToolBarEx(MainWnd, ccs_top or ws_child or TBSTYLE_TOOLTIPS or ws_visible,
id_ToolBar, 9, hInstance, id_bitmap, @ArrTTBButton, 12, 16, 16, 16, 16,
SizeOf(TTBButton));
end;

Вопрос вдогонку: как сделать кнопки на ToolBar плоскими?



Evgeny   (2002-01-25 06:30) [1]

1. Возможно id_bitmap не отражает истины или не указал InitCommonControls.
2. TB_STYLEFLAT



Evgeny   (2002-01-25 06:31) [2]

Ошибочка. не TB_STYLEFLAT, а TBSTYLE_FLAT




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.012 c
1-80521           JibSkeart             2002-03-13 09:44  2002.03.25  
Почему Содержимое RichEdit несохроняется в MyS:Tstrings


1-80497           kronos                2002-03-12 20:19  2002.03.25  
Помогите чайнику!!!


1-80603           Злой                  2002-03-11 13:38  2002.03.25  
как вывести на печать сразу всю таблицу


6-80651           Velocity              2002-01-07 11:03  2002.03.25  
Нууу... вопрос по сокетам <совсем маленький>


1-80456           Gayrus                2002-03-08 04:25  2002.03.25  
Кодировка