Subversion Repositories Kolibri OS

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

; Macro for use Color Dialog - 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.

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

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

;Some documentation for memory

;

;area name db 'FFFFFFFF_color_dialog',0 ; FFFFFFFF = PID

;

; communication area data

; flag  ; +0

; dw 0   ; 0 - empty, 1 - OK, color selected

;          2 - use another method/not found program, 3 - cancel

;

; type of dialog:  0-Palette&Tone

; dw 0 ; +2

;

; window X size ; +4

; dw 0

;

; window X position ; +6

; dw 0

;

; window y size ; +8

; dw 0

;

; window Y position ; +10

; dw 0

;

; ColorDialog WINDOW SLOT ; +12

; dd 0

;

; Color type ; +16

; dd 0

;

; Color value ; +20

; dd 0

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

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

macro	ColorDialog_exit

{

popa

ret 4

}

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

macro	use_ColorDialog

{

ColorDialog:

cd_type			equ dword [ebp]	; 0-Palette&Tone

cd_procinfo		equ dword [ebp+4] ; Process info area for function 9

cd_com_area_name	equ dword [ebp+8] ; Name for shared area

cd_com_area		equ dword [ebp+12] ; Adress of shared area

cd_start_path		equ dword [ebp+16] ; Location path to ColorDialog

cd_draw_window		equ dword [ebp+20] ; Adress of procedure - draw_window

cd_status		equ dword [ebp+24] ; 0-Cancel, 1-Get color OK, 2-Use alternatives

cd_x_size		equ [ebp+28] ; Window X size

cd_x_start		equ [ebp+30] ; Window X position

cd_y_size		equ [ebp+32] ; Window y size

cd_y_start		equ [ebp+34] ; Window Y position

cd_color_type		equ [ebp+36] ; 0- RGB, 1 or other - reserved

cd_color		equ [ebp+40] ; Selected color

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

.init:

	pusha

	mov   ebp,dword [esp+36]

	mcall	9,cd_procinfo,-1

	mov	ebx,[ebx+30]

	mov	edi,cd_com_area_name

	add	edi,7

	std

	mov	ecx,4

@@:

	mov	al,bl

	and	al,1111b

	add	al,0x30

	stosb

	mov	al,bl

	shr	al,4

	and	al,1111b

	add	al,0x30

	stosb

	shr	ebx,8

	dec	ecx

	jnz	@r

	cld

	mcall	68,22,cd_com_area_name,4096,0x09

	mov	cd_com_area,eax

ColorDialog_exit

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

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

.start:

	pusha

	mov   ebp,dword [esp+36]

	mov	eax,cd_com_area

	test	eax,eax

	jz	.1

	mov	ebx,cd_type

	mov	[eax+2],bx

	mov	[eax],word 2	; start ColorDialog

	pusha

	mcall	9,cd_procinfo,-1

	mov	eax,[ebx+42] ;main window x size

	shr	eax,1

	add	eax,[ebx+34] ; main window x start

	mov	cx,cd_x_size

	shr	cx,1

	sub	ax,cx

	test	ax,cx

	test	eax,0x8000

	jz	@f

	xor	eax,eax

@@:

	mov	cd_x_start,ax

	mov	eax,[ebx+46] ;main window y size

	shr	eax,1

	add	eax,[ebx+38] ; main window y start

	mov	cx,cd_y_size

	shr	cx,1

	sub	ax,cx

	test	eax,0x8000

	jz	@f

	xor	eax,eax

@@:

	mov	cd_y_start,ax

	popa

	mov	ebx,dword cd_x_size

	mov	[eax+4],ebx

	mov	ebx,dword cd_y_size

	mov	[eax+8],ebx

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

	mov	ebx,cd_procinfo

	xor	eax,eax

	mov	edi,ebx

	mov	ecx,6

	cld

	rep	stosd

	mov	[ebx],dword 7

	mov	eax,cd_com_area_name

	mov	[ebx+8],eax

	mov	eax,cd_start_path

	mov	[ebx+21],eax

	mcall	70

	shr	eax,31

	test	eax,eax

	jnz	.1

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

.still:

; The main window of application sometimes

; is not present the really. For this reason

; not use func 10 and 23, because event 1

; is not cleared without call of func 0.

; In this case is suitable only func 5 and 11!

	mcall	5,10

	mcall	11

	cmp	eax,1

	je	.draw

	cmp	eax,2

	je	.key

	cmp	eax,3

	je	.button

	jmp	.no_draw

.key:

	mcall	2

	jmp	.no_draw

.button:

	mcall	17

	jmp	.no_draw

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

.draw:

	pusha

	call	cd_draw_window

	popa

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

	pusha

	call	.prepare_PID

	jz	@f

	mov	ecx,eax	; WINDOW SLOT

	mcall	18,7

	cmp	eax,ecx ; compare ACTIVE and WINDOW SLOT

	jne	@f

	mov	eax,cd_com_area

	mov	ecx,[eax+12]

	test	ecx,ecx

	jz	@f

	mcall	18,3

@@:

	popa

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

.no_draw:

	mov	eax,cd_com_area

	movzx	ebx,word [eax]

	test	ebx,ebx

	jz	.still

	cmp	ebx,3

	je	.2

	cmp	ebx,1

	jne	.still

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

; copy color type and value from shared area

	mov	eax,cd_com_area

	mov	ebx,[eax+16]

	mov	cd_color_type,ebx

	mov	ebx,[eax+20]

	mov	cd_color,ebx

	mov	cd_status,1

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

	jmp	.3

.2:

	mov	cd_status,0

	jmp	.3

.1:

	mov	cd_status,2

.3:

	mov	eax,cd_com_area

	mov	ebx,[eax+4]

	mov	cd_x_size,ebx

	mov	ebx,[eax+8]

	mov	cd_y_size, ebx

	call	.prepare_PID

	jz	@f

	mov	ecx,eax	; WINDOW SLOT

	mcall	18,3

@@:

ColorDialog_exit

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

.prepare_PID:

	mcall	9,cd_procinfo,-1

	mov	ecx,[ebx+30]	; PID

	mcall	18,21

	test	eax,eax

	ret

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

}

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