[Fanil]

Здравствуйте! У меня есть текст который выводится в Мемо:

Код:

if  Mp2> Mn2 then
        Memo1.Lines.Add('Вывод: Mп>Mн, поэтому пуск двигателя под нагрузкой возможен') else
        Memo1.Lines.Add('Вывод: Mп<Mн, поэтому пуск двигателя под нагрузкой невозможен')

Как сделать так чтобы изменить цвет шрифта например на красный? Но остальной текст в Мемо попрежнему должен оставаться по умолчанию черным. Заранее спасибо!

[PhoeniX]

Используй TRichEdit. В Memo это невозможно.

[Fanil]

А не подскажете как это сделать в TRichEdit?

[Assistant]

вот как-то так наверное (взято из Delphi World):

Код:

procedure TMainForm.AddColoredLine(AText: string; AColor: TColor; AStyle: TFontStyles; ASize: integer);
begin
  with RichEdit1 do
  begin
    SelStart := Length(Text);
    SelAttributes.Color := AColor;
    SelAttributes.Size := ASize;
    SelAttributes.Name := 'MS Sans Serif';
    SelAttributes.Style := AStyle;
    Lines.Add(AText);
  end;
end;

юзать так:

Код:

AddColoredLine('Вывод: Mп<Mн, поэтому пуск двигателя под нагрузкой невозможен',clRed,[fsBold],8);