How do I know the field name in xbrowse:column

[dutch]

I use XBROWSE with MySql. I would like to know the field name in column. Because the user can swap or hide the column.
for example
=============
XBROWSE COLUMN 'room', 'name', 'mobile'
if the user swap 'name' to 1st column, then when the user dblclick on 1st column. How do I know that it is field name 'name'?

Thank you in advance

[dutch]

Master Rao,

Is it possible, because when the user modify column such as swap or hide. It will effect, if that column (number) has action.

I use XBROWSE with MySql. I would like to know the field name in column. Because the user can swap or hide the column.
for example
=============
XBROWSE COLUMN 'room', 'name', 'mobile'
if the user swap 'name' to 1st column, then when the user dblclick on 1st column. How do I know that it is field name 'name'?

Thank you in advance

[nageswaragunupudi]

All actions are attached to the column object and move with the column object.

For example:
When you define the browse, "room" is the first column.
You defined some action oBrw:aCols[ 1 ]:bLDClickData := {|| roomaction() }
Wherever the user moves / swaps this column, if the user clicks on the "room" column, the same action is taken.

All the datas/codeblocks assigned to a column pertain that column object, not to the visible serial number of the column.

[dutch]

Dear Master Rao,

Thank you, it works fine for oBrw:aCols[ 1 ]:bLDClickData but I cannot find for ::bLClicked (Left single click) in TXBrwColumn.

All actions are attached to the column object and move with the column object.

For example:
When you define the browse, "room" is the first column.
You defined some action oBrw:aCols[ 1 ]:bLDClickData := {|| roomaction() }
Wherever the user moves / swaps this column, if the user clicks on the "room" column, the same action is taken.

All the datas/codeblocks assigned to a column pertain that column object, not to the visible serial number of the column.

[nageswaragunupudi]

There is no bLClicked data for TXBrwColumn.
The intention of the original authors of the XBrowse is not to use single-click for any action, because single-click is used for navigation in the browse. If an action is assigned to single click, there would be confusion between navigation and which cell to act upon.

Still if you want to assign action to single click, assign the action to oBrw:bRClicked and you can ascertain the active column with oBrw:SelectedCol()

[dutch]

Dear Master,

Thank you so much, I got it.

There is no bLClicked data for TXBrwColumn.
The intention of the original authors of the XBrowse is not to use single-click for any action, because single-click is used for navigation in the browse. If an action is assigned to single click, there would be confusion between navigation and which cell to act upon.

Still if you want to assign action to single click, assign the action to oBrw:bRClicked and you can ascertain the active column with oBrw:SelectedCol()

[nageswaragunupudi]

oCol:cExpr --> FieldName

[dutch]

Dear Master,

It shows nothing (empty).

oCol:cExpr --> FieldName

[dutch]

Dear Mr.Rao,

oCol:cExpr is define columns name at first start. When hide some column, oCol:cExpr will show wrong fieldname.

oCol:cExpr --> FieldName

[Maurizio]

I have these 2 functions

if XBrowse_FindCol(oBrw,'COST') > 0
oBrw:DelCol( XBrowse_FindCol(oBrw,'COST'))
ENDIF

Code: Select all  Expand view  RUN

//-------------------------------------------------------------------------------------------
 Function XBrowse_FindCol(o,cField)
 Local n := 1 // := ascan(o:aCols,{|x| upper(x:cExpr)== upper(cField)})
 local nH := 0
 FOR n := 1 to len(o:aCols)
    IF o:aCols[n]:lHide
       nH ++
    ENDIF    
 
    IF   HB_IsString(o:aCols[n]:cExpr)  .and. UPPER(o:aCols[n]:cExpr) == UPPER(cField)
       Return n - nH
    ENDIF    
 next
 
 Return 0
 

and I added in xBrowse.prg the method fcol

oBrw:fCol('COST'):bEditWhen := {||iif( ::oRsRig:Fields( "PADRE" ):Value ==2,.F.,.T. )}

Code: Select all  Expand view  RUN

// my_modi
METHOD fCol(cField) CLASS TXBrowse
Local n := 0
 FOR n := 1 to len(::aCols)
    IF HB_IsString(::aCols[n]:cExpr)  .and. UPPER(::aCols[n]:cExpr) == UPPER(cField)
       exit
    ENDIF    
 next
return If( n > 0, ::aCols[ n ], nil )

Maurizio

[dutch]

Dear Maurizio,

Thank you, this case has solved hide columns scenario.
Another scenario is swap column, I'm still got problem. I cannot check the current field on ::nColSel, if the user swap column.

I have these 2 functions

if XBrowse_FindCol(oBrw,'COST') > 0
oBrw:DelCol( XBrowse_FindCol(oBrw,'COST'))
ENDIF

Code: Select all  Expand view  RUN

//-------------------------------------------------------------------------------------------
 Function XBrowse_FindCol(o,cField)
 Local n := 1 // := ascan(o:aCols,{|x| upper(x:cExpr)== upper(cField)})
 local nH := 0
 FOR n := 1 to len(o:aCols)
    IF o:aCols[n]:lHide
       nH ++
    ENDIF    
 
    IF   HB_IsString(o:aCols[n]:cExpr)  .and. UPPER(o:aCols[n]:cExpr) == UPPER(cField)
       Return n - nH
    ENDIF    
 next
 
 Return 0
 

and I added in xBrowse.prg the method fcol

oBrw:fCol('COST'):bEditWhen := {||iif( ::oRsRig:Fields( "PADRE" ):Value ==2,.F.,.T. )}

Code: Select all  Expand view  RUN

// my_modi
METHOD fCol(cField) CLASS TXBrowse
Local n := 0
 FOR n := 1 to len(::aCols)
    IF HB_IsString(::aCols[n]:cExpr)  .and. UPPER(::aCols[n]:cExpr) == UPPER(cField)
       exit
    ENDIF    
 next
return If( n > 0, ::aCols[ n ], nil )

Maurizio

[Maurizio]

I use

cField := oBrw:aCols[oBrw:nColSel]:cExpr

Maurizio

[dutch]

Dear Master Rao and Maurizio,

It works now.

Thanks both of you.

oCol:cExpr --> FieldName

[nageswaragunupudi]

Clarification:
When xbrowse is created with columns clause like this:

Code: Select all  Expand view  RUN

COLUMNS "ITEM","UPPER(NAME)","QTY","PRICE","QTY * PRICE" ;
HEADERS "Item", "Name", "Quantity", "Rate", "Amount" ;
 

The expressions listed in COLUMNS clause are stored in each oCol:cExpr.
So, oCol:cExpr need not always contain the field name, but actually the expression used in the COLUMNS clause.

[dutch]

Dear Master,

I got it, it works fine now. But the hidden is still a bit complicated clarify.

Clarification:
When xbrowse is created with columns clause like this:

Code: Select all  Expand view  RUN

COLUMNS "ITEM","UPPER(NAME)","QTY","PRICE","QTY * PRICE" ;
HEADERS "Item", "Name", "Quantity", "Rate", "Amount" ;
 

The expressions listed in COLUMNS clause are stored in each oCol:cExpr.
So, oCol:cExpr need not always contain the field name, but actually the expression used in the COLUMNS clause.