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

; First start flag ; +24

; dd 0 ; 0 - first start, 1 - subsequent starts

;

; Old colors ; +28

; rd 10

;

; Free area ; +68

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

  use32

  org	 0

  db	 'MENUET01'

  dd	 1, START, IM_END, I_END, stacktop, param, path

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

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

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

include '../../KOSfuncs.inc'

include '../../load_lib.mac'

include '../../develop/libraries/box_lib/trunk/box_lib.mac'

;include 'lang.inc'

;include '../../debug.inc'

@use_library

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

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 = 27

c_size_y = 20

ed_size_x = 53

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

x_minimal_size equ 350

y_minimal_size equ 250

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

START:

	mcall	SF_SYS_MISC,SSF_HEAP_INIT

	;mcall	SF_KEYBOARD,SSF_SET_INPUT_MODE,1

	mcall	SF_SET_EVENTS_MASK,0x27

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

load_libraries	l_libs_start,end_l_libs

	test	eax,eax

	jnz	button.exit_2

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

	call	get_communication_area

	call	get_active_pocess

	call	clear_colors_history

	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

	call	prepare_scrollbars_position_from_color

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

	mov	ecx,[palette_SIZE_Y]

	imul	ecx,[palette_SIZE_X]

	lea	ecx,[ecx*3]

	inc	ecx	;reserve for stosd

	mcall	SF_SYS_MISC,SSF_MEM_ALLOC

	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	SF_SYS_MISC,SSF_MEM_ALLOC

	mov	[tone_area],eax

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

	call    create_tone

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

align 4

red:

	call	draw_window

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

align 4

still:

	mcall	SF_WAIT_EVENT

	cmp	eax,1

	je	red

	cmp	eax,2

	je	key

	cmp	eax,3

	je	button

	cmp	eax,6

	je	mouse

	jmp	still

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

align 4

button:

	mcall	SF_GET_BUTTON

	cmp	ah, 2

	je	palette_button

	cmp	ah, 3

	je	tone_button

	cmp	ah, 4

	je	color_button

	cmp	ah, 30

	jb	@f

	cmp	ah, 39

	ja	@f

	sub	ah,30

	movzx	eax,ah

	shl	eax,2

	add	eax,[communication_area]

	add	eax,28

	mov	eax,[eax]

	mov	[selected_color],eax

	call	prepare_scrollbars_position_from_color

	call	draw_selected_color

	call	draw_scrollbars

	jmp	still

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

align 4

@@:

	cmp	ah, 1

	jne	still

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

align 4

.exit:

	mov	eax,[communication_area]

	mov	[eax],word 3

	jmp	@f

; dps "CD flag value: cancel "

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

align 4

.exit_1: