home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / samples / solution / menus / edtshort.mpr < prev    next >
Encoding:
Text File  |  1996-08-21  |  3.8 KB  |  81 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 5/16/96            EDTSHORT.MPR              17:18:52  
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (C) 1996 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This PROGRAM was automatically generated BY GENMENU.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. *       *********************************************************
  20. *       *                                                         
  21. *       *                        Setup Code                       
  22. *       *                                                         
  23. *       *********************************************************
  24. *
  25.  
  26. PARAMETER oREF
  27.  
  28. *       *********************************************************
  29. *       *                                                         
  30. *       *                      Menu Definition                    
  31. *       *                                                         
  32. *       *********************************************************
  33. *
  34.  
  35. DEFINE POPUP edtshort SHORTCUT FROM MROW(),MCOL()
  36. DEFINE BAR 1 OF edtshort PROMPT "\<Font..."
  37. DEFINE BAR 2 OF edtshort PROMPT "\-"
  38. DEFINE BAR _med_cut OF edtshort PROMPT "Cu\<t" ;
  39.     KEY CTRL+X, "Ctrl+X" ;
  40.     MESSAGE "Removes the selection and places it onto the Clipboard"
  41. DEFINE BAR _med_copy OF edtshort PROMPT "\<Copy" ;
  42.     KEY CTRL+C, "Ctrl+C" ;
  43.     MESSAGE "Copies the selection onto the Clipboard"
  44. DEFINE BAR _med_paste OF edtshort PROMPT "\<Paste" ;
  45.     KEY CTRL+V, "Ctrl+V" ;
  46.     MESSAGE "Pastes the contents of the Clipboard"
  47. DEFINE BAR _med_clear OF edtshort PROMPT "Cle\<ar" ;
  48.     MESSAGE "Removes the selection and does not place it onto the Clipboard"
  49. ON SELECTION BAR 1 OF edtshort ;
  50.     DO _rah1140l8 ;
  51.     IN LOCFILE("\VFP4\SAMPLES\SOLUTION\MENUS\EDTSHORT" ,"MPX;MPR|FXP;PRG" ,"WHERE is EDTSHORT?")
  52.  
  53. ACTIVATE POPUP edtshort
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       * _RAH1140L8  ON SELECTION BAR 1 OF POPUP edtshort        
  58. *       *                                                         
  59. *       * Procedure Origin:                                       
  60. *       *                                                         
  61. *       * From Menu:  EDTSHORT.MPR,            Record:    5       
  62. *       * Called By:  ON SELECTION BAR 1 OF POPUP edtshort        
  63. *       * Prompt:     Font...                                     
  64. *       * Snippet:    1                                           
  65. *       *                                                         
  66. *       *********************************************************
  67. *
  68. PROCEDURE _rah1140l8
  69. IF TYPE("m.oRef") = "O"
  70.     m.cFont = GetFont()
  71.     IF EMPTY(m.cFont)
  72.         RETURN
  73.     ENDIF
  74.     m.commaLoc = AT(",",m.cFont)
  75.     m.comma2Loc = AT(",",m.cFont,2)
  76.     oRef.FontName = SUBSTR(m.cFont,1,m.commaLoc-1)
  77.     oRef.FontSize = VAL(SUBSTR(m.cFont,m.commaLoc+1,m.comma2Loc-m.commaLoc))
  78.     oRef.FontBold = ATC("B",SUBSTR(m.cFont,m.comma2Loc))#0
  79.     oRef.FontItalic = ATC("I",SUBSTR(m.cFont,m.comma2Loc))#0
  80. ENDIF
  81.