|
Post by mueh on May 23, 2019 1:57:58 GMT -5
Hi George ! DOWN MAX with HEX ON positions to line 3 Pages from BOTTOM or is noop if less then 3 pages . Code with comment in DOWN MAX doesn't Divide for HexMode .
METHOD pCmdDOWN(pCmd AS STRING)
TopScrn = me.CRPFwd(%mVisible, TopScrn, ScrAmt) ' Move TopScrn by scroll amount
IF ScrCmd = "M" OR ScrCmd = "MAX" THEN ' If down max, backup by one screen
' TopScrn = me.CRPBack(%mVisible, TopScrn, gwScrHeight - 3 - Prf.Cols)
ScrAmt = gwScrHeight - 3 - Prf.Cols ' Do a full page
ScrAmt = ScrAmt \ Prf.HexMode ' Adjust for Hex
TopScrn = me.CRPBack(%mVisible, TopScrn, ScrAmt)
END IF '
Hope that is an easy one . Thanks
|
|
|
Post by George on May 24, 2019 12:11:31 GMT -5
MUEH: Works just fine, thanks for finding it.
George
|
|