02-02-2005
|
Registrado
|
|
Registrado: ago 2004
Posts: 7
Reputación: 0
|
|
Espero me puedas ayudar
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!.
|