RichEdit. String in Bold hinzufügen.

[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