TListBox texto una fila con color

[blacktoroII]

Alguin sabe como poner una cadena de una fila de un ListBox con otra fuente y color como en un richedit. O como se puede seleccionar la linea completa en un richedit con el teclado...

ejemplo :

Items 1 : alberto toro

Gracias.

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

[*Caro*]

Empezado por blacktoroII

O como se puede seleccionar la linea completa en un richedit con el teclado...

Para seleccionar la línea completa lo puedes hacer de esta forma:

Código Delphi [-]
procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 Indice, LineaActual : Integer;
begin
 if (Key=vk_Up) or (Key=vk_down) then
  begin
   LineaActual := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0);
   Indice := RichEdit1.Perform(EM_LINEINDEX, LineaActual, 0);
   RichEdit1.SelStart:= Indice;
   RichEdit1.SelLength := Length(RichEdit1.Lines[lineaActual]);
  end;
end;

Saluditos

[blacktoroII]

Gracias por la respuesta,, necesitaba imitar las busquedas de gmail , donde pones un string y te despliega un listbox con los posibles correos que tienes en tu lista, con el richedit lo logro hacer y me faltaba seleccionar la linea. Solo me falta cambiar el color de la seleccion que lo hace en clBlack pero es un detalle,,, Gracias.