>LPARAMETERS nKeyCode, nShiftAltCtrl > >IF nKeyCode = 27 && Escape Key causes problem in control source of grid. > NODEFAULT >ENDIF > >DO CASE > CASE nKeyCode = 9 > Nodefault > This.Parent.Width = 0 > This.Parent.Parent.grcProduct.Width = 244 > DODEFAULT(nKeyCode, nShiftAltCtrl) > > CASE nKeyCode = 15 > Nodefault > This.Parent.Width = 0 > This.Parent.Parent.grcDiscription.Width = 244 > DODEFAULT(nKeyCode, nShiftAltCtrl) >ENDCASE >>
>>LPARAMETERS nKeyCode, nShiftAltCtrl >> >>IF nKeyCode = 27 && Escape Key causes problem in control source of grid. >> NODEFAULT >>ENDIF >> >>DO CASE >> CASE nKeyCode = 9 >> This.Parent.Width = 0 >> This.Parent.Parent.grcProduct.Width = 244 >> >> CASE nKeyCode = 15 >> This.Parent.Width = 0 >> This.Parent.Parent.grcDiscription.Width = 244 >> >>ENDCASE >> >>DODEFAULT(nKeyCode, nShiftAltCtrl) >> >>>>