Post by mueh on Aug 18, 2019 7:28:09 GMT -5
George:
In FM (CmdHome) works perfect .
In Edit it gives Unknown line cmd "MI :DASD" when there was a TAG :DASD on that line .
with (LineNo) there is no Problem with Tag on the line .
Think it's caused by addtional Code in
I think it should do only me.CsrCol = 1 as it's dine in krLineNo
Thanks
In FM (CmdHome) works perfect .
In Edit it gives Unknown line cmd "MI :DASD" when there was a TAG :DASD on that line .
with (LineNo) there is no Problem with Tag on the line .
Think it's caused by addtional Code in
METHOD krCmdHome()
'----- Get to nearest command area
LOCAL ix AS LONG
IF IsCData OR IsCLinN THEN ' In a line area somewhere
ix = sGetIX(CRow) ' Get IX of real DataLine
IF ix = 0 THEN MExitMeth ' Bail out if below last line
LLCtlS(ix) = LTRIM$(LLCtlG(ix)) ' Trim it
sPrint (BYCOPY LEFT$(LLCtlG(ix), ENV.LinNoSize), $$LnoHi, CRow, 1) ' ReDisplay it
me.TTblAdd(ix, TRIM$(LLCtlG(ix))) ' Update touched items
me.CsrCol = 1 ' Go back to LCmd area
ELSE ' Somewhere else
pCommand = LTRIM$(pCommand) ' Trim command
me.WindowCmd ' Re-do the command line
SetCmd ' Set the cursor
END IF
END METHOD
METHOD krLineNo()
'---------- LineNo key
LOCAL ix, i AS LONG
CsrLinDX = 0 ' Reset possible hidden DX line location
'----- Only if in an eligible line
IF IsCData OR IsCLinN THEN '
ix = sGetIX(CRow) ' Get IX of line the cursor is on
IF ix = 0 OR ix = -3 THEN sDoBeep: EXIT METHOD ' Below last line or Hex dash line? Bail out
me.CsrCol = 1 ' Move cursor back to col 1
ELSE '
sDoBeep ' Beep
END IF '
END METHOD
I think it should do only me.CsrCol = 1 as it's dine in krLineNo
Thanks