RichEdit. String in Bold hinzufügen.

[k4ni]

Hallo DP,

ich hab schon fleißig gesucht, aber nur möglichekiten gefunden in denen man beim OnChange oder so strings sucht und dann Bold macht.
Nur ich will schon von anfang an einen String im bold format hinzufügen. Also mit

RichEdit.Lines.Add(String, fsBold);
Oder so ähnlich :/

danke

[Blackheart]

SelAttributes

[k4ni]

Ohh, danke.
Doch wie kann ich eine einzige linie machen bei der, e.g. der erste teil Fett ist, und der 2. normal?
Weil das:

Delphi-Quellcode:

RichEdit1.SelAttributes.style :=
RichEdit1.SelAttributes.style + [fsBold];
RichEdit1.Lines.Add('Das ist fett');
RichEdit1.SelAttributes.style :=
RichEdit1.SelAttributes.style - [fsBold];
RichEdit1.Lines.Add('Das nicht');

Nur das macht natürlich 2 linien.

[Blackheart]

Delphi-Quellcode:

with RichEdit do
  begin
   SelAttributes.Style := [fsBold];
   Lines.Add('Fett');
   SelAttributes.Style := [];
   Lines.Add('Nicht ganz so fettig');
end;

[k4ni]

hmm ist im prinzip das gleiche, und macht auch das gleiche .

[DeddyH]

Klar, Lines.Add fügt ja auch eine neue Zeile ein. Ein etwas umständliches Beispiel:

Delphi-Quellcode:

var s1, s2: string;
begin
  s1 := 'fett ';
  s2 := 'nicht mehr fett';
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.Lines.Add(s1 + s2);
  RichEdit1.SelStart := Length(RichEdit1.Text) - 2 - Length(s2);
  RichEdit1.SelLength := Length(s2);
  RichEdit1.SelAttributes.Style := [];
end;

[k4ni]

Zitat von DeddyH:

Klar, Lines.Add fügt ja auch eine neue Zeile ein. Ein etwas umständliches Beispiel:

Delphi-Quellcode:

var s1, s2: string;
begin
  s1 := 'fett ';
  s2 := 'nicht mehr fett';
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.Lines.Add(s1 + s2);
  RichEdit1.SelStart := Length(RichEdit1.Text) - 2 - Length(s2);
  RichEdit1.SelLength := Length(s2);
  RichEdit1.SelAttributes.Style := [];
end;

[Bump]
Ich hab grad totale probleme mit deinem beispiel. Wie du bereits erwähnt hast ist dein beispiel umständlich
Also ich möchte so eine linie hinzufügen

Code:

[bold][color=gray]>>[/color=gray] [italic][color=black]name[/italic][/color=black] [color=gray]msg[/color=gray][/bold]

name und msg sind string-variablen.
Gibt es dafür keine einfach lösung?

[marabu]

Moin,

wenn du einen Namen und eine Msg in deinem Chat-Fenster formatiert anzeigen willst, dann baust du dir eine Routine, die genau das tut - nicht mehr und nicht weniger:

Delphi-Quellcode:

procedure AddMessage(re: TRichEdit; const name, msg: string);
begin
  re.SelStart := MaxInt;
  re.SelAttributes.Color := clGray;
  re.SelAttributes.Style := [fsBold];
  re.SelText := '>> ';
  re.SelAttributes.Color := clBlack;
  re.SelAttributes.Style := [fsBold, fsItalic];
  re.SelText := name + '  ';
  re.SelAttributes.Color := clGray;
  re.SelAttributes.Style := [fsBold];
  re.SelText := msg + sLineBreak;
end;

Grüße vom marabu

[Gutelo]

Hallo

Dieser Thread ist zwar schon alt, aber da ich ueber ein aehnliches Problem gestolpert bin, moechte ich hier noch eine Information hinzufuegen.

Die Stringsuche mit Pos macht anscheinend Probleme wenn der Text des RichEdit Sonderzeichen enthaelt. Ich hatte ein RichEdit mit Carriage Returns (#13) im String. Damit waren auch die Pos Angaben falsch. Geloest habe ich es indem ich RichEdit.FindText verwende, d.h.:

MarkStart := RichEdit1.FindText(KeyWords[a],0, Length(RichEdit1.Text),[stWholeWord]);