por 09466261000176 » 23 Dez 2015 14:16
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