change via

忘川河里不渡人 · 发表于 2020-12-7 09:41:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

procedure(changeViaRow(bb)
let((objs row)
objs=geGetSelSet()
foreach(obj objs
row=obj~>cutRows
if(bb==1 then
obj~>cutRows=row+1
else
obj~>cutRows=row-1
);if
);foreach
);let
);proc

hiSetBiandKey("Layout" "none<Btn4Down>" "changeViaRow(1)")

hiSetBiandKey("Layout" "none<Btn5Down>" "changeViaRow(-1)")

procedure(changeViaColumn(bb)
let((objs column)
objs=geGetSelSet()
foreach(obj objs
column=obj~>cutCols
if(bb==1 then
obj~>cutCols=column+1
else
obj~>cutCols=column-1
);if
);foreach
);let
);proc

hiSetBiandKey("Layout" "shift<Btn4Down>" "changeViaColumn(1)")

hiSetBiandKey("Layout" "shift<Btn5Down>" "changeViaColumn(-1)")

[转贴] change via

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

站长推荐 /1