kolibrios-gitea/kernel/trunk/gui/button.inc

$Revision$
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; 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    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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   eax,16
	shr   ebx,16
	mov   edx,[TASK_BASE]

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

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

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

	mov   esi,edx
	mov   dx,[esp+12]
	add   ax,dx
	shl   edx,16
	add   eax,edx
	add   ebx,1*65536
	mov   edx,esi
	mov   ecx,[esp+0]
	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:

	push	edi
        mov     edi,[current_slot]
	rol	eax,16
        add     ax,word[edi+APPDATA.wnd_clientbox.left]
	rol	eax,16
	rol	ebx,16
        add     bx,word[edi+APPDATA.wnd_clientbox.top]
	rol	ebx,16
	pop	edi
.forced:

	test  ecx,0x80000000
	jnz   remove_button

	push  esi
	push  edi
	push  eax ; <x,xs>
	push  ebx ; <y,ys>
	push  ecx ; <id>
	push  edx

	or    ax,ax
	jle   noaddbutt
	or    bx,bx
	jle   noaddbutt

	test  ecx,0x40000000
	jnz   button_no_draw

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

	pop   edx
	and   edx, 0xFFFF

.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:

	and   ecx,0xffff

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

	shl   eax,4
	add   eax,edi

	mov   bx,[CURRENT_TASK]
	mov   [eax],bx

	add   eax,2	    ; save button id number
	mov   ebx,[esp+4]
	mov   [eax],bx	    ; bits 0-15
	shr   ebx,16
	mov   [eax-2+0xc],bx; bits 16-31
	add   eax,2	    ; x start
	mov   bx,[esp+12+2]
	mov   [eax],bx
	add   eax,2	    ; x size
	mov   bx,[esp+12+0]
	mov   [eax],bx
	add   eax,2	    ; y start
	mov   bx,[esp+8+2]
	mov   [eax],bx
	add   eax,2	    ; y size
	mov   bx,[esp+8+0]
	mov   [eax],bx

noaddbutt:

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

	ret


remove_button:

    and  ecx,0x7fffffff

rnewba2:

    mov   edi,[BTN_ADDR]
    mov   eax,edi
    movzx ebx,word [edi]
    inc   bx

rnewba:

    dec   bx
    jz	  rnmba

    add   eax,0x10

    mov   dx,[CURRENT_TASK]
    cmp   dx,[eax]
    jnz   rnewba

    cmp   cx,[eax+2]
    jnz   rnewba

    pushad
    mov   ecx,ebx
    inc   ecx
    shl   ecx,4
    mov   ebx,eax
    add   eax,0x10
    call  memmove
    dec   dword [edi]
    popad

    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   [BTN_DOWN],byte 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 ax
   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	ax
   ;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

    mov   [MOUSE_DOWN],byte 1  ; no mouse down checks
    call find_pressed_button_frames
    call negativebutton

    pushad
  cbwaitmouseup:

    call  checkidle

    call  [draw_pointer]

    pushad
    call  stack_handler
    popad

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

    call  negativebutton
    mov   [MOUSE_BACKGROUND],byte 0  ; no mouse background
    mov   [DONT_DRAW_MOUSE],byte 0  ; draw mouse
;..................................... start 5/5 : modified by vhanla .............................
    ; check coordinates
    jmp @f
    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
    @@:

   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],byte 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],byte 0 ; no of buttons in buffer
yes_on_button:
   mov	 [MOUSE_DOWN],byte 0 ; mouse down -> do not draw
   popa
   pop ebx
   popa
   ret

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