kolibrios-gitea/kernel/branches/kolibri_pe/gui/button.inc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa      ;;
;; Distributed under terms of the GNU General Public License    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Revision$


max_buttons=4095
dececx:
    push edx
    push ecx

    mov  edx,2
  .loop:

    cmp   byte [esp+edx],0x20
    jae   @f
    mov   [esp+edx],byte 0x20
   @@:
    sub   [esp+edx],byte 0x20

    dec  edx
    jns  .loop

    pop  ecx
    pop  edx
    ret

incecx:
    push edx
    push ecx

    mov  edx,2
  .loop:

    cmp  byte [esp+edx],0xdf
    jbe  @f
    mov  [esp+edx],byte 0xdf
   @@:
    add  [esp+edx],byte 0x20

    dec  edx
    jns  .loop
    pop  ecx
    pop  edx
    ret

incecx2:
    push edx
    push ecx

    mov  edx,2
  .loop:

    cmp  byte [esp+edx],0xeb
    jbe  @f
    mov  [esp+edx],byte 0xeb
   @@:
    add  [esp+edx],byte 0x14

    dec  edx
    jns  .loop
    pop  ecx
    pop  edx
    ret

drawbuttonframes:

	push  esi
	push  edi
	push  eax
	push  ebx
	push  ecx
	push  edx

	shr   ebx,16
	shr   ecx,16
	mov   eax,[TASK_BASE]

	add   ebx,[eax-twdw + WDATA.box.left]
	add   ecx,[eax-twdw + WDATA.box.top]
	mov     eax, ebx
	shl     eax, 16
	mov     ax, bx
	add     ax, word [esp+8]
	mov     ebx, ecx
	shl     ebx, 16
	mov     bx, cx
	push    ebx
	xor     edi, edi
	mov     ecx, esi
	call    incecx
	call    [draw_line]

	movzx edx,word [esp+4+4]
	add   ebx,edx
	shl   edx,16
	add   ebx,edx
	mov   ecx,esi
	call  dececx
	call  [draw_line]

	pop     ebx
	push  edx
	mov   edx,eax
	shr   edx,16
	mov   ax,dx
	mov   edx,ebx
	shr   edx,16
	mov   bx,dx
	mov   dx,[esp+4+4]
	add   bx,dx
	pop   edx
	mov   ecx,esi
	call  incecx
	call  [draw_line]

	mov   dx,[esp+8]
	add   ax,dx
	shl   edx,16
	add   eax,edx
	add   ebx,1*65536
	mov   ecx,esi
	call  dececx
	call  [draw_line]

	pop   edx
	pop   ecx
	pop   ebx
	pop   eax
	pop   edi
	pop   esi

	ret

button_dececx:

	cmp   [buttontype],dword 1
	jne   .finish
;        je    bdece
;        ret
;      bdece:
	push  eax
	mov   eax,0x01
	cmp   edi,20
	jg    @f
	mov   eax,0x02
      @@:
	test  ecx,0xff
	jz    @f
	sub   ecx,eax
      @@:
	shl   eax,8
	test  ecx,0xff00
	jz    @f
	sub   ecx,eax
      @@:
	shl   eax,8
	test  ecx,0xff0000
	jz    @f
	sub   ecx,eax
      @@:
	pop    eax
      .finish:
	ret


sys_button:

        mov     eax, [current_slot]
        rol     ebx, 16
        add     bx, word [eax+APPDATA.wnd_clientbox.left]
        rol     ebx, 16
        rol     ecx, 16
        add     cx, word [eax+APPDATA.wnd_clientbox.top]
        rol     ecx, 16
.forced:

        test    edx, 0x80000000
        jnz     remove_button

        or      bx, bx
        jle     noaddbutt
        or      cx, cx
        jle     noaddbutt

        test    edx, 0x40000000
        jnz     button_no_draw

        pushad			     ; button body
        movzx   edi, cx
        shr     ebx, 16
        shr     ecx, 16
        mov     eax, [TASK_BASE]
        add     ebx, [eax-twdw + WDATA.box.left]
        add     ecx, [eax-twdw + WDATA.box.top]
        mov     eax, ebx
        shl     eax, 16
        mov     ax, bx
        add     ax, word [esp+16]
        mov     ebx, ecx
        shl     ebx, 16
        mov     bx, cx
        mov     ecx, esi
        cmp     [buttontype], 0
        je      @f
        call    incecx2
@@:
        mov     edx, edi

.newline:
        call    button_dececx
        push    edi
        xor     edi, edi
        call    [draw_line]
        pop     edi
        add     ebx, 1*65536+1 ; [ y start | y end ]
        dec     edx
        jnz     .newline
        popad

        call    drawbuttonframes

button_no_draw:

        push    edi
        mov     edi, [btn_addr]
        movzx   eax, word [edi]
        cmp     eax, max_buttons
        jge     noaddbutt
        inc     eax
        mov     [edi], ax

        shl     eax, 4
        add     edi, eax

        mov     ax, [CURRENT_TASK]
        stosw
        mov     ax, dx
        stosw               ; button id number: bits 0-15
        mov     eax, ebx
        rol     eax, 16
        stosd               ; x start | x size
        mov     eax, ecx
        rol     eax, 16
        stosd               ; y start | y size
        mov     eax, edx
        shr     eax, 16
        stosw               ; button id number: bits 16-31

        pop     edi

noaddbutt:

        ret


remove_button:

        and     edx, 0x7fffffff

rnewba2:

        mov     edi, [btn_addr]
        mov     eax, edi
        movzx   ebx, word [edi]
        inc     ebx

rnewba:

        dec     ebx
        jz      rnmba

        add     eax, 0x10

        mov     cx, [CURRENT_TASK]
        cmp     cx, [eax]
        jnz     rnewba
        cmp     dx, [eax+2]
        jnz     rnewba

        lea     ecx, [ebx+1]
        shl     ecx, 4
        mov     ebx, eax
        add     eax, 0x10
        call    memmove
        dec     dword [edi]
        jmp     rnewba2

rnmba:

        ret

find_pressed_button_frames:

	pushad

	movzx ebx,word [eax+0]
	shl   ebx,5
	add   ebx,window_data
        mov   ecx, [ebx+ WDATA.box.left]     ; window x start
	movzx edx,word [eax+4]	   ; button x start
	add   ecx,edx
	push  ecx

        mov   dx,[eax+6]                 ; button x size
	add   cx,dx
	mov   esi,ecx
	inc   esi
        mov   ecx, [ebx+WDATA.box.top]   ; window y start
        mov   dx,[eax+8]                 ; button y start
	add   ecx,edx
	mov   ebx,ecx
		mov   dx,[eax+10]		 ; button y size
	add   dx,cx
	inc   dx

	pop   eax

	; eax x beginning
	; ebx y beginning
	; esi x end
	; edx y end
	; ecx color

	mov   [pressed_button_eax],eax
	mov   [pressed_button_ebx],ebx
	mov   [pressed_button_ecx],ecx
	mov   [pressed_button_edx],edx
	mov   [pressed_button_esi],esi

	popad
	ret

uglobal
  pressed_button_eax  dd  0
  pressed_button_ebx  dd  0
  pressed_button_ecx  dd  0
  pressed_button_edx  dd  0
  pressed_button_esi  dd  0
endg

; negative button image

negativebutton:
	; If requested, do not display button
	; boarder on press.
	test  ebx,0x20000000
	jz    draw_negative_button
	ret
      draw_negative_button:

	pushad

	mov   eax,[pressed_button_eax]
	mov   ebx,[pressed_button_ebx]
	mov   ecx,[pressed_button_ecx]
	mov   edx,[pressed_button_edx]
	mov   esi,[pressed_button_esi]
	mov   ecx,0x01000000

	dec   edx
	push  edx
	inc   edx
	dec   esi
	push  esi
	inc   esi

	push  eax
	push  ebx
	push  ecx
	push  edx
	push  edi

	call  [disable_mouse]

      bdbnewline:
	mov   edi,1    ; force
	cmp   eax,[esp+16]
	jz    bneg
	cmp   eax,[esp+20]
	jz    bneg
	cmp   ebx,[esp+12]
	jz    bneg
	cmp   ebx,[esp+24]
	jnz   nbneg
;        jz    bneg
;        jmp   nbneg

      bneg:

	;;;call  [disable_mouse]
	call  [putpixel]

      nbneg:

	inc   eax
	cmp   eax,esi
	jnz   bdbnewline
	mov   eax,[esp+16]
	inc   ebx
	cmp   ebx,edx
	jnz   bdbnewline

	add   esp,28

	popad

	ret

; check buttons


; 0000 word process number
; 0002 word button id number : bits 0-15
; 0004 word x start
; 0006 word x size
; 0008 word y start
; 000A word y size
; 000C word button id number : bits 16-31
;
; button table in 0x10 increments
;
; first at 0x10


checkbuttons:

    cmp   byte [btn_down], 0           ; mouse buttons pressed
    jnz   @f
;..................................... start 1/5 : modified by vhanla .............................
    mov [bPressedMouseXY_B],0
;..................................... end 1/5 : modified by vhanla .............................
    ret
  @@:
    pushad

    xor    esi, esi
    mov    edi, [btn_addr]
    movzx  edx, word [edi]
    test   edx, edx
    jne    @f
    popad
    ret

  @@:
;..................................... start 2/5 : modified by vhanla .............................
  ;here i catch the coordinates when the mouse's button is clicked
   push eax
   cmp [bPressedMouseXY_B],0;FALSE
   jnz @f
   mov [bPressedMouseXY_B],1;TRUE - it was already clicked
   mov ax,[MOUSE_X]
   mov [mx],ax
   mov ax,[MOUSE_Y]
   mov [my],ax
   @@:
   pop  eax
   ;and it is only refreshed after the mouse's button release
;..................................... end 2/5 : modified by vhanla .............................

    push  esi
    inc   edx
    push  edx

  buttonnewcheck:

    pop   edx
    pop   esi
    inc   esi
    cmp   edx,esi
    jge   bch

    popad		  ; no button pressed
    ret

  bch:

    push  esi
    push  edx
    mov   eax,esi
    shl   eax,4
    add   eax,edi

    ; check that button is at top of windowing stack

    movzx ebx,word [eax]
    movzx ecx,word [WIN_STACK + ebx * 2]
    cmp   ecx,[TASK_COUNT]
    jne   buttonnewcheck

    ; check that button start is inside window x/y end

    movzx ebx,word [eax+0]
    shl   ebx,5

	test	[ebx+window_data+WDATA.fl_wstate],WSTATE_MINIMIZED
	jnz	buttonnewcheck

;    add   ebx,window_data
;    mov   ecx,[window_data+ebx+8]          ; window end X
    movzx edx,word [eax+4]     ; button start X
    cmp   edx, [window_data+ebx+WDATA.box.width] ;ecx
    jge   buttonnewcheck

;    mov   ecx,[window_data+ebx+12]         ; window end Y
    movzx edx, word [eax+8]    ; button start Y
    cmp   edx, [window_data+ebx+WDATA.box.height] ;ecx
    jge   buttonnewcheck

    ; check coordinates
			       ; mouse x >= button x ?
    movzx ebx,word [eax+0]
    shl   ebx,5
    add   ebx,window_data
	mov   ecx, [ebx+WDATA.box.left]     ; window x start
    movzx edx,word [eax+4]     ; button x start
    add   edx,ecx
;..................................... start 3/5 : modified by vhanla .............................
    mov   cx,[mx]   ;mov cx,[mouse_x]
;..................................... end 3/5 : modified by vhanla .............................
    cmp   edx,ecx
    jg	  buttonnewcheck

    movzx ebx,word [eax+6]     ; button x size
    add   edx,ebx
    cmp   ecx,edx
    jg	  buttonnewcheck

			       ; mouse y >= button y ?
    movzx ebx,word [eax+0]
    shl   ebx,5
    add   ebx,window_data
	mov   ecx, [ebx+WDATA.box.top]	   ; window y start
    movzx edx,word [eax+8]     ; button y start
    add   edx,ecx
;..................................... start 4/5 : modified by vhanla .............................
    mov   cx,[my]  ;mov cx,[MOUSE_Y]
;..................................... start 4/5 : modified by vhanla .............................
    cmp   edx,ecx
    jg	  buttonnewcheck

    movzx ebx,word [eax+10]    ; button y size
    add   edx,ebx
    cmp   ecx,edx
    jg	  buttonnewcheck

    ; mouse on button

    pop   edx
    pop   esi

    mov   bx,[eax+0xc]	   ; button id : bits 16-31
    shl   ebx,16
    mov   bx,[eax+2]                    ; button id : bits 00-16
    push  ebx

    call find_pressed_button_frames
    call negativebutton

    pushad
; // Alver 22.06.2008 // {
    push  eax
    mov  al, byte [btn_down]
    mov  byte [btn_down_determ], al
    pop  eax
; } \\ Alver \\

  cbwaitmouseup:

    call  checkidle

    call  [draw_pointer]

    pushad
    call  stack_handler
    popad

    cmp  byte [btn_down], 0      ; mouse buttons pressed ?
    jnz   cbwaitmouseup
    popad

    call  negativebutton
;..................................... start 5/5 : modified by vhanla .............................
    ; check coordinates
iglobal
    mx dw 0x0 ; keeps the x mouse's position when it was clicked
    my dw 0x0 ; keeps the y mouse's position when it was clicked
    bPressedMouseXY_B db 0x0
    btn_down_determ     db 0x0        ; << // Alver 22.06.2008// <<
endg

   pusha
  ; mouse x >= button x ?
   movzx ebx,word [eax+0]
   shl	 ebx,5
   add	 ebx,window_data
   mov	 ecx, [ebx+WDATA.box.left]    ; window x start
   movzx edx,word [eax+4]    ; button x start
   add	 edx,ecx
   mov	 cx,[MOUSE_X]
   cmp	 edx,ecx
   jg	no_on_button ;if we release the pointer out of the button area

   movzx ebx,word [eax+6]    ; button x size
   add	 edx,ebx
   cmp	 ecx,edx
   jg	no_on_button

	; mouse y >= button y ?
   movzx ebx,word [eax+0]
   shl	 ebx,5
   add	 ebx,window_data
   mov	 ecx, [ebx+WDATA.box.top]    ; window y start
   movzx edx,word [eax+8]    ; button y start
   add	 edx,ecx
   mov	 cx,[MOUSE_Y]
   cmp	 edx,ecx
   jg	no_on_button

   movzx ebx,word [eax+10]   ; button y size
   add	 edx,ebx
   cmp	 ecx,edx
   jg	no_on_button
   popa
   mov   [BTN_COUNT], 1 ; no of buttons in buffer
   pop	 ebx
   mov	 [BTN_BUFF],ebx   ; lets put the button id in buffer
   push  ebx
   pusha
   jmp yes_on_button
no_on_button:
   mov   [BTN_COUNT], 0     ; no of buttons in buffer
yes_on_button:
   popa
   pop ebx
   popa
   ret

;..................................... end 5/5 : modified by vhanla ................................