Auf RichEdit zeichnen

[franz]

Hi,
du kannst aber auch eine neue RichEdit Komponente erstellen.

Delphi-Quellcode:

type
  TCanvasRichEdit = class(TRichEdit)
  private
    FCanvas: TControlCanvas;
    function GetCanvas: TCanvas;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

    property Canvas: TCanvas
      read GetCanvas;
  end;

constructor TCanvasRichEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ScrollBars := ssBoth;
  FCanvas := TControlCanvas.Create;
  FCanvas.Control := Self;
end;

destructor TCanvasRichEdit.Destroy;
begin
  FCanvas.Free;
  inherited Destroy;
end;

function TCanvasRichEdit.GetCanvas: TCanvas;
begin
  Result := FCanvas;
end;

Anschließend kann die Eigenschaft Canvas der neue Kompo zum Zeichnen verwendet werden.

Nur mal so schnell - ungetestet.