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?
Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!
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