[ALexandr555]

Вобщем когда меняются параметры например на другой цвет в TRichEdit то почемуто выделенный текст мышкой тоже меняет цвет, как сделать чтобы он не менял цвет но мог выделяться.

[ALexandr555]

текст нужно выделять чтобы копировать... только чтобы он не менял цвет..

[ALexandr555]

в принципе есть идея добавлять это в невидемый второй а затем от туда уже копировать

[ALexandr555]

сделал так

Код:

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;

Админ: А теги за тебя Дед Мороз расставлять будет? ))