Page 1 of 1

CJPushButton CARGO CANCEL

Posted: Fri Sep 09, 2011 5:18 am
by skiman
Hi,

With the DCPushButtons there is a CARGO 'CANCEL' which is really usefull to use with standard CANCEL-buttons.

This isn't working with CJPushButtons.

Re: CJPushButton CARGO CANCEL

Posted: Sun Sep 11, 2011 6:48 pm
by rdonnay
In _DCGETBX.PRG make the following code change:

Code: Select all

lCancelled := nEvent == xbeP_SetInputFocus .AND. Valtype(oNextXbp) = 'O' .AND. ;
      (oNextXbp:isDerivedFrom('DC_XbpPushButton') .OR. ;
       oNextXbp:isDerivedFrom('DC_XbpRadioButton') .OR. ;
       oNextXbp:isDerivedFrom('DC_XbpPushButtonXP') .OR. ;
       oNextXbp:isDerivedFrom('DC_XbpCheckBox') .OR. ;
       oNextXbp:isDerivedFrom('CJ_PushButton') .OR. ;  <<<<<<<<<<<<<<<<<<<<<<<<<<< new
       oNextXbp:isDerivedFrom('XbpMenu')) .AND. ;
      ((Valtype(oNextXbp:cargo) = 'C' .AND. oNextXbp:cargo == 'CANCEL') .OR. ;
       (Valtype(DC_GetCargo(oNextXbp)) = 'C' .AND. Upper(DC_GetCargo(oNextXbp)) == 'CANCEL'))