ICQ Log Viewer durch Syntax Hightlighting

[Stony2k]

Keiner ne Idee?
Bigg müsstest das doch eigentlich wissen

[bigg]

hi,

mit dem SynGeneralSynHighlighter geht das leider nicht, ich bin davon ausgegangen,
das du nur die wesentlichen Wörter einfärben möchtest, jedoch nicht bestimmte Bereiche.
Ich kenne auch keinen ähnlichen Highlighter, an den du dich orientieren könntest.

Du könntest dir aber einen eigenen Highlighter schreiben, der es kann.
Überleg dir erstmal, wie es aussehen und was es highlighten sollte und schau dir anschließend
einige Highlighter aus dem Synedit-Packet an.

[Stony2k]

gibt es eine Möglichkeit die vertikale Scrollbar nur einzublenden, wenn es nötig ist, heisst, wenn die geladene textdatei nach rechts weiter läuft, als das Fenster vom Hightlighter groß ist?
Und wenn ma weiter nach rets scrolls, sieht man eine vertikale Linie, ist es möglich, diese auszublenden ?

[bigg]

moin,

die Randlinie kann man über die Eigenschaft "RightEdge" = 0 verdecken bzw. ausschalten.
Die vertikale Scrollbar kann man im Set "Options", eoHideShowScrollbars anzeigen oder verstecken.

[Stony2k]

Ok danke.
Hat wer schonmal versucht eine Suchfunktion mit dem SynEdit zum laufen zu bringen?
Weil ich habe es probiert, aber bin daran gescheitert. Habe mir dann mal die Demo dazu runtergeladen, aber daraus bin ich auch net schlau geworden.
Kann mir einer helfen, eine Suchfunktion einzubauen ?

[Stony2k]

*Thread nochmal hochschiebt*

[Stony2k]

So, ich habe nun diese Funktion gefunden

Delphi-Quellcode:

procedure TForm1.SearchFind1FindDialogFind(Sender: TObject);
var
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to Memo1.Lines.Count do
  begin
    PosReturn := Pos(SearchFind1.Dialog.FindText,Memo1.Lines[I]);
    if PosReturn <> 0 then {found!}
    begin
      SkipChars := 0;
      for J := 0 to I - 1 do
        SkipChars := SkipChars + Length(Memo1.Lines[J]);
      SkipChars := SkipChars + (I*2);
      SkipChars := SkipChars + PosReturn - 1;

      Memo1.SetFocus;
      Memo1.SelStart := SkipChars;
      Memo1.SelLength := Length(SearchFind1.Dialog.FindText);
      Break;
    end;
  end;

Diese Funktion funktioniert auch soweit, nur das Problem ist, dass das "weitersuchen" nicht funktioniert.
Kann mir wer sagen, wie ich das mit dem "weitersuchen" hibekommen kann?

[Stony2k]

Gut, habe es heraus gefunden.
Wer nachlesen wie, der möge bitte hier nachsehen.