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ß

[uligerhardt]

Durchsuch doch einfach mal den VCL-Quellcode nach dem Bezeichner.

[Michael II]

Du möchtest ein farbiges Panel?

1. Klick ein Panel aufs Form.
2. Setze im Objektinspektor ParentBackGround=false, überprüfe ob ParentColor bereits den für deine Aufgabe korrekten Wert ParentColor=false aufweist.
3. Setze Color auf die gewünschte Farbe.

Compiliere und habe Freude.

Eventuell suchst du etwas Aufwändigeres wie Textur auf dem Panel (?).

OK ich glaube du meinst was anderes... vielleicht das hier:
http://stackoverflow.com/questions/1...styles-enabled

[Sidi61]

Hallo Michael II,

die Einstellungen im Objektinspektor funktionieren nicht, in der Richtung war ich auch schon unterwegs.

Dein Link war aber goldrichtig

Beste Grüße

[himitsu]

Zitat:

die Einstellungen im Objektinspektor funktionieren nicht

Die Property stammen noch von früher.
Im OS ist es nunmal inzwischen so vorgegeben, dass viele Controls "standardmäßig" ein definiertes Aussehen haben und es sich nicht ändern lässt, aber die alten "Eigenschaften" existieren natürlich immernoch, auch wenn sie ignoriert werden.

* Styles deaktivieren
* oder das Control selber zeichnen
* oder einen eigenen Style basten und zuweisen