FiveTech Software tech support forums

... oCli := ::GetCliRect() hPen = CreatePen( PS_SOLID, 1, nRGB( 255, 0, 0 ) ) WndBoxClr( ::GetDC(), 1, 1, oCli:nBottom - 2, oCli:nRight - 2, hPen ) DeleteObject( hPen )

... in .\source\function\CHECKRES.PRG Called from ASCAN(0) Called from FWDELRESOURCE(36) in .\source\function\CHECKRES.PRG Called from DELETEOBJECT(0) Called from GRADIENTBRUSH(815) in .\source\classes\BRUSH.PRG Called from TFOLDEREX:SETFLDCOLORS(1695) in .\source\classes\TFOLDEX.PRG ...

... otro oBrw variable nColuAct debe venir en cero) hBrush = CreateSolidBrush( CLR_BRWHS ) FillRect( hDC, { nTop, nLeft, nBottom, nRight }, hBrush ) DeleteObject( hBrush ) SetBkColor( hDC, CLR_BRWHS ) if aJustify != nil .and. aJustify[ n ] SetTextAlign( hDC, TA_RIGHT ) ExtTextOut( hDC, nTop, nRight ...

... (b)FWDELRESOURCE( 36 ) Called from: => ASCAN( 0 ) Called from: .\source\function\CHECKRES.PRG => FWDELRESOURCE( 36 ) Called from: => DELETEOBJECT( 0 ) Called from: .\source\classes\BITMAP.PRG => PALBMPFREE( 1180 ) Called from: .\source\classes\BITMAP.PRG => TBITMAP:DESTROY( ...

... hpen:=CreatePen(0,8,nColor) FillRect( ::hDC, { aPoints [1][1],aPoints [1][2],aPoints [2][1],aPoints [2][2] }, hBru ) SelectObject( ::hDC, hOld ) DeleteObject( hBru ) Not Happen nothing

... IF lImage * se for jpg xBmp := timage():define( , ximage ,::oPrinter ) ::oPrinter:SayImage( xCor[1],xCor[2], xbmp , yCor[1] ,yCor[2],nRaster ) DeleteObject( xBmp ) ELSE * se for BMP ::oPrinter:SayBitmap(xCor[1],xCor[2],xImage, yCor[1],yCor[2],nRaster ) ENDIF RETURN NIL Saludos Fernando Espinoza

DeleteObject
not
Delete Object

... 13Mb es algo muy insignificante para 1000 diálogos abiertos y cerrados, pero me gustaría saber si hay alguna forma de limpiar esto. He probado con deleteobject() antes de cerrar el diálogo, con :Destroy() de los controles activeX y con hb_gcAll() siempre después de cada diálogo y el resultado es ...

... hDCMem, nRow, nCol, hBmp ) Finally you save it and clean: DibWrite( cFileName, DibFromBitmap( hBitmap ) ) SelectObject( hDCMem, hPrev ) DeleteObject( hBitmap ) DeleteDC( hDCMem ) oDlg:ReleaseDC()

... ) // the basic gradient bmp LOCAL hOldBmp := SelectObject( hDC, hBmp ) LOCAL nRGBColor := GetPixel( hDC, nCol, nRow ) SelectObject( hDC, hOldBmp ) DeleteObject( hBmp ) DeleteDC( hDC ) oBmp:ReleaseDC() RETURN nRGBColor best regards Uwe :?:

... HIDDEN DATA cCode DATA nFlags DATA hCodeBar DATA hData DATA nType, nWidth, nHeight, nWidthCode, nHeightCode METHOD New() METHOD End() INLINE DeleteObject( ::hCodeBar ), If( ::hData != NIL, hb_zebra_destroy( ::hData ), ) METHOD DefError( nError ) METHOD SetCode( cCode ) METHOD SetFlags( nFlags ...

local hBmp
local hDib := DibFromBitmap( hBmp := ResizeBitmap( hBitmap, nWidth, nHeight ) )

DibWrite( cFileName, hDib )
GloBalFree( hDib )
DeleteObject( hBmp )

... corregido, pero el problema estaba en el método: METHOD Adjust() CLASE TXBrowse ... //aqui*********************************** if ::hRowPen != nil DeleteObject( ::hRowPen ) ::hRowPen := nil endif ******************************************** do case case nStyle == LINESTYLE_BLACK .or. nStyle == ...

Buen dia. Obtengo este reporte con CheckRes(), pregunto me afecta el sistema, si es así como lo soluciono 03/09/2020 09:32:46: DeleteObject( ::hBrush ) failed from TBrush:End() 437262946 03/09/2020 09:32:46: DeleteObject( ::hFont ) failed from TFont:End() -2029381914 0 .T. 03/09/2020 ...

Thank You very much
tested and works

for saving symbols colored I added :

hBmp := FW_TextToBitmap( HB_UTF8CHR( 0xE105 ), { "Segoe MDL2 Assets", -40 }, 255,,,.T. ) // = red
FW_SaveImage( hBmp, "SYMBOL.BMP" )
DeleteObject( hBmp )

all infos I need are complete

regards
Uwe