Kbase P129436: Editor widget does not apply page-up and page-down events.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
07/09/2010 |
|
Status: Unverified
SYMPTOM(s):
Editor widget does not apply page-up and page-down events.
ON ... ANYWHERE trigger defined for page-up and page-down events.
The trigger events fire, but the expected page-up and page-down behavior does not happen.
FACT(s) (Environment):
Windows
Progress 9.x
OpenEdge 10.x
OpenEdge Category: Language (4GL/ABL)
CAUSE:
Bug# OE00097000
FIX:
None at this time.
As a work around in the ANYWHERE trigger, add code similar to the following in order to manually perform the page-up or page-down behavior in the editor widget. In this case the editor is the Customer.Comments field defined in the frame with VIEW-AS EDITOR.
IF SELF:TYPE = "EDITOR" THEN
DO WITH FRAME {&FRAME-NAME}:
CASE LAST-EVENT:FUNCTION:
WHEN "page-down" THEN
DO:
IF (Customer.Comments:NUM-LINES - Customer.Comments:CURSOR-LINE) < Customer.Comments:INNER-LINES THEN
SELF:CURSOR-LINE = SELF:CURSOR-LINE + (Customer.Comments:NUM-LINES - Customer.Comments:CURSOR-LINE).
ELSE
SELF:CURSOR-LINE = SELF:CURSOR-LINE + Customer.Comments:INNER-LINES.
END.
WHEN "page-up" THEN
DO:
IF Customer.Comments:CURSOR-LINE > Customer.Comments:INNER-LINES THEN
SELF:CURSOR-LINE = SELF:CURSOR-LINE - Customer.Comments:INNER-LINES NO-ERROR.
ELSE
SELF:CURSOR-LINE = 1 NO-ERROR.
END.
END CASE.
END