Cita:
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