Komponente mit TPaintBox: kann nicht mit Canvas zeichenen

[edmu]

hallo

ich habe jetzt der komponente die eigenschaft
Pen zugeteilt

Delphi-Quellcode:

unit Pfeil;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, Graphics, Dialogs,Forms ;

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;
    FPen           : TPen;
    PenColor           : TColor;
    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 SetPen(Value : TPen);
    procedure SetPenColor(Value : TColor);
    procedure GetPen(Value : TPen);
    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;
  public
    { Public-Deklarationen = zur Laufzeit}
    constructor Create(AOwner : TComponent); override;
  published
    { Published-Deklarationen = Im Objektinspector sichtbar, Designmodus }
    property Ziffer: Integer read FZiffer write SetZiffer;
    property ZifferRandX : Integer read FZifferRandX write SetZifferRandX;
    property ZifferRandY : Integer read FZifferRandY write SetZifferRandY;
    property ZifferLueckeX : Integer read FZifferLueckeX write SetZifferLueckeX;
    property ZifferLueckeY : Integer read FZifferLueckeY write SetZifferLueckeY;
    property ZifferHFarbe  : TColor read FZifferHFarbe write SetZifferHFarbe;
    property ZifferRFarbe  : TColor read FZifferRFarbe write SetZifferRFarbe;
    property ZifferQuadRand  : Integer read FZifferQuadRand write SetZifferQuadRand;
    property Pen  : TPen read FPen write SetPen;
  end;

wenn ich dieses dann bei der komponente kontrolliere, dann wird in dem
objektinspektor zwar das plus-zeichen neben Pen angezeigt und beim
betätigen wird aus plus ein minus-zeichen, aber ohne ein untermenü.
es müsst jetzt eigendlich Color, Style usw. kommen.

wer kann mir helfen, dass ich ein untermenü sehe.

mfg edmu