LOGS * X.LOG
@ENVI^ ForceLocal=1
SET  ::WM_LBUTTONDOWN                  =0x0201
KILL pecmd
@IFEX  X.LOG, LOGS * X.LOG
WIN1 
_SUB WIN1,W289H249,软键盘,,,-,, -top 
    SET-def WID0=%&__WinID%
    SET-def  X=0
    SET-def h=0
    TIME -t:1  T1,1, CALL ReleaseFocus
    ITEM ITEM2,L118T27W72H30,CTR+SHIFT,   CALL DoIt   VK_CONTROL_;VK_SHIFT_;VK_CONTROL^;VK_SHIFT^,
    //ENVI @this.MSG=%&::WM_LBUTTONDOWN%: CALL DoIt   VK_CONTROL_;VK_SHIFT_;VK_CONTROL^;VK_SHIFT^
    ITEM ITEMA,L19T72W28H30,a,  CALL DoIt  a
    ITEM ITEMB,L59T72W28H30,b,  CALL DoIt  b
    ITEM ITEMC,L99T72W28H30,c,  CALL DoIt  c
    ITEM ITEMQUIT,L255T15W20H20,X,  Kill \
    CALL DoIt  c
_END
_SUB DoIt
    ReleaseFocus 
    SET-def _cmd=SEND %*
    %&_cmd% 
    WAIT 50
_END
_SUB ReleaseFocus
     SET-def h1=0
     ENVI @WIN1.Visable=0
     LOOP #%h1%=0,
     {   CALL $ **ret:&h1 user32.dll,GetForegroundWindow
         IFEX $0=%h1%, WAIT 1
     }
     ENVI @WIN1.Visable=1
     IFEX $0=%h1%,! IFEX $%h1%=%&WID0%,! SET  h=%h1% 
     IFEX $0=%h%,!  CALL $ **ret:&&ret user32.dll,SetForegroundWindow,#%h%
_END
