Colocar Diferentes Tipo De Letra Ydiferentes Tamaños a Itens De Un Combobox

[gulder]

Holaforo como andan espero que bien bueno hoy tengo una duda y es como hago para colocar los Itens de un combobox de diferentes tamaños y diferentes tipos de letra espero su respuesta gracias de antemano gulder-gan

[[maeyanes]]

Hola...

El nombre correcto de la propiedad que mencionas es IteMs.

Para lograr lo que deseas tienes que establecer la propiedad Style del ComboBox en csOwnerDrawFixed o csOwnerDrawVariable y usa los eventos OnDrawItem y/o OnMeasureItem.

Para mayor información usa la ayuda de Delphi.


Saludos...

[*Caro*]

Hola gulder, como te dice mayanes tienes que utilizar el evento OnDrawItem del ComBoBox y su propiedad Style en csOwnerDrawFixed.

Este ejemplo te pinta el item 1 y 4, tu debes establecer tu condición.

Código Delphi [-]
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 With ComboBox1 do
  begin
   if (Index=1) or (Index=4) then
    begin
     Canvas.Font.Name := 'Verdana';
     Canvas.Font.Color := clRed;
     Canvas.Font.Size := 12;
    end
   else
    begin
     Canvas.Font.Name := 'Vivian';
     Canvas.Font.Color := clBlack;
     Canvas.Font.Size := 10;
    end;
   Canvas.FillRect(Rect);
   Canvas.TextOut(Rect.Left + 4, Rect.Top + 1, Items[Index]);
  end;
end;

Mayanes una pregunta, si se le da un tamaño grande que pase el alto que tiene cada item, el texto se corta, ¿como se puede hacer para que el alto del item se adecue al tamaño de letra?.

Saluditos

[gulder]

hola como andan maeyanes, Caro gracias por sus respuestas estan muy buenas y me uno a caro en la pregunta que le hace la cual es la siguientes

Mayanes una pregunta, si se le da un tamaño grande que pase el alto que tiene cada item, el texto se corta, ¿como se puede hacer para que el alto del item se adecue al tamaño de letra?.


saludos gulder-gan y gracias

[[maeyanes]]

Hola...

Para eso es el valor csOwnerDrawVariable, junto con los eventos OnMeasureItem y OnDrawItem.

Con el evento OnMeasureItem estableces el alto del item en pixeles.

Un pequeño ejemplo:

Código Delphi [-]
procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index:
  Integer; var Height: Integer);
begin
  Height := Control.Canvas.GetTextHeight(ComboBox1.Items[Index])
end;

Saludos...

[gulder]

bueno maeyanes me salio un error me dice que canvas no esta declarada o algo asi saludoes men

[*Caro*]

Empezado por maeyanes

Para eso es el valor csOwnerDrawVariable, junto con los eventos OnMeasureItem y OnDrawItem.

Con el evento OnMeasureItem estableces el alto del item en pixeles.

Un pequeño ejemplo:

Código Delphi [-]

procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index:
Integer; var Height: Integer);
begin
Height := Control.Canvas.GetTextHeight(ComboBox1.Items[Index])
end;


Saludos...

Hola Mayanes, gracias por responder, acabo de probar lo que dices, pero no me esta funcionando, primero, Control no tiene la propiedad Canvas y Canvas no tiene el GetTextHeigth pero si el TextHeigth, hice lo siguiente, en el evento OnMeasureItem:

Código Delphi [-]
procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
 if Index<>-1 then //Verificamos para que no nos de un ActionViolation
  Height := Canvas.TextHeight(ComboBox1.Items[Index]);
end;

pero nada, el TextHeigth me devuelve siempre el mismo alto para todos los items y es ese mismo alto que le asigna a Heigth, por si acaso también puse la propiedad Style con csOwnerDrawVariable, ¿me puedes decir en que me estoy equivocando?.

Saluditos...

[[maeyanes]]

Hola...

Bueno, ya que lo mencionas veo que cometí algunos errores...

La forma correcta sería:

Código Delphi [-]
procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
  with TComboBox(Control) do
  begin
    Canvas.Font.Name := Items[Index]; // Obtenemos el nombre de la fuente del mismo ComboBox
    Canvas.Font.Size := 10; // Establecemos el tamaño
    Height := Canvas.TextHeight(Items[Index]) // Ahora si obtenemos la altura correcta
  end
end;

Saludos...