topic-34837

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

xbrowses color
Posted: Wed Nov 08, 2017 03:57 PM

I tried to insert the color of row with a condition but I not have success

I wish change color all lines have V at seven column

I made

oLbx:bClrStd := {|| { IIF(oLbx:aArrayData[1][7]="V", CLR_GRAY,CLR_BLUE),CLR_WHITE } }

or

cColor1:= CLR_GRAY
cColor2:= CLR_BLUE

AEval( oLbx:aCols, {|oCol|oCol:bClrStd := { || { CLR_WHITE, If(oLbx:aArrayData[1][7]="V", cColor1, cColor2 ) } }

Then I tried
oLbx:bClrStd := {|| { IIF(arrayTicket[oLbx:nArrayAt,7]="V",CLR_GREEN,CLR_RED),CLR_WHITE } }

but it write the text and not the background

where is the error ?

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

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: xbrowses color
Posted: Wed Nov 08, 2017 04:26 PM

Code (fw): Select all Collapse

oLbx:bClrStd := {|| { IIF(oLbx:aRow[7]="V", CLR_GRAY,CLR_BLUE),CLR_WHITE } }

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: xbrowses color
Posted: Wed Nov 08, 2017 04:53 PM

I wish the background with color and the text on white
TYPE
oLbx:bClrStd := {|| { IIF(oLbx:aRow[7]="V", CLR_GRAY,CLR_BLUE),IIF(oLbx:aRow[7]="V",RGB( 220, 235, 252 ) ,CLR_WHITE) } }

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

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: xbrowses color
Posted: Wed Nov 08, 2017 05:42 PM

Hello Silvio,
please try to insert :value.
oLbx:bClrStd := {|| { IIF(oLbx:aRow[7]:value="V", CLR_GRAY,CLR_BLUE),CLR_WHITE } }

I would suggest you to switch to Fivedit.
Have you seen the video.
Best regards,
Otto

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: xbrowses color
Posted: Wed Nov 08, 2017 08:47 PM

Otto, for now I use xmate ... In Italy there is a adage...."Who leaves the old road for the new knows that what he leaves does not know what he finds."

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

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: xbrowses color
Posted: Wed Nov 08, 2017 10:02 PM

Hello Silvio,
does you program work with
oLbx:bClrStd := {|| { IIF(oLbx:aRow[7]:value="V", CLR_GRAY,CLR_BLUE),CLR_WHITE } }.

Best regards,
Otto

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: xbrowses color
Posted: Thu Nov 09, 2017 07:53 AM

The colors is good
only I have records link to another record
I explain you

I have a product : "Pizza Caprese"
and then I have variants of this product sample :
"Più Prosciutto"
"Più mozzarella"

I wish show a color with a link I not Know How make it :

         2   &quot;Pizza Caprese&quot;

--------- "Più Prosciutto"
--------- "Più mozzarella"
1 " cocacola"
2 "Dessert"

the products must have different colors and his variant a color near to color's prduct
What I can build ?

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

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: xbrowses color
Posted: Thu Nov 09, 2017 08:14 AM

Maybe with a function call in the cell ?

oBrw[6]:T1:bClrStd := { || showcolors(oBrw[6]:T1:Value) }
oBrw[6]:T2:bClrStd := { || showcolors(oBrw[6]:T2:Value) }
oBrw[6]:T3:bClrStd := { || showcolors(oBrw[6]:T3:Value) }

Code (fw): Select all Collapse

function showcolors(cVeld)
  local cKleur:=""
  local aColorPairs := { ;
  { CLR_BLACK, MY_LIGHTGREEN },;  //1
  { CLR_BLACK, MY_GREEN},;        //2
  { CLR_BLACK, MY_PAARS},;        //3
  { CLR_BLACK, MY_LIGHTYELLOW },; //4
  { CLR_BLACK, MY_YELLOW }}       //5

  do case
    case cVeld = "X"
       cKleur = aColorPairs[2]
    case cVeld = "K"
       cKleur = aColorPairs[3]
    case cVeld = "V"
       cKleur = aColorPairs[5]
    otherwise
       cKleur = aColorPairs[1]
  endcase
return cKleur

Marc Venken

Using: FWH 23.08 with Harbour

sreerajklm

Posts: 6

Joined: Tue Sep 23, 2014 05:22 AM

Re: xbrowses color
Posted: Fri Nov 10, 2017 05:17 AM

Are you looking like this,

Code (fw): Select all Collapse

#Include "FiveWin.ch"

*-----------------------------------------*
Function Main()
*-----------------------------------------*
Local oWnd,oBrw
Local aArry:={{"Pizza Caprese","PIZCA","P"},;
              {"Più Prosciutto","PIZCB","V"},;
              {"Più mozzarella","PIZCC","V"},;
              {"Cocacola","COCAC","P"},;
              {"Cocacola One","COCAA","V"},;
              {"Cocacola Two","COCAB","V"}}

DEFINE WINDOW oWnd TITLE "Test" 

@ 1, 1 XBROWSE oBrw SIZE 500, 230 OF oWnd ;
    ARRAY aArry ;
    HEADER "Item Name","Item Code","Item Level" ;
    COLUMNS 1,2,3 ; 
    COLSIZES 250,140


    WITH OBJECT oBrw
        :nColDividerStyle = LINESTYLE_LIGHTGRAY
        :nRowDividerStyle = LINESTYLE_LIGHTGRAY 
        :ItemName:bindent:={ || If(Alltrim(oBrw:ItemLevel:Value) == "P" ,0,20 )}    
        :bClrStd  := { || IF( (oBrw:ItemLevel:Value) = "P" ,;
                                              { 16777215,RGB(248, 100, 12) },;
                                              { 16777215,RGB(154, 188, 49) } ) }   
                                                
        :CreateFromCode()                                   
    END

ACTIVATE WINDOW oWnd
Return Nil

Regards
Sreeraj

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: xbrowses color
Posted: Fri Nov 10, 2017 07:34 AM

It can go good
but I have another structure

USE CONSUM ALIAS CO
INDEX ON upper(NUMDOC)+Upper(numriga) TAG MESACON TO CONSUM for !deleted()

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

FiveTech Support Forums

Continue the discussion