How to fill a xBrowse-cell with a real image-BRUSH ?

[ukoenig]

Hello,
is it possible to fill and show a xBrowse-cell with a REAL brush
images, colors and gradient is no problem
I need it for a brush-preview / selection ( imageline 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



regards
Uwe

[nageswaragunupudi]

Code: Select all  Expand view  RUN

oCol:oBrush := oMyBrush
 

[ukoenig]

Mr. Rao,

thank You very much for the replay
the image shows a splitted selection of image-backgrounds and brushes on the right
The background can be selected from one of the browsers.
I'm thinking about to display the brushimages as a TILED image adjusted to cellsize.
To create a brush for each image will be very hard to handle



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( oImage, nTop + nAdjust, nLeft, nWidth, nHeight )
oImage:End()
oGraphics:Destroy()

with oGraphics:DrawImage I can adjust the image to the cellsize
but not showing a brush-result



best regards
Uwe

[ukoenig]

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

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



regards
Uwe

[nageswaragunupudi]

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