Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cut/Copy/Paste in form with no menu
Message
From
26/07/1998 20:55:37
 
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00120877
Message ID:
00121523
Views:
22
>Hi David,
>
>It worked fine for me. I put your code - with my revisions - in a program called foo. Here is the calling code:
>
>set proc to foo
>o = createobject("form1")
>o.show
>
>The following is foo.prg
>
>
>
>**************************************************
>*-- 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 _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
>DEFINE BAR _med_cut OF _medit PROMPT "Cu\> KEY CTRL+X, "Ctrl+X" ;
> MESSAGE "Removes the selection and places it onto the Clipboard"
>DEFINE BAR _med_copy OF _medit PROMPT "\> KEY CTRL+C, "Ctrl+C" ;
> MESSAGE "Copies the selection onto the Clipboard"
>DEFINE BAR _med_paste OF _medit PROMPT "\> KEY CTRL+V, "Ctrl+V" ;
> MESSAGE "Pastes the contents of the Clipboard"
> ENDPROC
>
>
>PROCEDURE Destroy
>POP MENU _MSYSMENU
>ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************

Hi again John.
Well I ran that code - just as above and it doesn't work at all. I'm running VFP 5.0a with default settings.
What can be wrong?
Dave
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform