QuickAlign命令。No Spacing, User Spacing分成两个快捷键

yangwgtop

618可用。No Spacing, User Spacing分成两个快捷键

1. hiSetBindKeys( "layout" list(list("<Key>A" "QuickAlignX()")))
   
2. hiSetBindKeys( "layout" list(list("Shift<Key>A" "QuickAlignY()")))
   
3. 
   
4. textX="No Spacing"
   
5. textY="User Spacing"
   
6. 
   
7. procedure(QuickAlignY()
   
8. prog( (cv)
   
9. cv = geGetEditCellView()
   
10. if(cv~>mode=="r" then
    
11.         info("Read Only”
    
12.         nil
    
13. else
    
14. ;        hiEnqueueCmd("hiiToggleEnterForm(leQckAlignForm)")
    
15.         hiEnqueueCmd("leQckAlignForm~>qckAlignSpacingField~>value=textY")
    
16.         hiEnqueueCmd("hiToggleEnterForm(leQckAlignForm)")
    
17.         leHiQuickAlign()
    
18. )))
    
19. 
    
20. procedure(QuickAlignY()
    
21. prog( (cv)
    
22. cv = geGetEditCellView()
    
23. if(cv~>mode=="r" then
    
24.         info("Read Only”
    
25.         nil
    
26. else
    
27.         hiEnqueueCmd("hiiToggleEnterForm(leQckAlignForm)")
    
28.         hiEnqueueCmd("leQckAlignForm~>qckAlignSpacingField~>value=textX")
    
29.         hiEnqueueCmd("hiToggleEnterForm(leQckAlignForm)")
    
30.         leHiQuickAlign()
    
31. )))
    
32. 
    

复制代码

maomao198477

少了 )

dreamflying61

[img][/img]

一芯求精

这个相当实用了

level90

好贴要顶

一芯求精

maomao198477 发表于 2023-3-30 16:27
少了 )

Only”后面吗