Objekt soll sich selber zeichnen

[Hansa]

Hi,

ich habe jetzt eine Canvas in dem Objekt. Aber die DFM sieht so aus :

Code:

  object FarbButton1: TFarbButton
    Left = 88
    Top = 72
    Width = 75
    Height = 25
    Caption = 'FarbButton1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSkyBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Color = clFuchsia
  end

Da ist nix zu sehen von Brush, Pen usw. Die Änderungen bei Font sind unsichtbar.