Tool Search.xlsx

	A	B	C	D	E	F	G	H	I
1	; Define
2
3	; Keyboard Shortcut Code Generator by Michael Vogel
4
5	DataSection
6	KeyShortcuts:
7	Data.s "		Ctrl	Shift_Ctrl	Alt	Shift_Alt	Alt_Ctrl	Alt_Shift_Ctrl	"
8	Data.s "	A	SELECT ALL						"
9	Data.s "	B	KeyLargerLimit	KeySmallerLimit					"
10	Data.s "	C	COPY						"
11	Data.s "	D	KeyLocalPath	OptionDateLimit	CmbPath				"
12	Data.s "	E	CopyFilename	KeyEmptyHistory					"
13	Data.s "	F	CopyFullPath	OptionFileLimit					"
14	Data.s "	G	OptionSearchMode	OptionSearchMode	OptionThemeAddMainSat	OptionThemeSubMainSat	OptionThemeAddSat	OptionThemeSubSat	"
15	Data.s "	H	OptionThemeCol1Dark	OptionThemeCol1Light	OptionThemeAddMainLgt	OptionThemeSubMainLgt	OptionThemeCol2Dark	OptionThemeCol2Light	"
16	Data.s "	I	KeyAppInfo	KeyEditor1					"
17	Data.s "	J	KeyMainPath	KeyEditor2					"
18	Data.s "	K	CopyViewedLines	KeyLockItem					"
19	Data.s "	L	CopySingleLine	KeyLockItem					"
20	Data.s "	M	OptionMessages	KeySwapFields					"
21	Data.s "	N	TxtNearby	OptionViewNearby	CmbNearby				"
22	Data.s "	O	OpenFile				OptionOnTop		"
23	Data.s "	P	OpenExplorer	OptionParameter					"
24	Data.s "	Q	OptionThemeNext	OptionThemeNext			OptionListFont		"
25	Data.s "	R	KeyRefreshSort	KeyResetSort					"
26	Data.s "	S	KeySearchMenu	KeyTextSearch	CmbSearch				"
27	Data.s "	T	OptionInformation	OpenNotepad					"
28	Data.s "	U	OptionCase	OptionShort					"
29	Data.s "	V	PASTE						"
30	Data.s "	W	KeyWiderBar	KeySmallerBar					"
31	Data.s "	X	CUT						"
32	Data.s "	Y	KeyMoreTimes	KeyLessTimes					"
33	Data.s "	Z	UNDO						"
34	EndDataSection
35
36	#Win=	"#Win"
37
38	#Keys=	26
39	#Short=	"#PB_Shortcut_"
40
41	Define.s r,s,t,v
42
43	Restore KeyShortcuts
44	Dim Keys.s(#Keys)
45	Dim Flag(#Keys)
46
47	For i=0 To #Keys
48		Read.s Keys(i)
49	Next i
50
51	Combi=CountString(Keys(0),#TAB$)
52	Dim Modifier.s(Combi)
53	For i=3 To Combi
54		s.s=StringField(Keys(0),i,#TAB$)
55		Modifier(i)=#Short+s
56		v+Modifier(i)+"="+LSet("",3-CountString(s,"_"),#TAB$)+#Short+ReplaceString(ReplaceString(s,"Ctrl","Control"),"_"," \| "+#Short)+#CRLF$
57	Next i
58	v+#CRLF$
59
60	For i=1 To #Keys
61		s=StringField(Keys(i),2,#TAB$)
62		For j=3 To Combi
63			t=StringField(Keys(i),j,#TAB$)
64			r=Left(t,1)
65			If t And r<>"*"
66				If r<>"#" : t="#"+t : EndIf
67				If Flag(i)=#Null
68					Flag(i)=#True
69					v+"; --- "+s+" ---"+#CRLF$
70				EndIf
71				v+"AddKeyboardShortcut("+#Win+", "+#Short+s+" \| "+Modifier(j)+","+LSet("",(30-Len(Modifier(j)))/4,#TAB$)+t+" )"+#CRLF$
72			EndIf
73		Next j
74	Next i
75
76	Debug v
77	SetClipboardText(v)
78
79	; Define
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100