TGuiOnMouseDownOnKeyZoneBar

type TGuiOnMouseDownOnKeyZoneBar = procedure(

  Sender: TObject;

  KeyNr: Byte;

  Zone: TGuiKeyZoneItem;

  MouseOverType: TGuiZoneMousePosType;

  Button: TMouseButton;

  Shift: TShiftState;

  X: Integer;

  Y: Integer

) of object;