FiveTech Support Forums

 @ 90, 10 XBROWSE  oBrw OF oDlgRitardo  SIZE -10,-80 PIXEL NOBORDER AUTOSORT
      oBrw:SetArray(aData,,,.F.)
      SetupBrowserRit(oBrw)


 proc SetupBrowserRit(oBrw)
     local i

   ADD COLUMN TO oBrw HEADER "Ambo" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,1] } CENTER
   ADD COLUMN TO oBrw HEADER "Ritardo" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,1] } CENTER
   ADD COLUMN TO oBrw HEADER "Estrazione" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,2] } CENTER
   ADD COLUMN TO oBrw HEADER "E1" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,3] } CENTER
   ADD COLUMN TO oBrw HEADER "E2" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,4] } CENTER
   ADD COLUMN TO oBrw HEADER "E3" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,5] } CENTER
   ADD COLUMN TO oBrw HEADER "E4" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,6] } CENTER
   ADD COLUMN TO oBrw HEADER "E5" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,7] } CENTER

    WITH OBJECT oBrw
      // SetGroupHeader( cGrpHdr, nFrom, nUpto, oFont, nAlign )
         :SetGroupHeader( "Estratti",        4,  8 )

      :nRowHeight    := 22
      :nClrBorder := CLR_GRAY

      :lDrawBorder := .t.
      :nColorBox := CLR_HRED
      :nMarqueeStyle       := MARQSTYLE_HIGHLWIN7
      :lHscroll            := .f.
      :l2007               := .F.
      :l2015               := .f.
      :nStretchCol         := STRETCHCOL_WIDEST
      *:lAllowRowSizing     := .F.
      *:lAllowColSwapping   := .F.
      *:lAllowColHiding     := .F.
      :lRecordSelector     := .F.
      :nColDividerStyle    := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle    := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle    := LINESTYLE_NOLINES
      :nColDividerStyle    := LINESTYLE_LIGHTGRAY
      :CreateFromCode()


     FOR i := 1 TO LEN(:aCols)
         oCol := :aCols[ i ]
         oCol:nWidth   := 30
         oCol:bClrStd := ChangeColor( oBrw, i )
            
      NEXT



      :aCols[ 1 ]:nWidth   := 30
      :aCols[ 1 ]:nDataStrAlign   := AL_LEFT
      :aCols[ 2 ]:nWidth   := 30
      :aCols[ 3 ]:nWidth   := 90
      :aCols[ 4 ]:nWidth   := 100

      :SetStyle( 2018 )
   end with

   Return nil
 static function ChangeColor( oBrw, n )
return {|| { CLR_BLACK, ColorCell( oBrw:aRow[ n ]) } }