LOGS x23.log
 ENVI$ TAB=09
 ENVI$ NLC=0a
 ENVI$  NL=0d 0a

 SET  &::WM_LBUTTONDOWN=0x0201 
 SET  &::WM_LBUTTONDBLCLK=0x0203
 SET  &::WM_RBUTTONDOWN=0x0204 
 SET  &RL0=

 CALL @WIN1


_SUB WIN1,W394H292,PECMD2012功能演示表格选择单元格并记录,
    TABL -color:00xACFFAC#0x004000#0x59ACFF#0x80 TABL3,L4T15W363H118,120:TABL3名称%TAB%+120:版本%TAB%105:备注,101%TAB%661%TAB%701%NLC%102%TAB%662%NLC%103%103%TAB%663%TAB%703%NLC%104%TAB%664%TAB%704%NLC%105%TAB%665%TAB%705%NLC%101%TAB%661%TAB%701%NLC%102%TAB%662%NLC%103%TAB%663%TAB%703%NLC%104%TAB%664%TAB%704%704%NLC%105%TAB%665%TAB%705,0x180840
    EDIT| LABE1,L4T136W363H98,%CurDir%,,0x66
    ENVI @TABL3.MSG=_%&WM_LBUTTONDOWN%:      CALL  OneAdd
    ENVI @TABL3.MSG=_%&WM_RBUTTONDOWN%:      CALL  OnRemove
_END

_SUB PUSHPOS 
    TEAM ENVI &&RL1=| ENVI &&HV=0
    FORX * %&RL0%,&&RL1, FIND $ %1 = %&RL1%, ENVI &HV=1
    FIND $ 0 = %&HV%, ENVI &RL0=%&RL0% %1
_END
 
_SUB POPPOS
    TEAM ENVI &&RL1=| ENVI &&NV=
    FORX * %&RL0%,&&RL1, FIND $%&RL1% <> %1,!! ENVI &NV=%&NV% %&RL1%
    ENVI &RL0=%&NV%
_END

 _SUB OneAdd
//ENVI &&x= -------DEBUG--OneLButton3---
     TEAM ENVI  @TABL3.Sel=?.&&Row;&&Col
     IFEX $ %&Row% > 0, PUSHPOS  %&Row%.%&Col%
     ENVI &&C=0 //|FIND KEY=17, ENVI &&C=1
     FIND $0=%&C%, ENVI  @TABL3.Color=%&Row%.%&Col%;;0xFF
     FIND $1=%&C%, ENVI  @TABL3.Color=*%&Row%;;0xFFFF00
     ENVI @LABE1={%&RL0%}
 _END

 _SUB OnRemove
//ENVI &&x= -------DEBUG--OnRemove---
     TEAM ENVI  @TABL3.Sel=?.&&Row;&&Col
     IFEX $ %&Row% > 0, POPPOS  %&Row%.%&Col%
     ENVI &&C=0 //|FIND KEY=17, ENVI &&C=1
     FIND $0=%&C%, ENVI  @TABL3.Color=%&Row%.%&Col%;;-1
     FIND $1=%&C%, ENVI  @TABL3.Color=*%&Row%;;-1
     ENVI @LABE1={%&RL0%}
 _END
 LOGS
 