Source position: DAV_GuiMidiKeys.pas line 77
type TGuiOnEndZoneBarDragging = procedure(
Sender: TObject;
var DragInfo: TGuiZbMouseDragInfo;
Shift: TShiftState;
X: Integer;
Y: Integer
) of object;