Another setcheck xbrowse - RESOLVED -

[Silvio.Falconi]

I made this xbrowse to make a selection of Wheels

Code: Select all  Expand view  RUN

WITH OBJECT :aCols[ 1]
             :SetCheck(, .t. )
             *:nHeadBmpNo    := 2
          END

for Now I can click only on first column to check , I wish click on second column to check first column

then I wish colorize with orange color the record selected

I made

:bClrSel := { || { ORANGE,CLR_WHITE } } but not run ok


and I wish no cursor on xbrowse , because at init I see the bx on first line I made also



oBrw:bLostFocus := { || oBrw:nMarqueeStyle := 0 }
oBrw:bGotFocus := { || oBrw:nMarqueeStyle := 2 }

but not run ok

[nageswaragunupudi]

I made

:bClrSel := { || { ORANGE,CLR_WHITE } } but not run ok

Naturally it does not.
You may use bClrStd

[nageswaragunupudi]

for Now I can click only on first column to check , I wish click on second column to check first column

Code: Select all  Expand view  RUN

oBrw:aCols[ 2 ]:bLDClickData := { || oBrw:aCols[ 1 ]:CheckToggle() }

[Silvio.Falconi]

I made

:bClrSel := { || { ORANGE,CLR_WHITE } } but not run ok

Naturally it does not.
You may use bClrStd

If I made :bClrStd := { || { CLR_WHITE, ORANGE } } no good for me




I wish have the text white on orange when I select one record

and when I click over ( true) the second column ( that is checked) must colorize of orange

[nageswaragunupudi]

If I made :bClrStd := { || { CLR_WHITE, ORANGE } } no good for me

Need to make it conditional. Right?

[Silvio.Falconi]

If I made :bClrStd := { || { CLR_WHITE, ORANGE } } no good for me

Need to make it conditional. Right?

I tried also

AEval( oBrw:aCols, { |oCol,i| If( oCol:hChecked , ;
oCol:bClrStd := { || { CLR_WHITE, ORANGE } } , nil ) } )

or

oBrw:aCols[ 2 ]:bClrStd :={ |oCol,i| If( oCol:hChecked , ;
{ || { CLR_WHITE, ORANGE } } , nil ) }

but not work

[nageswaragunupudi]

Code: Select all  Expand view  RUN

oBrw:bClrStd := { || { CLR_BLACK, If( oBrw:aRow[ 1 ], METRO_ORANGE, CLR_WHITE ) } }

[Silvio.Falconi]

Code: Select all  Expand view  RUN

oBrw:bClrStd := { || { CLR_BLACK, If( oBrw:aRow[ 1 ], METRO_ORANGE, CLR_WHITE ) } }

Sorry Nages,

it wasn't what I wanted, that is, I wanted that when I passed the mouse over it (in the second column) the writing could light up in orange just like I do with the menu on the right




I tried with
:nMarqueeStyle := 6 //MARQSTYLE_HIGHLROWMS
:bClrSelFocus := { || { CLR_BLACK, { { 1, LIGHTORANGE , ;
ORANGE } } } }





But I wish it only on second column

[Silvio.Falconi]

perhaps I found a solution

:nMarqueeStyle := 3
oBrw:aCols[ 2 ]:bClrSelFocus := { || { CLR_BLACK, { { 1, LIGHTORANGE , ;
ORANGE } } } }