Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cut/Paste etc in Menuless system
Message
From
30/07/1998 20:06:17
 
 
To
30/07/1998 19:51:35
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00122902
Message ID:
00122908
Views:
15
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform