&&Grid.MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord local xx =this.GridHitTest(nXCoord, nYCoord, @xx) this.MouseDownGridHitTest = xx do case case nShift == 0 do case case nButton == BUTTON_LEFT do case case xx = 5 && Splitbar case xx = 11 && box in upper left corner case xx = 12 && record marker case xx = 13 && Column header sizing area case xx = 14 && Row sizing area this.RowHeightOld = this.RowHeight case xx = 16 && Horizontal scrollbar case xx = 17 && Vertical scrollbar endcase case nButton == BUTTON_MIDDLE case nButton == BUTTON_RIGHT endcase endcase
&& grid.MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord if( empty(this.MouseDownGridHitTest) ) && did not pass MouseDown this.MouseDownGridHitTest = 0 && in case == FALSE endif do case case nShift == 0 do case case nButton == BUTTON_LEFT do case case this.MouseDownGridHitTest = 5 && Splitbar case this.MouseDownGridHitTest = 11 && box in upper left corner case this.MouseDownGridHitTest = 12 && record marker case this.MouseDownGridHitTest = 13 && Column header sizing area case this.MouseDownGridHitTest = 14 && Row sizing area if( this.RowHeightOld <> this.RowHeight ) && <b> the row height has changed</b> endif case this.MouseDownGridHitTest = 16 && Horizontal scrollbar case this.MouseDownGridHitTest = 17 && Vertical scrollbar endcase case nButton == BUTTON_MIDDLE case nButton == BUTTON_RIGHT endcase endcase