adiciona horizontal scrollbar em um listbox Adiciona Horizontal Scrollbar em um ListBox

[Issei Hyoudou]

//---------------------------------------------------------------------------
//Adiciona Horizontal Scrollbar
void Horizontal_Scrollbar()
{
int A, B;
String C;

  // Encontra o comprimento do item mais longo.
  A = 0;
  for (int i=0; i<Form1->ListBox1->Items->Count; i++)
  {
    C = Form1-> ListBox1-> Items-> Strings[i];
    B = Form1-> ListBox1 -> Canvas-> TextWidth(C);
    if (B > A) A = B;
  }

//Adiciona um pouco mais para um bom efeito visual no listbox.
A += 10;

//Manda o Windows criar a barra de rolagem com o Valor do A
SendMessage(Form1 -> ListBox1 -> Handle, LB_SETHORIZONTALEXTENT, A, 0);
}
//---------------------------------------------------------------------------