Kbase P48426: CTRL-DEL trigger does not fire
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/16/2008 |
|
Status: Unverified
FACT(s) (Environment):
Progress 9.x
SYMPTOM(s):
CTRL-DEL trigger does not fire
CAUSE:
In Progress 9 this is expected behavior. CTRL-DELETE in a fill-in used to delete from the current character to the end of the text (on screen). The characters were not deleted in memory, so if you continued typing the characters would reappear. The solution chosen was to change CTRL-DELETE to DELETE for fill-ins so that this would not occur.
FIX:
&GLOBAL-DEFINE VK_CONTROL 17 /* Virtual Key Code for Control Key */
PROCEDURE GetKeyState EXTERNAL "USER32.DLL":
DEFINE INPUT PARAMETER nVirtKey AS LONG NO-UNDO.
DEFINE RETURN PARAMETER nResult AS LONG NO-UNDO.
END PROCEDURE.
ON 'DEL' anywhere DO:
DEFINE VARIABLE iResult AS INTEGER NO-UNDO.
RUN GetKeyState (INPUT {&VK_CONTROL}, OUTPUT iResult).
IF iResult = 65408 OR iResult = 65409 THEN
DO:
message 'CTRL-DEL: now you can put your code here' view-as alert-box.
RETURN NO-APPLY.
END.
END.
/*------------------------*/