Komponente mit TPaintBox: kann nicht mit Canvas zeichenen

[edmu]

vielen dank für den tip, wäre nie darauf gekommen.

ich konnte zumindest schon mal einen strich zeichnen.

Delphi-Quellcode:

type
  TPfeil = class(TGraphicControl)
  private
    { Private-Deklarationen }
    FZiffer        : Integer;
    FZifferRandX   : Integer;
    FZifferRandY   : Integer;
    FZifferLueckeX : Integer;
    FZifferLueckeY : Integer;
    FZifferHFarbe  : TColor;                    //Hintergrundfarbe
    FZifferRFarbe  : TColor;                    //Randfarbe
    FZifferQuadRand: Integer;                   //Randbreite
    FWidthX        : integer;
    procedure SetZiffer(Value : Integer);
    procedure SetZifferRandX(Value : Integer);
    procedure SetZifferRandY(Value : Integer);
    procedure SetZifferLueckeX(Value : Integer);
    procedure SetZifferLueckeY(Value : Integer);
    procedure SetZifferHFarbe(Value : TColor);
    procedure SetZifferRFarbe(Value : TColor);
    procedure SetZifferQuadRand(Value : Integer);
    procedure Resize; override;                 //Komponente wird zur Designerzeit verändert
    function MalZiffer : boolean;
    function MalQuadraht(x,y,w:integer;RFarbe,HFarbe:TColor):boolean;
    function ZifferAnz : boolean;
  protected
    { Protected-Deklarationen = Im Modul und alle abgeleiteten Klassen}
    procedure Paint; override;  //HIER DIE NEUE PAINT-PROCEDURE
  public
    { Public-Deklarationen = zur Laufzeit}

Delphi-Quellcode:

procedure TPfeil.Paint;
begin
   with Canvas do
   begin
     //Pen := FPen; { Stift der Komponente kopieren }
     //Brush := FBrush; { Pinsel der Komponente kopieren }

     MoveTo(0,0);
     LineTo(10,10);

   end;
end;

mfg edmu