Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Shortcut menu on EditBox
Message
 
 
À
25/01/2002 05:15:16
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00610274
Message ID:
01374923
Vues:
36
>>Hi everyone,
>>
>>I'd like to create a shortcut menu (on Right Click) for the editbox, which has to include all standard Edit menu commands (or some essential): Copy, Cut, Paste, Print. They should behave correctly, e.g. is something is in clipboard, then paste is active and vs. Could you please point me to the right direction?
>>
>>Thanks a lot in advance.
>
>
*Rightclick
>activate popup ccp at mrow(),mcol()
>
>*form.load
>DEFINE POPUP ccp SHORTCUT RELATIVE
>DEFINE BAR _med_cut OF ccp PROMPT "Cu\<t" ;
> KEY CTRL+X, "Ctrl+X" ;
> MESSAGE "Removes the selection and places it onto the Clipboard"
>DEFINE BAR _med_copy OF ccp PROMPT "\<Copy" ;
> KEY CTRL+C, "Ctrl+C" ;
> MESSAGE "Copies the selection onto the Clipboard"
>DEFINE BAR _med_paste OF ccp PROMPT "\<Paste" ;
> KEY CTRL+V, "Ctrl+V" ;
> MESSAGE "Pastes the contents of the Clipboard"
>DEFINE BAR _med_slcta OF ccp PROMPT "Se\<lect All" ;
> KEY CTRL+A, "Ctrl+A" ;
> MESSAGE "Selects all text or items in the current window"
>
Cetin

Hi Cetin,

Thanks again. I now want slightly different menu with 3 items: Find, Continue (if Find was active) and Print. Find will prompt for the text to find and then highlight this text (first occurrence in the EditBox), continue will continue to search for that text...

Do you have ideas how to implement such menu on an EditBox?

Thanks in advance.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform