Scrollbar Horizontal No Listbox

[Paulo Nobre]

Tenho um componente ListBox, de terceiros, que acrescenta uma barra horizontal caso o texto seja maior do que seu comprimento.

Originalmente, o componente ListBox do DElphi não permite isso, apenas acrescentando a vertical de uma forma natural, ou seja, se a quantidade de texto for maior que o height do ListBox.

A pergunta é: Como acrescentar código no programa para inserir esta funcionalidade ao ListBox do Delphi, isto é, não precisar usar componentes de terceiros.

Alguém sabe como fazer?

[Micheus]

Paulo Nobre, até que é simples. Basta você atribuir a largura desejada (em pixels) à propriedade ScrollWidth.

A questão é observar que ao ser incluído um novo item na lista, deve ser observado se a largura do texto não é maior do que o previamente definido.

Ex.: supondo que o 3 elemento da lista tenha o maior comprimento, então:

ListBox1.ScrollWidth := ListBox1.Canvas.TextWidth(ListBox1.Items[2]);

[]s

[Paulo Nobre]

Micheus,

Acontece que a alteração não dependerá de mim e sim do usuário.

O usuário digitará algo numa caixa de texto(Editbox) que irá para o listbox.

O tamanho do que vai digitar é livre até 50 caracteres.

O"W" maiúsculo é o que ocupa o maior espaço.

Mas, com o código que você forneceu já tenho um ponto de partida.

Obrigado

[Micheus]

O usuário digitará algo numa caixa de texto(Editbox) que irá para o listbox.

Paulo Nobre, é justamente neste momento que você deverá fazer o teste para verificar ser o comprimento em pixels (retornado por Canvas.TextWidth) é maior que o valor contido em ScrollWidth.

O tamanho do que vai digitar é livre até 50 caracteres.

O"W" maiúsculo é o que ocupa o maior espaço.

Como a largura esperada é em pixels e Canvas.TextWidth retorna a largura do texto nesta unidade, estas questões pouco lhe incomodarão.

[]s

[Paulo Nobre]

Ok Micheus.

Obrigado.

[]s