Lazarus: Ancho de la lista desplegable de un ComboBox

En esta ocación observaremos como ampliar el tamaño de la lista de los elementos de un combobox o cuadro desplegable en Lazarus o Delphi, pues es molesto para el usuario desplegar el cuadro y no poder leer el texto que sobre pase el tamaño que le definimos en tiempo de diseño al control.

Es muy sencillo hacer esto con la API de Windows, es decir en otros sistemas operativos no funcionará lamentablemente.

Ahora si, manos a la obra: 

– En el método  OnDropDown del combobox agregar el siguiente código:

var
WidthC, x, aux: integer;
begin
WidthC:= 0;
aux := 0;
for x := 0 to ComboBox1.Items.Count – 1 do
begin
aux := Combobox1.Canvas.TextWidth(Combobox1.Items.Strings[x]) + 6;
if aux > WidthC then
WidthC := aux;
end;
SendMessage( ComboBox1.Handle, CB_SETDROPPEDWIDTH, WidthC, 0);

El resultado:

Esto es todo, espero sea de utilidad.

Fuente:

http://www.developpez.net/forums/d962615/c-cpp/outils-c-cpp/cppbuilder/modification-position-liste-deroulante-combobox/

http://www.clubdelphi.com/foros/showthread.php?t=36565

Anuncios

Etiquetas: , , , , , , , ,

About udiaz60

Ingeniero de Sistemas. Universidad Nacional Abierta y A Distancia, UNAD.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: