Color de un TToolbutton en una TTolbar
 

Buenas, estoy haciendo una aplicación, la cual genera en tiempo de ejecución en un TToolbar tantos Ttoolbuttons como registro tengo en una tabla.
Hasta aquí todo correcto, creo tantos botones como registros tengo.
El problema radica en que cada registro tiene un campo "color" y tengo que pintar estos botones con el color que me asigne el registro. Aquí viene mi problema. me he estado peleando con el evento OncustomDrawButton, que en principio tendría que dejarme hacer esto, pero no hay manera.
Alguien podría hecharme una mano con esto?

Muchas gracias

Intenta con el evento OnAdvancedCustomDrawButton:

Código Delphi [-]
procedure TForm1.ToolBar1AdvancedCustomDrawButton(Sender: TToolBar;
  Button: TToolButton; State: TCustomDrawState; Stage: TCustomDrawStage;
  var Flags: TTBCustomDrawFlags; var DefaultDraw: Boolean);
begin
  if (Button.Index = 1) and (Stage = cdPrepaint) then
  begin
    Toolbar1.Canvas.Brush.Color := clGreen;
    Toolbar1.Canvas.FillRect(Button.BoundsRect);
  end;
end;

// Saludos

Gracias
 

Funciona perfectamente, muchas gracias. Me obceque en eses evento y no vi el Onadvanced ^^