Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Cut/Paste etc in Menuless system
Message
De
30/07/1998 20:06:17
 
 
À
30/07/1998 19:51:35
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00122902
Message ID:
00122908
Vues:
14
>I believe you still need to have defined the edit menu pad, but you could, should be able to, deactivate it if you want. I've actually just included these particular pads (from using Quick Menu) in my own Edit menu choice...
>
>>What techniques are folks using to provide cut and paste (Ctrl+V, Ctlr+C,
>Ctrl+X, Ctrl+A etc) in top level forms that don't have system menus?

That's what I thought you could do. I tried to resolve this with John Peterson but couldn't quite crack the nut. Here's some code which defines a form. If you set up a form with the following properties and methods can anyone explain why the cut/paste etc doesn't work? I'm really stumped.
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 Destroy
		POP MENU _MSYSMENU
	ENDPROC

	PROCEDURE Load
		PUSH MENU _MSYSMENU
		DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR _med_cut OF _medit PROMPT "Cut" KEY CTRL+X, "Ctrl+X" ;
		MESSAGE "Removes the selection and places it onto the Clipboard"
		DEFINE BAR _med_copy OF _medit PROMPT "Copy" KEY CTRL+C, "Ctrl+C" ;
		MESSAGE "Copies the selection onto the Clipboard"
		DEFINE BAR _med_paste OF _medit PROMPT "Paste" KEY CTRL+V, "Ctrl+V" ;
		MESSAGE "Pastes the contents of the Clipboard"
	ENDPROC


ENDDEFINE
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform