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ß