Hello,

I come and ask for your knowledge again.

We added a button in the toolbar following John Sadd Paper on toolbar

customization.

Here what we did :

actioncustom.p :

initaction (override) :

DEF VAR xcColumns AS CHAR INIT

"Name,Caption,Image,Type,OnChoose,Parent":U.

&SCOP dlmt + CHR(1) +

RUN SUPER.

DYNAMIC-FUNCTION ('defineAction':U IN TARGET-PROCEDURE,

"Excel":U,

xcColumns,

"Excel"

"Excel"

"exit.bmp":U

"PUBLISH":U

"exportExcel":U

"FUNCTION":U

).

toolbarcustom.p :

setbuttons (override) :

DEFINE INPUT PARAMETER pcState AS CHAR NO-UNDO.

DYNAMIC-FUNCTION

('enableActions':U IN TARGET-PROCEDURE, 'Excel':U).

/* In our case we always invoke the standard setButtons, but in

other cases the local version might not want to RUN SUPER if the

case has already been dealt with here. */

RUN SUPER(pcState).

END PROCEDURE.

When we draw the toolbar and access to instance properties, we get the new

defined action under 'Function' group.

But when we run our smartwindow, despite the unconditionnal

'enableactions' inside SetButtons (which is effectively executed) the

button is not enabled.

If you have any clue, please tell us.

Thanks in advance.

Sylvestre SEGURON

To unsubscribe, e-mail: dev-unsubscribe@adm2.possenet.org

For additional commands, e-mail: dev-help@adm2.possenet.org