Hi someone know about Paco Canal Five
Greetings Fasi
**************************************************************************
METHOD New( nWidth, nHeight, nColor, nColor2, lVGrad ) CLASS TBrushEx
**************************************************************************
::hBitmap := CreaBitmapEx(nWidth, nHeight, nColor, nColor2, lVGrad )
::hBrush = If( ::hBitmap != 0,;
CreatePatternBrush( ::hBitmap ), )
::lSystem := .f. //corrección adicionada por wmormar 01/07/2010
::nCount := 1
AAdd( ::aBrushes, Self )
return Self
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 90 guests