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

Subversion Repositories Kolibri OS

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