🚀 go-pugleaf

Dariusz Piech napisał:

> Otóż napisałem kontrolkę, której zadaniem jest zrzut ekranu formy, na
> której jest umieszczona (co 1 min.). Przy okazji muszę uzyskać efekt
> przezroczystości poprzez łączenie zrzuconego obrazu z czarno-białą
> maską i tłem. Kontrolka ma publiczną procedurę ZrzutOkna wywoływaną z
> formularza przez Timer.
> Jednak po uruchomieniu program stopniowo pożera pamięć. Może ktoś
> podpowie co robię źle?
>  
> Kod wygląda następująco:
>  
> obrazHwnd = GetParent(UserControl.hwnd)
> obrazDC = GetDC(obrazHwnd)

  To chyba można IIRC zastąpić czymś w rodzaju

  obrazDC = UserControl.Parent.hdc

> maskaDC = CreateCompatibleDC(obrazDC)
> kolorDC = CreateCompatibleDC(obrazDC)
>  
> Set maska = LoadResPicture(101, vbResBitmap)
> Set kolor = LoadResPicture(102, vbResBitmap)
>  
> SelectObject maskaDC, maska
> SelectObject kolorDC, kolor

  Powinieneś zachowywać uchwyt do bitmapy wycowywanej z DC, aby móc ją
	wprowadzić przed wywałaniem na DC funkcji DeleteObject. Kod powinien
	wyglądać mniej więcej tak:
	
	hOldBMP = SelectObject (maskaDC, maska)
  '...
	SelectObject maskaDC, hOldBMP
	DeleteDC maskaDC

  Trochę szerzej pisałem o tym poniższej wiadomości
  http://groups.google.com/group/pl.comp.lang.vbasic/msg/df8c58fcbcfb8f88

  Więcej informacji znajdziesz w MSDN'ie i poniższym tutorialu 
	http://edais.mvps.org/Tutorials/GDI/DC/index.html.


  Wydaje mi się jednak, że za wycieki pamięci są w zdecydowaniej
	większości odpowiedzialne inne procedury niż UserControl_Initialize,
	ale bez spojrzenia na caly kod nic Ci więcej nie pomogę. Jak chcesz
	to możesz go podesłać na priva.

  W znalezieniu błędów bardzo pomocny będzie program GDIObj ze strony
	http://www.fengyuan.com/download.html.


Pozdrawiam,
-- 
Hubert Arkadiusz Dołęga

Zanim napiszesz na priva zdejmij majtki-.