Teil einer Zeile Fett machen --> RichEdit

[Lannes]

Hallo,

ja, etwas erweitern:

Richedit in uses einbinden

Delphi-Quellcode:

var
  aParaFormat: TParaformat2;
begin
  FillChar(aParaFormat, SizeOf(aParaFormat), 0);
  aParaFormat.cbSize := SizeOf(aParaFormat);
  aParaFormat.dwMask := PFM_NUMBERING;
  aParaFormat.wNumbering := 1;
  with FEdit.RichEdit1 do
    begin
    SelStart := length(Text);
    Perform(EM_SETPARAFORMAT, 0, lParam(@aParaFormat));
    SelAttributes.Color := clRed;
    SelAttributes.Size := 8;
    SelAttributes.Style:=[fsBold];
    SelText := 'Name: ';
    SelAttributes.Color := clblack;
    SelAttributes.Size := 8;
    SelAttributes.Style:= [];
    SelText := 'Test'+#13#10;
    aParaFormat.wNumbering := 0;
    Perform(EM_SETPARAFORMAT, 0, lParam(@aParaFormat));
    end;