xbrowse : Order column with color

[demont frank]

Hello,

Working with xbrowse , i try to give the column with order (ocol:corder is 'A' or 'D') a color to make it more visible.

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xbrowse.ch"
#define CLR_1 nRGB( 190, 215, 190 )
#define CLR_2 nRGB( 230, 230, 230 )
function Main()
   local oDlg, oBrw , oCol
   DEFINE DIALOG oDlg SIZE 300, 200
   @ 0, 0 XBROWSE oBrw OF oDlg ARRAY { { "one","two","three" } , {"aOne","ztwo","bthree"}} AUTOCOLS AUTOSORT
         FOR EACH oCol IN oBrw:aCols
            oCol:bClrStd := {||{CLR_BLACK, iif( oBrw:nArrayAt % 2 = 0, CLR_1, CLR_2  ) + IIF(oCol:cOrder="A",2000,IIF(oCol:cOrder="D",-1000,0))}}
         NEXT
   //oBrw:Swapcols(1,2,.T.)
   oBrw:CreateFromCode()
   oBrw:bKeyDown = { || oDlg:SetText( Str( oBrw:nColSel ) ) }
   ACTIVATE DIALOG oDlg CENTER ON INIT ( oDlg:oClient := oBrw, oDlg:Resize() )
return nil


This works , BUT the code is wrong when tho columns are swapped or when a column is moved (clicking and dragging in the header)

What is wrong ? maybe something in the code from fivewin ?

Frank

[ukoenig]

Hello Frank,

To show the active indexed Column,
I only changed the Header-color ( also you can show a symbol ),
because inside the data, there can be a cell-color change.
With this solution, you can change the col-position without problems.
If you need a sample, i can make a copy of the application-xbrowse-part
belongs to the color-change.

Regards
Uwe

[demont frank]

Hello Frank,

To show the active indexed Column,
I only changed the Header-color ( also you can show a symbol ),
because inside the data, there can be a cell-color change.
With this solution, you can change the col-position without problems.
If you need a sample, i can make a copy of the application-xbrowse-part
belongs to the color-change.

Regards
Uwe

Uwe

My main concern is : why does this code doesn't work , wrong code or wrong code from fivewin ?

Maybe you could test to confirm the problem ?

Frank

[ukoenig]

Hello Frank,

I got your source and will check it with a sample of mine.

Regards
Uwe

[ukoenig]

Hello Frank,

the promised source.
Because it is possible to change the Col-position,
you have to find the new position with < oBrw:nAt >
for the col-painting and action.
How it works :
You can click on the Data and the Col changes the color.
Inside the function : PAINT_COL(oBrw, nPos),
You can define any action ( Changing Index ... ) belongs to the column-title.
In this sample i moved col 3 to position 2 and changed the color.
I hope it helps.

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xbrowse.ch"
#define WID  300
#define HGT  150

REQUEST DBFCDX

function Main()
local oDlg, oBrw , oCol, nFor

DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-18

DEFINE DIALOG oDlg SIZE 2*WID,2*HGT PIXEL  FONT oFont

aValues := { { "one","two","three" } , {"aOne","ztwo","bthree"} }

oBrw := TXBrowse():new( oDlg )

WITH OBJECT oBrw

      :nTop      := INT(HGT/2)+5
      :nLeft     := 10
      :nBottom   := HGT-10
      :nRight    := WID-10

      :SetArray( aValues, .f. )

END

FOR nFor := 1 to LEN( oBrw:aCols )
   
   // set the basic-color
   // -------------------------
   oBrw:aCols[nFor]:bClrStd := { || { 0, 16054371 } }

    oBrw:aCols[ nFor ]:blDClickData  := ;
   {|r,c,f,o| ( Msginfo( o:cHeader ), PAINT_COL(oBrw,oBrw:nAt)) }

NEXT

oBrw:CreateFromCode()

ACTIVATE DIALOG oDlg CENTER ON INIT ( oDlg:oClient := oBrw, oDlg:Resize() )

RETURN NIL

// ------------------------

FUNCTION PAINT_COL(oBrw, nCol)
LOCAL nFor

FOR nFor := 1 to LEN( oBrw:aCols )

   // refresh the basic-color
   // --------------------------
   oBrw:aCols[nFor]:bClrStd := { || { 0, 16054371 } }

   // paint new Col-color
   // ----------------------
   IF nCol = 1
      oBrw:aCols[1]:bClrStd := { || { 16054371,128 } }
      // Your action
   ENDIF
   IF nCol = 2
      oBrw:aCols[2]:bClrStd := { || { 16054371,128 } }
     // Your action
   ENDIF
   IF nCol = 3
      oBrw:aCols[3]:bClrStd := { || { 16054371,128 } }
     // Your action
   ENDIF

NEXT

RETURN NIL



Regards
Uwe

[demont frank]

Uwe ,

Ok , it is an intresting example how to change a column color on clicking on the data. It works also when columns are moved.

But mine goal is to give in a array (AUTOSORT , incrimental search) the order column (oCol:cOrder = 'A' or 'D') a color , trying to use :

Code: Select all  Expand view

FOR EACH oCol IN oBrw:aCols
  oCol:bClrStd := {||{CLR_BLACK, iif( oBrw:nArrayAt % 2 = 0, CLR_1, CLR_2  ) + :
  IIF(oCol:cOrder="A",2000,IIF(oCol:cOrder="D",-1000,0))}}
NEXT


I don't understand why this code doesn't work when two columns are swapped (uncomment line oBrw:Swapcols(1,2,.T.) ) or moved (clicking and draging in the header).

You will see that a wrong column has the color for ordered column.
I will try to test using a function like your paint_Col()

Frank