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

Subversion Repositories Kolibri OS

(root)/programs/develop/tinypad/trunk/tinypad.inc – Rev 267