Page 1 of 1
Editar campos lógicos en Xbrowse
Posted: Tue Apr 05, 2011 12:57 pm
by abelcervantes
Saludos a todos:
Estoy tratando de editar campos lógicos en un xBrowse de un array pero quisiera que me salgan iconos de marcado y desmarcado en vez de .t. y .f. Ya intenté con oCol:SetCheck( { "On", "Off" } basándome en algunos ejemplos pero no me funciona (parece que solo funciona cuando uno edita archivos .dbf).
Les rogaría que si saben como hacerlo que me den un ejemplo.
Muchas gracias de antemano.
Re: Editar campos lógicos en Xbrowse
Posted: Tue Apr 05, 2011 3:25 pm
by Pedro
REDEFINE XBROWSE oBrw ID 4001 OF oDialog ARRAY aFras AUTOCOLS LINES CELL
oBrw:nMarqueeStyle := 3
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:lFastEdit := .T.
oBrw:lAutoAppend := .T.
oBrw:aCols[1]:cHeader := "FACTURA"
oBrw:aCols[2]:cHeader := "IMPORTE"
oBrw:aCols[3]:cHeader := "TIPO DE PAGO"
oBrw:aCols[4]:cHeader := "PAGADA"
oBrw:aCols[1]:cEditPicture := "999999"
oBrw:aCols[2]:cEditPicture := "999999.99"
oBrw:aCols[3]:cEditPicture := Space(10)
oBrw:aCols[1]:nEditType := EDIT_GET
oBrw:aCols[2]:nEditType := EDIT_GET
oBrw:aCols[3]:nEditType := EDIT_LISTBOX
oBrw:aCols[4]:nEditType := EDIT_GET
oBrw:aCols[3]:aEditListTxt := { "EFECTIVO", "TARJETA", "SEGURO","PENDIENTE" }
oBrw:aCols[4]:SetCheck ({"CHECKON","CHECKOFF"} )
Espero que te sirva
Re: Editar campos lógicos en Xbrowse
Posted: Sat Apr 09, 2011 9:18 am
by nageswaragunupudi
abelcervantes wrote:Saludos a todos:
Estoy tratando de editar campos lógicos en un xBrowse de un array pero quisiera que me salgan iconos de marcado y desmarcado en vez de .t. y .f. Ya intenté con oCol:SetCheck( { "On", "Off" } basándome en algunos ejemplos pero no me funciona (parece que solo funciona cuando uno edita archivos .dbf).
Les rogaría que si saben como hacerlo que me den un ejemplo.
Muchas gracias de antemano.
Working sample:
Code: Select all
#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"
REQUEST DBFCDX
//----------------------------------------------------------------------------//
function Main()
local aData := { { 'Line1', .t. }, { 'Line2', .f. }, ;
{ 'Line3', .f. }, { 'Line4', .t. } }
local oWnd, oBrw
DEFINE WINDOW oWnd
@ 0,0 XBROWSE oBrw OF oWnd AUTOCOLS ARRAY aData CELL LINES
oBrw:aCols[ 2 ]:SetCheck( nil, .t. )
oBrw:CreateFromCode()
oWnd:oClient := oBrw
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//