Toolbar mit einem Farbverlauf versehen

[isocam]

Hallo,

mir kam die Idee, die Toolbar mit einem Farbverlauf auszustatten.
Das Aussehen ist aber standardisiert. Somit habe ich versucht, eine neue Toolbarkomponente mit OnPaint-Ereignis zu programmieren, sodass ich diese Standardisierung des Aussehens umgehen kann.

Das ist mein Versuch, aber es hat keine Wirkung:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Classes, Controls, ToolWin, ComCtrls;

type
  TColoredToolBar1 = class(TToolBar)
  private
    { Private declarations }
    FOnPaint: TNotifyEvent;
  protected
    { Protected declarations }

  public
    { Public declarations }
  published
    { Published declarations }
    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
  end;

Ich glaube da fehlt noch was oder?

[Gruber_Hans_12345]

Vielleicht hättest du mir Glück, wenn du die Ereignise wie Paint; WM_PAINT oder WM_ERASEBKGND überschreibst.

Wobei an deiner Stelle würde ich probieren anstatt der TToolBar einfach mal
TToolbar 2000 + TBX zu verwenden, ist eine bessere un Umfangreichere Toolbar mit TBX hast auch einige Themes dabei (vielleicht auch schon das passende für dich ...) und du kannst dir selbst Themes abändern / neu bauen !

http://www.jrsoftware.org/tb2kdl.php
http://www.g32.org/tbx/index.html
http://www.rmklever.com/delphitbx.html <= Lader dir mal die Demos runter und schaus dir an !

Gruss
Hans