TransparentGrop ON/OFF 设置快捷键

yangwgtop

手打的可能有打错的。

1. hiSetBindKeys( “layout” list(list("<Key>F1" “GroupSwitch()")))
   
2. procedure(GroupSwitch()
   
3. let( (cv cw scw scw1 scw2 i1 Tgt1 Tgt2 tgv)        
   
4. cv = geGetEditCellView()        
   
5. cw=hiGetCurrentWindow()
   
6. scw=hiGetSessionWindow(cw)
   
7. scw1=printself(scw)
   
8. scw2=parseString(scw1 ":")
   
9. i1=cadr(scw2)
   
10. Tgt1=strcat("swindow(" i1 ")" "->hiToolbars->lebOptionsToolbar_" i1 "->lebTrans->checked=t")
    
11. Tgt2=strcat("swindow(" i1 ")" "->hiToolbars->lebOptionsToolbar_" i1 "->lebTrans->checked=nil")
    
12. leHiEditDisplay0ptions()
    
13. tgv=leDisplayOptionsForm->options->transparentGroup->value
    
14. hiFormCancel(leDisplayOptionsForm)
    
15.         if(tgv then
    
16.                 hiEnqueueCmd(Tgt2)
    
17.         else
    
18.                 hiEnqueueCmd(Tgt1)
    
19.         );if
    
20. );let
    
21. );pro
    

复制代码

yangwgtop

leHiEditDisplay0ptions()  ——>  leHiEditDisplayOptions()

陈卫霖

yangwgtop 发表于 2023-8-7 18:36
leHiEditDisplay0ptions()  ——>  leHiEditDisplayOptions()

                               
登录/注册后可看大图

按照上面的代码敲，有错误的地方做了修改，实测能用了，感谢！！