$PBExportHeader$u_wizard_page.sru forward global type u_wizard_page from u_base_container end type end forward global type u_wizard_page from u_base_container integer width = 2272 integer height = 1260 boolean #anchortop = true boolean #anchorleft = true boolean #anchorright = true boolean #anchorbottom = true event ke_reset ( ) event ke_key pbm_keydown event ke_setfocus ( ) end type global u_wizard_page u_wizard_page type variables protected: n_base_wizard WizardClass w_wizard WizardWindow end variables forward prototypes public subroutine of_registerwizarddriver (readonly n_base_wizard anv, readonly w_wizard aw) public subroutine of_setfocus () end prototypes event ke_reset();//fired when page needs to be reset (initalized) //this is needed when multiple runs of the same //wizard occurs end event event ke_key;IF ISVALID(WizardWindow) THEN CHOOSE CASE key CASE KeyEnter! WizardWindow.of_triggerbutton(WizardWindow.#DefaultButton) CASE KeyEscape! WizardWindow.of_triggerbutton(WizardWindow.#CancelButton) END CHOOSE END IF end event event ke_setfocus();//fired when page gets focused/activated //this is useful to setfocus on your //own controls end event public subroutine of_registerwizarddriver (readonly n_base_wizard anv, readonly w_wizard aw);WizardClass = anv WizardWindow = aw end subroutine public subroutine of_setfocus ();this.SetFocus() EVENT ke_setfocus() end subroutine on u_wizard_page.create call super::create end on on u_wizard_page.destroy call super::destroy end on
- Sources
- Kodigo
- OpenExplorer
- u_wizard_page.sru
File: u_wizard_page.sru
Size: 1590
Date: Mon, 07 Apr 2008 21:31:59 +0200
Size: 1590
Date: Mon, 07 Apr 2008 21:31:59 +0200
- u_base_container u_wizard_page(sru)