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?
Aumentar espaçamento das linhas
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
2 respostas
-
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
-
Era exatamente o que eu precisava, valeu!
— Alexandre Behling 14 de Dec de 2022
-
-
-
Achei um objeto que faz o que precisava é a TSBrowse():New(
— Sergio Martinez Martinez 15 de Jan de 2019