$PBExportHeader$u_explorer.sru $PBExportComments$Explorer Sheet forward global type u_explorer from u_base_container end type end forward global type u_explorer from u_base_container integer width = 1687 integer height = 960 event type boolean ke_canclose ( ) event ke_explorer_activate ( ) event ke_explorer_broadcast ( readonly string as_messageid, readonly string as_message ) event type integer ke_explorer_closequery ( ) event ke_explorer_initialize ( ) event type integer ke_explorer_selectionchanging ( ) event type string ke_getstatustext ( ) event type string ke_overridetitle ( ) event type boolean ke_overridestatusbar ( readonly u_statusbar auo_statusbar ) event ke_modechange ( ) event ke_key pbm_keydown event ke_explorer_gotfocus ( ) end type global u_explorer u_explorer type variables Public: string #ModuleTitle = CString.EMPTY Boolean #StaticClass long NodeID Protected: n_explorer inv_explorer end variables forward prototypes public subroutine of_register (readonly n_explorer anv_explorer, readonly long al_nodeid) end prototypes event type boolean ke_canclose();RETURN TRUE end event event ke_explorer_activate();//fired when module is opened/activated end event event ke_explorer_broadcast(readonly string as_messageid, readonly string as_message);//broadcast event end event event type integer ke_explorer_closequery();//RETURN FAILURE to prevent module close RETURN CRet.SUCCESS end event event ke_explorer_initialize();//put initialization code here end event event type integer ke_explorer_selectionchanging();//RETURN FAILURE to prevent module selection change RETURN CRet.SUCCESS end event event type string ke_getstatustext();RETURN "Ready" end event event type string ke_overridetitle();RETURN #ModuleTitle end event event type boolean ke_overridestatusbar(readonly u_statusbar auo_statusbar);RETURN FALSE end event event ke_modechange();//fired when mode change end event event ke_key;//key event end event event ke_explorer_gotfocus();//triggered when explorer is focused end event public subroutine of_register (readonly n_explorer anv_explorer, readonly long al_nodeid);inv_explorer = anv_explorer NodeID = al_nodeid EVENT ke_explorer_initialize() end subroutine on u_explorer.create call super::create end on on u_explorer.destroy call super::destroy end on
- Sources
- Kodigo
- OpenExplorer
- u_explorer.sru
File: u_explorer.sru
Size: 2408
Date: Mon, 07 Apr 2008 21:32:46 +0200
Size: 2408
Date: Mon, 07 Apr 2008 21:32:46 +0200
- u_base_container u_explorer(sru)
- ke_canclose() returns boolean
- ke_explorer_closequery() returns integer
- ke_explorer_selectionchanging() returns integer
- ke_getstatustext() returns string
- ke_overridestatusbar(readonly u_statusbar auo_statusbar) returns boolean
- ke_overridetitle() returns string
- ke_explorer_activate()
- ke_explorer_broadcast(readonly string as_messageid, readonly string as_message)
- ke_explorer_gotfocus()
- ke_explorer_initialize()
- ke_key
- ke_modechange()