FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour trasparent bitmap on xbrowse
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
trasparent bitmap on xbrowse
Posted: Mon Jun 10, 2019 07:54 AM


any solution ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: trasparent bitmap
Posted: Mon Jun 10, 2019 09:50 AM
Silvio,

2 transparent images





a little bit smaller ( if to heavy )





regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: trasparent bitmap
Posted: Mon Jun 10, 2019 10:34 AM

Thanks
but I wish have the fwbitmaps default
I think Antonio can change it

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: trasparent bitmap on xbrowse
Posted: Mon Jun 10, 2019 02:30 PM

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.

Regards



G. N. Rao.

Hyderabad, India
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: trasparent bitmap on xbrowse
Posted: Mon Jun 10, 2019 02:42 PM

Must I sent you my small test ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: trasparent bitmap on xbrowse
Posted: Mon Jun 10, 2019 03:27 PM

Not necessary.
I know the problem.
But this takes time.

Regards



G. N. Rao.

Hyderabad, India
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: trasparent bitmap on xbrowse
Posted: Mon Jun 10, 2019 06:38 PM

i must also resolve the problem on this topic

viewtopic.php?f=3t=37283#p222642
on the oldest app (monouser) it run ok,only I made an operation now I cannot make with tdatabase

&

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: trasparent bitmap on xbrowse
Posted: Tue Jun 11, 2019 11:03 AM
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



regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Continue the discussion