WebSVN – Kolibri OS – Blame – /programs/develop/tinypad/trunk/tinypad.inc

Rev	Author	Line No.	Line
259	mikedld	1
		2	X dd ?
		3	Y dd ?
		4	ends
		5
		6
		7	Left dd ?
		8	Top dd ?
		9	Right dd ?
		10	Bottom dd ?
		11	ends
		12
		13
		14	Top dd ?
		15	Size dd ?
		16	ends
		17
		18
		19	FilePath db PATHL dup(?)
		20	FileName dd ?
		21	Data dd ?
		22	Bounds RECT
		23	Caret POINT
		24	SelStart POINT
		25	Lines dd ?
		26	Columns dd ?
		27	TopLeft POINT
		28	VScroll SCROLLBAR
		29	HScroll SCROLLBAR
		30	Gutter.Width dd ?
		31	Gutter.Visible db ?
		32	AsmMode db ?
		33	Modified db ?
		34	db ?
		35	ends
		36
		37
		38	Editor EDITOR
		39	ends
		40
		41
		42	Bounds RECT
		43	Items dd ?
		44	Items.Count dd ?
		45	Current TABITEM
		46	Current.Ptr dd ?
		47	Style db ?
		48	db 3 dup(?)
		49	ends
		50
		51
		52
		53
178	heavyiron	54	POPUP:
		55	.actions dd ?
		56	.data dd ?
		57	.acc_ofs dd ?
		58	.size:
		59	.height dw ?
		60	.width dw ?
		61	.pos:
		62	.y dw ?
		63	.x dw ?
		64	end virtual
		65
		66
		67	{
		68	common
		69	local s1,s2,m1,m2,c1,c2
		70	m1 = 0
		71	m2 = 0
		72	c1 = 0
		73	c2 = 0
		74	if used _name
		75	dd _name#.actions
		76	dd _name#.data
		77	dd ?
		78	dw ? ; height
		79	dw ? ; width
		80	dw ? ; y
		81	dw ? ; x
		82	_name:
		83	forward
		84	if (lang eq _lang) \| (_lang eq @!)
259	mikedld	85	db 1
178	heavyiron	86	end if
		87	common
		88	.data:
		89	forward
		90	if (lang eq _lang) \| (_lang eq @!)
259	mikedld	91	if _title eq '-'
178	heavyiron	92	db 1,'-'
		93	c2 = c2+1
		94	else
		95	virtual at 0
		96	db _title
		97	s1 = $
		98	end virtual
		99	if m1 < s1
		100	m1 = s1
		101	end if
		102	virtual at 0
		103	db _accel
		104	s2 = $
		105	end virtual
		106	if m2 < s2
		107	m2 = s2
		108	end if
		109	db s1,_title,s2,_accel
		110	c1 = c1+1
		111	end if
		112	end if
		113	common
		114	db 0
		115	align 4
		116	.actions:
		117	forward
		118	if (lang eq _lang) \| (_lang eq @!)
259	mikedld	119	if (_action eq )
		120	dd 0
		121	else
		122	dd _name#.#_action
		123	end if
		124	end if
178	heavyiron	125	common
		126	.size = $-_name+20
		127	.max_title = m1
		128	.max_accel = m2
		129	.cnt_item = c1
		130	.cnt_sep = c2
		131	if (m2 = 0)
		132	m2 = -2
		133	end if
		134	store word (m16+m26+6*8) at _name+POPUP.width
		135	store word (c1POP_IHEIGHT+c24+4) at _name+POPUP.height
		136	store dword (((m1+2)6-1)65536) at _name+POPUP.acc_ofs
		137	end if
		138	}
		139
		140
		141	{
		142	common
		143	local s,m,c,x
		144	m = 0
		145	c = 0
		146	x = 2
		147	if used _name
		148	_name:
		149	forward
		150	if lang eq _lang
		151	virtual at 0
		152	db _title
		153	s = $
		154	end virtual
		155	if m < s
		156	m = s
		157	end if
		158	dw (s+2)*6,x,ATOPH-1,0
		159	db s,_title
		160	c = c+1
		161	x = x + (s+2)*6
		162	end if
		163	common
		164	db 0
		165	align 4
		166	.popups:
		167	forward
		168	if lang eq _lang
		169	dd _popup
		170	end if
		171	common
		172	align 4
		173	.onshow:
		174	forward
		175	if lang eq _lang
		176	dd _onshow
		177	end if
		178	common
		179	.size = $-_name
		180	.max_title = m
		181	.cnt_item = c
		182	.width = x-7
		183	end if
		184	}
		185
		186
		187
		188
		189	OPTS_AUTOBRACES = 00000010b
		190	OPTS_AUTOINDENT = 00000100b
		191	OPTS_SMARTTAB = 00001000b
		192	OPTS_OPTIMSAVE = 00010000b
		193	OPTS_LINENUMS = 00100000b
		194
		195
		196
		197
		198	KM_CTRL = 0x00020000
		199	KM_ALT = 0x00040000
		200
		201
		202	KM_ALTSHIFT = 0x00050000
		203	KM_CTRLALT = 0x00060000
		204
		205
		206
		207
		208
		209
		210	KEY_SNAPSHOT = 0x00000137
		211	KEY_PAUSE = 0x0000021D
		212
		213
		214	KEY_F2 = 0x0000003C
		215	KEY_F3 = 0x0000003D
		216	KEY_F4 = 0x0000003E
		217	KEY_F5 = 0x0000003F
		218	KEY_F6 = 0x00000040
		219	KEY_F7 = 0x00000041
		220	KEY_F8 = 0x00000042
		221	KEY_F9 = 0x00000043
		222	KEY_F10 = 0x00000044
		223	KEY_F11 = 0x00000057
		224	KEY_F12 = 0x00000058
		225
		226
		227	KEY_MINUS = 0x0000000C
		228	KEY_EQUAL = 0x0000000D
		229	KEY_BACKSPACE = 0x0000000E
		230	KEY_TAB = 0x0000000F
		231	KEY_SQBRACE1 = 0x0000001A
		232	KEY_SQBRACE2 = 0x0000001B
		233	KEY_SLASH1 = 0x00000035
		234	KEY_SLASH2 = 0x0000002B
		235	KEY_SEMICOLON = 0x00000027
		236	KEY_QUOTE = 0x00000028
		237	KEY_COMMA = 0x00000033
		238	KEY_DOT = 0x00000034
		239	KEY_SPACE = 0x00000039
		240
		241
		242	KEY_2 = 0x00000003
		243	KEY_3 = 0x00000004
		244	KEY_4 = 0x00000005
		245	KEY_5 = 0x00000006
		246	KEY_6 = 0x00000007
		247	KEY_7 = 0x00000008
		248	KEY_8 = 0x00000009
		249	KEY_9 = 0x0000000A
		250	KEY_0 = 0x0000000B
		251
		252
		253	KEY_B = 0x00000030
		254	KEY_C = 0x0000002E
		255	KEY_D = 0x00000020
		256	KEY_E = 0x00000012
		257	KEY_F = 0x00000021
		258	KEY_G = 0x00000022
		259	KEY_H = 0x00000023
		260	KEY_I = 0x00000017
		261	KEY_J = 0x00000024
		262	KEY_K = 0x00000025
		263	KEY_L = 0x00000026
		264	KEY_M = 0x00000032
		265	KEY_N = 0x00000031
		266	KEY_O = 0x00000018
		267	KEY_P = 0x00000019
		268	KEY_Q = 0x00000010
		269	KEY_R = 0x00000013
		270	KEY_S = 0x0000001F
		271	KEY_T = 0x00000014
		272	KEY_U = 0x00000016
		273	KEY_V = 0x0000002F
		274	KEY_W = 0x00000011
		275	KEY_X = 0x0000002D
		276	KEY_Y = 0x00000015
		277	KEY_Z = 0x0000002C
		278
		279
		280	KEY_SCRLK = 0x00000046
		281	KEY_NUMLK = 0x00000069
		282
		283
		284	KEY_NUMRETURN = 0x0000011C
		285
		286
		287	KEY_RCONTROL = 0x0000011D
		288	KEY_LSHIFT = 0x0000002A
		289	KEY_RSHIFT = 0x00000036
		290	KEY_LALT = 0x00000038
		291	KEY_RALT = 0x00000138
		292
		293
		294	KEY_RWIN = 0x0000015C
		295	KEY_APPS = 0x0000015D
		296
		297
		298	KEY_DELETE = 0x00000153
		299	KEY_HOME = 0x00000147
		300	KEY_END = 0x0000014F
		301	KEY_PAGEUP = 0x00000149
		302	KEY_PAGEDOWN = 0x00000151
		303	KEY_UP = 0x00000148
		304	KEY_LEFT = 0x0000014B
		305	KEY_RIGHT = 0x0000014D
		306	KEY_DOWN = 0x00000150
		307
		308
		309	KEY_MULTIPLY = 0x00000037
		310	KEY_SUBTRACT = 0x0000004A
		311	KEY_ADD = 0x0000004E
		312	KEY_SEPARATOR = 0x00000053
		313
		314
		315	KEY_NUM2 = 0x00000050
		316	KEY_NUM3 = 0x00000051
		317	KEY_NUM4 = 0x0000004B
		318	KEY_NUM5 = 0x0000004C
		319	KEY_NUM6 = 0x0000004D
		320	KEY_NUM7 = 0x00000047
		321	KEY_NUM8 = 0x00000048
		322	KEY_NUM9 = 0x00000049
		323	KEY_NUM0 = 0x00000052
		324
		325
		326
		327
		328	KEY_MYPICTURES = 0x00000164
		329	KEY_MYMUSIC = 0x0000013C
		330	KEY_MUTE = 0x00000120
		331	KEY_PLAYPAUSE = 0x00000122
		332	KEY_STOP = 0x00000124
		333	KEY_VOLUMEUP = 0x00000130
		334	KEY_VOLUMEDOWN = 0x0000013E
		335	KEY_PREVSONG = 0x00000110
		336	KEY_NEXTSONG = 0x00000119
		337	KEY_MEDIA = 0x0000016D
		338	KEY_MAIL = 0x0000016C
		339	KEY_WEBHOME = 0x00000132
		340	KEY_MESSENGER = 0x00000105
		341
		342
		343	KEY_LOGOFF = 0x00000116
		344	KEY_SLEEP = 0x0000015F
		345

Subversion Repositories Kolibri OS

(root)/programs/develop/tinypad/trunk/tinypad.inc @ 178 – Rev 259