Subversion Repositories Kolibri OS

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

; 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

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

  use32

  org	 0x0

  db	 'MENUET01'

  dd	 0x01

  dd	 START

  dd	 IM_END

  dd	 I_END

  dd	 stacktop

  dd	 param

  dd	 0x0

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

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

;include 'lang.inc'

;include 'debug.inc'

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

p_start_x = 10

p_start_y = 10

p_size_x = 20

p_size_y = 256

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

t_start_x = 40

t_start_y = 10

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

w_start_x = 200

w_start_y = 200

w_size_x = 400

w_size_y = 350

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

c_start_x = t_start_x + p_size_y + 10

c_start_y = 10

c_size_x = 40

c_size_y = 20

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

x_minimal_size equ 350

y_minimal_size equ 250

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

START:

	mcall	68,11

	mcall	66,1,1

	mcall	40,0x27

	call	get_communication_area

	call	get_active_pocess

	xor	eax,eax

	mov	al,p_size_x

	mov	[palette_SIZE_X],eax

	mov	ax,p_size_y

	mov	[palette_SIZE_Y],eax

	mov	[tone_SIZE_X],eax

	mov	[tone_SIZE_Y],eax

	mov	eax,0xff0000

	mov	[tone_color],eax

	mov	[selected_color],eax

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

	mov	ecx,[palette_SIZE_Y]

	imul	ecx,[palette_SIZE_X]

	lea	ecx,[ecx*3]

	inc	ecx	;reserve for stosd

	mcall	68,12

	mov	[palette_area],eax

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

	call	create_palette

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

	mov	ecx,[tone_SIZE_Y]

	imul	ecx,[tone_SIZE_X]

	lea	ecx,[ecx*3]

	inc	ecx	;reserve for stosd

	mcall	68,12

	mov	[tone_area],eax

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

	call    create_tone

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

align 4

red:

	call	draw_window

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

align 4

still:

	mcall	10

	cmp	eax,1

	je	red

	cmp	eax,2

	je	key

	cmp	eax,3

	jne	still

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

align 4

button:

	mcall	17

	cmp	ah, 2

	je	palette_button

	cmp	ah, 3

	je	tone_button

	cmp	ah, 4

	je	color_button

	cmp	ah, 1

	jne	still

.exit:

	mov	eax,[communication_area]

	mov	[eax],word 3

; dps "CD flag value: cancel "

.exit_1:

	mov	ax,[eax]

	and	eax,0xffff

; dps "CD flag value: "

; dpd eax

; newline

	call	get_window_param

	mov	ebx,[communication_area]

	mov	ecx,procinfo

;	mov	eax,[window_x]

	mov	eax,[ecx+34]

	shl	eax,16

	add	eax,[ecx+42]

	mov	[ebx+4],eax

;	mov	eax,[window_y]

	mov	eax,[ecx+38]

	shl	eax,16

	add	eax,[ecx+46]

	mov	[ebx+8],eax

	mcall	-1

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

get_window_param:

	mcall	9,procinfo,-1

	mov	eax,[ebx+66]

	inc	eax

;	mov	[window_high],eax

	mov	eax,[ebx+62]

	inc	eax

;	mov	[window_width],eax

	mov	eax,[ebx+70]

;	mov	[window_status],eax

	ret

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

align 4

get_communication_area:

	xor	eax,eax

	mov	al,[param]

	test	eax,eax

	jz	@f

	mcall	68,22,param,,0x01

	mov	[communication_area],eax

;	movzx	ebx,word [eax+2]

;	mov	[color_dialog_type],ebx

	mov	ebx,[eax+4]

	cmp	bx,word x_minimal_size ;300

	jb	@f

	mov	[window_x],ebx

	mov	ebx,[eax+8]

	cmp	bx,word y_minimal_size ;200

	jb	@f

	mov	[window_y],ebx

@@:

	ret

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

align 4

get_active_pocess:

	mcall	9,procinfo,-1

	mov	ecx,[ebx+30]	; PID

	mcall	18,21

	mov	[active_process],eax	; WINDOW SLOT

	mov	ebx,[communication_area]

	test	ebx,ebx

	jz	.1

	mov	[ebx+12],eax	; WINDOW SLOT to com. area

.1:

	ret

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

align 4

palette_button:

	mcall	37,1

	and	eax,0xffff

	sub	eax,p_start_y

	imul	eax,p_size_x

	lea	eax,[eax+eax*2]

	add	eax,[palette_area]

	mov	eax,[eax]

	mov	[tone_color],eax

	mov	[selected_color],eax

	call	create_and_draw_tone

	call	draw_selected_color

	jmp	still

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

align 4

tone_button:

	mcall	37,1

	mov	ebx,eax

	and	eax,0xffff

	shr	ebx,16

	sub	eax,t_start_y

	imul	eax,p_size_y

	sub	ebx,t_start_x

	add	eax,ebx

	lea	eax,[eax+eax*2]

	add	eax,[tone_area]

	mov	eax,[eax]

	mov	[selected_color],eax

	call	draw_selected_color

	jmp	still

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

align 4

color_button:

	mov	eax,[communication_area]

	mov	[eax],word 1

	mov	ebx,[selected_color]

	and	ebx,0xffffff

	mov	[eax+20],ebx

; dps "CD flag value: OK "

	jmp	button.exit_1

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

align 4

key:

	mcall	2

	jmp	still

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

align 4

draw_selected_color:

	mcall	13,,,[selected_color]

	mcall	8,,,0x60000004

	ret

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

align 4

create_and_draw_tone:

	call    create_tone

	call    draw_tone

	ret

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

align 4

draw_tone:

	mcall	65,[tone_area],<[tone_SIZE_X],[tone_SIZE_Y]>,,24

	ret

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

align 4

draw_window:

	mcall	12,1

;	mcall	0, , , 0x33AABBCC,,title

	mcall	0,[window_x],[window_y], 0x33AABBCC,,title

	mcall	8,,,0x60000002

	mcall	,,,0x60000003

	mcall	65,[palette_area],<[palette_SIZE_X],[palette_SIZE_Y]>,,24

	call	draw_tone

	call	draw_selected_color

	mcall	12,2

	ret

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

include 'palette.inc'

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

include 'tone.inc'

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

include 'i_data.inc'

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

IM_END:

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

include 'u_data.inc'

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

I_END:

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