Mega Code Archive

 

Categories / Delphi / Forms

 

Change the color of a ttoolbutton

procedure TForm1.ToolBar1CustomDrawButton(Sender: TToolBar; Button: TToolButton; State: TCustomDrawState; var DefaultDraw: Boolean); begin // select color Sender.Canvas.Brush.Color := clAqua; // Paint selected color Sender.Canvas.Rectangle(Button.BoundsRect); end;