RichEdit и Canvas

[nusik]

Здравствуйте уважаемые участники форума.
Необходимо нарисовать графику в RichEdit.
К сожалению RichEdit не поддерживает Canvas, но мне очень нужно использовать некоторые методы из Canvas.
Как можно решить эту проблему?
Спасибо.

[qpokyc]

var
  CC: TControlCanvas;
begin
  CC := TControlCanvas.Create;
  CC.Control := RichEdit1;
  CC.LineTo(10,10);
  CC.Free;
end;

[nusik]

благодарю-с

Отканвасянные объекты быстренько исчезают, при срколлинге, выделении текста, и при других событиях.
Как можно сделать так чтобы они не исчезали?

[CahekG]

Можно при смене тек.позиции и при выделении(движение мыши с нажатой левой кнопкой)
Правда будет немного мерцать. И вообще это получается статический объект, который не ползет за текстом при скролинге.

procedure TForm1.p;
var
  CC: TControlCanvas;
   begin
   
      RichEdit1.Repaint;
      CC := TControlCanvas.Create;
      CC.Control := RichEdit1;
      CC.LineTo(100,100);
      CC.Free;
    end;


procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
p;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 p;
end;

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if (ssLeft IN Shift ) THEN p;
end;

[nusik]

Спасибо!!!