Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Shortcut menu on EditBox
Message
From
25/01/2002 11:58:56
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00610274
Message ID:
00610569
Views:
50
>>>>Type, report etc.
>>>>Cetin
>>>
>>>Hi Cetin,
>>>
>>>Is there a way to make File/Print button menu operates on EditBox content? I don't want to write a special program, I want to use native ability to print. However, it doesn't seem to work with editboxes...
>>
>>Type, report are native to VFP.
>>Cetin
>
>Type operates on file's content. So, from the menu point of view we need to find out currently active window, output its content to temp file and then use this command...

Nadya,
Not a big deal to find out the content.
*Rightclick
do myshcut.mpr with this

*myshcut.mpr
lparameters toObject
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_cut OF shortcut PROMPT "Cu\<t" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "Removes the selection and places it onto the Clipboard"
DEFINE BAR _med_copy OF shortcut PROMPT "\<Copy" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "Copies the selection onto the Clipboard"
DEFINE BAR _med_paste OF shortcut PROMPT "\<Paste" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "Pastes the contents of the Clipboard"
DEFINE BAR _med_slcta OF shortcut PROMPT "Se\<lect All" ;
	KEY CTRL+A, "Ctrl+A" ;
	MESSAGE "Selects all text or items in the current window"
DEFINE BAR 5 OF shortcut PROMPT "Print" ;
	KEY CTRL+P, "Ctrl+P"
On selection bar 5 of shortcut do Printme with toObject.Value

ACTIVATE POPUP shortcut

function printme
lparameters tcPrint
create cursor dummy (Edited m)
insert into dummy values (tcPrint)
report form dummy to printer
use in 'dummy'
Don't forget to create the report dummy.
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform