FiveTech Software tech support forums

... the second number is the delay on old procedure I set ADD COLUMN TO oBrw HEADER "Ruota" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,1] } CENTER ADD COLUMN TO oBrw HEADER "Num" DATA {|v,oCol| oCol:oBrw:aArrayData[oCol:oBrw:nArrayAt,2,1] } CENTER ADD COLUMN TO oBrw ...

New test using a dummy array, nArrayAt and bOnSkip only    LOCAL cnSQL := ADOLocal(), aDummy, aCol   cnSQL:Execute( "SELECT * FROM " + workarea + " ORDER BY " + oTbrowse[ 1, 1 ] )   IF cnSQL:RecordCount() ...

... nil ) :bClrStd := { || If( oBrw:aRow == oBrw:aAppend, { CLR_BLACK, CLR_YELLOW }, { CLR_BLACK, oBrw:nClrPane } ) } :bChange := { || If( oBrw:nArrayAt < oBrw:nLen, CheckAppendRow( oBrw ), nil ) } :bPastEof := { || If( oBrw:aAppend != nil .and. Empty( oBrw:aAppend[ 3 ] ), nil, ; ( AAdd( ...

What is this? :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 ...

... 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) https://i.postimg.cc/4NbFm215/filter.jpg

... 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

hi Otto,

Otto wrote:In TComboMetro, the combobox is done with an xbrowse.

::bClrStd := { || If( ::nArrayAt == ::nHoverAt .and. ::nArrayAt > ::nBlankRows, ;
{ CLR_WHITE, CLR_BLUE }, { CLR_BLACK, CLR_WHITE } ) }

i did not know that, so it should be easy when is based on xbrowse

... and then pass the color along with it. Or just pass another ARRAY with the colors. And then compare it in ::bClrStd. ::bClrStd := { || If( ::nArrayAt == ::nHoverAt .and. ::nArrayAt > ::nBlankRows, ; { CLR_WHITE, CLR_BLUE }, { CLR_BLACK, CLR_WHITE } ) } Best regards, Otto

Prueba asi y debería funcionar: oBrw:aCols[ 2 ]:bEditWhen = { || oBrw:nArrayAt != 8 } luego es el valor que esté devolviendo la expresión Prueba a hacer esto para saber el tipo de valor que hay: olbx101c:acols[4]:bEditWhen:= { || MsgInfo( ValType( olbx101c:aArrayData[olbx101c:nArrayAt][5] ...

Prueba asi y debería funcionar: oBrw:aCols[ 2 ]:bEditWhen = { || oBrw:nArrayAt != 8 } luego es el valor que esté devolviendo la expresión Prueba a hacer esto para saber el tipo de valor que hay: olbx101c:acols[4]:bEditWhen:= { || MsgInfo( ValType( olbx101c:aArrayData[olbx101c:nArrayAt][5] ...

Hola Antonio

Una consulta,,, como desabilito un EDIT_BUTTON dentro de un xbrowse, dependiendo de la condicion

olbx101c:acols[4]:bEditWhen:= { || olbx101c:aArrayData[olbx101c:nArrayAt][5]="1" }

lo hago de esta manera pero no me funciona, sigue estando habilitado

Gracias

... ] oCol:bLDClickData := { || Erase_Items(oBrw,oPanel) } Function Erase_Items(oBrw,oPanel,aData,oDlg,oFontSmall) local nItem:= oBrw:aArrayData[ oBrw:nArrayAt ][2] oBrw:Delete() oBrw:Refresh() DeleteControl( oPanel, nItem ) return nil function DeleteControl( oPanel, nItem ) local nTop, nLeft for n ...

... := oBrw:aCols[ i ] oCol:bLDClickData := { || Erase_Items(oBrw,oPanel) } NEXT Function Erase_Items(oBrw,oPanel) local nItem:= oBrw:aArrayData[ oBrw:nArrayAt ][2] aDel(oBrw:aArraydata,nItem-1) // xbrowser oBrw:aArraydata oPanel:aControls[nItem]:destroy() oBrw:refresh() oPanel:refresh() return nil ...

I have a field numeric and I wish show the string + "gg"

:bEditValue :={ || str(oBrw:aArrayData[ oBrw:nArrayAt,1])+"gg" }

why not run ?

...   ) For many rows selected Not run ok oBrw:aSelected give number or numbers not the row oBrw:aRow is as ::aArrayData[ ::nArrayAt ] you can make For n= 1 to Len( oBrw:aselected) nAt := oBrw:aArrayData[ oBrw:aselected[n] ] aadd( acopy, aclone(nat)) next just an idea