[Ariatna]

Hola Roman!, otra vez yo, Gracias por tú respuesta, realmente estaba confundida, pero todavía no me sale, creo tener algún error en el código, yo creo que es por el ciclo, espero me puedas ayudar.






procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;

Rect: TRect; State: TOwnerDrawState);

begin

I:=0;

arch:=TStringList.Create;

arch.LoadFromFile('c:\prueba.txt');

arch.Count;





with (Control as TListBox) do

begin

while I<arch.Count do

begin

cadena:=arch.Strings[i];

if AnsiUpperCase(cadena)= cadena then

begin

Canvas.Font.Color:=clNavy ;

Canvas.Font.Style:=[fsBold];

Canvas.Brush.Color:=$00DDDDDD;

I:=I+1;

end

else

begin

Canvas.Font.Color:=clBlack;

Canvas.FillRect(Rect);

Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);

I:=I+1;

end;

end;



end;

arch.Free;



end;

De ante mano Gracias!, y un Saludo!.