Aspecto de un combobox

[Angel.Matilla]

¿Existe la posibilidad de cambiar la altura de un TComboBox? Ahora mismo tengo varios puestos en un formulario pero por más que lo intento no puedo reducir la altura y el aspecto que queda es bastante feo porque los combos son más grandes que los TEdit que hay en el resto del formulario.

[Caminante]

Hola

Hasta donde yo recuerdo la unica solucion era cambiar el tamaño de fuente del control ya que cambiar el tamaño del componente no surtia efecto.

Saludos

[aguml]

Lo más fácil seria cambiar el tamaño de los TEdits para que tengan el tamaño de los TComboBoxs.
Lo difícil es lo que intentas aunque imposible no creo que sea. Prueba a ver si esto te sirve: http://forums.codeguru.com/showthrea...-designer-view

[roman]

Tal como indica aguml, puedes usar un combobox "ownerdraw", o sea con su propiedad Style en csOwnerDrawFixed. Con eso, ajustando la propiedad ItemHeight obtienes la altura deseada para el combo. Sin embargo, el texto de cada item queda pegado al borde superior y se ve un poco feo. Para centrarlo tienes que implementar el evento OnDrawItem:

Código Delphi [-]
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TCustomComboBox) do
  begin
    Canvas.FillRect(Rect);
    InflateRect(Rect, -2, 0);
    Windows.DrawText(Canvas.Handle, PChar(Items[Index]), -1, Rect, DT_SINGLELINE or DT_VCENTER);
  end;
end;

LineComment Saludos

[ecfisa]

Hola.

No se si te sirva pero, de forma similar al enlace que puso aguml un ejemplo usando las propiedades ItemHeight y Height para lograr el cometido:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   ComboBox1->Style     = csOwnerDrawVariable;
   ComboBox1->ItemIndex = 0;
}

void __fastcall TForm1::ReduceClick(TObject *Sender)
{
  ComboBox1->ItemHeight = ComboBox1->ItemHeight - 2;
  ComboBox1->Height     = ComboBox1->Height + 1;
}

void __fastcall TForm1::btnIncreaseClick(TObject *Sender)
{
  ComboBox1->ItemHeight = ComboBox1->ItemHeight + 2;
  ComboBox1->Height     = ComboBox1->Height + 1;
} 


Efecto:


Saludos

Edito: Y agregando la rutina de roman (que no había visto al momento de este), ciertamente queda mucho mejor presentado.

[roman]

Empezado por Angel.Matilla

porque los combos son más grandes que los TEdit que hay en el resto del formulario.

Por otro lado, ¿cómo es posible esto? Es decir, por defecto los combos y los edit son del mismo tamaño (altura) que está dado por el tamaño de la fuente de caracteres. Si cambias la fuente del combo a que sea igual a la que usas en los edit, se verían similares ¿no?

LineComment Saludos

[[AgustinOrtu]]

Usando las ideas de roman y ecfisa

No he cambiado ninguna propiedad en tiempo de diseño, todo lo hago en ejecucion

Código Delphi [-]
procedure TForm2.FormCreate(Sender: TObject);
begin
  ComboBox1.Style := TComboBoxStyle.csOwnerDrawFixed;
  ComboBox1.OnDrawItem := ComboBox1DrawItem;
  ComboBox1.Font.Size := 14;
  ComboBox1.Canvas.Font.Size := 14;
  ComboBox1.ItemHeight := ComboBox1.Canvas.TextHeight('|') + 2;
  // cargo el combo con la lista de fuentes del sistema para ver como queda
  ComboBox1.Items := Screen.Fonts;
  ComboBox1.ItemIndex := 0;
end;

procedure TForm2.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  Target: TComboBox absolute Control;
begin
  Target.Canvas.FillRect(Rect);
  if (Index >= 0) and (Index < Target.Items.Count) then
  begin
    if ([odComboBoxEdit, odSelected] * State = [odComboBoxEdit, odSelected]) then
      Target.Canvas.Font.Color := clHighlightText;

    Target.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Target.Items[Index]);
  end;
end;

// lo que sigue es el codigo de los botones
procedure TForm2.btnIncreaseClick(Sender: TObject);
begin
  ComboBox1.Font.Size := ComboBox1.Font.Size + 1;
  ComboBox1.Canvas.Font.Size := ComboBox1.Canvas.Font.Size + 1;
  ComboBox1.Height := ComboBox1.Height - 1;
  ComboBox1.ItemHeight := ComboBox1.Canvas.TextHeight('|') + 2;
end;

procedure TForm2.btnReduceClick(Sender: TObject);
begin
  ComboBox1.Font.Size := ComboBox1.Font.Size - 1;
  ComboBox1.Canvas.Font.Size := ComboBox1.Canvas.Font.Size - 1;
  ComboBox1.Height := ComboBox1.Height + 1;
  ComboBox1.ItemHeight := ComboBox1.Canvas.TextHeight('|') + 2;
end;

Edito: Probando me estoy dando cuenta de que el evento OnDrawItem no es estrictamente necesario:

If an OnDrawItem event handler is not provided, the combo box fills the Rect parameter with the current brush and writes the text value of the item specified by the Index parameter.

[Angel.Matilla]

Gracias por vuestras respuestas. Me ha sido útiles pero al final me dieron una solución que creo más sencilla: Poner en el constructor del formulario

SendMessage(ComboBox1->Handle, CB_SETITEMHEIGHT, -1, <altura en píxeles>);

[roman]

Empezado por AgustinOrtu

Edito: Probando me estoy dando cuenta de que el evento OnDrawItem no es estrictamente necesario:

Así es, pero tal como comenté en el mensaje, el texto no queda centrado verticalmente

LineComment Saludos

[roman]

Empezado por Angel.Matilla

Gracias por vuestras respuestas. Me ha sido útiles pero al final me dieron una solución que creo más sencilla: Poner en el constructor del formulario

SendMessage(ComboBox1->Handle, CB_SETITEMHEIGHT, -1, <altura en píxeles>);

Pues sí que es sencilla. Pero más sencilla es cambiar la propiedad ItemHeight, tal como te habíamos dicho

LineComment Saludos

[Angel.Matilla]

Empezado por roman

Pues sí que es sencilla. Pero más sencilla es cambiar la propiedad ItemHeight, tal como te habíamos dicho

El probela de esta solcuión es que los elementos pueden llegara a amontonarse al desplegar el combo.

[roman]

Y de la otra forma, ¿cómo queda? ¿Puedes poner una imagen?

LineComment Saludos

[Angel.Matilla]

Empezado por roman

Y de la otra forma, ¿cómo queda? ¿Puedes poner una imagen?

Pues lo cierto es que la diferencia es menor de lo que me había parecido. Probaré porque tal vez sea mejor solución.

[roman]

Pues sí. Es que, a fin de cuentas, si no cabe, no cabe Independientemente del método.

LineComment Saludos

[[AgustinOrtu]]

Empezado por roman

Así es, pero tal como comenté en el mensaje, el texto no queda centrado verticalment

Tenes razon, me pregunto porque lo habran implementado de esa manera. Aunque tuve que hacerme este ejemplo para darme cuenta

[_Leo]

Empezado por Angel.Matilla

Pues lo cierto es que la diferencia es menor de lo que me había parecido. Probaré porque tal vez sea mejor solución.

Use SendMessage intencionadamente porque solo cambia el alto del Combo y no de los elementos, pero claro si quieres que también cambie la altura de los distintos elementos lo mejor es lo que comenta Román más arriba. Son igualmente un par de líneas, y opcionalmente el DrawItem para que se muestre el texto centrado verticalmente.

[roman]

Ahora que lo mencionas, me parece que hay un problema con la solución del SendMessage. En Delphi 7 al menos, al desplegar el combo la VCL lo regresa a su estado inicial.

LineComment Saludos

[_Leo]

Empezado por roman

Ahora que lo mencionas, me parece que hay un problema con la solución del SendMessage. En Delphi 7 al menos, al desplegar el combo la VCL lo regresa a su estado inicial.

LineComment Saludos

En C++Builder va bien, probado en las versiones 1, 4, 6, 2010, XE4 y 10.1, por lo menos ese problema que comentas.

(Aunque Angel no lo menciona, antes del SendMessage hay que poner la propiedad Style a csOwnerDrawVariable)

[roman]

Empezado por _Leo

(Aunque Angel no lo menciona, antes del SendMessage hay que poner la propiedad Style a csOwnerDrawVariable)

Esto es lo que faltaba. Con ello desaparece el problema que veía

LineComment Saludos

[aguml]

Supongo que para que no se amontonen puedes reducir el número de Items que se muestran. Por defecto son 8.