XProfan

proc Selectchoice_num

    Parameters handl&,num%
    Sendmessage(handl&,$014E, num% ,1)

Endpr

proc Selectchoice_strg

    Parámetros handl&,strg$
    SendMessage(handl&,$014D,-1,addr(strg$))

ENDPROC

proc Choice_delete

    Parámetros handl&
    SendMessage(handl&,$014B,0,0)

ENDPROC