RichView(Edit) - цветной текст - реально?

[Fezilk]

Здравствуйте!

Подскажите, пожалуйста, как добавить цветную строчку в RichView (RichViewEdit), если это вообще реально.. скачал исходник с оф. сайта, но не понял, как делать строчку цветной.

Заранее спасибо

[Rebel123]

попробуйте ColorDialog использовать во вкладке Dialogs

если что вот код:

if ColorDialog1.Execute then
// здесь ваш компонент:=ColorDialog1.Color

[Volt]

Не знаю как в RichView но в стандартном RichEdit примерно как то так

richedit1.SelStart:=0;
richedit1.SelLength:=2;
richedit1.SelAttributes.Color:=clre d;

выделяются две первые буквы красным цветом. SelStart от куда выделять SelLength сколько букв.

[Kotofff]

Исходник с офф сайта посмотри.
Его тебе хватит чтобы понять как ЭТО работает.
Спрашивай если что.

[Fezilk]

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

Кому не трудно - если сможете, достаньте этот код, пожалуйста.

Пытался так:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RVStyle, RVScroll, RichView, RVEdit, StdCtrls;

type
  TForm2 = class(TForm)
    rve: TRichViewEdit;
    rvs: TRVStyle;
    Button1: TButton;
     procedure rveStyleConversion(Sender: TCustomRichViewEdit; StyleNo,
  UserData: Integer; AppliedToText: Boolean; var NewStyleNo: Integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

const
  TEXT_COLOR      = 7;
{$R *.dfm}

procedure TForm2.rveStyleConversion(Sender: TCustomRichViewEdit; StyleNo,
  UserData: Integer; AppliedToText: Boolean; var NewStyleNo: Integer);
var FontInfo: TFontInfo;
begin
  FontInfo := TFontInfo.Create(nil);
  try
    FontInfo.Assign(rvs.TextStyles[StyleNo]);
    case UserData of
      TEXT_COLOR:
        FontInfo.Color := clRed;
    end;
    NewStyleNo := rvs.TextStyles.FindSuchStyle(StyleNo,FontInfo,RVAllFontInfoProperties);
    if NewStyleNo=-1 then begin
      rvs.TextStyles.Add;
      NewStyleNo := rvs.TextStyles.Count-1;
      rvs.TextStyles[NewStyleNo].Assign(FontInfo);
      rvs.TextStyles[NewStyleNo].Standard := False;
    end;
  finally
    FontInfo.Free;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
rve.ApplyStyleConversion(TEXT_COLOR);
end;

end.

при нажатии на кнопку ничего не изменяется.

[Shouldercannon]

Вот пример

[Fezilk]

:D а как в этот же RivhViewEdit добавить синий и черный?

// добавлено 10:09

Решил проблему гениально =)
Создал два стиля новых, и добавляю текст так:

RichViewEdit1.AddNL('Красная строчка', 6, 0);
RichViewEdit1.AddNL('Обычная строчка', 0,0);
RichViewEdit1.AddNL('Синяя строчка', 7, 0);
RichViewEdit1.Format;

Всем спасибо.