Subversion Repositories Kolibri OS

Rev

Rev 7577 | Rev 7583 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7577 Rev 7579
Line 239... Line 239...
239 
	.no_edit:
 239 
	.no_edit:
Line 240... Line 240...
240 
 
 240 
 
241 
	;¯à®¢¥àª  ¡®ª®¢ëå ¯ ­¥«¥©
 241 
	;¯à®¢¥àª  ¡®ª®¢ëå ¯ ­¥«¥©
242 
	cmp byte[tedit0.panel_id],TED_PANEL_FIND
 242 
	cmp byte[tedit0.panel_id],TED_PANEL_FIND
243 
	jne @f
 243 
	jne @f
244 
		stdcall [edit_box_mouse], edit2
 244 
		stdcall [edit_box_mouse], edit_find
245 
		stdcall [option_box_mouse], opt_grlist1
 245 
		stdcall [option_box_mouse], opt_grlist1
246 
	@@:
 246 
	@@:
247 
	cmp byte[tedit0.panel_id],TED_PANEL_REPLACE
 247 
	cmp byte[tedit0.panel_id],TED_PANEL_REPLACE
248 
	jne @f
 248 
	jne @f
249 
		stdcall [edit_box_mouse], edit2
 249 
		stdcall [edit_box_mouse], edit_find
250 
		stdcall [edit_box_mouse], edit1
 250 
		stdcall [edit_box_mouse], edit_replace
251 
		stdcall [option_box_mouse], opt_grlist1
 251 
		stdcall [option_box_mouse], opt_grlist1
252 
	@@:
 252 
	@@:
253 
	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX
 253 
	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX
254 
	jne @f
 254 
	jne @f
255 
		stdcall [tl_mouse], tree1
 255 
		stdcall [tl_mouse], tree1
- 
 
 256 
	@@:
- 
 
 257 
	cmp byte[tedit0.panel_id],TED_PANEL_GOTO
- 
 
 258 
	jne @f
- 
 
 259 
		stdcall [edit_box_mouse], edit_goto
256 
	@@:
 260 
	@@:
257 
	ret
 261 
	ret
Line 258... Line 262...
258 
;---------------------------------------------------------------------
 262 
;---------------------------------------------------------------------
259 
 
 263 
 
260 
;output:
 264 
;output:
261 
; ah = symbol
 265 
; ah = symbol
262 
align 16
 266 
align 16
263 
proc KeyConvertToASCII uses ebx, table:dword
 267 
proc KeyConvertToASCII uses ebx, table:dword
264 
	mov ebx,dword[table] ;convert scan to ascii
 - 
 
265 
	ror ax,8
 268 
	mov ebx,dword[table] ;convert scan to ascii
266 
	xor ah,ah
 269 
	shr ax,8
267 
	add bx,ax
 270 
	add bx,ax
268 
	mov ah,byte[ebx]
 271 
	mov ah,byte[ebx]
Line 269... Line 272...
269 
	ret
 272 
	ret
270 
endp
 273 
endp
271 
 
 274 
 
272 
align 16
 275 
align 16
273 
key:
 276 
key:
274 
	mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS ;66.3 ¯®«ãç¨âì á®áâ®ï­¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è
 277 
	mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS ;66.3 ¯®«ãç¨âì á®áâ®ï­¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è
275 
	xor esi,esi
 278 
	xor esi,esi
276 
	mov ecx,1
 279 
	mov ecx,1
277 
	test al,0x03 ;[Shift]
 280 
	test al,3 ;[Shift]
278 
	jz @f
 281 
	jz @f
279 
		mov cl,2
 282 
		mov cl,2
Line 295... Line 298...
295 
 
 298 
 
296 
	mcall SF_SYSTEM_GET,SSF_KEYBOARD_LAYOUT,,conv_tabl ;26.2 ¯®«ãç¨âì à áª« ¤ªã ª« ¢¨ âãàë
 299 
	mcall SF_SYSTEM_GET,SSF_KEYBOARD_LAYOUT,,conv_tabl ;26.2 ¯®«ãç¨âì à áª« ¤ªã ª« ¢¨ âãàë
297 
	mcall SF_GET_KEY
 300 
	mcall SF_GET_KEY
Line -... Line 301...
- 
 
 301 
	stdcall [tl_key], tree1
- 
 
 302 
 
- 
 
 303 
	test word[edit_replace.flags],ed_focus ;¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
- 
 
 304 
	je @f
- 
 
 305 
		cmp ah,0x80 ;if key up
- 
 
 306 
		ja still
- 
 
 307 
		cmp ah,42 ;[Shift] (left)
- 
 
 308 
		je still
- 
 
 309 
		cmp ah,54 ;[Shift] (right)
- 
 
 310 
		je still
- 
 
 311 
		cmp ah,56 ;[Alt]
- 
 
 312 
		je still
- 
 
 313 
		cmp ah,29 ;[Ctrl]
- 
 
 314 
		je still
- 
 
 315 
		cmp ah,69 ;[Pause Break]
- 
 
 316 
		je still
- 
 
 317 
 
- 
 
 318 
		stdcall KeyConvertToASCII, conv_tabl
- 
 
 319 
		stdcall [edit_box_key], edit_replace
298 
	stdcall [tl_key], tree1
 320 
		jmp still
299 
 
 321 
	@@:
300 
	test word [edit1.flags],10b ;ed_focus ;¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
 322 
	test word[edit_find.flags],ed_focus ;¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
301 
	je @f
 323 
	je @f
302 
		cmp ah,0x80 ;if key up
 324 
		cmp ah,0x80 ;if key up
303 
		ja still
 325 
		ja still
Line 311... Line 333...
311 
		je still
 333 
		je still
312 
		cmp ah,69 ;[Pause Break]
 334 
		cmp ah,69 ;[Pause Break]
313 
		je still
 335 
		je still
Line 314... Line 336...
314 
 
 336 
 
315 
		stdcall KeyConvertToASCII, conv_tabl
 337 
		stdcall KeyConvertToASCII, conv_tabl
316 
		stdcall [edit_box_key], edit1
 338 
		stdcall [edit_box_key], edit_find
317 
		jmp still
 339 
		jmp still
318 
	@@:
 340 
	@@:
319 
	test word [edit2.flags],10b ;ed_focus ;¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
 341 
	test word[edit_goto.flags],ed_focus ;¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
320 
	je @f
 342 
	je @f
321 
		cmp ah,0x80 ;if key up
 343 
		cmp ah,0x80 ;if key up
322 
		ja still
 344 
		ja still
323 
		cmp ah,42 ;[Shift] (left)
 345 
		cmp ah,42 ;[Shift] (left)
Line 330... Line 352...
330 
		je still
 352 
		je still
331 
		cmp ah,69 ;[Pause Break]
 353 
		cmp ah,69 ;[Pause Break]
332 
		je still
 354 
		je still
Line 333... Line 355...
333 
 
 355 
 
334 
		stdcall KeyConvertToASCII, conv_tabl
 356 
		stdcall KeyConvertToASCII, conv_tabl
335 
		stdcall [edit_box_key], edit2
 357 
		stdcall [edit_box_key], edit_goto
336 
		jmp still
 358 
		jmp still
Line 337... Line 359...
337 
	@@:
 359 
	@@:
338 
 
 360 
 
Line 339... Line 361...
339 
	stdcall [ted_key], tedit0, conv_tabl,esi
 361 
	stdcall [ted_key], tedit0, conv_tabl,esi
340 
	jmp still
 362 
	jmp still
341 
 
 363 
 
- 
 
 364 
align 4
Line 342... Line 365...
342 
align 4
 365 
edit_replace edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_replace, mouse_dd, 0
Line 343... Line 366...
343 
edit1 edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_replace, mouse_dd, 0
 366 
edit_find edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_find, mouse_dd, 0
344 
edit2 edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_find, mouse_dd, 0
 367 
edit_goto edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 10, buf_goto, mouse_dd, 0
Line 403... Line 426...
403 
		rq 1
 426 
		rq 1
404 
	last_open_synt_file rb 32 ;¨¬ï ¯®á«¥¤­¥£® ¯®¤ª«î祭­®£® ä ©«  ᨭ⠪á¨á 
 427 
	last_open_synt_file rb 32 ;¨¬ï ¯®á«¥¤­¥£® ¯®¤ª«î祭­®£® ä ©«  ᨭ⠪á¨á 
405 
	buf rb BUF_SIZE ;¡ãä¥à ¤«ï ª®¯¨à®¢ ­¨ï ¨ ¢áâ ¢ª¨
 428 
	buf rb BUF_SIZE ;¡ãä¥à ¤«ï ª®¯¨à®¢ ­¨ï ¨ ¢áâ ¢ª¨
406 
	buf_find rb 302 ;¡ãä¥à ¤«ï ¯®¨áª  ⥪áâ 
 429 
	buf_find rb 302 ;¡ãä¥à ¤«ï ¯®¨áª  ⥪áâ 
407 
	buf_replace rb 302 ;¡ãä¥à ¤«ï § ¬¥­ë ⥪áâ 
 430 
	buf_replace rb 302 ;¡ãä¥à ¤«ï § ¬¥­ë ⥪áâ 
- 
 
 431 
	buf_goto rb 12 ;¡ãä¥à ¤«ï ¯¥à室  ­  áâபã
408 
	sc system_colors
 432 
	sc system_colors
409 
IncludeUGlobals
 433 
IncludeUGlobals
410 
	align 16
 434 
	align 16
411 
	procinfo process_information
 435 
	procinfo process_information
412 
		rb 1024
 436 
		rb 1024