Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
 
Delphi 10.4 Sydney
 
#1

TPanel mit XP Theme und Color

  Alt 11. Aug 2009, 12:49
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
Klaus
  Mit Zitat antworten Zitat