Посмотрите пожалуйста, что крамольного в коде?

← →
Jel © (2004-05-26 18:09) [0]

IconArray : array of HIcon; ... function TForm1.GetIconWidth(index: integer): integer; var IcInfo : TIconInfo; BmpInfo : BITMAP; begin Result := 0; if GetIconInfo(IconArray[index], IcInfo) then begin if GetObject(IcInfo.hbmColor, SizeOf(BmpInfo), @BmpInfo) <> 0 then Result := BmpInfo.bmWidth else ShowMessage(SysErrorMessage(GetLastError)); end; end;

Радость сия вызывается из процедуры отрисовки витруального листбокса для определения размера иконки. При каждом вызове количество объектов GDI (по данным диспетчера задач) увеличивеатся на 14 и через определенное время программа благополучно начинает глючить (возникают проблемы с отрисовкой). К этому моменту количество объектов GDI переваливает за несколько тысяч. Создается впечатление, что что-то выделяется, но не освобождается. Никак не могу сообразить что именно? Ткните носом, плиз.

← →
VMcL © (2004-05-26 18:28) [1]

>>Jel © (26.05.04 18:09)

GetIconInfo creates bitmaps for the hbmMask and hbmColor members of ICONINFO. The calling application must manage these bitmaps and delete them when they are no longer necessary.

?

Посмотрите пожалуйста, что крамольного в коде? Найти похожие ветки