TListBox texto una fila con color

[*Caro*]

Empezado por blacktoroII

Alguin sabe como poner una cadena de una fila de un ListBox con otra fuente y color como en un richedit.

Items 1 : alberto toro

Hola blacktoroII y bienvenido, sobre tu pregunta tendrías que hacerlo pintando a mano, paar eso debes utilizar el evento OnDrawItem y colocar la propiedad Style en lbOwnerDrawFixed todo eso del ListBox.


Esto funciona en el ejemplo que das, tu tienes que aumentar tus condiciones.

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
 Texto : String;
begin
  Texto := ListBox1.Items[index];
  With ListBox1 do
   begin
    Canvas.Brush.Color := clWhite;
    Canvas.FillRect(Rect);
 
    Canvas.Font.Color := clBlack;
    Canvas.TextOut(Rect.Left, Rect.Top, Copy(Texto, 1, 2));
 
    Canvas.Font.Name := 'verdana';
    Canvas.Font.Style := [fsItalic];
    Canvas.Font.Color := clBlue;
    Canvas.TextOut(Rect.Left+8, Rect.Top, Copy(Texto, 3, 3));
 
    Canvas.Font.Style := [];
    Canvas.Font.Color := clBlack;
    Canvas.TextOut(Rect.Left+26, Rect.Top, Copy(Texto, 6, Length(Texto)));
   end;
end;

Saluditos