Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Проблема с ToolBar

530
24 января 2002 года
solo
21 / / 20.09.2000
Здравствуйте уважаемые, помогите если сможете. При написании программы в 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.iBitmap=0;
ArrTTBButton.idCommand=0;
ArrTTBButton.fsStyle=tbstyle_sep;
end
else
begin
ArrTTBButton.iBitmap=j;
ArrTTBButton.idCommand=210+j;
ArrTTBButton.fsStyle=tbstyle_button;
inc(j);
end;
ArrTTBButton.fsState=tbstate_enabled;
ArrTTBButton.dwData=0;
ArrTTBButton.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 плоскими?
624
28 января 2002 года
HollyBlood
44 / / 20.06.2000
У меня был похожий глюк,
попробуй скомпилировать с пустым файлом ресурсов, а потом заново добавить в ресурсы картинки и опять откомпилять...
После проделывания сей процедуры, у меня глюк был исчерпан...
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог