color the cells of the xbrowse

[Silvio.Falconi]

I have this array



I would like to visualize with colors
1) equal numbers (from column 7 to 16) on the same row
2) same numbers (from column 7 to 16) on different rows

when the numbers are colored, I also want to color the columns relating to the headers
example "1-4" I want to color the number of columns 1 and 4

the test

Code: Select all  Expand view  RUN

#include 'fivewin.ch'
#include 'xbrowse.ch'

function Main()

   local oWnd, oBrw, oFont
   local aData := { ;
      {"XXX", 53, 29, 22, 70, 39, 82, 75,33,2,51,9,68,2,61,19 }, ;
      {"KKK", 15, 21, 60, 38, 44, 36, 75,53,59,81,59,65,8,14,82 }, ;
      {"TTT", 54, 4, 56, 77, 79, 58, 20,41,43,60,81,83,43,45,66 } }

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-20 BOLD
   DEFINE WINDOW oWnd
  * @ 0,0 XBROWSE oBrw OF oWnd AUTOCOLS ARRAY aData ;

  * CELL LINES FASTEDIT FONT oFont

     @ 0,0 XBROWSE oBrw OF oWnd PIXEL NOBORDER;
      COLS 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16;
      HEADERS "Ruote", "1°", "2°", "3°", "4°", "5°", "1-2" ,"1-3","1-4","1-5","2-3","2-4","2-5","3-4","3-5","4-5";
      SIZES  150,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45  ;
      ARRAY adata ;
      CELL LINES

   oBrw:CreateFromCode()
   oWnd:oClient   := oBrw

   ACTIVATE WINDOW oWnd
   RELEASE FONT oFont

return nil

[Jimmy]

hi Silvio,

i do not know how XBROWSE work

my HMG Sample use GRID and DYNAMICBACKCOLOR which is a Codeblock with RGB-Color
http://www.hmgforum.com/viewtopic.php?f=5&t=7222

you can use 1st Part of Code to "identify" Number in Array which are twice (or more)
this later is use for Color of Background

[Silvio.Falconi]

What mean with "FindDupe" ?
But it is ...same numbers (from column 7 to 16) on different rows ?
We can try converte it together

my problem is
as the first operation (1) locate the numbers on the same line
second operation (2) the same numbers on different lines
It is the final operator who by selecting a checkbox can highlight the numbers (1) or (2)

[Silvio.Falconi]

hi Silvio,

i do not know how XBROWSE work

my HMG Sample use GRID and DYNAMICBACKCOLOR which is a Codeblock with RGB-Color
http://www.hmgforum.com/viewtopic.php?f=5&t=7222

you can use 1st Part of Code to "identify" Number in Array which are twice (or more)
this later is use for Color of Background

I'm trying to converte





@ 200, 100 CHECKBOX oChk[2] VAR lUgualiRuote PROMPT "Same values on different wheels" SIZE 120, 12 pixel OF oFld:aDialogs[2] ;
ON CHANGE ( Same_Number_all_Rows(aData))

Code: Select all  Expand view  RUN

Function Same_Number_all_Rows(aData)
     LOCAL nRowMax  := LEN( aData )
     LOCAL nColMax
     LOCAL ii, jj, nNum, nPosi, nNumColor
     LOCAL nCount   := 0
     local aResult :={}

      // read aData and add Number to aResult
   ii := 1
   FOR ii := 1 TO nRowMax
      jj := 2
      nColMax := LEN( aData[ ii ] )
      FOR jj := 2 TO nColMax
         nNum := aData[ ii ] [ jj ]
         nPosi := ASCAN( aResult, { | e | e[ 1 ] = nNum } )
         IF nPosi > 0
            // increase Counter
            aResult[ nPosi ] [ 2 ] := aResult[ nPosi ] [ 2 ] + 1
         ELSE
            // {Number,Counter,Color}
            AADD( aResult, { nNum, 1, 0 } )
         ENDIF
      NEXT
   NEXT

   xbrowser   aResult

 

at this point it gives me back


I understood are Number and counter and number color right ?


Now I must converte this

Code: Select all  Expand view  RUN

ii := 1
   FOR ii := 1 TO nColMax
      AADD( aJustify, GRID_JTFY_LEFT )
      AADD( aBColors, { || FindDupe(aResult) } )
   NEXT

on FindDupe(aResult)
I not Know How converte this

LOCAL CellRowIndex := This.CellRowIndex
LOCAL CellColIndex := This.CellColIndex
LOCAL CellValue := This.CellValue

[Silvio.Falconi]

Perhaps

FOR n = 2 to len( oBrw:aCols )
oCol := oBrw:aCols[ n ]
AADD( aBColors, { || FindDupe(aResult,oCol) } )
NEXT

// sort Result
ASORT( aResult,,, { | aX, aY | aX[ 1 ] < aY[ 1 ] } )

// set Color when "dupe"
nNumColor := 600000
nCount := 0
ii := 1
FOR ii := 1 TO LEN( aResult )
IF aResult[ ii ] [ 2 ] > 1
nCount ++
aResult[ ii ] [ 3 ] := NumColor2RGB( nNumColor * nCount )
ENDIF
NEXT
return aBColors



FUNCTION FindDupe(aResult,oCol)
LOCAL nPosi
LOCAL bColor := {255,255,255}
LOCAL nCellValue


nCellValue := oCol:value
nPosi := ASCAN( aResult, { | e | e[ 1 ] = nCellValue } )
IF nPosi > 0
IF aResult[ nPosi ] [ 2 ] > 1
bColor := aResult[ nPosi ] [ 3 ]
ENDIF
ENDIF

RETURN bColor

[Jimmy]

hi Silvio,

as i say 1st Part of Code seems to work for you

Code: Select all  Expand view  RUN

AADD( aJustify, GRID_JTFY_LEFT )

not need, just "justfy" Value in Column

Code: Select all  Expand view  RUN

AADD( aBColors, { || FindDupe(aResult) } )

a Codeblock for each Column

Code: Select all  Expand view  RUN

LOCAL CellRowIndex := This.CellRowIndex
LOCAL CellColIndex := This.CellColIndex
LOCAL CellValue := This.CellValue

as i say i do not know how XBROWSE work with Color
i saw you can set Color for hole Column but how on single Cell

Question : does Fivewin use "Ownerdraw" (WM_DRAWITEM)

---

GRID = WC_LISTVIEW does have Style LVS_OWNERDATA and LVN_GETDISPINFO for Notify Event
using NMLVDISPINFO Structure you got "Row/Col"

Code: Select all  Expand view  RUN

   st := NMLVDISPINFO():New()

   // ZERO-based :iItem and :iSubItem
   nRec := st:item:iItem              // This.CellRowIndex
   nSub := st:item:iSubItem+1         // This.CellColIndex

   // use Array ::aSource
   ctext := ::aSource[nRec+1][nSub]   // This.CellValue

benefit : you can use a "virtual GRID" and "assign hole Array (Limit 100.000.000)

Code: Select all  Expand view  RUN

  nItemCache := LEN( ::aSource )
   // get Memory for (big) Array
   ::lv_SetItemCount(nItemCache)

[Jimmy]

Perhaps

Code look good ... but how to "use" aBColors
how to "color" single Cell

[Silvio.Falconi]

Perhaps

Code: Select all  Expand view  RUN

#define ACOLOR3  { CLR_BROWN,CLR_WHITE }
#define ACOLOR4  { CLR_YELLOW, CLR_WHITE }


 Function Same_Number_all_Rows(aData,oBrw)
     LOCAL nRowMax  := LEN( aData )
     LOCAL nColMax
     LOCAL ii, jj, nNum, nPosi, nNumColor
     LOCAL nCount   := 0
     local aResult :={}
     LOCAL aJustify := {}
     LOCAL aBColors := {}

      // read aData and add Number to aResult
   ii := 1
   FOR ii := 1 TO nRowMax
      jj := 2
      nColMax := LEN( aData[ ii ] )
      FOR jj := 2 TO nColMax
         nNum := aData[ ii ] [ jj ]
         nPosi := ASCAN( aResult, { | e | e[ 1 ] = nNum } )
         IF nPosi > 0
            // increase Counter
            aResult[ nPosi ] [ 2 ] := aResult[ nPosi ] [ 2 ] + 1
         ELSE
            // {Number,Counter,Color}
            AADD( aResult, { nNum, 1, 0 } )
         ENDIF
      NEXT
   NEXT
   XBROWSER aResult





   *FOR n = 2 to len( oBrw:aCols )
   *      oCol         := oBrw:aCols[ n ]
    *     oCol:bClrStd := CellColorBlockResult( oCol, aResult)
   *   NEXT

   * return NIL

   // add for each Column



  FOR n = 2 to len( oBrw:aCols )
        oCol         := oBrw:aCols[ n ]
         AADD( aBColors, { || FindDupe(@aResult,oCol) } )
     NEXT

   *  xbrowser aBColors


   // sort Result
   ASORT( aResult,,, { | aX, aY | aX[ 1 ] < aY[ 1 ] } )

   // set Color when "dupe"
   nNumColor := 1
   nCount := 0
   ii := 1
   FOR ii := 1 TO LEN( aResult )
      IF aResult[ ii ] [ 2 ] > 1
         nCount ++
         aResult[ ii ] [ 3 ] := nCount //( nNumColor * nCount )
      ENDIF
   NEXT
           xbrowser   aResult


   FOR n = 2 to len( oBrw:aCols )
         oCol         := oBrw:aCols[ n ]
         oCol:bClrStd := CellColorBlockResult( oCol, aResult)
      NEXT
   RETURN NIL



STATIC FUNCTION CellColorBlockResult( oCol, aPos )
   LOCAL oBrw := oCol:oBrw
   RETURN { || If( IsBit( aPos[ oBrw:nArrayAt ][1], oCol:nArrayCol ),NumColor2RGB( aPos[ oBrw:nArrayAt ][3] ), ACOLOR4 ) }





FUNCTION FindDupe(aResult,oCol)
LOCAL nPosi
LOCAL bColor     := {255,255,255}
LOCAL nCellValue

   // these Variable are avaiable for GRID
*LOCAL CellRowIndex := This.CellRowIndex
*LOCAL CellColIndex := This.CellColIndex
*LOCAL CellValue    := This.CellValue


   nCellValue :=  oCol:value
   nPosi := ASCAN( aResult, { | e | e[ 1 ] = nCellValue } )
   IF nPosi > 0
      IF aResult[ nPosi ] [ 2 ] > 1
         bColor := aResult[ nPosi ] [ 3 ]
      ENDIF
   ENDIF

RETURN  bColor








FUNCTION NumColor2RGB( nColor )

LOCAL aRetVal

   DEFAULT nColor TO - 1

   IF nColor == - 1
      aRetVal := { NIL, NIL, NIL }
   ELSE
      aRetVal := { GetRed( nColor ), GetGreen( nColor ), GetBlue( nColor ) }
   ENDIF



RETURN aRetVal

[Silvio.Falconi]

LOCAL CellRowIndex := This.CellRowIndex
LOCAL CellColIndex := This.CellColIndex

LOCAL CellValue := This.CellValue

CellRowIndex -> oBrw:nArrayAt
CellColIndex -> oCol := oBrw:aCols[ n ]
CellValue -> nCellValue := oCol:value

I believe this is the case in fivewin but I'm not sure

[Jimmy]

hi Silvio,

I believe this is the case in fivewin but I'm not sure

would like to "see" FiveWin Code when working, thx

[Silvio.Falconi]

hi Silvio,

I believe this is the case in fivewin but I'm not sure

would like to "see" FiveWin Code when working, thx

Jimmy i can send you a small sample to see fivewin working with colors, my mail is silvio[dot]falconi[at]gmail[dot]com

[Silvio.Falconi]

Any solution pls ?
Nages?
how converte this source of Jimmy ?

Code: Select all  Expand view  RUN

*+--------------------------------------------------------------------
*+
*+ Source Module => c:\hmg.3.4.4\0\Lotto\\LOTTO.PRG
*+
*+    Copyright(C) 1983-2021 by Auge & Ohr
*+
*+    Functions: Procedure MAIN()
*+               Function FindDupe()
*+               Function NumColor2RGB()
*+
*+    Reformatted by Click! 2.05.39 on Apr-20-2022 at  7:35 am
*+
*+--------------------------------------------------------------------

#include "HMG.CH"
#include "Common.ch"

STATIC aResult := {}

MEMVAR _HMG_SYSDATA

*+--------------------------------------------------------------------
*+
*+    Procedure MAIN()
*+
*+--------------------------------------------------------------------
*+
PROCEDURE MAIN

LOCAL aData := { { "XXX", 53, 29, 22, 70, 39, 82, 75, 33, 2, 51, 9, 68, 2, 61, 19 }, ;
                 { "KKK", 15, 21, 60, 38, 44, 36, 75, 53, 59, 81, 59, 65, 8, 14, 82 }, ;
                 { "TTT", 54, 4, 56, 77, 79, 58, 20, 41, 43, 60, 81, 83, 43, 45, 66 } }

LOCAL nRowMax  := LEN( aData )
LOCAL nColMax
LOCAL ii, jj, nNum, nPosi, nNumColor
LOCAL nCount   := 0
LOCAL aJustify := {}
LOCAL aBColors := {}

   // read aData and add Number to aResult
   ii := 1
   FOR ii := 1 TO nRowMax
      jj := 2
      nColMax := LEN( aData[ ii ] )
      FOR jj := 2 TO nColMax
         nNum := aData[ ii ] [ jj ]
         nPosi := ASCAN( aResult, { | e | e[ 1 ] = nNum } )
         IF nPosi > 0
            // increase Counter
            aResult[ nPosi ] [ 2 ] := aResult[ nPosi ] [ 2 ] + 1
         ELSE
            // {Number,Counter,Color}
            AADD( aResult, { nNum, 1, 0 } )
         ENDIF
      NEXT
   NEXT

   // add for each Column
   ii := 1
   FOR ii := 1 TO nColMax
      AADD( aJustify, GRID_JTFY_LEFT )
      AADD( aBColors, { || FindDupe() } )
   NEXT

   // sort Result
   ASORT( aResult,,, { | aX, aY | aX[ 1 ] < aY[ 1 ] } )

   // set Color when "dupe"
   nNumColor := 600000
   nCount := 0
   ii := 1
   FOR ii := 1 TO LEN( aResult )
      IF aResult[ ii ] [ 2 ] > 1
         nCount ++
         aResult[ ii ] [ 3 ] := NumColor2RGB( nNumColor * nCount )
      ENDIF
   NEXT

   DEFINE WINDOW Form_1 ;
         AT 0, 0 ;
         WIDTH 800 ;
         HEIGHT 400 ;
         MAIN

      @ 10,  0 GRID Grid_1 ;
              WIDTH 800 ;
              HEIGHT 330 ;
              HEADERS { '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '' } ;
              WIDTHS { 31, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50 } ;
              ITEMS aData ;
              CELLNAVIGATION ;
              DYNAMICBACKCOLOR aBColors ;
              JUSTIFY aJustify

   END WINDOW

   CENTER WINDOW Form_1
   ACTIVATE WINDOW Form_1

RETURN

*+--------------------------------------------------------------------
*+
*+    Function FindDupe()
*+
*+    Called from ( lotto.prg )   1 - procedure main()
*+
*+--------------------------------------------------------------------
*+
FUNCTION FindDupe()

LOCAL nPosi
LOCAL bColor     := {255,255,255}
LOCAL nCellValue

   // these Variable are avaiable for GRID
LOCAL CellRowIndex := This.CellRowIndex
LOCAL CellColIndex := This.CellColIndex
LOCAL CellValue    := This.CellValue

   nCellValue := VAL( CellValue )
   nPosi := ASCAN( aResult, { | e | e[ 1 ] = nCellValue } )
   IF nPosi > 0
      IF aResult[ nPosi ] [ 2 ] > 1
         bColor := aResult[ nPosi ] [ 3 ]
      ENDIF
   ENDIF
RETURN bColor

*+--------------------------------------------------------------------
*+
*+    Function NumColor2RGB()
*+
*+    Called from ( lotto.prg )   1 - procedure main()
*+
*+--------------------------------------------------------------------
*+
FUNCTION NumColor2RGB( nColor )

LOCAL aRetVal

   DEFAULT nColor TO - 1

   IF nColor == - 1
      aRetVal := { NIL, NIL, NIL }
   ELSE
      aRetVal := { GetRed( nColor ), GetGreen( nColor ), GetBlue( nColor ) }
   ENDIF

RETURN aRetVal

*+ EOF: LOTTO.PRG