Delphi Teil einer Zeile Fett machen --> RichEdit

Thema durchsuchen

Ansicht

Themen-Optionen

Teil einer Zeile Fett machen --> RichEdit

Ein Thema von Christian18 · begonnen am 2. Jan 2006 · letzter Beitrag vom 25. Jul 2006

Vorheriger Beitrag

Nächster Beitrag

toms

(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge

Delphi XE Professional

Re: Teil einer Zeile Fett machen --> RichEdit

2. Jan 2006, 10:40

zusammenfalten · markieren

Delphi-Quellcode:

			procedure AddColoredLine(RichEdit: TRichEdit; strText: string; aColor: TColor);

begin

  with RichEdit do

  begin

    SelStart := Length(strText);

    SelAttributes.Color := aColor;

    SelAttributes.Size := 8;

    SelAttributes.Name := 'MS Sans Serif';

    Lines.Add(strText);

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  AddColoredLine(RichEdit1, 'Hallo', clRed);

  AddColoredLine(RichEdit1, 'Hallo', clGreen);

end;