ImageList en ListBox.Columns:=1
Hola. Estoy intentando colocar una imagen (de un ImageList) a la izquierda del texto de un ListBox. El ListBox se mueve en horizontal para lo que asigno 1 a la prop. Columns. El problema es que en el Canvas del ListBox no quedan bien alineados Imagen-Texto. Las imágenes se agolpan unas sobre otras. Aunque de las cinco que tengo la primera, "casi" queda bien. Me gustaría cargar
unas treinta imágenes de unos 60x40 píxeles para que aparezca una secuencia de imagen+ palabra en cada clic de ratón sobre las flechas del ListBox. Sigo este código pero un poco a ciegas porque no entiendo bien el proceso. A ver si algún apóstol de Delphi me ilumina. Gracias |
bulc,
Revisa esta imagen: Revisa este código: El código anterior implementa los componentes freeware TImgComboBox y TImgListBox creados por Derek van Daal : derekvandaal@hotmail.com El ejemplo y el componente se encuentran en el link: http://terawiki.clubdelphi.com/Delph...ImgListBox.rar La información original fue obtenida del link: http://www.delphipages.com/comp/imag...ist_-4580.html Espero sea útil :) Nelson. |
bulc,
Component Information: Cita:
Nelson. |
Cita:
O estoy entendiendo mal tu problema, o la solución es ajustar la propiedad ItemHeight del ListBox a la altura de las imágenes al inicio:
Por ejemplo: Da este resultado: Saludos. |
Me lo estudio
No sé como sabéis tanto. Gracias.
|
Canvas.TextOut
Cita:
|
Hola bulc.
Hice ese cácluculo para centrar verticalmente el texto de forma aproximada. La mitad del alto es Rect.Top+Rect.Bottom div 2 y ya que están igualados, también se podría haber usado ImageList1.Height div 2. Código:
+----------+ Top
Saludos. |
bulc,
La solución de Ecfisa es excelente, sin embargo te sugiero revisar los componentes TImgComboBox y TImgListBox creados por Derek van Daal dado que facilitan el uso de imágenes y permiten la creación de un código más simple y directo. Espero sea útil :) Nelson. |
Cita:
|
La franja horaria es GMT +2. Ahora son las 21:33:47. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi