FiveTech Software tech support forums

... * New: xBrowse: New column data lRunBtnAction class TXBrwColumn. When oCol:bEditBlock or oCol:aEditListTxt is not empty and oCol:bEditValid sets oCol:lRunBtnAction to .T. and exits, the bEditBlock / Listbox is executed immediately after the oEditGet ...

... correctly. fixed. * Enhancement: TDataRow: New default Edit Dialog with Navigation. * Enhancement: XBrowse: If a multidim array is assigned to ::aEditListTxt. first column is considered as ::aEditListBound an second column as ::aEditListTxt. * Enhancement: FW_Greatest(...) and FW_Least(...) now ...

Can i change the ::aEditListTxt and ::aEditListBound at runtime and show this new contents in the listbox?

... := { ||odb2:lfinish} oCol:cHeader := "结案" oCol:nEditType := {||if(::ledit .and. !odb2:EOF().and.::aright2[6]=="Y",4,0)} ocol:aEditListTxt:={" ","Y"} ocol:aEditListBound:={" ","Y"} oCol:bOnPostEdit := {|o, v, n| if( n != VK_ESCAPE .and. ...

... Improved evaluation of expressions used while declaring columns in ADO. - Enhancement: When nEditType is EDIT_LISTBOX and both aEditListBound and aEditListTxt are specified, value in the editlisttxt is diaplayed corresponding the value in the editlistbound. - Enhancement: Method Paste() now updates ...

... in array ~ 800 ... So I tried that : WITH OBJECT oCol :bEditValue := { || oQry:preke } :nEditType := if( lEdt, EDIT_GET_LISTBOX, EDIT_NONE ) :aEditListTxt := aMod END Sorry , but trying to open listbox , app hangs ... How can this be solved ? Fwh 11.11 , Harbour 3.1 MinGW

... == 0, SPACE(10) ,; oQryCJ:caj_tipomovi ) } :nWidth := 50 :cToolTip := "Tipo Movimiento Ingreso/Egreso" :nEditType := EDIT_LISTBOX :aEditListTxt := aTipoEI *** :aEditListBound *** :bEditWhen := {|| IF( oQryCJ:caj_origen = "CAJ" .or. ; *** EMPTY( oQryCJ:caj_origen ), .t., ...

... ) oFont := If( ValType( ::oEditFont ) == 'B', Eval( ::oEditFont ), ::oEditFont ) @ 0, 0 LISTBOX ::oEditLbx VAR nAt OF ::oBrw SIZE 0, 0 ITEMS ::aEditListTxt ; BITMAPS { c_path1 + "Yes1.bmp", c_path1 + "No1.bmp" } ; COLOR aColors[ 1 ], aColors[ 2 ] FONT oFont http://www.pflegeplus.com/pictures/btnlist1.jpg ...

Reinaldo,

In xBrowse Method :
METHOD ShowBtnList( nKey ) CLASS TXBrwColumn
...
...
Missing BMP's in Lines :
@ 0, 0 LISTBOX ::oEditLbx VAR nAt OF ::oBrw SIZE 0, 30 ITEMS ::aEditListTxt ;
BITMAPS { ??????? } ;
COLOR aColors[ 1 ], aColors[ 2 ] FONT oFont

Best Regards
Uwe

... text from the first item of the listbox if i open the listbox. If i close the listbox without any click on a item, the text should be unchanged. ::aEditListTxt and ::aEditListBound should be the same if ::aEditListBound is not defined. And after this, the nAt from the Listbox should be searched. ...

Saludos, tengo 1 xBrowse con varias columnas que contienen ARRAY definidas con :nEditType := EDIT_LISTBOX y :aEditListTxt := aDatos, estos array obviamente contienen varios valores los cuales no es lo que quiero guardar en mi tabla sino la posicion que ocupan en dicho array que ...

... LEN( aItems ) = 0, SPACE(10) ,; aItems[oBrw:nArrayAt, 1] ) } :cToolTip := "Tipo Movimiento Ingreso/Egreso" :nEditType := EDIT_LISTBOX :aEditListTxt := aTipoMovi * :aEditListBound := :bOnPostEdit := { | oCol, xVal, nKey | If( nKey <> VK_ESCAPE ,; ( oCol:value := xVal ), ) } END ...

... LEN( aItems ) = 0, SPACE(10) ,; aItems[oBrw:nArrayAt, 1] ) } :cToolTip := "Tipo Movimiento Ingreso/Egreso" :nEditType := EDIT_LISTBOX :aEditListTxt := aTipoMovi * :aEditListBound := :bOnPostEdit := { | oCol, xVal, nKey | If( nKey <> VK_ESCAPE ,; ( oCol:value := xVal ), ) } END ...

... } oCol:cHeader := 'Detalle del Familia' oCol:nWidth := 200 oCol:nHeadStrAlign:= AL_CENTER ocol:nEditType := EDIT_LISTBOX ocol:aEditListTxt := aFamilias ocol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,ValidaFamilia( xVal,oLbx),) } antes que entre al browse lleno ...

... := { ||odb2:lfinish} oCol:cHeader :={||if(lright, "结案","Hide")} oCol:nEditType := {||if(::ledit .and. !odb2:EOF(),4,0)} ocol:aEditListTxt:={" ","Y"} ocol:aEditListBound:={" ","Y"} oCol:bOnPostEdit := {|o, v, n| if( n != VK_ESCAPE .and. ...