Aspecto de un combobox

[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 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]

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