TO GURUS : TRANSPARENT ERROR WITH XBROWSE

[Daniel Garcia-Gil]

ukoenig....

i'll do test

[ukoenig]

Hello Daniel, Silvio

I tested every possible combinations.
Using xBrowse inside the Main-Window, or inside a Dialog from resources, is no difference.
Changing the < nMarqueeStyle > I got different results :
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL // OK
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW // Hides the BMP of the selected Row
Using :
aeval( oBrw:aCols, { |o|o:lColTransparent := .t. } ) // OK
-------------------------------------------------------------------------------------------------------
Maybe Silvio can test it as well if it works with his application ?

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL


oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

Code: Select all  Expand view

@ 0,0 XBROWSE oBrw ;
      HEADERS "No.", "Column 2", "Column 3" ;
      COLSIZES 50, 200, 200  SIZE 500, 420 ;
      OF oWnd ;
      ARRAY aData5 AUTOCOLS

oBrw:nRecSelColor = 15512898
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:nMarqueeStyle :=  MARQSTYLE_HIGHLROW  // Not working
//  oBrw:nMarqueeStyle :=  MARQSTYLE_HIGHLCELL // Works
oBrw:bClrSelFocus = { || { 16777215, 128 } }     // Selected Row
oBrw:bClrSel = { || { 16777215, 128 } }               // LostFocus

DEFINE IMAGE oImage1 RESOURCE "Help"
oBrw:nRowHeight := oImage1:nWidth() + 4
oImage1:End()
DEFINE BRUSH oBrush5 COLOR 16105859
oBrw:SetBackGround( oBrush5 )
RELEASE BRUSH oBrush5
oBrw:aCols[ 1 ]:addbmpfile("help.bmp")
oBrw:aCols[ 1 ]:addbmpfile("floppy.bmp")
oBrw:aCols[ 2 ]:addbmpfile("help.bmp")
oBrw:aCols[ 2 ]:addbmpfile("floppy.bmp")
oBrw:aCols[ 1 ]:bBmpData := {|| if( oBrw3:nArrayAt() % 2 == 0, 1, 2 ) }
oBrw:aCols[ 2 ]:bBmpData := {|| if( oBrw3:nArrayAt() % 2 == 0, 1, 2 ) }


Regards
Uwe

[Silvio]

oApp():oGrid:nMarqueeStyle :=MARQSTYLE_HIGHLCELL
run ok but I want see the bar on all one row and not one cell