Subversion Repositories Kolibri OS

;**************************************************************

; Frame Macro for Kolibri OS

; Copyright (c) 2013, Marat Zakiyanov aka Mario79, aka Mario

; All rights reserved.

;

; Redistribution and use in source and binary forms, with or without

; modification, are permitted provided that the following conditions are met:

;     * Redistributions of source code must retain the above copyright

;       notice, this list of conditions and the following disclaimer.

;     * Redistributions in binary form must reproduce the above copyright

;       notice, this list of conditions and the following disclaimer in the

;       documentation and/or other materials provided with the distribution.

;     * Neither the name of the  nor the

;       names of its contributors may be used to endorse or promote products

;       derived from this software without specific prior written permission.

;

; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY

; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

; DISCLAIMED. IN NO EVENT SHALL  BE LIABLE FOR ANY

; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND

; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

;*****************************************************************************

macro frame_start

{

	pusha

	mov	edi,dword [esp+36]

}

;*****************************************************************************

macro frame_exit

{

popa

ret 4

}

;*****************************************************************************

macro use_frame

{

frame:

fr_type			equ [edi]	;dword

fr_size_x		equ [edi+4]	;word

fr_start_x		equ [edi+6]	;word

fr_size_y		equ [edi+8]	;word

fr_start_y		equ [edi+10]	;word

fr_ext_fr_col		equ [edi+12]	;dword

fr_int_fr_col		equ [edi+16]	;dword

fr_draw_text_flag	equ [edi+20]	;dword 0-not,1-yes

fr_text_pointer		equ [edi+24]	;dword

fr_text_position	equ [edi+28]	;dword 0-up,1-bottom

fr_font_number		equ [edi+32]	;dword 0-monospace,1-variable

fr_font_size_y		equ [edi+36]	;dword

fr_font_color		equ [edi+40]	;dword

fr_font_backgr_color	equ [edi+44]	;dword

;*****************************************************************************

;*****************************************************************************

; draw event

;*****************************************************************************

;*****************************************************************************

align 4

.draw:

frame_start

;-------------------------------------

; in

; ebx = [coordinate on axis x]*65536 + [size on axis x]

; ecx = [coordinate on axis y]*65536 + [size on axis y]

;--------------------------------------

; top

	mov	bx,fr_start_x

	shl	ebx,16

	mov	bx,fr_start_x

	add	bx,fr_size_x

	dec	bx

	mov	cx,fr_start_y

	shl	ecx,16

	mov	cx,fr_start_y

	mcall	38,,,fr_ext_fr_col

	add	ecx,1 shl 16 +1

	add	ebx,1 shl 16

	dec	ebx

	mcall	,,,fr_int_fr_col

;--------------------------------------

; bottom

	mov	bx,fr_start_x

	shl	ebx,16

	mov	bx,fr_start_x

	add	bx,fr_size_x

	dec	bx

	mov	cx,fr_start_y

	add	cx,fr_size_y

	dec	cx

	shl	ecx,16

	mov	cx,fr_start_y

	add	cx,fr_size_y

	dec	cx

	mcall	,,,fr_ext_fr_col

	sub	ecx,1 shl 16 +1

	add	ebx,1 shl 16

	dec	ebx

	mcall	,,,fr_int_fr_col

;--------------------------------------

; left

	mov	bx,fr_start_x

	shl	ebx,16

	mov	bx,fr_start_x

	mov	cx,fr_start_y

	shl	ecx,16

	mov	cx,fr_start_y

	add	cx,fr_size_y

	dec	cx

	mcall	,,,fr_ext_fr_col

	add	ebx,1 shl 16 +1

	add	ecx,1 shl 16

	dec	ecx

	mcall	,,,fr_int_fr_col

;--------------------------------------

; right

	mov	bx,fr_start_x

	add	bx,fr_size_x

	dec	bx

	shl	ebx,16

	mov	bx,fr_start_x

	add	bx,fr_size_x

	dec	bx

	mov	cx,fr_start_y

	shl	ecx,16

	mov	cx,fr_start_y

	add	cx,fr_size_y

	dec	cx

	mcall	,,,fr_ext_fr_col

	sub	ebx,1 shl 16 +1

	add	ecx,1 shl 16

	dec	ecx

	mcall	,,,fr_int_fr_col

;----------------------------------------------------------------------

	cmp	fr_draw_text_flag,dword 0

	je	.exit

	mov	ecx,0xC0000000

	mov	eax,fr_font_number

	and	eax,11b

	shl	eax,28

	add	ecx,eax

	mov	eax,fr_font_color

	and	eax,0xffffff

	add	ecx,eax

	mov	edx,fr_text_pointer

	mov	eax,fr_font_backgr_color

	and	eax,0xffffff

	xor	esi,esi

	mov	bx,fr_start_x

	add	bx,10

	shl	ebx,16

	mov	bx,fr_font_size_y

	shr	bx,1

	not	bx

	add	bx,fr_start_y

	test	fr_font_size_y,word 1b

	jz	@f

	inc	bx

;--------------------------------------

align 4

@@:

	cmp	fr_text_position,dword 0

	je	.draw_1

	add	bx,fr_size_y

;--------------------------------------

align 4

.draw_1:

	push	edi

	mov	edi,eax

	mcall	4

	pop	edi

;----------------------------------------------------------------------

align 4

.exit:

frame_exit

}

;*****************************************************************************