Ayuda con Archivos de Texto!!

[Ariatna]

Hola Roman!, otra vez yo, Gracias por tú respuesta, creo que estaba muy perdida, pero ya reflexione gracias a tú guía. Ya me salio lo que quería hacer, y lo dejo aquí por si alguien quiere hacer algo como esto.



Muchas Gracias Roman!y un Saludo.

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin

with (Control as TListBox)do
 begin
  if  (AnsiUpperCase(ListBox1.Items.Strings[Index])=ListBox1.Items.Strings[Index]) then
   begin
      Canvas.Font.Color:=clNavy ;
      Canvas.Font.Style:=[fsBold];
      Canvas.Brush.Color:=$00DDDDDD;
   end
    else
       Canvas.Font.Color:=clBlack;
       Canvas.FillRect(Rect);
       Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
     begin
     end;
 end;
  

end;

[roman]

Ariatna, me tomé la libertad de editar tu mensaje para añadir las etiquetas [delphi]. Cómo verás la diferencia es notable en cuanto a la presentación del código. Te sugiero que a partir de ahora las uses (entra a editar tu mensaje para que veas cómo) a fin de que a los demás nos sea fácil la lectura.

// Saludos