Subversion Repositories Kolibri OS

;****************craete CheckBox**********************

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

;IN

;pointer to parend

;pointer to CheckBox's structure

;OUT

;pointer to initialized control

align 4

      mov eax,[esp+8]

      call craete_control

      mov [eax],dword check_box

      mov esi,[PointerToStructureForCheckBox]

      mov edi,eax

      add edi,control_header_size

      rep movsb

      xor ecx,ecx

      xor edx,edx

      mov cx,[ebx+2]   ;CheckBox x

      mov dx,[ebx+4]   ;CheckBox y

      mov esi,[ebx+10] ;CheckBox size

      add ecx,border_width

      add edx,[skin_height]

      ;copy information to control

      mov [eax+24],ecx

      mov [eax+28],edx

      mov [eax+32],esi

      mov [eax+36],esi

;*****************Draw CheckBox**********************

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

;IN

;pointer to control of CheckBox

;message

;OUT

;not returned value

align 4

      mov eax,[esp+8]

      mov esi,[esp+4]

      mov [PointerForCheckBox],esi

      add esi,control_header_size

      mov edi,dword CheckBox

      mov ecx,control_header_size+cb_control_data_dize

      rep movsb

      ;load coordinats and size from control

      mov eax,[PointerForCheckBox]

      mov ebx,[eax+24]           ;x

      mov ecx,[eax+28]           ;y

      mov edx,[eax+32]           ;size

      ;set current coordinats and sizes in CheckBox

      mov [CheckBox.ch_left],bx

      mov [CheckBox.ch_top],cx

      mov [CheckBox.ch_size],edx

      pop eax

      jne no_redraw_all_check_box

       mov bx,[CheckBox.ch_left]

       mov cx,[CheckBox.ch_top]

       shl ebx,16

       shl ecx,16

       add ebx,[CheckBox.ch_size]

       add ecx,[CheckBox.ch_size]

       mov edx,[CheckBox.ch_border_color]

        mcall

       add ebx,1 shl 16 - 2

       add ecx,1 shl 16 - 2

        mcall

       mov ebx,eax

       mov ecx,3

       shr ebx,1

       cdq

       idiv ecx

       mov [CheckBox.ch_size_2],bx

       mov [CheckBox.ch_size_3],ax

       jz   @f

       call draw_ch

    @@:

        add ebx,[CheckBox.ch_size]

        add ebx,[CheckBox.ch_text_margin]

        shl   ebx,16

        mov   bx,[CheckBox.ch_top]

        add   ebx,[CheckBox.ch_size]

        add   ebx,(-9+1)

        mov   ecx,[CheckBox.ch_text_color]

        movzx esi,word [CheckBox.ch_text_length]

        mcall

      no_redraw_all_check_box:

      je exit_check_box

      jne no_mouse_check_box

      mov edi,[eax+8]

      mov ebx,[eax+12]   ;buttons of mouse state

      mov [CheckBox.mouseX],esi

      mov [CheckBox.mouseY],edi

      mov eax,ebx

      jnz  @f

      btr  word [CheckBox.ch_flags],2

      jmp exit_check_box

@@:

      bts  word [CheckBox.ch_flags],2

      jc   .mouse_end

      movzx  esi,word [CheckBox.ch_text_length]

      add  esi,[CheckBox.ch_text_margin]

      shl eax,16

      add eax,[CheckBox.mouseY]

      cmp   ax,bx

      jl   .mouse_end

      add   ebx,[CheckBox.ch_size]

      cmp   ax,bx

      jg   .mouse_end

      movzx ebx,word[CheckBox.ch_left]

      cmp   ax,bx

      jl   .mouse_end

      add   ebx,[CheckBox.ch_size]

      add   ebx,esi

      cmp   ax,bx

      jg   .mouse_end

      jc   @f

@@:

      btr   word[CheckBox.ch_flags],1

      call clear_ch

      mov ecx,cb_control_data_dize           ;save in control only flags

      mov esi,dword CheckBox

      mov edi,[PointerForCheckBox]

      add edi,control_header_size

      cld

      rep movsb

;ch_size=11

        mov   edx,[CheckBox.ch_color]

        jmp   @f

        mov   edx,[CheckBox.ch_border_color]

@@:

        add   bx,[CheckBox.ch_size_3]

        shl   ebx,16

        mov   bx,[CheckBox.ch_size_2]

        ;mov   bp,bx

        ;push        bx

        movzx ecx,word [CheckBox.ch_top]

        mov   eax,13

        add   cx,[CheckBox.ch_size_3]

        shl   ecx,16

        ;mov   cx,bp

        mov cx,[CheckBox.ch_size_2]

        mcall