Farbliche Kennzeichnung eines Strings in einem Memo

Beitrag von **Linkat** » Di 24. Jun 2008, 16:43

Hallo,
ich suche in einem LogFile nach bestimmten Schlüsselwörtern, die ich farblich kennzeichnen möchte. Ich habe keine Ahnung, wie man in einem Memo einzelne Wörter farblich markieren kann. Wer hat einen Tipp?

Gruß, Linkat

Christian · Beitrag von **Christian** » Di 24. Jun 2008, 16:50

Plattformunabhängig warscheinlich gar nicht. Unter Windows gibts ein paar Delphi Beispiele wie sowas geht. Aber funktioniert dann halt nur im Windows.

theo · Beitrag von **theo** » Di 24. Jun 2008, 17:06

Für Logfiles ist Synedit mit SynAnySyn ideal.
Einfach verdrahten, dann in die Keywords-Liste deine Schlüsselwörter in GROSSBUCHSTABEN eintragen und dem KeyAttri Farben und oder Style zuweisen.

Beitrag von **Linkat** » Mi 25. Jun 2008, 10:10

Zunächst mal Danke Christian und theo,
ich habe jetzt von Memo auf SynEdit umgestellt, waren fast die gleichen Methoden. Die Schlüsselworte kann ich über SysAnySys1.Keywords eingeben. Aber wie verknüpfe ich jetzt SysEdit mit SysAnySyn?

Gruß, Linkat

theo · Beitrag von **theo** » Mi 25. Jun 2008, 10:15

Über das Highlighter Property von Synedit?

Beitrag von **Linkat** » Mi 25. Jun 2008, 10:17

ps: Schreibfehler korrigiert (SysAnySys --> SynAnySyn)

Beitrag von **Linkat** » Mi 25. Jun 2008, 14:43

Hallo,
habe jetzt mit der Property Highlighter mit den diversen Attributen rumgespielt. Funktioniert soweit sehr gut, solange das Schlüsselwort nur ein Wort ist. Mein Problem aber ist, dass der Suchtext (Fehlermeldungen aus dem Logfile) meist aus mehreren Worten besteht. Dann wird eben nichts markiert.
Hat noch jemand eine Idee?

Gruß, Linkat

Beitrag von **Linkat** » Fr 27. Jun 2008, 10:50

Hallo,
das Problem habe ich mit Delphi mit der RichEdit-Komponente gelöst (Tipps im SwissDelphiCenter)

Gruß, Linkat

theo · Beitrag von **theo** » Fr 27. Jun 2008, 12:34

Das kannst du eigentlich auch mit Lazarus und dem IpHTMLPanel.
Einfach den Log-Text mit HTML versehen.
Beispiel:

Code: Alles auswählen

procedure StringToMemStream(AString: string; Strm: TMemoryStream);
var Len: integer;
begin
  if Strm <> nil then
  begin
    Len := Length(AString);
    Strm.Size := Len;
    Strm.Position := 0;
    Strm.Write(PChar(AString)^, Len);
    Strm.Position := 0;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var MemS:TMemoryStream;
 NewHTML:TIpHtml;
 AHTML:String;
begin
   MemS:=TMemoryStream.Create;
   AHTML:='<html><body>test <b>test</b> test <br>test <font color="red"><b>test</b></font> test </body></html>';
   StringToMemStream(AHTML, MemS);
   NewHTML:=TIpHtml.Create;
   NewHTML.LoadFromStream(MemS);
   IpHtmlPanel1.SetHtml(NewHTML);
   MemS.free;
end;