Меняем цвет текста в элементе

[Sargon]

Вопрос такой. У меня есть элемент Tmemo. Допустим я меняю ключи в реестре.
Опирация прошла успешно- выводится зеленым
Меняю другое значение
не успешно- красным

При этом предыдущая надпись осталась зеленым а ниже вывелась крастная. Компонент один и тотже.

Объясните как это сделать.

[Stilet]

Это лучше делать в RichEdit. А В Мемо придется ручками отрисовку делать.

[Sargon]

Извиняюсь а там как сделать. Недавно взялся за Delphi

[Stilet]

Вот из Delphi world :

// Добавить строку указанным цветом
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;

// А это сам пример
procedure TForm1.Button1Click(Sender: TObject);
begin
AddColoredLine(RichEdit1, 'Hallo', clRed);
AddColoredLine(RichEdit1, 'Hallo', clGreen);
end;

[Sargon]

Оооо. Премного благодарен. Незнал где искать. Спасибо!

[Sargon]

Ой еще вопрос.

procedure TForm1.ImageOkClick(Sender: TObject);
begin
AddColoredLine(RichEdit1, 'Добро пожаловать!', $ffffff);
AddColoredLine(RichEdit1, 'Загрузка программы - завершено', $00a650);
AddColoredLine(RichEdit1, 'Ожидание команд...', $cc0000);
end;

Сделал все как выше сказано
Не работает при загрузке.
При нажатии на кнопку последняя строка выдается не тем цветом.
Как исправить. Помогите.

[Pitbull]

у меня все работает...Наверное, ті просто не прописал функцию AddColoredLine.....

[Sargon]

procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
with ARichEdit do
begin
SelStart := Length(Text);
SelAttributes.Color := AColor;
SelAttributes.Size := 10;
SelAttributes.Name := 'Arial Black';
Lines.Add(AText);
end;
end;

Кажется все на месте. Блин затупил я.

Проблема может быть както связана с тем что я поставил прозрачность формы?

[Pitbull]

Сообщение от Sargon

procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
with ARichEdit do
begin
SelStart := Length(Text);
SelAttributes.Color := AColor;
SelAttributes.Size := 10;
SelAttributes.Name := 'Arial Black';
Lines.Add(AText);
end;
end;

Кажется все на месте. Блин затупил я.

Проблема может быть както связана с тем что я поставил прозрачность формы?

какая ошибка вілетает?

[Sargon]

Нет. Не так работает.

AddColoredLine(RichEdit1, 'Добро пожаловать!', $ffffff);
AddColoredLine(RichEdit1, 'Загрузка программы - завершено', $00a650);
AddColoredLine(RichEdit1, 'Ожидание команд...', $cc0000);

пишу это в загрузку формы вобще не реагирует.
Ставлю на кнопку третья строка выводися не тем цветом(крастный должен, показывает синий).