TPanel mit XP Theme und Color

[Klaus01]

Hallo,

ich versuche mal die Überschrift ein wenig besser verständlich zu machen.

Ich habe folgende Klasse:

Delphi-Quellcode:

 
TBasicObject = class(TPanel)
  private
    id : Integer;
    alarm : TAlarm;
    name : AnsiString;
    myMousePosition : TPoint;
    symbol : TImage;
    textLabel  : TStaticText;
    procedure myMouseDown(Sender : TObject; Button: TMouseButton; Shift: TShiftState; x,y: Integer);

  public
    constructor create(owner: TComponent; name: AnsiString; position:TPoint); reintroduce;
    procedure setName(name: AnsiString); reintroduce;
    procedure move(position: TPoint);
    procedure setAlarm(alarm: TAlarm);

end;

Wenn ich die Farbe des Panels ändere (setAlarm) und das XP Theming ist
ausgeschaltet (Klassik Windows) ändert sich auch die Farbe des Panels.

Ist nun aber das Theming eingeschaltet bleibt das Panel grau, die Farbe
ändert sich nicht.

Das XPMan ist auf der Form (Turbo Delphi Expl).
Nun möchte ich schon im allgemeinen das Theming zulassen.

Kennt jemand eine Möglichkeit das Panel vom Theming auszuschließen?
Oder eine Alternative zum Panel?


Grüße
Klaus