pfc_encode


pfcapsrv.pbl   >   pfc_n_cst_mru   >   pfc_encode   

Full name pfc_n_cst_mru.pfc_encode
Access public
Extend of integer
Return value integer
Prototype event integer pfc_encode(integer,ref string)

Name Datatype
No Data

Name Datatype
lnv_string n_cst_string
ls_classname string
ls_menuitemkey string
ls_menuitemmhelp string
ls_menuitemname string

event pfc_encode;//////////////////////////////////////////////////////////////////////////////
//
//	Event:	pfc_encode
//
//	Arguments:
//	ai_rowindex		row in datastore to operate on
//	as_itemkey		key string which will be stored in registry/ini file
//
//	Returns:		integer
//	SUCCESS = 1
//	ERROR = -1
//
//	Description:
//	Triggered when MRU items are being saved to registry/ini
// Developer can override event to place other encode logic if desired
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////
string	ls_classname, ls_menuitemname, ls_menuitemkey, ls_menuitemmhelp
n_cst_string	lnv_string

ls_classname = "classname="
ls_menuitemname = "menuitemname="
ls_menuitemkey = "menuitemkey="
ls_menuitemmhelp = "menuitemmhelp="
lnv_string.of_SetKeyValue (ls_classname, "classname", &
									ids_mrukeys.Object.s_classname [ai_rowindex], "=")
lnv_string.of_SetKeyValue (ls_menuitemname, "menuitemname", &
									ids_mrukeys.Object.s_menuitemname [ai_rowindex], "=")
lnv_string.of_SetKeyValue (ls_menuitemkey, "menuitemkey", &
									ids_mrukeys.Object.s_menuitemkey [ai_rowindex], "=")
lnv_string.of_SetKeyValue (ls_menuitemmhelp, "menuitemmhelp", &
									ids_mrukeys.Object.s_menuitemmhelp [ai_rowindex], "=")

as_itemkey = ls_classname + is_delimiter + &
				ls_menuitemname + is_delimiter + &
				ls_menuitemkey + is_delimiter + &
				ls_menuitemmhelp + is_delimiter


return 1
end event

     
Name Owner
pfc_n_cst_mru.of_write pfc_n_cst_mru

     
Name Owner
No Data

     
Full name
No Data

     
Name Scope
No Data