Page 1 of 1

trasparent bitmap on xbrowse

Posted: Mon Jun 10, 2019 7:54 am
by Silvio.Falconi
Image

any solution ?

Re: trasparent bitmap

Posted: Mon Jun 10, 2019 9:50 am
by ukoenig
Silvio,

2 transparent images

Image

Image

a little bit smaller ( if to heavy )

Image

Image

regards
Uwe :D

Re: trasparent bitmap

Posted: Mon Jun 10, 2019 10:34 am
by Silvio.Falconi
Thanks
but I wish have the fwbitmaps default
I think Antonio can change it

Re: trasparent bitmap on xbrowse

Posted: Mon Jun 10, 2019 2:30 pm
by nageswaragunupudi
The problem is not with bitmaps.
The problem is with the painting of XBrowse.

When we navigate to the cell with arrow-keys with go-up, go-down or go-left, the gap is not visible.
But when we navigate to the cell with go-right or with a mouse click, the gap is visible.

We are looking into it.

Re: trasparent bitmap on xbrowse

Posted: Mon Jun 10, 2019 2:42 pm
by Silvio.Falconi
Must I sent you my small test ?

Re: trasparent bitmap on xbrowse

Posted: Mon Jun 10, 2019 3:27 pm
by nageswaragunupudi
Not necessary.
I know the problem.
But this takes time.

Re: trasparent bitmap on xbrowse

Posted: Mon Jun 10, 2019 6:38 pm
by Silvio.Falconi
i must also resolve the problem on this topic
http://forums.fivetechsupport.com/viewt ... 83#p222642
on the oldest app (monouser) it run ok,only I made an operation now I cannot make with tdatabase

Re: trasparent bitmap on xbrowse

Posted: Tue Jun 11, 2019 11:03 am
by ukoenig
I tested a solution that works in all directions
The problem is not with bitmaps.
The problem is with the painting of XBrowse.
When we navigate to the cell with arrow-keys with go-up, go-down
or go-left, the gap is not visible.
But when we navigate to the cell with go-right or with a mouse click, the gap is visible.
The test is using a bClrStd-combination

@ 80,20 XBROWSE oBrw SIZE 520, 485 PIXEL OF oDlg2;
DATASOURCE oCust ;
AUTOSORT FOOTERS FASTEDIT ;
COLUMNS "Last", "First", "Age", "Married", "Values1", "Values2" ;
HEADERS "Last ( Index )", "First", "Age", "Married", "Values1", "Values2" ;
COLSIZES 110, 80, 40, 100, 120, 120 COLOR nXBrText, nXBrColor

WITH OBJECT oBrw
// painting cell-colors of column 3
:aCols[ 3 ]:bClrStd := {|| PAINT_CELL(oBrw, nRange) }
// xBrowse-color
:bClrStd := { || { If( oCust:Deleted(), CLR_HRED, nXBrText ), nXBrColor } }

// a defined button

:aCols[ 6 ]:addbmpfile( c_Path1 + "Plus.png" )
:aCols[ 6 ]:lBtnTransparent := .t.
:aCols[ 6 ]:nBtnBmp := 1
:aCols[ 6 ]:nEditType := EDIT_BUTTON
:aCols[ 6 ]:bEditBlock := { | nRow, nCol, oCol, nKey | ;
MsgAlert( "Row : = " + ALLTRIM( STR( oBrw:Keyno() ) ) + CRLF + ;
"Col : = " + ALLTRIM( STR( oBrw:nColSel ) ), "SELECTION" ) }

:CreateFromCode()
END

Image

regards
Uwe :D