>&& MouseDown( >LPARAMETERS nButton, nShift, nXCoord, nYCoord > >do case >case inlist(nShift, 0, 1, 2) && normal, SHIFT, CTRL for MultiSelect > do case > case inlist(nButton, 2) && Right) > NODEFAULT > > endcase >endcase >>Using the MouseDown()/MouseUp() you have better control.
>procedure MouseDown && of header class >LPARAMETERS nButton, nShift, nXCoord, nYCoord > > do case > case nShift = 0 > do case > case (nButton == BUTTON_RIGHT ) > NODEFAULT > =this.Parent.Parent.Click_Right_Header(this.Parent) > > endcase > > case nShift = 1 && shift > do case > case (nButton == BUTTON_RIGHT ) > NODEFAULT > =this.Parent.Parent.Click_Right_Header_Shift(this.Parent) > > endcase > > case nShift = 2 && Control > > case nShift = 4 && Alt > > case nShift = 3 && Shift + control > > case nShift = 5 && Shift + Alt > > case nShift = 6 && Control + Alt > > case nShift = 7 && Shift + Control + Alt > > > endcase >endproc >