Richedit

Prøv følgende (jeg har ikke teste det)
TRY
  richedit.lines.beginupdate;
  dit kode
FINALLY
  richedit.lines.endupdate
END

elller også med nogle for lykker...

f.eks..

for i := richedit1.selstart to richedit1.sellength do
  begin
    din kode til at farve teksten (kan ikke lige huske den i hovedet)...
  end;

Så farver den jo et bogstav ad gangen, og så burde man ikke kunne nå at se, at et bogstav bliver markeret af gangen...

TRoXa

må jeg lige forstå det rigtigt
blackthorne> beginupdate forhindre repaint?
"din kode" er det bare selstart og sellength?

Ja Beginupdate stopper alt repaint af den control som lines hænger på indtil endupdate udføres. Grunden til at det skal i en try finally er at hvis der sker exceptions i din kode, så vil kontrollen aldrig repaint igen. Derfor skal der være try finally.

Din kode er alt det du vil lave. f.eks. selstart og sellenght

Procedure Bla.Bla.Bla. (Bla.Bla.Bla.);
begin
RichEdit1.Selattribues.Color:=(cl -skriv en farve-);  ((På engelsk))
end;

end.

Jeg tror, at han er død :) hehe

Det er han ikke, så skulle det være sket i i går, for jeg så ham i lørdags

Jeg skriver til ham!

Kim

Hej