kolibrios-gitea/programs/develop/libraries/box_lib/trunk/frame.mac

;**************************************************************
; 2016, 0CodErr
;       Added border styles(raised, sunken, etched, ridged).
;       Added possibility to fill frame background.
;**************************************************************
; 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 <organization> 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 <copyright holder> 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
}
;*****************************************************************************
macro frame_exit
{
popa         
ret 4
}
;*****************************************************************************
macro use_frame
{
fr equ [esp + 36]
frame: 
fr_type              equ [eax + FR_STYLE]         ; dword 
fr_size_x            equ [eax + FR_WIDTH]         ;  word 
fr_start_x           equ [eax + FR_LEFT]          ;  word 
fr_size_y            equ [eax + FR_HEIGHT]        ;  word 
fr_start_y           equ [eax + FR_TOP]           ;  word 
fr_ext_fr_col        equ [eax + FR_OUTER_COLOR]   ; dword 
fr_int_fr_col        equ [eax + FR_INNER_COLOR]   ; dword 
fr_flags             equ [eax + FR_FLAGS]         ; dword 
fr_text_pointer      equ [eax + FR_TEXT]          ; dword 
fr_text_position     equ [eax + FR_TEXT_POSITION] ; dword 
fr_font_number       equ [eax + FR_FONT]          ; dword
fr_font_size_y       equ [eax + FR_FONT_HEIGHT]   ; dword
fr_font_color        equ [eax + FR_FORE_COLOR]    ; dword
fr_font_backgr_color equ [eax + FR_BACK_COLOR]    ; dword
;*****************************************************************************
;*****************************************************************************
; draw event
;*****************************************************************************
;*****************************************************************************
align 4
.draw:
frame_start
        mov    eax, fr
        mov    edx, fr_ext_fr_col
        mov    edi, fr_int_fr_col
        mov    esi, edx
        mov    ebp, edi
        mov    eax, fr_flags
        and    eax, 1110b
.raised:        
        cmp    eax, FR_RAISED     
        je     .border_style_selected
.sunken:        
        cmp    eax, FR_SUNKEN
        jne    .etched
        xchg   edx, edi
        xchg   esi, ebp
        jmp    .border_style_selected
.etched:        
        cmp    eax, FR_ETCHED
        jne    .ridged
        xchg   edx, edi
        jmp    .border_style_selected
.ridged:        
        cmp    eax, FR_RIDGED
        jne    .double
        xchg   esi, ebp
        jmp    .border_style_selected
.double:    
        cmp    eax, FR_DOUBLE
        jne    .border_style_selected
        mov    edi, edx
        mov    esi, ebp
.border_style_selected:                
; Outer Top Line
        mov    eax, fr
        mov    bx, fr_start_x
        mov    cx, fr_start_y
        shl    ebx, 16
        shl    ecx, 16
        mov    bx, fr_size_x
        add    bx, fr_start_x
        sub    ebx, 1
        mov    cx, fr_start_y
        mov    eax, 38
        int    64
; Outer Left Line
        mov    eax, fr
        mov    bx, fr_start_x
        add    cx, fr_size_y        
        sub    ecx, 1
        mov    eax, 38
        int    64                
; Inner Top Line
        mov    eax, fr
        mov    bx, fr_start_x
        mov    cx, fr_start_y
        add    ebx, 1
        add    ecx, 1
        shl    ebx, 16
        shl    ecx, 16
        mov    bx, fr_size_x
        mov    cx, fr_start_y
        add    bx, fr_start_x        
        sub    ebx, 2
        add    ecx, 1
        mov    edx, esi
        mov    eax, 38
        int    64
; Inner Left Line
        mov    eax, fr
        mov    bx, fr_start_x
        add    cx, fr_size_y        
        add    ebx, 1
        sub    ecx, 3
        mov    edx, esi
        mov    eax, 38
        int    64    
; Outer Bottom Line    
        mov    eax, fr    
        mov    bx, fr_size_x
        mov    cx, fr_size_y        
        add    bx, fr_start_x
        add    cx, fr_start_y   
        sub    ebx, 1 
        sub    ecx, 1
        shl    ebx, 16
        shl    ecx, 16
        mov    bx, fr_start_x
        mov    cx, fr_size_y
        add    cx, fr_start_y
        sub    ecx, 1
        mov    edx, edi
        mov    eax, 38
        int    64
; Outer Right Line
        mov    eax, fr
        add    bx, fr_size_x        
        sub    ebx, 1
        mov    cx, fr_start_y
        mov    edx, edi
        mov    eax, 38
        int    64           
; Inner Bottom Line
        mov    eax, fr
        mov    bx, fr_size_x
        mov    cx, fr_size_y        
        add    bx, fr_start_x
        add    cx, fr_start_y   
        sub    ebx, 2
        sub    ecx, 2
        shl    ebx, 16
        shl    ecx, 16
        mov    bx, fr_start_x
        mov    cx, fr_size_y
        add    cx, fr_start_y
        add    ebx, 1
        sub    ecx, 2
        mov    edx, ebp
        mov    eax, 38
        int    64
; Inner Right Line
        mov    eax, fr
        mov    cx, fr_start_y        
        add    bx, fr_size_x
        sub    ebx, 3
        add    ecx, 1
        mov    edx, ebp
        mov    eax, 38
        int    64        
;----------------------------------------------------------------------
        mov    eax, fr        
        test   dword fr_flags, FR_FILLED
        je     .fill_exit
        
        mov    bx, fr_start_x 
        mov    cx, fr_start_y
        add    ebx, 2
        add    ecx, 2
        shl    ebx, 16
        shl    ecx, 16
        mov    bx, fr_size_x
        mov    cx, fr_size_y
        sub    ebx, 4
        sub    ecx, 4
        mov    edx, fr_font_backgr_color
        mov    eax, 13
        int    64               
.fill_exit:  
;----------------------------------------------------------------------
        mov    eax, fr
        test    dword fr_flags, FR_CAPTION
	je	.exit

	mov	ecx,0xC0000000
	mov	eax,fr_font_number
	and	eax,11b
	shl	eax,28
	add	ecx,eax
        mov    eax, fr
	mov	eax,fr_font_color
	and	eax,0xffffff
	add	ecx,eax

	mov    eax, fr

	mov	eax,fr_font_backgr_color
	and	eax,0xffffff

	xor	esi,esi

        mov    eax, fr
	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:
        mov     edx,fr_text_pointer
        mov     edi,fr_font_backgr_color
	mcall	4
;----------------------------------------------------------------------
align 4
.exit:
frame_exit
}
;*****************************************************************************