FiveTech Support Forums

oBrw:nMarqueeStyle       := 3    // Marquee style (row selected) 0 No Marquee 1 Dotted cell 2 Solid cell 3 Highlight cell 4 Highlight row & Raise Cell 5 Highlight row 6 Highlight row & multiselect 

or

oBrw:bClrRowFocus    := { || { CLR_BLACK, RGB( 150,231,255 ) } }

or

oCol:bClrSelFocus := <....>

oCol:bClrStd := { || { <clrtext>, <aGradient> } }

   oBrw:aCols[2]:bClrStd := { || { CLR_BLACK, aRowGrad } }

 aadd( aTmpColors, {aText[n], {aBack[n],aGradient[n]}} )

nClr1:=aGradient[n]
             nClr2:=aBack[n]
  aadd( aTmpColors,  { aText[n], {{ 0.5, nClr1,nClr2 },{0.5, nClr2,nClr1}, .F. } } )

nClr1:=aGradient[n]
             nClr2:=aBack[n]
  aadd( aTmpColors,  { aText[n], {{ 0.5, nClr1,nClr2 },{0.5, nClr2,nClr1}, .t. } } )

#include "Fivewin.ch"

*---------------------------*
Function Main()
*---------------------------*
Local oDlg,oBrw
Local aLanguages:={}

aLanguages:= { { "English", "French"  , "Chinese" , "Spanish", "German"  }, ;
               { "French" , "Chinese" , "German"  , "English", "Spanish" }, ;
               { "German" , "Chinese" , "French"  , "Spanish", "English" }, ;
               { "English", "French"  , "Chinese" , "German" , "Spanish" }, ;
               { "Chinese", "French"  , "English" , "Spanish", "German"  }  }
        

 
DEFINE DIALOG oDlg FROM 10,10 TO 250,600 TITLE "Time Table" PIXEL TRUEPIXEL 

@60,0 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg UPDATE ;
DATASOURCE aLanguages ;
COLUMNS      1      ,    2       ,       3       ,     4      ,     5      ;
HEADERS  "Period 1" , "Period 2" ,   "Period 3"  , "Period 4" , "Period 5" ;
COLSIZES   100      ,  100       ,      100      ,    100     ,   100      ;
PICTURES  nil       ,  nil       ,    nil        ,    nil     ,   nil      ;  
CELL LINES FOOTERS 

WITH OBJECT oBrw
    :nStretchCol:=1
	:nColDividerStyle = LINESTYLE_LIGHTGRAY
	:nRowDividerStyle = LINESTYLE_LIGHTGRAY    
    :lColDividerComplete := .T.     	
    :lFlatStyle:=.T.  
    :lHScroll:=.F.
    :lDisplayZeros:=.F.
    :lFitGridHeight:=.T.
    
    :Period1:bClrStd := { || AssgnClr(oBrw:Period1) } 
    :Period2:bClrStd := { || AssgnClr(oBrw:Period2) }   
    :Period3:bClrStd := { || AssgnClr(oBrw:Period3) } 
    :Period4:bClrStd := { || AssgnClr(oBrw:Period4) } 
    :Period5:bClrStd := { || AssgnClr(oBrw:Period5) }  
    
    :bRecSeldata   := { || oBrw:KeyNo }
    :nRecSelWidth  := "999"
    :bRecSelFooter := { || oBrw:nLen }           
    
    :MakeTotals()  
    :CreateFromCode()
END          

ACTIVATE DIALOG oDlg CENTERED

Return NIL

*----------------------------------------*
Function AssgnClr(oCol)
*----------------------------------------*
Local aClrArr:={}

IF oCol:Value == "English"
    aClrArr:={ CLR_WHITE, RGB(238, 28, 50)  }
ElseIf oCol:Value == "German"    

    aClrArr:={ CLR_WHITE, RGB( 28, 53, 238 )  }
ElseIf oCol:Value == "French"    

    aClrArr:={ CLR_WHITE, CLR_GREEN  }
ElseIf oCol:Value == "Spanish"    

    aClrArr:={ CLR_WHITE, METRO_VIOLET  }
ElseIf oCol:Value == "Chinese"    

    aClrArr:={ CLR_WHITE, CLR_MAGENTA  }
Else
    aClrArr:={ CLR_BLACK, CLR_WHITE }
Endif

Return aClrArr