Xbrowse < :nColSel > col-pos change at runtime rel. to index

[ukoenig]

Hello,

I got a problem to change the Col-position at runtime
On startup it is OK

There is a RUNTIME-change of < FILE + INDEX >

ON INIT

:nRowSel := nGoRecord
:nColSel := nOrder
:SetGroupHeader( "Workarea ==> " + DBF() + " Index ==> " + (cFileName)->(INDEXKEY(nOrder)) + ;
" Order ==> " + ALLTRIM( STR( (cFileName)->(INDEXORD()) ) ) )

---------------------------------

The File-change and indexord at runtime on RADIO-selection
The file- and index-change works but impossible to adjust the column-position.

DBSELECTAREA(cFileName), ; // new file
(cFileName)->(DBSETORDER(nOrder)), ; // start-index
oBrw:SetGroupHeader( "Workarea ==> " + DBF() + " Index ==> " + (cFileName)->(INDEXKEY(nOrder)) + ;
" Order ==> " + ALLTRIM( STR( (cFileName)->(INDEXORD()) ) ) ), ;
oBrw:nColSel := nOrder, ;
oBrw:Refresh(), ;
...
...

Sample2 shows the col-position of sample1 needed to be moved to 5 like on INIT opening sample2 (works )

[nageswaragunupudi]

oBrw:nColSel := <newval>
oBrw:Refresh()
works and should work at runtime also.
Please recheck.

[ukoenig]

Mr. Rao,

Maybe it is possible to FORCE a column-headerclick after selecting a new file to activate the index in :

Code: Select all  Expand view  RUN

@ 518, 935  RADIO oFilename VAR nFilename PROMPT "Samples1", "Samples2", "Samples3", "Samples4", ;
                  "Samples5", "Samples6", "Samples7" _3D SIZE 80, 25 ;
HELPID 100, 101, 102, 103, 104, 105, 106 OF oDlg PIXEL UPDATE ;
ON CHANGE ( SAVE_SYS(nOFilename), ; // saves old values before reading the new ones.
      nOFilename := nFilename, ;
      READ_SYS(.T.), ; // reading the NEW values
      DBSELECTAREA(cFileName), ;
      oBrw:SetGroupHeader( "Workarea ==>  " + DBF() + "       Index ==>  " + (cFileName)->(INDEXKEY(nOrder)) + ;
      "       Order ==>  " + ALLTRIM( STR( (cFileName)->(INDEXORD()) ) ) ), ;  
      XBRW_COLOR( oBrw ), oDlg:UPDATE(), ;
      oBrw:aCols[nOrder]:bClrStd := {|| { 0, aVal[32] } } )
 

something like ( used on another situation to auto-move to the next cell )

:aCols[nOrder]:bGetChange := {| k, f, o, oCol | If( Len( RTrim( o:oGet:Buffer ) ) == Len( o:oGet:Buffer ),;
( o:SendMsg( WM_KEYDOWN, VK_RETURN ) ), ) }


I still noticed another problem
I added a new color to show the column with the active index different
Once a column is colored I cannot reset on index-change to the row-colors
The old column still shows the color.
On column-change I call the ROW-paining but the old COLUMN-color is not deleted.



I added / tested :

I := 1
FOR I := 1 TO 8
oBrw :aCols[I]:bClrStd := {|| { NIL, NIL } }
NEXT

It clears the col-color but the row-colors are missing / not repainted

Code: Select all  Expand view  RUN

INDEX-change !!!

AEval( oBrw:aCols, { |o| o:bLClickHeader := {|r,c,f,o| XBRW_COLOR( oBrw ), ; // painting ROW-colors
     nOrder := o:nCreationOrder, ;
     (cFileName)->(DBSETORDER(nOrder)), ;
     o:bClrStd := {|| { 0, aVal[32] } }, ; // COLUMN-color for INDEX
     oBrw:SetGroupHeader( "Workarea ==>  " + DBF() + "       Index ==>  " + ; // header-title refreshed
     (cFileName)->(INDEXKEY(nOrder)) + "       Order ==>  " + ;
     ALLTRIM( STR( (cFileName)->(INDEXORD()) ) ) ) } } )

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

FUNCTION XBRW_COLOR( oBrw )

// to clear / reset the column-colors
//I := 1
//FOR I := 1 TO 8
//  oBrw    :aCols[I]:bClrStd := {|| { NIL, NIL } }
//NEXT

// ROW - colors
oBrw    :bClrRowFocus   := { || { aVal[31], aVal[29] } } // light red
oBrw    :bClrStd        := { || If( oBrw:KeyNo() % 2 == 0, ;
                    { If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[31] ), aVal[27] }, ; // light blue
                    { If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[31] ), aVal[28] } ) } // light blue
oBrw    :bClrSel        :=  ;
oBrw    :bClrSelFocus   := { || { If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[31] ), aVal[30] } } // light green
oBrw    :nClrText       := aVal[31]

oBrw:Refresh()

RETURN NIL
 

regards
Uwe

[nageswaragunupudi]

For changing DBF, please try

Code: Select all  Expand view  RUN

@ 518, 935  RADIO oFilename VAR nFilename PROMPT "Samples1", "Samples2", "Samples3", "Samples4", ;
                  "Samples5", "Samples6", "Samples7" _3D SIZE 80, 25 ;
HELPID 100, 101, 102, 103, 104, 105, 106 OF oDlg PIXEL UPDATE ;
ON CHANGE ChangeDBF( oBrw, nFileName )


function ChangeDBF( oBrw, nFileName )

   local cAlias   := "Samples" + Str( nFileName, 1, 0 )
   local cTag     := ( cAlias )->( OrdName() )

   oBrw:cAlias := cAlias
   oBrw:aCols[ 1 ]:cGrpHdr := "WorkArea ==> " + oBrw:cAlias + ;
                  "   Index ==> " + ( oBrw:cAlias )->( OrdKey() ) + ;
                  "   Order ==> " + ( oBrw:cAlias )->( OrdNumber() )
                 
   AEval( oBrw:aCols, { |o| o:cOrder := If( o:cSortOrder == cTag, "A", "" ) } )
   oBrw:Refresh()              

return nil
 

[nageswaragunupudi]

If you want to have a different color for indexed column, do like this:

Code: Select all  Expand view  RUN

// When creating the browse;
   AEval( oBrw:aCols, { |o| o:bClrStd := FnClrStdBlock( o ) } )
   
//
function FnClrStdBlock( oCol )
return { || If( Empty( oCol:cOrder ), If( oCol:oBrw:KeyNo() % 2 == 0, { nClr1, nClr2 }, { nClr3, nClr4 } ), { nIdxClr1, nIdxClr2 } ) }
 

You do not need to change the colors again when index is changed or when DBF is changed

[ukoenig]

Mr. Rao,

thank You very much for the solutions
it works great and I got the needed results
Now colors can be a combination of changing a column-color related to the index on row ( zebra ) colors.
It seems setting the column-focus on filechange is working now with these changes.
Still some finetuning to do before publishing the new release.

Changing the index-order on headerclick



regards
Uwe

[ukoenig]

Mr. Rao,

It works perfect with DBF's but
is it possible to change the column-color on headerclick as well using ARRAYS



regards
Uwe

[nageswaragunupudi]

The logic I provided works with all.

[ukoenig]

I used sample xBcell.prg ( array-sample) and added the lines
doesn't work only the row-colors are ok

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "xbrowse.ch"

function TestMain()

   local oWnd
   local oBrw
   local oBar
   local lEmpty := .f.
   
   local aArray := {}
   
   DEFINE WINDOW oWnd TITLE "Testing Autosave Data"
   
 
   if empty( aArray )                          
      aArray := {{"one","two","three","four"},;
        {"one","two","three","four"},;
        {"one","two","three","four"},;
        {"one","two","three","four"}}    
   endif
   
   @ 0,0 XBROWSE oBrw OF oWnd ;
      COLUMNS {1,2,3,4} ;
      HEADERS {"Activated-1","Activated-2","Deactivated-1","DeActivated-2"} ;
      array aArray LINES CELL fastedit
   
   oBrw:aCols[ 1 ]:lAutoSave := .t.
   oBrw:aCols[ 2 ]:lAutoSave := .t.
     
   aeval( oBrw:aCols, { |oCols| oCols:nEditType := EDIT_GET } )

// changing column-color !!!
   AEval( oBrw:aCols, { |o| o:bClrStd := FNCLRSTDBLOCK( o ) } )

   oWnd:oClient := oBrw
   
   oBrw:createfromcode()
   
   activate window oWnd
   
return nil

// ---------

FUNCTION FNCLRSTDBLOCK( oCol )

RETURN { || If( Empty( oCol:cOrder ), If( oCol:oBrw:KeyNo() % 2 == 0, ;
{ 0, 15263976 }, { 0, 16772055 } ), { 0, 255 } ) }

 

regards
Uwe

[nageswaragunupudi]

Please add the clause AUTOSORT to the XBROWSE command.

[ukoenig]

Thank You very much
it is working now using arrays

Code: Select all  Expand view  RUN

Please add the clause AUTOSORT to the XBROWSE command.

regards
Uwe

[nageswaragunupudi]

Uwe
Please suggest some good sites for downloading free icons for my applications.

[ukoenig]

Simply the best 590,912 icons and 2,443 iconsets
includes everything You need

http://www.iconarchive.com/

regards
Uwe

[ukoenig]

Rao,

I noticed the link above includes a mixture of free and commercial icons

from a german webside ( absolutely free )
99,454 icons

https://de.freepik.com/freie-ikonen

I will add some more links

regards
Uwe

[nageswaragunupudi]

Thank you