forked from KolibriOS/kolibrios
ColorDialog - pre alpha version.
git-svn-id: svn://kolibrios.org@3417 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
c1b0143546
commit
ea0a41f032
@ -25,6 +25,40 @@
|
|||||||
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
||||||
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
; 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
|
use32
|
||||||
org 0x0
|
org 0x0
|
||||||
|
|
||||||
@ -34,11 +68,12 @@
|
|||||||
dd IM_END
|
dd IM_END
|
||||||
dd I_END
|
dd I_END
|
||||||
dd stacktop
|
dd stacktop
|
||||||
dd 0x0
|
dd param
|
||||||
dd 0x0
|
dd 0x0
|
||||||
;---------------------------------------------------------------------
|
;---------------------------------------------------------------------
|
||||||
include '../../macros.inc'
|
include '../../macros.inc'
|
||||||
;include 'lang.inc'
|
;include 'lang.inc'
|
||||||
|
;include 'debug.inc'
|
||||||
;---------------------------------------------------------------------
|
;---------------------------------------------------------------------
|
||||||
p_start_x = 10
|
p_start_x = 10
|
||||||
p_start_y = 10
|
p_start_y = 10
|
||||||
@ -64,6 +99,11 @@ c_size_y = 20
|
|||||||
|
|
||||||
START:
|
START:
|
||||||
mcall 68,11
|
mcall 68,11
|
||||||
|
mcall 66,1,1
|
||||||
|
mcall 40,0x27
|
||||||
|
call get_communication_area
|
||||||
|
|
||||||
|
call get_active_pocess
|
||||||
|
|
||||||
xor eax,eax
|
xor eax,eax
|
||||||
mov al,p_size_x
|
mov al,p_size_x
|
||||||
@ -121,13 +161,63 @@ button:
|
|||||||
cmp ah, 3
|
cmp ah, 3
|
||||||
je tone_button
|
je tone_button
|
||||||
|
|
||||||
|
cmp ah, 4
|
||||||
|
je color_button
|
||||||
|
|
||||||
cmp ah, 1
|
cmp ah, 1
|
||||||
jne still
|
jne still
|
||||||
|
|
||||||
.exit:
|
.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
|
||||||
|
|
||||||
mcall -1
|
mcall -1
|
||||||
;---------------------------------------------------------------------
|
;---------------------------------------------------------------------
|
||||||
align 4
|
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:
|
palette_button:
|
||||||
mcall 37,1
|
mcall 37,1
|
||||||
and eax,0xffff
|
and eax,0xffff
|
||||||
@ -161,6 +251,15 @@ tone_button:
|
|||||||
jmp still
|
jmp still
|
||||||
;---------------------------------------------------------------------
|
;---------------------------------------------------------------------
|
||||||
align 4
|
align 4
|
||||||
|
color_button:
|
||||||
|
mov eax,[communication_area]
|
||||||
|
mov [eax],word 1
|
||||||
|
mov ebx,[selected_color]
|
||||||
|
mov [eax+20],ebx
|
||||||
|
; dps "CD flag value: OK "
|
||||||
|
jmp button.exit_1
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
align 4
|
||||||
key:
|
key:
|
||||||
mcall 2
|
mcall 2
|
||||||
jmp still
|
jmp still
|
||||||
@ -168,6 +267,7 @@ key:
|
|||||||
align 4
|
align 4
|
||||||
draw_selected_color:
|
draw_selected_color:
|
||||||
mcall 13,<c_start_x,c_size_x>,<c_start_y,c_size_y>,[selected_color]
|
mcall 13,<c_start_x,c_size_x>,<c_start_y,c_size_y>,[selected_color]
|
||||||
|
mcall 8,<c_start_x,c_size_x>,<c_start_y,c_size_y>,0x60000004
|
||||||
ret
|
ret
|
||||||
;---------------------------------------------------------------------
|
;---------------------------------------------------------------------
|
||||||
align 4
|
align 4
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
@erase lang.inc
|
@erase lang.inc
|
||||||
@echo lang fix en >lang.inc
|
@echo lang fix en >lang.inc
|
||||||
@fasm color_dialog.asm color_dialog
|
@fasm color_dialog.asm colrdial
|
||||||
@kpack color_dialog
|
@kpack colrdial
|
||||||
@erase lang.inc
|
@erase lang.inc
|
||||||
@pause
|
@pause
|
@ -3,6 +3,9 @@ align 4
|
|||||||
palette_area rd 1
|
palette_area rd 1
|
||||||
tone_area rd 1
|
tone_area rd 1
|
||||||
part_of_size_y rd 1
|
part_of_size_y rd 1
|
||||||
|
active_process rd 1
|
||||||
|
;color_dialog_type rd 1
|
||||||
|
communication_area rd 1
|
||||||
;--------------------------------------
|
;--------------------------------------
|
||||||
offset_y:
|
offset_y:
|
||||||
.red rd 1
|
.red rd 1
|
||||||
@ -32,9 +35,13 @@ palette_SIZE_X rd 1
|
|||||||
tone_SIZE_Y rd 1
|
tone_SIZE_Y rd 1
|
||||||
tone_SIZE_X rd 1
|
tone_SIZE_X rd 1
|
||||||
;---------------------------------------------------------------------
|
;---------------------------------------------------------------------
|
||||||
;align 4
|
align 4
|
||||||
;procinfo:
|
procinfo:
|
||||||
; rb 1024
|
rb 1024
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
align 4
|
||||||
|
param:
|
||||||
|
rb 256
|
||||||
;---------------------------------------------------------------------
|
;---------------------------------------------------------------------
|
||||||
align 4
|
align 4
|
||||||
rb 4096
|
rb 4096
|
||||||
|
Loading…
Reference in New Issue
Block a user