Subversion Repositories Kolibri OS

use32

    org 0x0

    db  'MENUET01'

    dd  0x01,start,i_end,e_end,e_end,0,0

include '../../../proc32.inc'

include '../../../macros.inc'

BUTTON_SIDE			equ	16	; button are squares

BUTTON_SPACE			equ	19	; space between cols and rows

BUTTON_ID_SHIFT			equ	2	; button_id = character + BUTTON_ID_SHIFT

TABLE_BEGIN_X			equ	2

TABLE_BEGIN_Y			equ	2

FOCUS_SQUARE_COLOR		equ	0x000080FF

PAGE_SWITCHER_BLINK_COLOR	equ	0x00808080

start:

still:

	mcall	10

	dec	eax

	jz	redraw

	dec	eax

	jz	key

button:

	mcall	17

	shr	eax, 8

	cmp	eax, 1

	je	quit

	cmp	ax, 0xFFAA			; page switcher

	je	.switch_page			; any button with a character

  .change_focus:

	mov	bl, [symbol_focused]

	mov	[symbol_unfocused], bl

	sub	ax, BUTTON_ID_SHIFT		; get the corresponding character

	mov	[symbol_focused], al

	stdcall	draw_table, 0

	call	draw_codes

	jmp	still

  .switch_page:

	movzx	bx, [symbol_start]

	add	bx, BUTTON_ID_SHIFT

	mov	cx, 128				; half of page

	mov	edx, 0x80000000

	mov	dx, bx

    @@:	mcall	8

	inc	edx

	dec	cx

	jnz	@b

    @@:	add	[symbol_start], 128		; change page

	add	[symbol_focused], 128

	stdcall	draw_table, 1			; 1 means redraw the whole table

	call	draw_codes

	stdcall	draw_page_switcher, 1		; 1 means dark color, for blinking

	mcall	5, 10

	stdcall	draw_page_switcher, 0		; 0 means usual light color

	jmp	still

redraw:

	mcall	9, proc_info, -1

	mcall	48, 3, sys_colors, 40

	mcall	12, 1

	mcall	48, 4				; get skin height

	mov	ecx, 300*0x10000+184

	add	ecx, eax

	mov	edx, 0x34000000

	or	edx, [sys_colors.work]

	mov	esi, 0x80000000

	or	esi, [sys_colors.grab_text]

	mcall	0, <300,315>, , , , window_title

	test	[proc_info.wnd_state], 0x04

	jnz	@f

	stdcall	draw_table, 1

	call	draw_codes

	stdcall	draw_page_switcher, 0

    @@:

	mcall	12, 2

	jmp	still

key:

	mcall	2

	cmp	ah, 0x09			; TAB key

	je	button.switch_page

	cmp	ah, 0xB0			; left

	jne	@f

	mov	bl, [symbol_focused]

	mov	[symbol_unfocused], bl

	dec	bl

	and	bl, 0x0f

	and	[symbol_focused], 0xf0

	or	[symbol_focused], bl

	stdcall	draw_table, 0

	call	draw_codes

	jmp	still

    @@:	cmp	ah, 0xB1			; down

	jne	@f

	mov	bl, [symbol_focused]

	mov	[symbol_unfocused], bl

	add	bl, 16

	and	bl, 0x70

	and	[symbol_focused], 0x8f

	or	[symbol_focused], bl

	stdcall	draw_table, 0

	call	draw_codes

	jmp	still

    @@:	cmp	ah, 0xB2			; up

	jne	@f

	mov	bl, [symbol_focused]

	mov	[symbol_unfocused], bl

	sub	bl, 16

	and	bl, 0x70

	and	[symbol_focused], 0x8f

	or	[symbol_focused], bl

	stdcall	draw_table, 0

	call	draw_codes

	jmp	still

    @@:	cmp	ah, 0xB3			; righ

	jne	@f

	mov	bl, [symbol_focused]

	mov	[symbol_unfocused], bl

	inc	bl

	and	bl, 0x0f

	and	[symbol_focused], 0xf0

	or	[symbol_focused], bl

	stdcall	draw_table, 0

	call	draw_codes

	jmp	still

	jne	@f

    @@:

	jmp	still

proc	draw_table _full_redraw

	mov	al, [symbol_start]

	mov	[symbol_current], al

  .next_button:

	xor	edi, edi			; character focus flag

	mov	al, [symbol_current]

	cmp	al, [symbol_focused]

	jne	@f

	inc	edi

    @@:	cmp	[_full_redraw], 1

	je	.draw

	cmp	al, [symbol_focused]

	je	.draw

	cmp	al, [symbol_unfocused]		; previously focused, should redraw to clear focus

	je	.draw

	jmp	.skip				; skip button if it isn't (un)focused

  .draw:

	call	draw_button

  .skip:

	mov	bl, [symbol_start]

	add	bl, 127				; end of current page

	cmp	[symbol_current], bl		; the last on page?

	jne	@f

	mov	[button_x], TABLE_BEGIN_X

	mov	[button_y], TABLE_BEGIN_Y

	ret

    @@:	inc	[symbol_current]

	add	[button_x], BUTTON_SPACE

	cmp	[button_x], 306			; the last in row?

	jne	.next_button

	add	[button_y], BUTTON_SPACE	; next row

	mov	[button_x], TABLE_BEGIN_X

	jmp	.next_button

	ret

endp

proc	draw_button

	mov	ebx, [button_x]

	shl	ebx, 16

	mov	bx, BUTTON_SIDE

	mov	ecx, [button_y]

	shl	ecx, 16

	mov	cx, BUTTON_SIDE

	mov	edx, 0x80000000

	mov	dl, [symbol_current]

	add	edx, BUTTON_ID_SHIFT

	mcall	8, , ,

	and	edx, 0x7FFFFFFF

	or	edx, 0x20000000

	mcall	, , , , [sys_colors.work_button]

	test	edi, edi			; is focused?

	jz	.symbol				; draw only character, not selection square

  .focus_frame:					; draw a blue square (selection), 8 segments

	mov	esi, [button_x]

	mov	edi, [button_y]

	mov	bx, si

	shl	ebx, 16

	mov	bx, si

	add	bx, BUTTON_SIDE

	mov	cx, di

	shl	ecx, 16

	mov	cx, di

	mcall	38, , , FOCUS_SQUARE_COLOR

	add	ecx, 0x00010001

	mcall

	add	ecx, (BUTTON_SIDE-2)*0x10000+(BUTTON_SIDE-2)

	mcall

	add	ecx, 0x00010001

	mcall

	mov	bx, si

	shl	ebx, 16

	mov	bx, si

	mov	cx, di

	shl	ecx, 16

	mov	cx, di

	add	ecx, 2*0x10000+(BUTTON_SIDE-2)

	mcall	38, , ,

	add	ebx, 0x00010001

	mcall

	add	ebx, (BUTTON_SIDE-2)*0x10000+(BUTTON_SIDE-2)

	mcall

	add	ebx, 0x00010001

	mcall

  .symbol:

	mov	ebx, [button_x]

	add	ebx, 6

	shl	ebx, 16

	add	ebx, [button_y]

	add	ebx, 5

	mcall	4, , [sys_colors.work_button_text], symbol_current, 1

	ret

endp

proc	draw_page_switcher _blinking

	mcall	8, , , 0x8000FFAA

	mov	esi, [sys_colors.work_button]

	cmp	[_blinking], 1			; blinking?

	jne	@f

	mov	esi, PAGE_SWITCHER_BLINK_COLOR

    @@:	mcall	, <2,60>, <157,19>, 0x2000FFAA

	mov	ecx, 0x80000000

	or	ecx, [sys_colors.work_button_text]

	mov	edx, string_000_127

	cmp	[symbol_start], 0		; first page?

	je	@f

	mov	edx, string_128_255		; ok, the second one

    @@:	mcall	4, <11,164>,

	ret

endp

proc	draw_codes

	mov	ecx, 0x80000000

	or	ecx, [sys_colors.work_text]

	mcall	4, <80,164>, , string_ASCII_CODE

	mcall	, <180,164>, , string_ASCII_HEX_CODE

	movzx	ecx, [symbol_focused]

	mov	esi, 0x40000000

	or	esi, [sys_colors.work_text]

	mcall	47, 0x00030000, , <152,164>, , [sys_colors.work]

	mcall	, 0x00020100, , <276,164>,

	ret

endp

quit:

	mcall	-1

szZ window_title		,'ASCIIVju v0.4'

szZ string_000_127		,'000-127'

szZ string_128_255		,'128-255'

szZ string_ASCII_CODE		,'ASCII Code:    '

szZ string_ASCII_HEX_CODE	,'ASCII Hex-Code:   '

button_x		dd 2

button_y		dd 2

symbol_current		db 0

symbol_start		db 0

symbol_unfocused	db 0

symbol_focused		db 0

i_end:

proc_info		process_information

sys_colors		system_colors

rb 0x400					;stack

e_end: