Ajustar ancho del desplegable de un ComboBox

[hector.roma]

Lógica y realmente las paredes del último AsciiComboBox, deberían estar alineadas al de mayor ancho.

[[Bicho]]

Hola, pues si le echas un vistazo a la seccion de trucos puedes encontrarte con éste que lo que hace es modificar el ancho del mismo en tiempo de ejecución.

Espero te sirva,

Saludos

[[Lepe]]

Para saber el ancho que tiene en Pixels según la fuente elegida, pues usa la humilde rutina FontWidth, o bien incluso el Combo1.canvas.TextWidth.

Código Delphi [-]
AnchoDelCombo := Fontwidth(Combo1.Font, Combo1.items[3]);

Para hacer más eficiente el tema, guardar en un .ini, registro, etc, el máximo ancho que hay por el momento; al añadir un texto al combo, se compara el máximo ancho con el ancho del nuevo Item y si es mayor el nuevo, guardarlo en el .ini, así evitamos hacer las comparaciones con todos los elementos cada vez que se despliega el combo.

Saludos

[[Bicho]]

Bueno, he estado entretenido y se me han adelantado, pero he podido hacer un ejemplo que contrasta el truco con lo que comenta Lepe.

Código Delphi [-]
var
  Ancho, x, aux: integer;
begin
  Ancho := 0;
  aux   := 0;
  for x := 0 to ComboBox1.Items.Count - 1 do begin
    aux := Combobox1.Canvas.TextWidth(Combobox1.Items.Strings[x]);
    if aux > Ancho then Ancho := aux;
  end;

  ComboBox1.Perform(CB_SetDroppedWidth,Ancho,0);

Espero te sirva,

Saludos

[hector.roma]

Ciertamente, la sección de trucos siempre es mi gran olvidada y a ella le debo muchas horas ahorradas.

Gracias a todos por recordarme su existencia, y gracias por la ayuda.