Templates: Set global alert keys (1) 1998-11-01 -- Jim Katz Newsgroups: topspeed.products.c4
Editors note: Please note that some lines may wrap in the template code.
Hi Bertus,
Here is one I posted a few months ago:
#TEMPLATE(GlobalAlertKeys,'Global Alert Keys'),FAMILY('ABC')
#EXTENSION(GlobalAlertKeys,'Global Alert Keys'),Application,DESCRIPTION('Set Global Alert
Key')
#PROMPT('Key to Alert',KEYCODE),%GlobalAlertKey
#PROMPT('Procedure to Run:',PROCEDURE),%GlobalAlertProc
#AT(%WindowManagerMethodCodeSection,'TakeFieldEvent','(),BYTE'),Priority(3000),WHERE(~%PROCEDURE=%GlobalAlertProc)
#IF(%GlobalAlertKey)
Case KeyCode()
OF %GlobalAlertKey
%GlobalAlertProc
SetKeyCode(0)
End
#ENDIF
#ENDAT
Bertus Viljoen wrote:
>
> Does any one have a template extention to add a global alert key to all
> windows in an application, which he is willing to share with me?
>
> Or is there other ways to do that?
>
> Thanks
>
> Bertus Viljoen
> bertus@asset.co.nz
--
Jim Katz
Certified Clarion Developer
CTO iTradeZone,Inc.
http://www.iag.net/~jimkatz/
Using Clarion for Windows
Always looking for the simpler solution.
Printed May 3, 2024, 1:38 am This article has been viewed/printed 35115 times. Google search has resulted in 13 hits on this article since January 25, 2004. |