FiveTech Software tech support forums

... SobreporImagem( oDlg ) Local oImagem, oBrush Local cImagem := "..\bitmaps\pngs\2.png" DEFINE IMAGE oImagem FILENAME cImagem oBrush := TBrush():new( ,,,, ResizeBmp( oImagem:hBitmap, 600, 600, .T. ) ) oImagem:End() oDlg:SetBrush( oBrush ) oBrush:End() Return NIL *----------------------------------------------------------------------------------*

... DBFCDX DBFNTX DataBases in use ================ Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TWINDOW 6 TDIALOG 7 TBRUSH 8 TFONT 9 TREG32 10 TRECT 11 TINTERNET 12 TSTRUCT Memory Analysis =============== 717 Static variables Dynamic memory consume: Actual Value: ...

... use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO 6 TOLEAUTO 7 TWINDOW 8 TDIALOG 9 TBRUSH 10 TCONTROL 11 TICON 12 TMULTIGET 13 TBUTTON 14 TRECT 15 TSAY 16 TGET 17 GET 18 TCLIPGET 19 TREG32 20 TCURSOR 21 TBITMAP 22 TMDIFRAME 23 TMENU ...

... use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO 6 TOLEAUTO 7 TWINDOW 8 TDIALOG 9 TBRUSH 10 TCONTROL 11 TICON 12 TMULTIGET 13 TBUTTON 14 TRECT 15 TSAY 16 TGET 17 GET 18 TCLIPGET 19 TREG32 20 TCURSOR 21 TBITMAP 22 TMDIFRAME 23 TMENU ...

... the brush. 6. nClrBack: By default, the painting is transparent. - RGB color. Used as back color for text - ARGB color. Used to fill the aRect - TBrush object: used to fill the aRect 7. lBorder: Default .F. If .t., single line border is drawn

... in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TWINDOW 5 TCONTROL 6 TGET 7 TAPLICACION 8 TINI 9 WIN_OLEAUTO 10 TOLEAUTO 11 TICON 12 TBRUSH 13 TMDIFRAME 14 TMENU 15 TREG32 16 TMENUITEM 17 TMDICLIENT 18 TFONT 19 TMSGBAR 20 TRECT 21 TMSGITEM 22 TTIMER 23 TBITMAP 24 TIMAGE 25 TCURSOR ...

... := {|| (IF(!oBrw:oDbf:Eof(),oBrw:oDbf:Skip(),nil),IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.))} if n == 2 oRep:oShdBrush := TBrush():New(,nRgb(219,229,241)) oRep:bInit := bInit oRep:bSkip := bSkip oRep:bStartPage := bImage oRep:CellView() oRep:Shadow() return nil endif return ...

... Relations in use Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TWINDOW 6 TCONTROL 7 TGET 8 TDATABASE 9 TFONT 10 TBRUSH 11 TICON 12 TREG32 13 TBAR 14 TRECT 15 TBTNBMP 16 TMENU 17 TMENUITEM 18 TIMAGELIST 19 TBITMAP 20 TMSGBAR 21 TDIALOG 22 TSAY 23 TXBROWSE 24 TXBRWCOLUMN ...

... Param 1: C "_LHELPICON" Param 2: O Class: TBUTTON TBUTTON:_LHELPICON Param 1: L .F. CADPLAN Local 1: U Local 2: U Local 3: O Class: TBRUSH Local 4: U Local 5: U Local 6: L .F. Local 7: N 1 Local 8: C "" Local 9: C "- Utilize a roda do mouse para selecionar o registro ...

If you use a normal TBrush object, the brush is painted tiled inside the cell.
No need to do any extra coding

... in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TAGET 5 TAPPLICATION 6 TINI 7 TFONT 8 TWINDOW 9 TCONTROL 10 TICON 11 TBRUSH 12 TMENU 13 TREG32 14 TMENUITEM 15 TMSGBAR 16 TRECT 17 TMSGITEM 18 TTIMER 19 TRIBBONBAR 20 TRPANEL 21 TRBGROUP 22 TRBTN 23 TDIALOG 24 TFSDI 25 ...

... DBF DBFFPT DBFBLOB DBFNTX DataBases in use ================ Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TWINDOW 5 TDIALOG 6 TBRUSH 7 TCONTROL 8 TGET 9 GET 10 TCLIPGET 11 TFONT 12 TREG32 13 TRECT 14 TSTRUCT Memory Analysis =============== 588 Static variables Dynamic memory ...

... DBF DBFFPT DBFBLOB DBFNTX DataBases in use ================ Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TWINDOW 5 TDIALOG 6 TBRUSH 7 TFONT 8 TREG32 9 TRECT 10 TURL 11 TIPCLIENT 12 TIPCLIENTHTTP 13 TSTRUCT Memory Analysis =============== 606 Static variables Dynamic memory ...

... 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TPREVIEW 5 TINI 6 TFONT 7 TWINDOW 8 TCONTROL 9 TBITMAP 10 TMDIFRAME 11 TMENU 12 TREG32 13 TMENUITEM 14 TMRU 15 TBRUSH 16 TMDICLIENT 17 TSCROLLBAR 18 TBAR 19 TRECT 20 TBTNBMP 21 TMSGBAR 22 TMSGITEM 23 TTIMER 24 TDATAROW 25 TDIALOG 26 TPANEL 27 TSCROLLPANEL 28 ...

... 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 09:32:46: DeleteObject( ::hBrush ...