trasparent bitmap on xbrowse
- Silvio.Falconi
- Posts: 4956
- Joined: Thu Oct 18, 2012 7:17 pm
trasparent bitmap on xbrowse
any solution ?
Last edited by Silvio.Falconi on Mon Jun 10, 2019 2:18 pm, edited 2 times in total.
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
Re: trasparent bitmap
Silvio,
2 transparent images
a little bit smaller ( if to heavy )
regards
Uwe
2 transparent images
a little bit smaller ( if to heavy )
regards
Uwe
Last edited by ukoenig on Tue Jun 11, 2019 11:03 am, edited 4 times in total.
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.
i work with FW.
If you have any questions about special functions, maybe i can help.
- Silvio.Falconi
- Posts: 4956
- Joined: Thu Oct 18, 2012 7:17 pm
Re: trasparent bitmap
Thanks
but I wish have the fwbitmaps default
I think Antonio can change it
but I wish have the fwbitmaps default
I think Antonio can change it
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
- nageswaragunupudi
- Posts: 8017
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: trasparent bitmap on xbrowse
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.
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
G. N. Rao.
Hyderabad, India
- Silvio.Falconi
- Posts: 4956
- Joined: Thu Oct 18, 2012 7:17 pm
Re: trasparent bitmap on xbrowse
Must I sent you my small test ?
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
- nageswaragunupudi
- Posts: 8017
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: trasparent bitmap on xbrowse
Not necessary.
I know the problem.
But this takes time.
I know the problem.
But this takes time.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
- Silvio.Falconi
- Posts: 4956
- Joined: Thu Oct 18, 2012 7:17 pm
Re: trasparent bitmap on xbrowse
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
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
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
Re: trasparent bitmap on xbrowse
I tested a solution that works in all directions
@ 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
The test is using a bClrStd-combinationThe 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.
@ 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
Last edited by ukoenig on Tue Jun 11, 2019 6:38 pm, edited 3 times in total.
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.
i work with FW.
If you have any questions about special functions, maybe i can help.