Farvekodning i RichEdit

Du kan sættet en default font ved RichEdit1.Font := dinFont.

Ellers prøv at kikke her:
procedure WriteConstStringToScreen(StringToWrite : ShortString);
begin
with RichEdit1 do
begin
  Lines.Add(StringToWrite);
  SelStart := Tag;
  Tag := Tag + 2 + Length(StringToWrite);
  SelLength := Length(StringToWrite);
  end;
with RichEdit1.SelAttributes do
  begin
  Color := OverSkriftFont.Color;
  Name := OverSkriftFont.Name;
  Size := OverSkriftFont.Size ;
  Style := OverSkriftFont.Style;
  end;
RichEdit1.SelLength := 0; //Needed to Add line to the last line. Just because the linenumbers is qreater then visible lines
end;

OverSkriftFont har jeg lavet som global font. Du kan jo bare angive værdien for eks farven i stedet for at variable til det.
Jeg benytter Tag som tæller for hvor mange karekter jeg har skrevet i RichEdit. Jeg har selv lavat et program som ændre i farve i nogle tekst stykker. Det er kedeligt arbejde, men man skal bare holde tungen lige i munden.
Tag := Tag + 2.. Jeg mener 2 stammer fra <CR><LF>. Det er lang tid siden jeg lavede det.

Det er vist ikke helt hvad jeg leder efter.
Det skal være sådan, at når der er en * i en linie, laver den tekst farven om til lilla. Også hvis der skulle være tre af dem, altså ***, men her en anden farve!

Så tror jeg ikke helt jeg er med.
Du er selv nød til at lave selve koden. I dit program har du en RichEdit som du vil ændre farven i teksten?

Ok. Jeg viser her et lille udpluk af hvordan teksten kan se ud:
* FarvWORK roder lige med noget bras    (Denne tekst skal være LILLA.)
*** Ronson^ has quit IRC (Read error: Connection reset by peer)    (Denne tekst skal være BLÅ)
*** nezlo has quit IRC (hygge)  (Denne tekst skal være GRØN).

Du kan sammenligne det med, at når man skriver kode i Delphi, så når man skriver \"//\" laver den teksten kursiv og blå.

Her skal det bare være sådan, at den, når der bliver åbnet en tekst-til i RichEdit, så tjekker den teksten, og laver de nødvendige ændringer på farven!

Hjælper det på hvad jeg mener!?

OK det hjælper.

Hvis tekst filen er gemt i Rich Text Format så skulle man gerne bare kunne loade den ind, og så passer farverne.

Hvis det er en almendelig tekstfil så sakl du selv tjkke hver linie for */*** og så ændre fonten på RichEdit for den linie tekst som indsættes.

Ok...men hvordan...det er lidt det jeg er ude efter!?

Ja det mener jeg jo jeg har svaret på.
Du skal markere den tekst du vil ændre i RichEdit1 med:
RichEdit1.SelStart = tal_på_start_position og RichEdit1.SelLength = tal som fotæller længden  af det som skal ændres
RichEdit1.SelAttributes.Color = farven
RichEdit1.SelAttributes.Font = fontnavn
RichEdit1.SelAttributes.Sixe = eks 10p
RichEdit1.SelAttributes.Style = eks bold

Man er derfor nød til at tælle hvor mange karakter som man ligge ind.

-RichEdit1---
Blå
Rød
-------------
RichEdit1.Text.Add = \"Blå\"
RichEdit1.SelStart = 0
RichEdit1.SelLength = length(\"Blå\")
RichEdit1.SelAttributes.Color = Blue
SamletLængde = length(\"Blå\")

RichEdit1.Text.Add = \"Rød\"
RichEdit1.SelStart = SamletLængde+2
RichEdit1.SelLength = length(\"Rød\")
RichEdit1.SelAttributes.Color = Red
SamletLængde = SamletLængde + length(\"Rød\")