
17.11.2008, 18:46
|
Активный
|
|
Регистрация: 28.02.2008
Сообщения: 388
Репутация: -10
|
|
так, задачу понял...
Код:
procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
with ARichEdit do
begin
SelStart := Length(Text);
SelAttributes.Color := AColor;
SelAttributes.Size := 8;
SelAttributes.Name := 'MS Sans Serif';
Lines.Add(AText);
end;
end;
пробуй...
|