69 lines
2.0 KiB
Plaintext
69 lines
2.0 KiB
Plaintext
type t_shortcut_keys_view=class(tdcreateform)
|
|
uses tslvcl;
|
|
panel1:tpanel;
|
|
fokbtn:tbtn;
|
|
shortcutview:tlistview;
|
|
function Create(AOwner);override; //构造
|
|
begin
|
|
inherited;
|
|
shortcutview.AppendItems(init_shortcut_keys());
|
|
end
|
|
|
|
function shortcut_keys_view_close(o;e);
|
|
begin
|
|
e.skip := true;
|
|
Visible := false;
|
|
end
|
|
|
|
function fokbtn_clk(o;e);
|
|
begin
|
|
Visible := false;
|
|
end
|
|
function Recycling();override; //回收变量
|
|
begin
|
|
inherited;
|
|
ci := self.classinfo(); //将成员变量赋值为nil避免循环引用
|
|
for i,v in ci["members"] do
|
|
begin
|
|
if v["const"] then continue;
|
|
if v["static"] then continue;
|
|
invoke(self,v["name"],nil);
|
|
end
|
|
end
|
|
function init_shortcut_keys();
|
|
begin
|
|
return array(("ctrl+o","打开"),
|
|
("ctrl+N","新建"),
|
|
("ctrl+s","保存"),
|
|
("ctrl+F","查找窗口"),
|
|
("ctrl+R","替换窗口"),
|
|
("ctrl+a","全选"),
|
|
("ctrl+c","拷贝选择"),
|
|
("ctrl+D","复制被插入当前行"),
|
|
("ctrl+v","粘贴"),
|
|
("ctrl+x","剪切选择"),
|
|
("ctrl+G","定位到行"),
|
|
("ctrl+L|Y", "删除当前行"),
|
|
("tab | shift+tab","多行选中时缩进"),
|
|
("ctrl+/","注释当前选择"),
|
|
("ctrl+\\","取消当前注释"),
|
|
("ctrl+U","反撤销"),
|
|
("ctrl+z","撤销"),
|
|
("ctrl+tab","切换标签"),
|
|
("ctrl+J","打开tsl函数查找面板"),
|
|
("F2","跳转到下一个断点行"),
|
|
("F5","添加删除断点"),
|
|
("Alt+F5","将选中字符串转换为大写"),
|
|
("ctl+F5","将选中字符串转换为小写"),
|
|
("F3","正向搜索先前搜索的字符"),
|
|
("ctrl+F3","反向搜索先前搜索的字符"),
|
|
("ctrl+tab","切换标签页"),
|
|
("F9","执行当前页的代码"),
|
|
("ctrl+F9","打开执行代码编辑器"),
|
|
("F7","显示隐藏日志窗口"),
|
|
("F1","对于tsl语言查找当前光标所在位置的帮助"),
|
|
("alt+m","弹出tsl代码地图"));;
|
|
end
|
|
|
|
end
|