| 1234567891011121314151617181920212223 |
- $PBExportHeader$f_add_menuitem_dft.srf
- $PBExportComments$the main function...~r~n hehe, only few scripts. :)
- global type f_add_menuitem_dft from function_object
- end type
- forward prototypes
- global subroutine f_add_menuitem_dft (menu vmmenu, integer arg_sit, readonly string ositemtext, readonly string ositemtag)
- end prototypes
- global subroutine f_add_menuitem_dft (menu vmmenu, integer arg_sit, readonly string ositemtext, readonly string ositemtag);Integer iiPos //arg_sit //
- IF vmMenu.Item[UpperBound(vmMenu.Item)].Text = '默认格式' THEN
- iiPos = 1
- ELSE
- iiPos = UpperBound(vmMenu.Item)+1 // can only append now
- END IF
- menu lm
- lm = CREATE m_dft_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
|
