| 123456789101112131415161718 |
- $PBExportHeader$f_add_menuitem_rpt.srf
- $PBExportComments$the main function...~r~n hehe, only few scripts. :)
- global type f_add_menuitem_rpt from function_object
- end type
- forward prototypes
- global subroutine f_add_menuitem_rpt (menu vmmenu, integer arg_sit, readonly string ositemtext, readonly string ositemtag)
- end prototypes
- global subroutine f_add_menuitem_rpt (menu vmmenu, integer arg_sit, readonly string ositemtext, readonly string ositemtag);integer iiPos//arg_sit //
- iiPos=upperbound(vmMenu.item)+1 // can only append now
- menu lm
- lm=create m_rpt_dwprint_item
- vmMenu.item[iiPos]=lm.item[1] //must be item[1], or you'll find a funny result
- vmMenu.item[iiPos].text=osItemText
- vmMenu.item[iiPos].tag=osItemTag
- end subroutine
|
