property ColorEx: TColor read fColorEx write SetColorEx default clNone;

unit Unit1;

interface

uses
  ..., ActnMan, ActnColorMaps, ActnMenus, CepStyleActnCtrls, ...;
type
  TXPColorMapEx = class (TXPColorMap)
  private
    fColorEx: TColor;
    procedure SetColorEx(const Value: TColor);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property ColorEx: TColor read fColorEx write SetColorEx default clNone;
  end;
...
  TForm1 = class(TForm)
    GradientActionToolBar1: TGradientActionToolBar;
    GradientActionMainMenuBar1: TGradientActionMainMenuBar;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    C: TXPColorMapEx;
  end;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  if C = nil then
  begin
    C := TXPColorMapEx.Create(self);
    GradientActionToolBar1.ColorMap := C;
    GradientActionMainMenuBar1.ColorMap := C;
  end
  else
  begin
    C.ColorEx := ClRed;
  end;
end;
...
{ TXPColorMapEx }

procedure ColorProc(ActionBar: TCustomActionBar; Colors: TCustomActionBarColorMap);
begin
  if Assigned(ActionBar) and (Colors is TXPColorMap) then
  begin
    if ((ActionBar is TGradientActionToolBar) or
        (ActionBar is TGradientActionMainMenuBar)) and
        (TXPColorMapEx(Colors).ColorEx <> clNone) then
      ActionBar.Color := TXPColorMapEx(Colors).ColorEx
    else
      ActionBar.Color := Colors.Color;
    if ActionBar.HandleAllocated then
      ActionBar.Invalidate;
  end;
end;

constructor TXPColorMapEx.Create(AOwner: TComponent);
begin
  inherited;
  fColorEx := clNone;
end;

procedure TXPColorMapEx.SetColorEx(const Value: TColor);
begin
  if fColorEx <> Value then
  begin
    fColorEx := Value;
    UpdateActionBars(ColorProc, Value);
    if Assigned(OnColorChange) then OnColorChange(Self);
  end;
end;

end.