Næste bogstav skal være anden farve

okay, så er der flere måder at gøre det på..
enten kan du bruge selve Richedit komponentet ved brug af Richedit.SelAttributes.Color:=clred;

Problemet med denne metode er at den er sindsyg langsom ved konventering af længere stykker tekst.

Den mest optimale metode er således:

var format:TCharFormatA;
begin
  format.cbSize := sizeof(format);
  format.dwmask := CFM_COLOR;
  format.crTextColor :=ColorToRGB(ClGreen);
  SendMessage(Richedit1.Handle, WM_SETREDRAW, 0, 0); //Stopper den i at "RePainte" ved ændringer
  SendMessage(Richedit1.Handle, EM_SETCHARFORMAT, SCF_SELECTION, LongInt(@format));
  SendMessage(Richedit1.Handle, WM_SETREDRAW, 1, 0); //tillader at der "tegnes" igen :)
  InvalidateRect(Richedit1.handle,0,true);           //Opdater igen :)

Koden regner med at du har valgt den/de karakterer der skal ændres farve på.
Dette kan du gøre vha.

richedit1.selstart:=length(richedit1.text)-1;
richedit1.sellength:=1;

For yderligere info angående optimering af koden, kan jeg klart anbefale at du læser følgende dokument. Det er godtnok skrevet til brug med C++, men omskrivningen til Pascal er forholdsvis simpel

http://home.att.net/~robertdunn/Papers/FasterSyntaxHighlighting.doc

Med venlig hilsen
Ken Christensen

Hey Jonas,
det er faktisk pure simpelt når først man kender tricket

Men .. er der "kun" tale om selve tekstfarven eller skal baggrundsfarven også ændres?

Med Venlig Hilsen
Ken Christensen

Nej det er kun tekstfarven der skal ændres.


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Undeclared Identifier: TCharFormatA
Uff! . Prøvede at tilføje ComCtrls...stadig undeclared identifier

-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Ahh tilføj lige richedit til uses
så skulle det gerne være der

Med venlig hilsen
Ken Christensen

Det hele bliver en farve selvom jeg undervejs ændrer farven. Tror problemer er at Richedit.text ikke giver det rigtige resultat. Hvis jeg ændrer det til Richedit.text - 10 bliver noget farvet anderledes, men stadig ikke rigtigt.


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Det hele bliver en farve selvom jeg undervejs ændrer farven. Tror problemer er at Richedit.text ikke giver det rigtige resultat. Hvis jeg ændrer det til Richedit.text - 10 bliver noget farvet anderledes, men stadig ikke rigtigt.

Prøve eventuelt at sætte starten og længden af det selectede område med som du ønsker farvet
Richedit1.selstart := "Position for start af farvning";
Richedit1.sellength := "Længden";

Huske at sætte fonten du farver med. Du kan eventuelt bare oprette en LAbel som du så indstiller til den font og farve du vil bruge og derefter sætter du Select fonten i richedit til label.fonten.

mine freeware og shareware programmer : http://www.veloci.dk

Mine Freeware spil : http://www.nino.dk/gamebiz & http://www.osirisgames.com