Farve tekst i en RichEdit1

Kan du komme lidt nærmere ind på det? Skal programmet automatisk farve nogle ord en speciel farve hver gang de optræder...ligesom Delphi's egen editor ? eller skal brugeren kunne markere noget tekst og give det en farve?

/SpEeDy

procedure FarveClick(Sender: TObject); Begin richedit1.sellaction.color:=farve end;

Skal lige siges jeg ikke har testet koden sidder ikke med delphi lige nu

baxos..det jeg tror du mener er:
  RichEdit1.SelAttributes.Color := clGreen;

:)

/SpEeDy

ja okaj ;)

Tænkte lige på denne :) - richedit1.clearsellaction

Hvis det du mener er syntax-farvning, som Delphis editor, så kan du prøve SynEdit (http://synedit.sf.net), men hvis du vil bruge TRichEdit, så kig her: http://www.undu.com/Articles/981027d.html :-)

Men k0mmer jo an't på hvad du vil... Hvis den skal gører det auto bliver det jo lidt sværer

procedure TForm1.Memo1Change(Sender: TObject);
begin
If memo1.text = 'prut' then memo1.color:=clRed;
end;

end.

:D - Men virker ikke hvis der står andet en prut så sker da ikke n0get

Speedy - richedit1.SelAttibutes.Color := clGreen;  -  gør hele Richedtit'en  grøn ikke teksten

"Speedy - richedit1.SelAttibutes.Color := clGreen;  -  gør hele Richedtit'en  grøn ikke teksten"
Prøv med RichEdit1.SelAttibutes.Font.Color := clGreen; :-)

baxos...nej, mit er rigtigt nok...den gør IKKE Richedit'en grøn men kun den markerede tekst...

/SpEeDy

Speedy ja ok :D

Citat fra SpEeDy "Skal programmet automatisk farve nogle ord en speciel farve hver gang de optræder...ligesom Delphi's egen editor ?"  og det er lige det den skal kunne.

//dl

Citat fra mig "    Hvis det du mener er syntax-farvning, som Delphis editor, så kan du prøve SynEdit (http://synedit.sf.net), men hvis du vil bruge TRichEdit, så kig her: http://www.undu.com/Articles/981027d.html :-)" og det er præcis det du kan :-)

denne kode RichEdit1.DefAttributes.Style := [fsBold, fsItalic];    gør bare heleteksten fed og sort.

//dl

procedure Highlightword(Richedit: TRichEdit; Ord: string);
var
  i: integer;
  text: string;
begin
  text := Richedit.Lines.text;

  Richedit.SelStart := 0;
  Richedit.SelLength := length(text);
  Richedit.SelAttributes.Color := clWindowText;

  for I := 0 to length(text) do
    if copy(text, I, length(Ord)) = Ord then
    begin
      Richedit.SelStart := I - 1;
      Richedit.SelLength := length(ord);
      Richedit.SelAttributes.Color := clred;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Highlightword(RichEdit1, 'hej');
end;

Ellers kan du bruge synedit som athlon-pascal.

k, takker...  Men hvis den nu skal køre og Highlight imens jeg skriver i Richedit1...
Den skal også Highlight alle de som jeg har i en liste fx ord ved åbning af dokument.

hvordan gør jeg det så.

procedure Highlightword(Richedit: TRichEdit; Ord: string);
var
  i: integer;
  text: string;
begin
  text := Richedit.Lines.text;

  Richedit.SelStart := 0;
  Richedit.SelLength := length(text);
  Richedit.SelAttributes.Color := clWindowText;

  for I := 0 to length(text) do
    if copy(text, I, length(Ord)) = Ord then
    begin
      Richedit.SelStart := I - 1;
      Richedit.SelLength := length(ord);
      Richedit.SelAttributes.Color := clred;
    end;
end;

Kom til at trykke på udfør lidt for tidligt :-)

Brug den her istedet:

procedure Highlightword(Richedit: TRichEdit; Ord: string; Color: TColor);
var
  i: integer;
  text: string;
begin
  text := Richedit.Lines.text;
  for I := 0 to length(text) do
    if copy(text, I, length(Ord)) = Ord then
    begin
      Richedit.SelStart := I - 1;
      Richedit.SelLength := length(ord);
      Richedit.SelAttributes.Color := Color;
    end;
    Richedit.SelStart := I;
    Richedit.SelLength := 0;
    Richedit.SelAttributes.Color := clBlack;
end;

Og læg Highlightword(RichEdit1, 'hej'); i OnChance for RichEdit.

???

Ups... Brug Highlightword(RichEdit1, 'hej', clRed); istedet for Highlightword(RichEdit1, 'hej');

hvorfor i onchance ved den løbe hele dokumentet igemmen ved loadning ... og hvad hvis jeg har en liste med ord som den skal highlighte.. ?

//dl

procedure Highlightword(Richedit: TRichEdit; Ord: string; Color: TColor);
var
  i: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
begin
  OldSelStart := Richedit.SelStart;
  OldSelLength := Richedit.SelLength;

  Ord := AnsiLowerCase(Ord);
  text := AnsiLowerCase(Richedit.Lines.text);
  for I := 0 to length(text) do
    if copy(text, I, length(Ord)) = Ord then
    begin
      Richedit.SelStart := I - 1;
      Richedit.SelLength := length(ord);
      Richedit.SelAttributes.Color := Color;
    end;
    Richedit.SelStart := OldSelStart;
    Richedit.SelLength := OldSelLength;
    Richedit.SelAttributes.Color := clBlack;
end;



procedure TForm1.RichEdit1Change(Sender: TObject);
var
  aRichEdit: TRichEdit;
begin
  aRichEdit := Sender as TRichEdit;
  Highlightword(aRichEdit, 'hest', clRed);
  Highlightword(aRichEdit, 'pony', clBlue);
end;

procedure Highlightword(Richedit: TRichEdit; Ord: string; Color: TColor);
var
  i: integer;
  text: string;
begin
  text := Richedit.Lines.text;
  for I := 0 to length(text) do
    if copy(text, I, length(Ord)) = Ord then
    begin
      Richedit.SelStart := I - 1;
      Richedit.SelLength := length(ord);
      Richedit.SelAttributes.Color := Color;
    end;
    Richedit.SelStart := I;
    Richedit.SelLength := 0;
    Richedit.SelAttributes.Color := clBlack;
end;

procedure HighLightListeAfOrd(RichEdit:TRichEdit; Liste: Array of String; Farve: TColor);
var
I:Integer;
begin
for I := Low(Liste) to High(Liste) do
begin
Highlightword(RichEdit,Liste[I],Farve);
end;
end;

procedure TForm1.RichEdit1Change(Sender: TObject);
var
OrdListe: array[0..2] of string;
I:Integer;
begin
OrdListe[0] := '1';
OrdListe[1] := '2';
OrdListe[2] := '3';
HighLightListeAfOrd(RichEdit1,OrdListe,clRed);
end;

Du skal nok også bruge HighLightListeAfOrd(RichEdit1,OrdListe,clRed); den når du loader filen.

dl -> Den her funktion gør det med en TStrings eller en TStringList:

procedure HighlightList(Richedit: TRichEdit; Liste: TStrings; Color: TColor);
var
  i, j: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
begin
  OldSelStart := Richedit.SelStart;
  OldSelLength := Richedit.SelLength;

  Liste.Text := AnsiLowerCase(Liste.Text);
  text := AnsiLowerCase(Richedit.Lines.text);
  for J := 0 to Liste.Count -1 do
    for I := 1 to length(text) do
      if copy(text, I, length(Liste[J])) = Liste[J] then
      begin
        Richedit.SelStart := I - 1;
        Richedit.SelLength := length(Liste[J]);
        Richedit.SelAttributes.Color := Color;
      end;
    Richedit.SelStart := OldSelStart;
    Richedit.SelLength := OldSelLength;
    Richedit.SelAttributes.Color := clBlack;
end;

Prøv den her:
procedure HighlightList(Richedit: TRichEdit; Liste: TStrings; Color: TColor);
var
  i, j: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
  OldFocus: Boolean;
begin
  OldFocus := RichEdit.Focused;
  if OldFocus then
    RichEdit.Parent.SetFocus;

  RichEdit.Enabled := false;

  OldSelStart := Richedit.SelStart;
  OldSelLength := Richedit.SelLength;

  Liste.Text := AnsiLowerCase(Liste.Text);
  text := AnsiLowerCase(Richedit.Lines.text);
  for J := 0 to Liste.Count -1 do
    for I := 1 to length(text) do
      if copy(text, I, length(Liste[J])) = Liste[J] then
      begin
        Richedit.SelStart := I - 1;
        Richedit.SelLength := length(Liste[J]);
        Richedit.SelAttributes.Color := Color;
      end;
  Richedit.SelStart := OldSelStart;
  Richedit.SelLength := OldSelLength;
  Richedit.SelAttributes.Color := clBlack;
  RichEdit.Enabled := true;
  if OldFocus then
    RichEdit.SetFocus;
end;

Prøv den her istedet for min anden:

procedure HighlightArray(Richedit: TRichEdit; Liste: Array of String; Color: TColor);
var
  i,j: integer;
  text: string;
begin
for j := Low(Liste) to High(Liste) do
begin
  text := LowerCase(Richedit.Lines.text);
  for I := 0 to length(text) do
    if copy(text, I, length(LowerCase(Liste[J]))) = LowerCase(Liste[J]) then
    begin
      Richedit.SelStart := I - 1;
      Richedit.SelLength := length(Liste[J]);
      Richedit.SelAttributes.Color := Color;
    end;
    Richedit.SelStart := I;
    Richedit.SelLength := 0;
    Richedit.SelAttributes.Color := clBlack;
end;
end;

k, har fundet den kode, nu ..

procedure HighlightList(Richedit: TRichEdit; Liste: TStrings; Color: TColor);
var
  i, j: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
begin
  OldSelStart := Richedit.SelStart;
  OldSelLength := Richedit.SelLength;

  Liste.Text := AnsiLowerCase(Liste.Text);
  text := AnsiLowerCase(Richedit.Lines.text);
  for J := 0 to Liste.Count -1 do
    for I := 1 to length(text) do
      if copy(text, I, length(Liste[J])) = Liste[J] then
      begin
        Richedit.SelStart := I - 1;
        Richedit.SelLength := length(Liste[J]);
        Richedit.SelAttributes.Color := Color;
        RichEdit.SelAttributes.Style := [fsBold];

      end;
    Richedit.SelStart := OldSelStart;
    Richedit.SelLength := OldSelLength;
    Richedit.SelAttributes.Color := clBlack;
end;


Hvordan for jeg den til at uppercase ord'et fra den list...

procedure HighlightList(Richedit: TRichEdit; Liste: TStrings; Color: TColor);
var
  i, j: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
begin
  OldSelStart := Richedit.SelStart;
  OldSelLength := Richedit.SelLength;

  Liste.Text := AnsiLowerCase(Liste.Text);
  text := AnsiLowerCase(Richedit.Lines.text);
  for J := 0 to Liste.Count -1 do
    for I := 1 to length(text) do
      if copy(text, I, length(Liste[J])) = Liste[J] then
      begin
        Richedit.SelStart := I - 1;
        Richedit.SelLength := length(Liste[J]);
        Richedit.SelAttributes.Color := Color;
        RichEdit.SelAttributes.Style := [fsBold];
        Richedit.SelText := AnsiUpperCase(Richedit.SelText);
      end;
    Richedit.SelStart := OldSelStart;
    Richedit.SelLength := OldSelLength;
    Richedit.SelAttributes.Color := clBlack;
end;

Det laver vist ord'ene til uppercase.

Lige en ting til ... og så kan du få 70 point ...
Kan du ikke lige skrive en lille text, hvad den gør ved vær linie ...

fx ...  text := AnsiLowerCase(Richedit.Lines.text); // alle bogstaver bliver små


procedure HighlightList(Richedit: TRichEdit; Liste: TStrings; Color: TColor);
var
  i, j: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
begin
  OldSelStart := Richedit.SelStart;
  OldSelLength := Richedit.SelLength;

  Liste.Text := AnsiLowerCase(Liste.Text);
  text := AnsiLowerCase(Richedit.Lines.text);
  for J := 0 to Liste.Count -1 do
    for I := 1 to length(text) do
      if copy(text, I, length(Liste[J])) = Liste[J] then
      begin
        Richedit.SelStart := I - 1;
        Richedit.SelLength := length(Liste[J]);
        Richedit.SelAttributes.Color := Color;
        RichEdit.SelAttributes.Style := [fsBold];
        Richedit.SelText := AnsiUpperCase(Richedit.SelText);
      end;
    RichEdit.SelAttributes.Style := [];
    Richedit.SelStart := OldSelStart;
    Richedit.SelLength := OldSelLength;
    Richedit.SelAttributes.Color := clBlack;
end;

//dl

jeg takker meget ...

hejhej >>>>

Lige en ting til ... og så kan du få 70 point ...
Kan du ikke lige skrive en lille text, hvad den gør ved vær linie ...

fx ...  text := AnsiLowerCase(Richedit.Lines.text); // alle bogstaver bliver små


procedure HighlightList(Richedit: TRichEdit; Liste: TStrings; Color: TColor);
var
  i, j: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
begin
  OldSelStart := Richedit.SelStart;
  OldSelLength := Richedit.SelLength;

  Liste.Text := AnsiLowerCase(Liste.Text);
  text := AnsiLowerCase(Richedit.Lines.text);
  for J := 0 to Liste.Count -1 do
    for I := 1 to length(text) do
      if copy(text, I, length(Liste[J])) = Liste[J] then
      begin
        Richedit.SelStart := I - 1;
        Richedit.SelLength := length(Liste[J]);
        Richedit.SelAttributes.Color := Color;
        RichEdit.SelAttributes.Style := [fsBold];
        Richedit.SelText := AnsiUpperCase(Richedit.SelText);
      end;
    RichEdit.SelAttributes.Style := [];
    Richedit.SelStart := OldSelStart;
    Richedit.SelLength := OldSelLength;
    Richedit.SelAttributes.Color := clBlack;
end;

//dl

jeg takker meget ...

Prøv den her, den er mere avanceret:
procedure HighlightWordsExp(aRichedit: TRichEdit; aLists: Array of TStrings; aColors: Array of TColor; aFontStyles: Array of TFontStyles; aUpCase: Array of Boolean);
var
  i, J, K: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
  OldFocus: Boolean;
begin
  OldFocus := aRichEdit.Focused;
  if OldFocus then
    aRichEdit.Parent.SetFocus;

  OldSelStart := aRichedit.SelStart;
  OldSelLength := aRichedit.SelLength;

  aRichEdit.Enabled := false;

  aRichEdit.SelectAll;
  aRichEdit.SelAttributes.Color := clBlack;
  aRichEdit.SelAttributes.Style := [];

  text := AnsiLowerCase(aRichedit.Lines.text);
  for K := 0 to Length(aLists) -1  do
  begin
    aLists[K].Text := AnsiLowerCase(aLists[K].Text);
    for J := 0 to aLists[K].Count -1 do
      for I := 1 to length(text) do
        if copy(text, I, length(aLists[K][J])) = aLists[K][J] then
        begin
          aRichedit.SelStart := I - 1;
          aRichedit.SelLength := length(aLists[K][J]);
          if K < Length(aColors) then
            aRichedit.SelAttributes.Color := aColors[K];
          if K < Length(aFontStyles) then
            aRichEdit.SelAttributes.Style := aFontStyles[K];
          if K < Length(aUpCase) then
            if aUpCase[K] then
              aRichEdit.SelText := AnsiUpperCase(aRichEdit.SelText);
        end;
  end;
  aRichedit.SelStart := OldSelStart;
  aRichedit.SelLength := OldSelLength;
  aRichedit.SelAttributes.Color := clBlack;
  aRichEdit.Enabled := true;
  if OldFocus then
    aRichEdit.SetFocus;
end;

procedure HighlightList(Richedit: TRichEdit; Liste: TStrings; Color: TColor);
var
  i, j: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
begin
  OldSelStart := Richedit.SelStart;
  OldSelLength := Richedit.SelLength;

  Liste.Text := AnsiLowerCase(Liste.Text);    //Gør ordene små
  text := AnsiLowerCase(Richedit.Lines.text);  //Gør bogstaverne i richedit'en små
  for J := 0 to Liste.Count -1 do              //Looper indtil den har highlightet alle ordene
    for I := 1 to length(text) do              //Looper gennem alle bogstaverne i ordet
      if copy(text, I, length(Liste[J])) = Liste[J] then  //Checker om bogstavet i text(richedit'en) er det samme som  bogstavet i dit ord
      begin
        Richedit.SelStart := I - 1;            //Begynder med at markere ved starten af ordet i richedit'en
        Richedit.SelLength := length(Liste[J]);//Og slutter markeringen efter ordet er slut
        Richedit.SelAttributes.Color := Color; //Sætter farven
        RichEdit.SelAttributes.Style := [fsBold];//Gør ordet fed
        Richedit.SelText := AnsiUpperCase(Richedit.SelText);//Ændre bogstaverne i ordet til store bogstaver
      end;
    Richedit.SelStart := OldSelStart; //Sætter coursoren tilbage på sin gamle plads
    Richedit.SelLength := 0; //Tror bare den skal være 0, fordi ingen bogstaver skal være markeret
    Richedit.SelAttributes.Color := clBlack;//Sætter farven til sort igen
end;

Bare sig hvis der er noget du ikke forstår :)

Den her er noget langsom, men så er den til gengæld bedre egnet til f.eks. Delphi-kode:

type
  CommentType = record
    ctStart: String;
    ctEnd: String;
    ctOneLine: Boolean;
    ctFontStyle: TFontStyles;
    ctFontColor: TColor;
  end;

procedure HighlightWordsExp(aRichedit: TRichEdit; aLists: Array of TStrings; aColors: Array of TColor; aFontStyles: Array of TFontStyles; aUpCase: Array of Boolean; aComments: Array of CommentType);
var
  i, J, K: integer;
  text: string;
  OldSelStart, OldSelLength: Integer;
  OldFocus: Boolean;
  IComment: Integer;
begin
  OldFocus := aRichEdit.Focused;
  if OldFocus then
    aRichEdit.Parent.SetFocus;

  OldSelStart := aRichedit.SelStart;
  OldSelLength := aRichedit.SelLength;

  aRichEdit.Enabled := false;

  aRichEdit.SelectAll;
  aRichEdit.SelAttributes.Color := clBlack;
  aRichEdit.SelAttributes.Style := [];

  IComment := -1;

  text := AnsiLowerCase(aRichedit.text);

  for I := 1 to length(text) do
  begin
    for K := 0 to Length(aLists) -1  do
    begin
      aLists[K].Text := AnsiLowerCase(aLists[K].Text);
      for J := 0 to aLists[K].Count -1 do
        if (copy(text, I, length(aLists[K][J])) = aLists[K][J]) then
        begin
          aRichedit.SelStart := I - 1;
          aRichedit.SelLength := length(aLists[K][J]);
          if IComment = -1 then
          begin
            if K < Length(aColors) then
              aRichedit.SelAttributes.Color := aColors[K];
            if K < Length(aFontStyles) then
              aRichEdit.SelAttributes.Style := aFontStyles[K];
          end;
          if K < Length(aUpCase) then
            if aUpCase[K] then
              aRichEdit.SelText := AnsiUpperCase(aRichEdit.SelText);
        end;
    end;
    for J := 0 to Length(aComments) - 1 do
    begin
      if (IComment <> -1) and (IComment <> J) then
        Continue;
      if IComment = J then
      begin
        if aComments[J].ctOneLine then
        begin
          if  Pos(copy(text, I, 1), #10 + #13) > 0 then
            IComment := -1;
        end
        else if copy(text, I, length(aComments[J].ctEnd)) = aComments[J].ctEnd then
        begin
          aRichEdit.SelStart := I - 1;
          aRichEdit.SelLength := length(aComments[J].ctEnd);
          aRichedit.SelAttributes.Color := aComments[J].ctFontColor;
          aRichedit.SelAttributes.Style := aComments[J].ctFontStyle;
          IComment := -1;
        end;
      end
        else if copy(text, I, length(aComments[J].ctStart)) = aComments[J].ctStart then
          IComment := J;
      if IComment <> -1 then
      begin
        aRichEdit.SelStart := I - 1;
        aRichEdit.SelLength := 1;
        aRichedit.SelAttributes.Color := aComments[J].ctFontColor;
        aRichedit.SelAttributes.Style := aComments[J].ctFontStyle;
      end;
    end;
  end;
  aRichedit.SelStart := OldSelStart;
  aRichedit.SelLength := OldSelLength;
  aRichedit.SelAttributes.Color := clBlack;
  aRichEdit.SelAttributes.Style := [];
  aRichEdit.Enabled := true;
  if OldFocus then
    aRichEdit.SetFocus;
end;

Eksempel med brug af overstående kode:

procedure TForm1.RichEdit1Change(Sender: TObject);
var
  aRichEdit: TRichEdit;
  aCommentType: Array of CommentType;
  I: Integer;
begin
  aRichEdit := Sender as TRichEdit;
  SetLength(aCommentType, 3);
  aCommentType[0].ctStart := '//';
  aCommentType[0].ctEnd := '';
  aCommentType[0].ctOneLine := true;
  aCommentType[1].ctStart := '{';
  aCommentType[1].ctEnd := '}';
  aCommentType[1].ctOneLine := false;
  aCommentType[2].ctStart := '(*';
  aCommentType[2].ctEnd := '*)';
  aCommentType[2].ctOneLine := false;
  for I := 0 to 2 do
  begin
    aCommentType[I].ctFontColor := clBlue;
    aCommentType[I].ctFontStyle := [fsItalic];
  end;
  HighlightWordsExp(aRichEdit, [Memo1.Lines, Memo2.Lines], [clGreen, clBlue], [[fsBold], []], [false, true], aCommentType);
end;

Takker for point :-)