Ir al contenido


Foto

[TRUCO DELPHI] Listbox con una Barra de desplazamiento horizontal.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 31 agosto 2016 - 12:43

[TRUCO DELPHI] Listbox con una Barra de desplazamiento horizontal.


delphi
  1. procedure SetHorizontalScrollBar(lb : TListBox);
  2. var
  3. i, MaxWidth: integer;
  4. begin
  5. MaxWidth := 0;
  6. for i := 0 to lb.Items.Count - 1 do
  7. if MaxWidth < lb.Canvas.TextWidth(lb.Items[i]) then
  8. MaxWidth := lb.Canvas.TextWidth(lb.Items[i]);
  9.  
  10. SendMessage(lb.Handle,
  11. LB_SETHORIZONTALEXTENT,
  12. MaxWidth + 5, 0);
  13. end;

Ejemplo de uso:


delphi
  1. SetHorizontalScrollBar(ListBox1);

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.