Meget simpel form for syntaksfarvning

Kort og godt skulle det altså bare være noget i denne retning :

If KeyStroke = '<' then
  RichEdit.Color := clRed;

if KeyStroke = '>' then
  RichEdit.Color := clBlack;

- Men dels ved jeg ikke hvordan jeg får fat i tegnet fra tastaturet (og dermed tjekker hvad der bliver tastet
- Og så ved jeg ikke nøjagtigt hvordan man nøjes med at ændre farven fra fx < tegnet.

Altså 2 simple ting der skal på plads.

Jeg vil lige høre om du har prøvet at kigge på SynEdit (http://synedit.sourceforge.net)?

Ja, den kender jeg. Men jeg ønsker at lave det uden brug af ekstra moduler. Men tak alligevel.

Tror ikke at syntakshighlightere (eller hvad den slags hedder) arbejder på den måde. Hvad hvis du skifter position ved at klikke i teksten andetsteds.

Jeg ville hente en komponent på Torry's, sandsynligvis den mest producerede komponent, kigge koden igennem og så lave min egen variant.

Hvis du kun vil skifte farve ved det er der mellem <> så kan du bruge den funktion jeg lavede et andet sted på eksperten. Har desværre ikke fået lavet resten angående spørgsmålet (http://www.eksperten.dk/spm/489767)

function TForm1.InTag(const aString : string; const aIndex : integer) : boolean;
var
  i : integer;
  bStart, bEnd : boolean;
begin
  bStart := false; bEnd := false;

  // Seek backards - look for start-tag
  i := aIndex;
  while (i > 1) and (aSt[i] <> '>') and not bStart do begin
    bStart := aSt[i] = '<';
    dec(i);
  end;

  // Seek forward if tag-start found - look for end-tag
  if bStart then begin
    i := aIndex;
    while (i < length(aSt)) and not (aSt[i] in ['<','>']) and not bEnd do begin
      bEnd := aSt[i] = '>';
      inc(i);
    end;
  end;

  result := bStart and bEnd;
end;

Beklageligvis havde jeg aldrig testet den og den rettede version ser således ud:

function TfrmMain.InTag(const aString : string; const aIndex : integer) : boolean;
var
  i : integer;
  bStart, bEnd : boolean;
begin
  // Seek backards - look for start-tag
  bStart := false; i := aIndex;
  while (i > 0) and (aString[i] <> '>') and not bStart do begin
    bStart := aString[i] = '<';
    dec(i,integer(not bStart));
  end;

  // Seek forward if tag-start found - look for end-tag
  bEnd := false;
  if bStart then begin
    i := aIndex;
    while (i < length(aString)) and (aString[i] <> '<') and not bEnd do begin
      bEnd := aString[i] = '>';
      inc(i,integer(not bEnd));
    end;
  end;

  result := bStart and bEnd;
end;

Her returneres true om den er i et tag, ellers false. Med små modifikationer kan man returnere start og slut på strengen så den kan farves clRed.

Tak for input. Jeg er ved at lukke spørgsmål - hvis nogen føler de burde have points, så kontakt mig i et af mine aktive spørgsmål - så finder vi ud af noget dér.