Context Navigation

← Previous Changeset
Next Changeset →

Changeset 2186

Timestamp:

03/10/10 19:02:39 (3 years ago)

Author:

mösi

Message:

Römische-Zahlen-Eingabe in Ordnung gebracht und mit direkten Unicode-Zeichen versehen.

Files:

: 1 modified

windows/neo-vars/src/source/tools.ahk (modified) (12 diffs)

Legend:

: Unmodified
: Added
: Removed

windows/neo-vars/src/source/tools.ahk

r1788	r2186
1		; ~~��~~
2
3		; R�mische Zahlen
	1	; -- encoding: utf-8 --
	2
	3	; Römische Zahlen
4	4	CMS__Comp := 1
5	5	CMS__CompU000072 := 1
6	6	CMS__CompU000052 := 1
7		CDS__CompU000072U000072 := "P_Rom1"
8		CDS__CompU000072U000031 := "P_Rom1"
9		CDS__CompU000052U000031 := "P_Rom1"
10		CDS__CompU000072U000052 := "P_Rom2"
11		CDS__CompU000072U000032 := "P_Rom2"
12		CDS__CompU000052U000032 := "P_Rom2"
13		CDS__CompU000052U000072 := "P_Rom3"
14		CDS__CompU000072U000033 := "P_Rom3"
15		CDS__CompU000052U000033 := "P_Rom3"
16		CDS__CompU000052U000052 := "P_Rom4"
17		CDS__CompU000072U000034 := "P_Rom4"
18		CDS__CompU000052U000034 := "P_Rom4"
19
20		CharProc_Rom1() {
21		global
22		; starte gro� geschriebene r�mische Zahlen, verwende U2160++
	7	CDS__CompU000072U00004F := "P__Rom1"
	8	;CDS__CompU000072U000031 := "P__Rom1"
	9	;CDS__CompU000052U000031 := "P__Rom1"
	10	CDS__CompU000052U00004F := "P__Rom2"
	11	;CDS__CompU000072U000032 := "P__Rom2"
	12	;CDS__CompU000052U000032 := "P__Rom2"
	13	CDS__CompU000072U00006F := "P__Rom3"
	14	;CDS__CompU000072U000033 := "P__Rom3"
	15	;CDS__CompU000052U000033 := "P__Rom3"
	16	CDS__CompU000052U00006F := "P__Rom4"
	17	;CDS__CompU000072U000034 := "P__Rom4"
	18	;CDS__CompU000052U000034 := "P__Rom4"
	19
	20	GUISYM("P__Rom1","ⅶ")
	21	GUISYM("P__Rom2","Ⅶ")
	22	GUISYM("P__Rom3","vii")
	23	GUISYM("P__Rom4","VII")
	24
	25	CharProc__Rom1() {
	26	global
	27	; starte klein geschriebene römische Zahlen, verwende U2160++
23	28	PressHookProc := "Roman"
24	29	RomanMode := 1
…	…
26	31	}
27	32
28		CharProc_Rom2() {
29		global
30		; starte ~~klein geschriebene r�~~mische Zahlen, verwende U2160++
	33	CharProc__Rom2() {
	34	global
	35	; starte groß geschriebene römische Zahlen, verwende U2160++
31	36	PressHookProc := "Roman"
32	37	RomanMode := 2
…	…
34	39	}
35	40
36		CharProc_Rom3() {
37		global
38		; starte ~~gro� geschriebene r�~~mische Zahlen, verwende Buchstaben
	41	CharProc__Rom3() {
	42	global
	43	; starte klein geschriebene römische Zahlen, verwende Buchstaben
39	44	PressHookProc := "Roman"
40	45	RomanMode := 3
…	…
42	47	}
43	48
44		CharProc_Rom4() {
45		global
46		; starte ~~klein geschriebene r�~~mische Zahlen, verwende Buchstaben
	49	CharProc__Rom4() {
	50	global
	51	; starte groß geschriebene römische Zahlen, verwende Buchstaben
47	52	PressHookProc := "Roman"
48	53	RomanMode := 4
…	…
53	58	res := ""
54	59	if (DigitIs == DigitTest)
55		res := ~~str%Pos%~~
	60	res := EncodeUniComposeA(str%Pos%)
56	61	return res
57	62	}
…	…
89	94	RomanDigit := mod(RomanSum,10)
90	95	RomanSum := RomanSum//10
91		RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"~~U002170","U002179","U00217D","U00217F","U002182","U002188~~") . RomanStr
92		RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"~~U002170U002170","U002179U002179","U00217DU00217D","U00217FU00217F","U002182U002182","U002188U002188~~") . RomanStr
93		RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"~~U002170U002170U002170","U002179U002179U002179","U00217DU00217DU00217D","U00217FU00217FU00217F","U002182U002182U002182","U002188U002188U002188~~") . RomanStr
94		RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"~~U002170U002174","U002179U00217C","U00217DU00217E","U002180U002181","U002182U002187~~","") . RomanStr
95		RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"~~U002174","U00217C","U00217E","U002181","U002187~~","") . RomanStr
96		RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"~~U002174U002170","U00217CU002179","U00217EU00217D","U002181U002180","U002187U002182~~","") . RomanStr
97		RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"~~U002174U002170U002170","U00217CU002179U002179","U00217EU00217DU00217D","U002181U002180U002180","U002187U002182U002182~~","") . RomanStr
98		RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"~~U002174U002170U002170U002170","U00217CU002179U002179U002179","U00217EU00217DU00217DU00217D","U002181U002180U002180U002180","U002187U002182U002182U002182~~","") . RomanStr
99		RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"~~U002178","U002179U00217D","U00217DU00217F","U002180U002182","U002182U002188~~","") . RomanStr
	96	RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"ⅰ","ⅹ","ⅽ","ⅿ","ↂ","ↈ") . RomanStr
	97	RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"ⅰⅰ","ⅹⅹ","ⅽⅽ","ⅿⅿ","ↂↂ","ↈↈ") . RomanStr
	98	RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"ⅰⅰⅰ","ⅹⅹⅹ","ⅽⅽⅽ","ⅿⅿⅿ","ↂↂↂ","ↈↈↈ") . RomanStr
	99	RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"ⅰⅴ","ⅹⅼ","ⅽⅾ","ↀↁ","ↂↇ","") . RomanStr
	100	RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"ⅴ","ⅼ","ⅾ","ↁ","ↇ","") . RomanStr
	101	RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"ⅴⅰ","ⅼⅹ","ⅾⅽ","ↁↀ","ↇↂ","") . RomanStr
	102	RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"ⅴⅰⅰ","ⅼⅹⅹ","ⅾⅽⅽ","ↁↀↀ","ↇↂↂ","") . RomanStr
	103	RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"ⅴⅰⅰⅰ","ⅼⅹⅹⅹ","ⅾⅽⅽⅽ","ↁↀↀↀ","ↇↂↂↂ","") . RomanStr
	104	RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"ⅰⅹ","ⅹⅽ","ⅽⅿ","ↀↂ","ↂↈ","") . RomanStr
100	105	if (RomanSum == 0)
101	106	break
…	…
106	111	RomanDigit := mod(RomanSum,10)
107	112	RomanSum := RomanSum//10
108		RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"~~U002160","U002169","U00216D","U00216F","U002182","U002188~~") . RomanStr
109		RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"~~U002160U002160","U002169U002169","U00216DU00216D","U00216FU00216F","U002182U002182","U002188U002188~~") . RomanStr
110		RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"~~U002160U002160U002160","U002169U002169U002169","U00216DU00216DU00216D","U00216FU00216FU00216F","U002182U002182U002182","U002188U002188U002188~~") . RomanStr
111		RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"~~U002160U002164","U002169U00216C","U00216DU00216E","U002180U002181","~~U002182U002187","") . RomanStr
112		RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"~~U002164","U00216C","U00216E","U002181","U002187~~","") . RomanStr
113		RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"~~U002164U002160","U00216CU002169","U00216EU00216D","U002181U002180","U002187U002182~~","") . RomanStr
114		RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"~~U002164U002160U002160","U00216CU002169U002169","U00216EU00216DU00216D","U002181U002180U002180","U002187U002182U002182~~","") . RomanStr
115		RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"~~U002164U002160U002160U002160","U00216CU002169U002169U002169","U00216EU00216DU00216DU00216D","U002181U002180U002180U002180","U002187U002182U002182U002182~~","") . RomanStr
116		RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"~~U002160U002169","U002169U00216D","U00216DU00216F","U002180U002182","U002182U002188~~","") . RomanStr
	113	RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"Ⅰ","Ⅹ","Ⅽ","Ⅿ","ↂ","ↈ") . RomanStr
	114	RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"ⅠⅠ","ⅩⅩ","ⅭⅭ","ⅯⅯ","ↂↂ","ↈↈ") . RomanStr
	115	RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"ⅠⅠⅠ","ⅩⅩⅩ","ⅭⅭⅭ","ⅯⅯⅯ","ↂↂↂ","ↈↈↈ") . RomanStr
	116	RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"ⅠⅤ","ⅩⅬ","ⅭⅮ","Ⅿↁ","ↂↇU002182U002187","") . RomanStr
	117	RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"Ⅴ","Ⅼ","Ⅾ","ↁ","ↇ","") . RomanStr
	118	RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"ⅤⅠ","ⅬⅩ","ⅮⅭ","ↁⅯ","ↇↂ","") . RomanStr
	119	RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"ⅤⅠⅠ","ⅬⅩⅩ","ⅮⅭⅭ","ↁⅯⅯ","ↇↂↂ","") . RomanStr
	120	RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"ⅤⅠⅠⅠ","ⅬⅩⅩⅩ","ⅮⅭⅭⅭ","ↁⅯⅯⅯ","ↇↂↂↂ","") . RomanStr
	121	RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"ⅠⅩ","ⅩⅭ","ⅭⅯ","Ⅿↂ","ↂↈ","") . RomanStr
117	122	if (RomanSum == 0)
118	123	break
…	…
123	128	RomanDigit := mod(RomanSum,10)
124	129	RomanSum := RomanSum//10
125		RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"~~U000069","U000078","U000063","U00006D"~~,"","") . RomanStr
126		RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"~~U000069U000069","U000078U000078","U000063U000063","U00006DU00006D"~~,"","") . RomanStr
127		RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"~~U000069U000069U000069","U000078U000078U000078","U000063U000063U000063","U00006DU00006DU00006D~~","","") . RomanStr
128		RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"~~U000069U000076","U000078U00006C","U000063U000064",""~~,"","") . RomanStr
129		RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"~~U000076","U00006C","U000064",""~~,"","") . RomanStr
130		RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"~~U000076U000069","U00006CU000078","U000064U000063",""~~,"","") . RomanStr
131		RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"~~U000076U000069U000069","U00006CU000078U000078","U000064U000063U000063",""~~,"","") . RomanStr
132		RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"~~U000076U000069U000069U000069","U00006CU000078U000078U000078","U000064U000063U000063U000063",""~~,"","") . RomanStr
133		RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"~~U000069U000078","U000078U000063","U000063U00006D",""~~,"","") . RomanStr
	130	RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"i" ,"x" ,"c" ,"m" ,"","") . RomanStr
	131	RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"ii" ,"xx" ,"cc" ,"mm" ,"","") . RomanStr
	132	RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"iii" ,"xxx" ,"ccc" ,"mmm","","") . RomanStr
	133	RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"iv" ,"xl" ,"cd" ,"" ,"","") . RomanStr
	134	RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"v" ,"l" ,"d" ,"" ,"","") . RomanStr
	135	RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"vi" ,"lx" ,"dc" ,"" ,"","") . RomanStr
	136	RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"vii" ,"lxx" ,"dcc" ,"" ,"","") . RomanStr
	137	RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"viii","lxxx","dccc","" ,"","") . RomanStr
	138	RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"ix" ,"xc" ,"cm" ,"" ,"","") . RomanStr
134	139	if (RomanSum == 0)
135	140	break
…	…
140	145	RomanDigit := mod(RomanSum,10)
141	146	RomanSum := RomanSum//10
142		RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"~~U000049","U000058","U000043","U00004D"~~,"","") . RomanStr
143		RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"~~U000049U000049","U000058U000058","U000043U000043","U00004DU00004D"~~,"","") . RomanStr
144		RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"~~U000049U000049U000049","U000058U000058U000058","U000043U000043U000043","U00004DU00004DU00004D~~","","") . RomanStr
145		RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"~~U000049U000056","U000058U00004C","U000043U000044",""~~,"","") . RomanStr
146		RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"~~U000056","U00004C","U000044",""~~,"","") . RomanStr
147		RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"~~U000056U000049","U00004CU000058","U000044U000043",""~~,"","") . RomanStr
148		RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"~~U000056U000049U000049","U00004CU000058U000058","U000044U000043U000043",""~~,"","") . RomanStr
149		RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"~~U000056U000049U000049U000049","U00004CU000058U000058U000058","U000044U000043U000043U000043",""~~,"","") . RomanStr
150		RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"~~U000049U000058","U000058U000043","U000043U00004D",""~~,"","") . RomanStr
	147	RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"I" ,"X" ,"C" ,"M" ,"","") . RomanStr
	148	RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"II" ,"XX" ,"CC" ,"MM" ,"","") . RomanStr
	149	RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"III" ,"XXX" ,"CCC" ,"MMM","","") . RomanStr
	150	RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"IV" ,"XL" ,"CD" ,"" ,"","") . RomanStr
	151	RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"V" ,"L" ,"D" ,"" ,"","") . RomanStr
	152	RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"VI" ,"LX" ,"DC" ,"" ,"","") . RomanStr
	153	RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"VII" ,"LXX" ,"DCC" ,"" ,"","") . RomanStr
	154	RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"VIII","LXXX","DCCC","" ,"","") . RomanStr
	155	RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"IX" ,"XC" ,"CM" ,"" ,"","") . RomanStr
151	156	if (RomanSum == 0)
152	157	break
…	…
178	183
179	184	CP5VK41SC01E := "P___Uni"
	185	GUISYM("P___Uni","UU")
180	186
181	187	CharProc___Uni() {
…	…
229	235	UniSum := UniSum . "F"
230	236	else if ((Char == "U00000D") or (Char == "U000020")) {
231		UniSum := "U" . SubStr("000000" . UniSum, -5)
	237	UniSum := "U" . SubStr("000000" . UniSum, -7)
232	238	PP%PhysKey% := UniSum
233	239	PR%PhysKey% := UniSum
…	…
595	601	Gui,2:Add,Text,,% wmnk
596	602	} else
597		Gui,2:Add,Text,,% "Als Tastendruck nicht verf�gbar"
	603	Gui,2:Add,Text,,% "Als Tastendruck nicht verfuegbar"
598	604
599	605	Gui,2:Add, Button, Default xp+100 yp+40, OK

Context Navigation

Changeset 2186

Legend:

windows/neo-vars/src/source/tools.ahk

Download in other formats: