Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Картинки для тулбара (число прочтений - 3446 )
chessman
God Member
*****
Отсутствует



Сообщений: 1084
Зарегистрирован: 10. Августа 2007
Картинки для тулбара
23. Июня 2009 :: 11:14
Печать  
Для менюшек использую стандартные картинки из 1crcrus.dll.
Поэтому таскаю их в разные обработки, используя конструкцию

Код
Выбрать все
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Картинки");
	Таб.ВывестиСекцию("НаборИконок");
.
.
.
	Pics[1] = Система.ПолучитьOLEКартинку(Картинка, 0);
.
.
.
 



Предлагаю другой вариант: дергаем битмапы напрямую из dll

Код
Выбрать все
	hInstance  = Wrap.LoadLibrary("1crcrus.dll");
	hImageList = Wrap.ImageList_LoadImage(hInstance, "#147", 16, 20, 1, 0, 4 * 16);

	// Одна картинка по любому нужна :(
	Путь = "c:\temp\02\Icon_1.ico";
	Pic    = ScrptCtrl.Eval("LoadPicture(""" + Путь + """)");

	oКартинки = СоздатьОбъект("MSComctlLib.ImageListCtrl");

	For j = 1 To Wrap.ImageList_GetImageCount(hImageList) Do
		oКартинки.ListImages.Add(j, "", Pics[1]);
		hIcon = Wrap.ImageList_GetIcon(hImageList, j, 0);
		Wrap.ImageList_ReplaceIcon(oКартинки.hImageList, j - 1, hIcon);
	EndDo;

 



В этой конструкции приходится использовать кукую-нить иконку для шаблона, иначе не удается (у меня не получилось) переписать картинки из одного ImageList в другой.
« Последняя редакция: 23. Июня 2009 :: 19:40 - chessman »  
Наверх
 
IP записан
 
Eprst
God Member
*****
Отсутствует



Сообщений: 3397
Зарегистрирован: 08. Октября 2007
Re: Картинки для тулбара
Ответ #1 - 23. Июня 2009 :: 12:17
Печать  
По мне, так проще на форму их кинуть, чем в мокселе хранить...
  
Наверх
 
IP записан
 
chessman
God Member
*****
Отсутствует



Сообщений: 1084
Зарегистрирован: 10. Августа 2007
Re: Картинки для тулбара
Ответ #2 - 23. Июня 2009 :: 12:32
Печать  
Так каждый раз кидать будешь?
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать