FiveTech Software tech support forums

... area). https://i.postimg.cc/KvrVc26h/1683365520661.jpg DEFINE BRUSH oBh COLOR 0xF0F0F0 FillRect(oDlg:hDc, {100,100,200,200}, oBh:hBrush) oDlg:Refresh()

DEFINE BRUSH oBh COLOR 0xF0F0F0

FillRect(oDlg:hDc, {100,100,200,200}, oBh:hBrush)

oDlg:Refresh()

... José Concha, desde aquí mí código <--- if n == nColuAct --> (si es orden natural o si es 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 ) ...

... oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007 aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) } WITH OBJECT aBtnBrow[1] :nClrBorder := nRgb(218,214,179)// border color :bColorMap := { || { { nRgb( 245,244,234), nRgb(218,214,179) ...

... oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007 aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) } WITH OBJECT aBtnBrow[1] :nClrBorder := nRgb(218,214,179)// border color :bColorMap := { || { { nRgb( 245,244,234), nRgb(218,214,179) ...

... oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007 aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) } WITH OBJECT aBtnBrow[1] :nClrBorder := nRgb(218,214,179)// border color :bColorMap := { || { { nRgb( 245,244,234), nRgb(218,214,179) ...

... oBrowse:nWidth-44.4 BTNBMP aBtnBrow[3] SIZE 12,10.3 PIXEL OF oDlg NOROUND 2007 aBtnBrow[3]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) } aBtnBrow[3]:nClrBorder := { || (IIF(aBtnBrow[3]:lMOver,,CLR_GRAY)) } aBtnBrow[3]:disable()

... {TWINDOW:NLEFT, 10}, {NBOTTOM, 893}, {NRIGHT, 649.00}, {NSTYLE, 1342177280}, {NCLRPANE, 16777215}, {NCLRTEXT, 0}, {ACONTROLS, {}}, {OBRUSH, {{HBRUSH, 9437200}, {HBITMAP, 0}, {HBMPORGL, 0}, {NCOUNT, 6}, {NRGBCOLOR, 16777215}, {LSYSTEM, .T.}, {USOURCE, CLR_WHITE}}}, {OFONT, {{CFACENAME, TAHOMA}, ...

I got it working now
format change and the image adjusted to cellsize

hBmp = ReadBitmap( 0, c_path1 + cData )
hBrush = CreatePatternBrush( hBmp )



regards
Uwe

... the images on the lefthandside I display using :aCols[ I ]:bPaintText := { | ..... and GDI-functions that was the reason thinking about ::hBrush = GdiPlusNewTextureBrush( oGdiBmp:hbmp ) :!: like using for the background-images : oImage := GDIBmp():new( c_path + cData ) oGraphics:DrawImage( ...

... 3 ) a stretched brush-image doesn't show the real brushpreview maybe using a GDI-solution :?: //METHOD NewTextureBrush( oGdiBmp ) CLASS Brush //::hBrush = GdiPlusNewTextureBrush( oGdiBmp:hbmp ) //return Self http://www.service-fivewin.de/images/Xbrbrush1.jpg regards Uwe

... from start: 0 hours 0 mins 1 secs Error occurred at: 06-05-2021, 12:55:32 Error description: Error BASE/1004 Class: 'NIL' has no exported method: HBRUSH Args: [ 1] = U Stack Calls =========== Called from: => HBRUSH( 0 ) Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:PAINT( 415 ...

... > for the image :?: aImage := oWnd:ReadImage( cBackImage, , .t. ) :bPaintBack := < |Self| FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) // MsgAlert( FW_ValToExp( ::DataRect():aRect ) ) // returns the array of the used painting area -> { 23, 24, 456, 783 } // { top, left, ...

... METHOD Build() CLASS TCodeBars local hBmpOld local hDCDesk := GetDC( GetDesktopWindow() ) local hDCMem := CreateCompatibleDC( hDCDesk ) local hBrush := CreateSolidBrush( 0 ) local hBack := CreateSolidBrush( CLR_WHITE ) ::hCodeBar = CreateCompatibleBitMap( hDCDesk, ::nWidth, ::nHeight ) hBmpOld ...

... ::oWnd:oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oWnd:oBrush:hBitmap ) - ::nTop ), FillRect( ::hDC, GetClientRect( ::hWnd ), ::oWnd:oBrush:hBrush ), SetBrushOrgEx( ::hDC, aOrg[ 1 ], aOrg[ 2 ] ) } Aparentemente en el método Paint(), el dato ::lTransparent toma dato negativo y ejecuta el ...