Если убрать картинки с кнопок, то есть не загрузать ImageListCtrl в control Toolbar, то GDI не растет, хотя это логично.

Только что для пробы убрал создание ImageListCtrl через
     Картинка = СоздатьОбъект("Картинка");
     Картинка.Загрузить(IconCollection);
           ОлеКартинка = Система.ПолучитьOLEКартинку(Картинка,НомерКартинки-1);
           );
     
и сделал как раньше загружал по одной картинке:
Scr=СоздатьОбъект("MSScriptControl.ScriptControl");
     scr.Language="vbscript";
     Image=scr.Eval("LoadPicture("""+ПутьККаталогуКартинок+"save.bmp"")");
     ImageListCtrl.ListImages.Add(1, "", Image);
Утечки нет.
Тестовая конфа? Я пробую ЛЮБУЮ обработку с ПоставщикДанных многократно открыть и GDI растет. Просто на той форме из-за которой поднял сыр-бор много табличных полей с командными панелями и поэтому заметил это.
Надо тестовую конфигурацию? Что в ней должно быть?

Тест вечером соберу. Я сейчас попробую посвоему устранить проблему, а то меня на работе сьедят.

zk96 писал(а) 23. Сентября 2010 :: 14:03:

К сожалению - нет. Надо узнавать - если не получится пишите постараюсь попробовать.

zk96 писал(а) 23. Сентября 2010 :: 13:45:

Жутко извиняюсь, но тест не собрал. Надо было срочно "лечить" программу от вылетов. Разбил картинки по одной, в классе ПоставщикДанных КомманднаяПанель изменил загрузку пиктограмм-
не через ОлеКартинка=Система.ПолучитьOLEКартинку, а через ОлеКартинка=Scr.Eval("LoadPicture("""+filename+""")")
и поодной добавляю в ImageListCtrl.
Проблем нет. Делаю вывод:виновата функция ПолучитьOLEКартинку.
P.S.Тест подготовлю сегодня-завтра.
                 

Кто там жаждет проверить исправление утечки?

Вот вам подарок от Димы:
http://trad.citykirov.ru/icpp3226_20100924.rar

У меня ничего не изменилось-вылетает. Тест прилагаю. Всего один документ, его нужно открыть-закрыть раз 10-20) и мы вылетаем.
Версия класса ПоставщикДанных = "3.07.001.5 04.08.2010";