dcontact.tpl

来自「在手机操作系统symbina上使用的一个脚本扩展语言的代码实现,可以参考用于自己」· TPL 代码 · 共 42 行

REM dContact - Demonstrating the Contacts Manager OPX.
REM v5.1
REM (c) 1999 Symbian Ltd. All rights reserved.

INCLUDE "Const.oph"
INCLUDE "Contact.oxh"

DECLARE EXTERNAL
EXTERNAL Main:
EXTERNAL燚oMenu:
EXTERNAL燚oCmd:(key%)
EXTERNAL燦ewFile:
EXTERNAL燨penFile:
EXTERNAL燚isplayRecord:
EXTERNAL燚oDisplayRecord:

PROC Main:
	GLOBAL MenuState%
	GLOBAL DatabaseName$(255)
	GLOBAL RecordIndex&
	LOCAL爇ey%
	LOCAL finished%
	LOCAL ev&(16)
	FONT KFontTiny4&,0
	WHILE NOT finished%
		DisplayRecord:		
		GETEVENT32 ev&()
		IF ev&(1)=&F700 OR ev&(1)=&F836
			key%=DoMenu:
		ENDIF
		IF (ev&(1) AND &400)=0
			key%=ev&(1) AND &FF
			DoCmd:(key%)
		ENDIF
	ENDWH
ENDP

PROC DoMenu:
	GLOBAL燤enuState%
	LOCAL爇ey%
	mINIT
	mCard "File","Create new database