Cita:
Empezado por ZaneMS
Hola, necesito que un timmer lea todas las líneas (código ya lo tengo) de un TRichBox (o como se llame, no tengo el delphi delante) y mire si empieza cada por ejemplo por "Hola" y entonces ponga esa palabra en azul y el resto de la línea normal por ejemplo:
|
Hola ZaneMS.
No entiendo como juega el timer en todo esto, pero para cambiar el color y estilo a la primera palabra de cada línea que coincida con buscada, podes hacer:
Código Delphi
[-]
procedure PaintFirstWord(RichEdit: TRichEdit; const aWord:string;
const aColor: TColor; const aStyle: TFontStyles);
var
Found,l: Integer;
begin
with RichEdit do
begin
Found:= FindText(aWord, 0, Length(Text),[]);
while Found <> -1 do
begin
SelStart:= Found;
SelLength:= Length(aWord);
l:= Perform(EM_LINEFROMCHAR, SelStart, 0);
if AnsiPos(aWord, Lines[l]) = 1 then
begin
SelAttributes.Color:= aColor;
SelAttributes.Style:= aStyle;
Inc(Found, Length(Lines[l])-length(aWord));
end;
Found:= FindText(aWord, Found+Length(aWord), Length(Text),[])
end;
end;
end;
Llamada:
Código Delphi
[-]
PaintFirstWord(RichEdit1, Edit1.Text, clBlue, [fsBold]);
Saludos