Benutzerdefinierte Stile

[Sidi61]

Hallo zusammen,

das Thema lässt mich nicht los, bin auf einen tollen Quelltext gestoßen welcher die Farbgestaltung von Editfeldern wieder zulässt. Hierzu gibt es folgende Typ Declaration:

Delphi-Quellcode:

TEdit= Class (Vcl.StdCtrls.TEdit);  //Colormanagement

  TEditStyleHookColor = class(TEditStyleHook)  //Colormanagement
  private
    procedure UpdateColors;
  protected
    procedure WndProc(var Message: TMessage); override;
  public
    constructor Create(AControl: TWinControl); override;
  end;

Wollte das gleiche mit TPanel machen

Delphi-Quellcode:

TPanel= Class (Vcl.ExtCtrls.TPanel);

  TPanelStyleHookColor = class(TPanelStyleHook)  //Colormanagement
  private
    procedure UpdateColors;
  protected
    procedure WndProc(var Message: TMessage); override;
  public
    constructor Create(AControl: TWinControl); override;
  end;

Nur leider kennt er TPanelStyleHook nicht -weiß jemand Rat?

Gruß