<< Click to display table of contents >>


Allows drawing a background of a toolbar button

  TSRVDrawButtonEvent =  procedure(Sender: TObject; ToolButton: TSRVToolButton;
      ACanvas: TCanvas; const ARect: TRect; Selected: Boolean;
      var DoDefault: Boolean) of object;

property OnDrawButtonBackground: TSRVDrawButtonEvent;

ToolButton – the button to draw (one of Buttons)

The button must be drawn in the rectangle ARect on ACanvas.

You can check if the button is pressed: ToolButton.Down. If the button is below the mouse pointer, Selected = True.

If you draw the button background yourself, assign DoDefault = False to cancel default drawing by the toolbar.