Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Cut/Copy/Paste in form with no menu
Message
De
24/07/1998 20:33:04
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Divers
Thread ID:
00120877
Message ID:
00121251
Vues:
22
Hi John,
Further to my previous reply, I've done some testing. Here's a form I created to show the problem. It's a top level form, but I suspect that doesn't matter.
The cut/copy/paste doesn't work. So I'm doing something wrong.

(As a side note - it was *great* being able to create this code from visual code in a snap using the Class Browser - I hadn't tried that before, and I was thinking of emailing the .scx/t to you.)
**************************************************
*-- Form:         form1 (c:\development\harris\phone\test.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*
DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 165
	Width = 214
	Desktop = .T.
	ShowWindow = 2
	DoCreate = .T.
	Caption = "Test Cut/Paste etc"
	Name = "Form1"


	ADD OBJECT edit1 AS editbox WITH ;
		Height = 139, ;
		Left = 12, ;
		Top = 6, ;
		Width = 187, ;
		Name = "Edit1"


	PROCEDURE Load
		PUSH MENU _MSYSMENU
		SET SYSMENU TO
				DEFINE POPUP RWR0M05MA MARGIN RELATIVE
				DEFINE BAR _med_undo OF RWR0M05MA PROMPT "\<Undo" ;
					KEY CTRL+Z
				DEFINE BAR _med_redo OF RWR0M05MA PROMPT "Re\<do" ;
					KEY CTRL+R
				DEFINE BAR _med_cut OF RWR0M05MA PROMPT "Cu\<t" ;
					KEY CTRL+X
				DEFINE BAR _med_copy OF RWR0M05MA PROMPT "\<Copy" ;
					KEY CTRL+C
				DEFINE BAR _med_paste OF RWR0M05MA PROMPT "\<Paste" ;
					KEY CTRL+V
				DEFINE BAR _med_slcta OF RWR0M05MA PROMPT "Se\<lect All" ;
					KEY CTRL+A
	ENDPROC
PROCEDURE Destroy
POP MENU _MSYSMENU
ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform