FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour TO GURUS : TRANSPARENT ERROR WITH XBROWSE
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TO GURUS : TRANSPARENT ERROR WITH XBROWSE
Posted: Tue Jan 27, 2009 10:40 PM

ukoenig....

i'll do test

Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: TO GURUS : TRANSPARENT ERROR WITH XBROWSE
Posted: Wed Jan 28, 2009 11:28 PM
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

@ 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 :-)
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: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: TO GURUS : TRANSPARENT ERROR WITH XBROWSE
Posted: Mon Feb 02, 2009 10:37 AM

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

Best Regards, Saludos



Falconi Silvio

Continue the discussion