CHECKBOX

[09466261000176]

Olá amigos, estou querendo usar checkbox em TXBROWSE. Alguém tem algum exemplo pronto para me mostrar aqui? Obrigado!

[Kapiaba]

http://forums.fivetechsupport.com/viewt ... SE#p149818

[09466261000176]

Usei este exemplo e não funcionou

Olha como eu implemento

*Browse
oDB_AGENDA := TXBrowse():New( oDld_CAD_AGENDAMENTO )
oDB_AGENDA:cAlias := 'agenda'
oDB_AGENDA:bKeyDown :={|nKey| IF(nkey=13,( T_ID_AGENDA:=agenda->ID_AGENDA, ),) }
oDB_AGENDA:bChange :={|| T_ID_AGENDA:=agenda->ID_AGENDA,T_CPF_ALUNO:=agenda->CPF_ALUNO,CARREGAR_DADOS_AGENDAMENTO() }
oDB_AGENDA:bLDblClick :={|| T_ID_AGENDA:=agenda->ID_AGENDA,T_CPF_ALUNO:=agenda->CPF_ALUNO,CARREGAR_DADOS_AGENDAMENTO() }
oDB_AGENDA:nMarqueeStyle := MARQSTYLE_HIGHLROW
oDB_AGENDA:nColDividerStyle := LINESTYLE_BLACK
oDB_AGENDA:nRowDividerStyle := LINESTYLE_BLACK
oDB_AGENDA:lColDividerComplete := .F.
oDB_AGENDA:lFooter := .T.
oDB_AGENDA:lRecordSelector := .T.
oDB_AGENDA:nHeaderLines := 1.0
oDB_AGENDA:nDataLines := 1.0
oDB_AGENDA:bClrStd := {|| { CLR_BLACK, IIF((agenda->(ORDKEYNO()))%2==0, rgb(168,211,255), rgb(255,255,255) )}}
oDB_AGENDA:bClrSelFocus := {|| { CLR_WHITE, CLR_BLUE } }
*-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
oCol := oDB_AGENDA:AddCol()
oCol:bStrData := { || agenda->PLACA_VEICULO }
oCol:cHeader := "Placa"
oCol:nDataStrAlign := AL_LEFT
oCol:nHeadStrAlign := AL_LEFT
*-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
oCol := oDB_AGENDA:AddCol()
oCol:bStrData := { || DTOC(agenda->DATA_AGENDAMENTO) }
oCol:cHeader := "Data"
oCol:nDataStrAlign := AL_LEFT
oCol:nHeadStrAlign := AL_LEFT



Seu exemplo

oDB_AGENDA:oCol( "Exist" ):SetCheck( { "GREEN", "RED" }, .t. )

coloco e diz que SetCheck não existe