kj.mpr

可以自由调整大小进行拍照摄像并自动保存,能捕获视频进录像并保存

*       *********************************************************
*       *                                                         
*       * 05/14/04               KJ.MPR                 12:31:18  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2004 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

DEFINE POPUP 快捷菜单s SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单s PROMPT "打开" ;
	SKIP FOR CD=.F.
DEFINE BAR 2 OF 快捷菜单s PROMPT "另存为..." ;
	SKIP FOR CD=.F.
DEFINE BAR 3 OF 快捷菜单s PROMPT "重命名" ;
	SKIP FOR CD=.F.
DEFINE BAR 4 OF 快捷菜单s PROMPT "\-"
DEFINE BAR 5 OF 快捷菜单s PROMPT "删除" ;
	SKIP FOR CD=.F.
DEFINE BAR 6 OF 快捷菜单s PROMPT "全部删除"
ON SELECTION BAR 1 OF 快捷菜单s DO FORM OPEN
ON SELECTION BAR 2 OF 快捷菜单s ;
	DO _18j0qu6uq ;
	IN LOCFILE("\EEYE\KJ" ,"MPX;MPR|FXP;PRG" ,"WHERE is KJ?")
ON SELECTION BAR 3 OF 快捷菜单s Do form renam
ON SELECTION BAR 5 OF 快捷菜单s ;
	DO _18j0qu6ur ;
	IN LOCFILE("\EEYE\KJ" ,"MPX;MPR|FXP;PRG" ,"WHERE is KJ?")
ON SELECTION BAR 6 OF 快捷菜单s ;
	DO _18j0qu6ut ;
	IN LOCFILE("\EEYE\KJ" ,"MPX;MPR|FXP;PRG" ,"WHERE is KJ?")

ACTIVATE POPUP 快捷菜单s

*       *********************************************************
*       *                                                         
*       * _18J0QU6UQ  ON SELECTION BAR 2 OF POPUP 快捷菜单s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KJ.MPR,            Record:    6             
*       * Called By:  ON SELECTION BAR 2 OF POPUP 快捷菜单s       
*       * Prompt:     另存为...                                   
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _18j0qu6uq
AA=GETFILE('BMP')
IF EMPTY(AA) OR UPPER(AA)=UPPER(pName)
   RETURN
ENDIF
IF FILE(AA)
   bb=MESSAGEBOX('文件已存在，要覆盖吗？ ',4+32,'提示')
   IF bb<>6
      RETURN
   ENDIF
ENDIF
COPY FILE &pName to &aa
MESSAGEBOX('文件 '+PName+' 已经保存到： '+aa,0,'提示')
RETURN





*       *********************************************************
*       *                                                         
*       * _18J0QU6UR  ON SELECTION BAR 5 OF POPUP 快捷菜单s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KJ.MPR,            Record:   10             
*       * Called By:  ON SELECTION BAR 5 OF POPUP 快捷菜单s       
*       * Prompt:     删除                                        
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _18j0qu6ur
AA=MESSAGEBOX(' 确认要删除这张照片？ ',4+32,'请确认')
IF AA<>6
   RETURN
ENDIF
*WAIT WIND ALLTRIM(STR(AA))

SELECT &cUSER
GO TOP
LOCATE FOR UPPER(ALLTRIM(FileName))=UPPER(pName)
IF FOUND()
   ERASE &pName
   DELETED()
   PACK
ENDIF
lSd=.T.
_VFP.ActiveForm.Activate()



*       *********************************************************
*       *                                                         
*       * _18J0QU6UT  ON SELECTION BAR 6 OF POPUP 快捷菜单s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KJ.MPR,            Record:   11             
*       * Called By:  ON SELECTION BAR 6 OF POPUP 快捷菜单s       
*       * Prompt:     全部删除                                    
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _18j0qu6ut
aa=MESSAGEBOX(' 确实要删除该影集中的所有照片吗？ ',4+32,'提示')
IF AA<>6
   RETURN
ENDIF
SELECT &cUser
GO top
DO while !EOF()
   cc=ALLTRIM(filename)
   IF FILE(cc)
      ERASE &cc
   ENDIF
   SKIP
ENDDO
ZAP
_VFP.ActiveForm.Activate()