06-05-2011, 07:18 PM
كود :
procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
with ARichEdit do
begin
SelStart := Pos(AText, Text) - 1;
SelLength := Length(AText);
SelAttributes.Color := AColor;
SelAttributes.Size := 16;
SelAttributes.Style := [fsBold];
SelAttributes.Name := 'MS Sans Serif';
SelText := AText;
// Lines.Add(AText);
end;
end;كود :
procedure TForm1.Btn1Click(Sender: TObject);
begin
AddColoredLine(RichEdit1, 'delphi, clGreen);
AddColoredLine(RichEdit1, 'Hallo', clred);
end;