To nages : modify of a xbrowse

[Silvio.Falconi]

Nages,
I have this xbrowse with an array




when I modify 4th column and the string is "45" i can insert only 2 space

how I can resolve ?

I made

Code: Select all  Expand view

WITH OBJECT oBrwFilter

      :bPastEof     := { ||  AddRow( oBrwFilter ) }
      :bKeyDown  := { |nKey| If( nKey == VK_DELETE, DeleteRow( oBrwFilter ), ;
                             If( nKey == VK_INSERT, InsertRow( oBrwFilter ), ;
                              nil ) ) }

               :aCols[1]:nEditType :=  EDIT_LISTBOX
               :aCols[1]:aEditListTxt := acOperators

               :aCols[2]:nEditType :=  EDIT_LISTBOX
               :aCols[2]:aEditListTxt := aTitulos

               :aCols[3]:nEditType :=  EDIT_LISTBOX
               :aCols[3]:aEditListTxt := acOpRelacion

               :aCols[4]:nEditType :=  EDIT_GET


      :lRecordSelector     := .f.
      :lHScroll             := .f.
      :lVScroll             := .f.
      :CreateFromCode()
   END

for the first column I wish it not show the listbox when is the first line of array

this not run

:aCols[1]:bEditBlock := { |r,c,oCol|IIF(!oBrwFilter:nArrayAt = 1, MsgInfo("Non puoi")) }


for the 4th column I have problem because I cannot insert more characters

[nageswaragunupudi]

for the 4th column I have problem because I cannot insert more characters

Add this code:

Code: Select all  Expand view

oBrw:aCols[ 4 ]:nDataLen := n  // where n is the number of chars you want to enter

OR

Code: Select all  Expand view

oBrw:aCols[ 4 ]:lVarChar := .T.
// AND/OR
aCols[ 4 ]:nMaxLen := n

[Silvio.Falconi]

for the 4th column I have problem because I cannot insert more characters

Add this code:

Code: Select all  Expand view

oBrw:aCols[ 4 ]:nDataLen := n  // where n is the number of chars you want to enter

OR

Code: Select all  Expand view

oBrw:aCols[ 4 ]:lVarChar := .T.
// AND/OR
aCols[ 4 ]:nMaxLen := n

Nages,
on first column I made

:aCols[1]:nEditType := EDIT_LISTBOX
:aCols[1]:aEditListTxt := acOperators
:aCols[1]:bEditBlock := { |r,c|IIF(oBrwFilter:nArrayAt = 1,MsgInfo("not"),) }


I not want the end use can select the combobox if is on first line ( SEE THE PICTURE)

[nageswaragunupudi]

What is this?

Code: Select all  Expand view

:aCols[1]:bEditBlock := { |r,c|IIF(oBrwFilter:nArrayAt = 1,MsgInfo("not"),) }

What is the purpose of bEditBlock?

[Silvio.Falconi]

What is this?

Code: Select all  Expand view

:aCols[1]:bEditBlock := { |r,c|IIF(oBrwFilter:nArrayAt = 1,MsgInfo("not"),) }

What is the purpose of bEditBlock?

I not Know I found this line on this forum

on first colum I use

:aCols[1]:nEditType := EDIT_LISTBOX
:aCols[1]:aEditListTxt := acOperators

I wish only it can run only when the oBrwFilter:nArrayAt not is 1 ( first row)

[nageswaragunupudi]

Code: Select all  Expand view

oBrw:bEditWhen := { || oBrw:nArrayAt > 1 }

When the user is on line 1, he can open and see the list but can not change the value

[nageswaragunupudi]

Another way

Code: Select all  Expand view

oBrw:bChange := { |oBrw| XbrChange( oBrw ) }

//
//
//
function XbrChange( oBrw )

   if oBrw:nArrayAt == 1
      oBrw:aCols[ 1 ]:nEditType := 0
   else
      WITH OBJECT oBrw:aCols[ 1 ]
         :nEditType := EDIT_LISTBOX
         :aEditListTxt := acOperators
      END
   endif
 

[Silvio.Falconi]

Another way

Code: Select all  Expand view

oBrw:bChange := { |oBrw| XbrChange( oBrw ) }

//
//
//
function XbrChange( oBrw )

   if oBrw:nArrayAt == 1
      oBrw:aCols[ 1 ]:nEditType := 0
   else
      WITH OBJECT oBrw:aCols[ 1 ]
         :nEditType := EDIT_LISTBOX
         :aEditListTxt := acOperators
      END
   endif
 

Nages,
Not run ok



I can modify the first line and the first column

[nageswaragunupudi]

Not run ok

Recheck your implementation.