como adicionar o simbolo > em um txbrowse usando array ?
segue codigo
- Code: Select all Expand view RUN
oBrwCompatibilidades := TxBrowse():New( oWinGradeProduto )
oBrwCompatibilidades:nHeaderLines := 1 // Numero de Linhas
oBrwCompatibilidades:lAllowColSwapping :=.F. // Trocar Colunas
oBrwCompatibilidades:lRecordSelector := .f.
oBrwCompatibilidades:nMarqueeStyle := MARQSTYLE_HIGHLROW // Seleciona a linha Toda
oBrwCompatibilidades:nColDividerStyle := LINESTYLE_BLACK // Linha Vertical
oBrwCompatibilidades:lColDividerComplete := .t. // Preencher as Colunas ate o final da tela
oBrwCompatibilidades:bChange := {|| LimpaInclusaoCompatibilidade() }
oBrwCompatibilidades:SetArray( aCompatibilidades )
oBrwCompatibilidades:aCols[1]:cHeader := "Referências"
oBrwCompatibilidades:aCols[1]:nWidth := 400
oBrwCompatibilidades:aCols[1]:nDataStrAlign := AL_RIGHT
oBrwCompatibilidades:aCols[1]:nHeadStrAlign := AL_RIGHT
oBrwCompatibilidades:CreateFromResource( 117 )
oWinGradeProduto:oClient := oBrwCompatibilidades
