Aumentar espaçamento das linhas

Framework - Linha Protheus LIB
,
1

Alguém teria um exemplo de como aumentar o espaçamento do TCBrowse via programação? Ou se tem outro objeto para fazer uma espaçamento maior nas linhas?

2

Achei um objeto que faz o que precisava é a TSBrowse():New(

3

Tenta dar uma olhada na classe TSBrowse().

TSBROWSER - CRIA UM OBJETO DO TIPO GRADE

4

Boa tarde,

Passei pela mesma situação agora, eu utilizei a propriedade "nLinhas" do TCBrowse, ela define a quantidade de linhas que uma linha do TCBrowse irá ocupar.

Exemplo:


oBrowse := TCBrowse():New(000,000,000,000,,{},{},oDlg,,,,,{||},,,,,,,.F.,,.T.,,.F.,,,)
oBrowse:nLinhas := 2  
oBrowse:setArray(aArray)
oBrowse:addColumn(TCColumn():new('Coluna 1',{||AllTrim(aArray[oBrowse:nAt,01])},'@!',,,"LEFT",,.F.,.F.,,,,,))
oBrowse:addColumn(TCColumn():new('Coluna 2',{||AllTrim(aArray[oBrowse:nAt,02])},'@!',,,"LEFT",,.F.,.F.,,,,,))
oBrowse:Align := CONTROL_ALIGN_ALLCLIENT
oBrowse:Refresh()

Atenciosamente, Matheus Cunha

5

Era exatamente o que eu precisava, valeu!