RichEdit: einzelne wörter färbig/fett/kursiv/...

[XeRo]

Hallo...

Ich weiß, dass derartige Fragen bezüglich dem RichEdit schon oft gekommen sind, aber ich konnte nichts passendes dazu finden. Weder in der DP noch im DF noch im SDC(SwissDelphiCenter).

Also: Ich will einzelne Wörter(und NICHT ganze Zeilen) zb. fett oder krusiv... machen, hab aber keine ahnung wie...


Kann mir wer helfen? :|

[Sharky]

Hai XeRo,

dich Schlüsselwörter dürften .SelStart,.SelLength und .SelAttributes sein.
In der Hilfe zu SelAttributes ist sogar ein Beispiel.

[shmia]

Zitat:

Zitat von XeRo

Ich weiß, dass derartige Fragen bezüglich dem RichEdit schon oft gekommen sind, aber ich konnte nichts passendes dazu finden. Weder in der DP noch im DF noch im SDC(SwissDelphiCenter).
Also: Ich will einzelne Wörter(und NICHT ganze Zeilen) zb. fett oder krusiv... machen, hab aber keine ahnung wie...

Grundprinzip: Wort markieren mit RichEdit.SelStart und RichEdit.SelLength.
Dann die Attribute mit RichEdit.SelAttributes beeinflussen.
Am Besten du ladest das Beispiel: C:\Programme\Borland\DelphiX\Demos\RichEdit\RichEd it.dpr;
dann wird dir alles klar. :zwinker:

[XeRo]

Zitat:

Zitat von shmia

Grundprinzip: Wort markieren mit RichEdit

Das wort soll aber nicht erst makiert werden.
Was ich plane: ein prog bei dem man einen text in einen richedit schreibt und dann auf einen button
klicke. Der text soll dann formatiert werden...
z.b.: eine art html-code-anzeiger...

Naja danke vorerst...werd mich mal umsehen

[toms]

Zitat:

Das wort soll aber nicht erst makiert werden.

Musst du aber.

[XeRo]

Ich kann ja sicher irgendwie den text nach einem wort durchsuchen, das wort finden, vom prog makieren lassen und dann formatieren.
Und bevor es jetzt heißt neue frage neuer thread wollt ich nur ganz unauffällig fragen wie ich so was machen kann... :drunken:

[Sharky]

Hai,

mal aus dem Kopf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit1.Lines.Add(Edit1.Text);  //Word in RichEdit einfügen
 RichEdit1.SelStart := Pos (Edit1.Text,RichEdit1.Text)-1; //Position des Wortes bestimmen
 RichEdit1.SelLength := Length (Edit1.Text); //Länge festelegen
 RichEdit1.SelAttributes.Color := clRed; //Das Word rot färben
 RichEdit1.SelLength := 0;  //Markierung aufheben.
end;

[XeRo]

Danke...werd mich mal ein bisschen spielen...wenn noch wer was weiß einfach posten...

DANKE @all

[TheXception]

Kannst ja auch wenn vorhanden im delphi-verzeichniss nach den demos gucken da ist auch eine mit Richedit dabei.

[XeRo]

Zitat:

Zitat von shmia

Am Besten du ladest das Beispiel: C:\Programme\Borland\DelphiX\Demos\RichEdit\RichEd it.dpr

Wurde mir schon gesagt...danke

[TheXception]

:oops: hab ich übersehen

[Andreas Hartmann]

Hallo! Mein erstes Posting hier... :-D

Wie kann ich bei dem angesprochenen Problem folgendes realisieren:
ich möchte den Inhalt einer bestimmten Zeile färben und/oder auf fett setzen. Es kann dabei durchaus passieren, dass 2 Zeilen den gleichen Inhalt haben. Dabei ist mir nur die Zeilennummer bekannt.

Wahrscheinlich muss ich auch über SelStart und Length gehen, nur wie bestimme ich die?

Danke für jede Antwort/jeden Code.

MfG, Andreas

[himitsu]

Delphi-Quellcode:

Zeile gibt die Zeile an // die Zählung beginnt bei 0

Var i, i2: Integer;

i2 := 0;
For i := 0 to Zeile - 1 do
  Inc(i2, Length(RichEdit1.Lines.Strings[i]) + 2); // entspricht i2 := i2 + Length(RichEdit1.Lines.Strings[i]) + 2;
RichEdit1.SelStart := i2;
RichEdit1.SelLength := Length(RichEdit1.Lines.Strings[Zeile]);

über RichEdit1.SelAttributes kannst du die Schrift/Farbe ändern

[Christian Seehase]

Moin Andreas,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Nur um der Frage vorzubeugen: ;-)

Himitsu hat immer Zeilenlänge+2 verwendet, da jede Zeile auf #13#10 (CR LF) endet, eine Zeile also real zwei Zeichen mehr belegt, als man sieht.

[Andreas Hartmann]

Danke für den Code - werde ihn gleich ausprobieren.

@Christian Seehase: Ach so, und ich dachte, #13#10 wäre in Length schon inbegriffen... Nun ja, hätte er es nicht berücksichtigt, hätte es ja keinen Unterschied gemacht, man sieht dabei ja die Formatierung nicht...

An dieser Stelle muss ich aber mal ein Lob an das Forum aussprechen - hier wird einem wirklich schnell, nett und kompetent geantwortet, wo anderswo sich beschwert wird, dass die Leute die Antworten immer fertig zum einbauen serviert haben wollen bzw. auf die Google Suche verwiesen wird oder RTFM gesagt wird. Big Thx :mrgreen:

MfG, Andreas

[Christian Seehase]

Moin Andreas,

Zitat:

Zitat von Andreas Hartmann

Nun ja, hätte er es nicht berücksichtigt, hätte es ja keinen Unterschied gemacht, man sieht dabei ja die Formatierung nicht...

Ich denke mal, das hättest Du gemerkt, denn Du wärst ohne dieses +2 nicht auf dem gewünschten Zeilenanfang gelandet.

[himitsu]

es macht schon was aus - siehe Demo - links incl. #13#10 und rechts ohne


[EDIT]
der IE ist mal wieder beim versenden der Datei vereckt - wieso macht der das manschmal :?: :?:

[Andreas Hartmann]

Hast recht - wieder was gelernt. :thuimb:

MfG, Andreas