WebSVN – Kolibri OS – Diff – /kernel/trunk/video/cursors.inc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2018. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License    ;;
;;                                                              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
$Revision: 7510 $
 
 
LOAD_FROM_FILE  = 0
LOAD_FROM_MEM   = 1
LOAD_INDIRECT   = 2
LOAD_SYSTEM     = 3
 
struct  BITMAPINFOHEADER
        Size                    dd ?
        Width                   dd ?
        Height                  dd ?
        Planes                  dw ?
        BitCount                dw ?
        Compression             dd ?
        SizeImage               dd ?
        XPelsPerMeter           dd ?
        YPelsPerMeter           dd ?
        ClrUsed                 dd ?
        ClrImportant            dd ?
ends
;------------------------------------------------------------------------------
align 4
proc init_cursor stdcall, dst:dword, src:dword
           locals
             rBase    dd ?
             pQuad    dd ?
             pBits    dd ?
             pAnd     dd ?
             width    dd ?
             height   dd ?
             counter  dd ?
           endl
 
        mov     esi, [src]
        add     esi, [esi+18]
        mov     eax, esi
 
        cmp     [esi+BITMAPINFOHEADER.BitCount], 24
        je      .img_24
        cmp     [esi+BITMAPINFOHEADER.BitCount], 8
        je      .img_8
        cmp     [esi+BITMAPINFOHEADER.BitCount], 4
        je      .img_4
;--------------------------------------
align 4
.img_2:
        add     eax, [esi]
        mov     [pQuad], eax
        add     eax, 8
        mov     [pBits], eax
        add     eax, 128
        mov     [pAnd], eax
        mov     eax, [esi+4]
        mov     [width], eax
        mov     ebx, [esi+8]
        shr     ebx, 1
        mov     [height], ebx
 
        mov     edi, [dst]
        add     edi, 32*31*4
        mov     [rBase], edi
 
        mov     esi, [pQuad]
;--------------------------------------
align 4
.l21:
        mov     ebx, [pBits]
        mov     ebx, [ebx]
        bswap   ebx
        mov     eax, [pAnd]
        mov     eax, [eax]
        bswap   eax
        mov     [counter], 32
;--------------------------------------
align 4
@@:
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        xor     ecx, ecx
        shl     ebx, 1
        setc    cl
        mov     ecx, [esi+ecx*4]
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi], edx
 
        add     edi, 4
        dec     [counter]
        jnz     @B
 
        add     [pBits], 4
        add     [pAnd], 4
        mov     edi, [rBase]
        sub     edi, 128
        mov     [rBase], edi
        sub     [height], 1
        jnz     .l21
        ret
;--------------------------------------
align 4
.img_4:
        add     eax, [esi]
        mov     [pQuad], eax
        add     eax, 64
        mov     [pBits], eax
        add     eax, 0x200
        mov     [pAnd], eax
        mov     eax, [esi+4]
        mov     [width], eax
        mov     ebx, [esi+8]
        shr     ebx, 1
        mov     [height], ebx
 
        mov     edi, [dst]
        add     edi, 32*31*4
        mov     [rBase], edi
 
        mov     esi, [pQuad]
        mov     ebx, [pBits]
;--------------------------------------
align 4
.l4:
        mov     eax, [pAnd]
        mov     eax, [eax]
        bswap   eax
        mov     [counter], 16
;--------------------------------------
align 4
@@:
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        movzx   ecx, byte [ebx]
        and     cl, 0xF0
        shr     ecx, 2
        mov     ecx, [esi+ecx]
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi], edx
 
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        movzx   ecx, byte [ebx]
        and     cl, 0x0F
        mov     ecx, [esi+ecx*4]
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi+4], edx
 
        inc     ebx
        add     edi, 8
        dec     [counter]
        jnz     @B
 
        add     [pAnd], 4
        mov     edi, [rBase]
        sub     edi, 128
        mov     [rBase], edi
        sub     [height], 1
        jnz     .l4
        ret
;--------------------------------------
align 4
.img_8:
        add     eax, [esi]
        mov     [pQuad], eax
        add     eax, 1024
        mov     [pBits], eax
        add     eax, 1024
        mov     [pAnd], eax
        mov     eax, [esi+4]
        mov     [width], eax
        mov     ebx, [esi+8]
        shr     ebx, 1
        mov     [height], ebx
 
        mov     edi, [dst]
        add     edi, 32*31*4
        mov     [rBase], edi
 
        mov     esi, [pQuad]
        mov     ebx, [pBits]
;--------------------------------------
align 4
.l81:
        mov     eax, [pAnd]
        mov     eax, [eax]
        bswap   eax
        mov     [counter], 32
;--------------------------------------
align 4
@@:
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        movzx   ecx, byte [ebx]
        mov     ecx, [esi+ecx*4]
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi], edx
 
        inc     ebx
        add     edi, 4
        dec     [counter]
        jnz     @B
 
        add     [pAnd], 4
        mov     edi, [rBase]
        sub     edi, 128
        mov     [rBase], edi
        sub     [height], 1
        jnz     .l81
        ret
;--------------------------------------
align 4
.img_24:
        add     eax, [esi]
        mov     [pQuad], eax
        add     eax, 0xC00
        mov     [pAnd], eax
        mov     eax, [esi+BITMAPINFOHEADER.Width]
        mov     [width], eax
        mov     ebx, [esi+BITMAPINFOHEADER.Height]
        shr     ebx, 1
        mov     [height], ebx
 
        mov     edi, [dst]
        add     edi, 32*31*4
        mov     [rBase], edi
 
        mov     esi, [pAnd]
        mov     ebx, [pQuad]
;--------------------------------------
align 4
.row_24:
        mov     eax, [esi]
        bswap   eax
        mov     [counter], 32
;--------------------------------------
align 4
@@:
        xor     edx, edx
        shl     eax, 1
        setc    dl
        dec     edx
 
        mov     ecx, [ebx]
        and     ecx, 0x00FFFFFF
        and     ecx, edx
        and     edx, 0xFF000000
        or      edx, ecx
        mov     [edi], edx
        add     ebx, 3
        add     edi, 4
        dec     [counter]
        jnz     @B
 
        add     esi, 4
        mov     edi, [rBase]
        sub     edi, 128
        mov     [rBase], edi
        sub     [height], 1
        jnz     .row_24
        ret
endp
;------------------------------------------------------------------------------
align 4
proc set_cursor stdcall, hcursor:dword
        mov     eax, [hcursor]
        cmp     [eax+CURSOR.magic], 'CURS'
        jne     .fail
;           cmp [eax+CURSOR.size], CURSOR_SIZE
;           jne .fail
        mov     ebx, [current_slot]
        xchg    eax, [ebx+APPDATA.cursor]
        jmp     .end
;--------------------------------------
align 4
.fail:
        mov     eax, [def_cursor]
        mov     ebx, [current_slot]
        xchg    eax, [ebx+APPDATA.cursor]
align 4
.end:
        mov     [redrawmouse_unconditional], 1
        call    __sys_draw_pointer
        ret
endp
;------------------------------------------------------------------------------
align 4
; param
;  eax= pid
;  ebx= src
;  ecx= flags
 
create_cursor:
.src     equ esp
.flags   equ esp+4
.hcursor equ esp+8
 
        sub     esp, 4         ;space for .hcursor
        push    ecx
        push    ebx
 
        mov     ebx, eax
        mov     eax, sizeof.CURSOR
        call    create_kernel_object
        test    eax, eax
        jz      .fail
 
        mov     [.hcursor], eax
 
        xor     ebx, ebx
        mov     [eax+CURSOR.magic], 'CURS'
        mov     [eax+CURSOR.destroy], destroy_cursor
        mov     [eax+CURSOR.hot_x], ebx
        mov     [eax+CURSOR.hot_y], ebx
 
        stdcall kernel_alloc, 0x1000
        test    eax, eax
        jz      .fail
 
        mov     edi, [.hcursor]
        mov     [edi+CURSOR.base], eax
 
        mov     esi, [.src]
        mov     ebx, [.flags]
        cmp     bx, LOAD_INDIRECT
        je      .indirect
 
        movzx   ecx, word [esi+10]
        movzx   edx, word [esi+12]
        mov     [edi+CURSOR.hot_x], ecx
        mov     [edi+CURSOR.hot_y], edx
 
        stdcall init_cursor, eax, esi
 
align 4
.add_cursor:
        mov     ecx, [.hcursor]
        lea     ecx, [ecx+CURSOR.list_next]
        lea     edx, [_display.cr_list.next]
 
        pushfd
        cli
        list_add ecx, edx   ;list_add_tail(new, head)
        popfd
 
        mov     eax, [.hcursor]
        cmp     [_display.init_cursor], 0
        je      .fail
 
        push    eax
        call    [_display.init_cursor]
        add     esp, 4
 
        mov     eax, [.hcursor]
;--------------------------------------
align 4
.fail:
        add     esp, 12
        ret
;--------------------------------------
align 4
.indirect:
        shr     ebx, 16
        movzx   ecx, bh
        movzx   edx, bl
        mov     [edi+CURSOR.hot_x], ecx
        mov     [edi+CURSOR.hot_y], edx
 
        xchg    edi, eax
        mov     ecx, 1024
        cld
        rep movsd
        jmp     .add_cursor
;------------------------------------------------------------------------------
align 4
proc load_cursor stdcall, src:dword, flags:dword
           locals
             handle  dd ?
           endl
 
        xor     eax, eax
        cmp     [create_cursor], eax
        je      .fail2
 
        mov     [handle], eax
        cmp     word [flags], LOAD_FROM_FILE
        jne     @F
 
        stdcall load_file, [src]
        test    eax, eax
        jz      .fail
        mov     [src], eax
;--------------------------------------
align 4
@@:
        push    ebx
        push    esi
        push    edi
 
        mov     eax, [CURRENT_TASK]
        shl     eax, 5
        mov     eax, [CURRENT_TASK+eax+4]
        mov     ebx, [src]
        mov     ecx, [flags]
        call    create_cursor    ;eax, ebx, ecx
        mov     [handle], eax
 
        cmp     word [flags], LOAD_FROM_FILE
        jne     .exit
        stdcall kernel_free, [src]
;--------------------------------------
align 4
.exit:
        pop     edi
        pop     esi
        pop     ebx
;--------------------------------------
align 4
.fail:
        mov     eax, [handle]
;--------------------------------------
align 4
.fail2:
        ret
endp
;------------------------------------------------------------------------------
align 4
proc delete_cursor stdcall, hcursor:dword
 
;        DEBUGF 1,'K : delete_cursor %x\n', [hcursor]
 
        mov     esi, [hcursor]
 
        cmp     [esi+CURSOR.magic], 'CURS'
        jne     .fail
 
        mov     ebx, [CURRENT_TASK]
        shl     ebx, 5
        mov     ebx, [CURRENT_TASK+ebx+4]
        cmp     ebx, [esi+CURSOR.pid]
        jne     .fail
 
        mov     ebx, [current_slot]
        cmp     esi, [ebx+APPDATA.cursor]
        jne     @F
        mov     eax, [def_cursor]
        mov     [ebx+APPDATA.cursor], eax
;--------------------------------------
align 4
@@:
        mov     eax, [hcursor]
        call    [eax+APPOBJ.destroy]
;--------------------------------------
align 4
.fail:
        ret
endp
;------------------------------------------------------------------------------
align 4
; param
;  eax= cursor
destroy_cursor:
 
        push    eax
        stdcall kernel_free, [eax+CURSOR.base]
 
        mov     eax, [esp]
        lea     eax, [eax+CURSOR.list_next]
 
        pushfd
        cli
        list_del eax
        popfd
 
        pop     eax
        call    destroy_kernel_object
        ret
;------------------------------------------------------------------------------
align 4
select_cursor:
        mov     eax, [esp+4]
        mov     [_display.cursor], eax
        ret     4
;------------------------------------------------------------------------------
align 4
proc restore_24 stdcall, x:dword, y:dword
 
        push    ebx
 
        mov     ebx, [cur_saved_base]
        mov     edx, [cur.h]
        test    edx, edx
        jz      .ret
 
        push    esi
        push    edi
 
        mov     esi, cur_saved_data
        mov     ecx, [cur.w]
        lea     ecx, [ecx+ecx*2]
        push    ecx
;--------------------------------------
align 4
@@:
        mov     edi, ebx
        add     ebx, [_display.lfb_pitch]
 
        mov     ecx, [esp]
        rep movsb
        dec     edx
        jnz     @B
 
        pop     ecx
        pop     edi
        pop     esi
;--------------------------------------
align 4
.ret:
        pop     ebx
        ret
endp
;------------------------------------------------------------------------------
align 4
proc restore_32 stdcall, x:dword, y:dword
 
        push    ebx
 
        mov     ebx, [cur_saved_base]
        mov     edx, [cur.h]
        test    edx, edx
        jz      .ret
 
        push    esi
        push    edi
 
        mov     esi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     edi, ebx
        add     ebx, [_display.lfb_pitch]
 
        mov     ecx, [cur.w]
        rep movsd
        dec     edx
        jnz     @B
 
        pop     edi
        pop     esi
 
;--------------------------------------
align 4
.ret:
        pop     ebx
        ret
endp
;------------------------------------------------------------------------------
align 4
proc restore_16 stdcall, x:dword, y:dword
 
        push    ebx
 
        mov     ebx, [cur_saved_base]
        mov     edx, [cur.h]
        test    edx, edx
        jz      .ret
 
        push    esi
        push    edi
 
        mov     esi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     edi, ebx
        add     ebx, [_display.lfb_pitch]
 
        mov     ecx, [cur.w]
        rep movsw
        dec     edx
        jnz     @B
 
        pop     edi
        pop     esi
 
;--------------------------------------
align 4
.ret:
        pop     ebx
        ret
endp
;------------------------------------------------------------------------------
align 4
proc move_cursor_24 stdcall, hcursor:dword, x:dword, y:dword
           locals
             h      dd ?
             _dx     dd ?
             _dy     dd ?
           endl
 
        mov     esi, [hcursor]
        mov     ecx, [x]
        mov     eax, [y]
;        mov     ebx, [BytesPerScanLine]
 
        xor     edx, edx
        sub     ecx, [esi+CURSOR.hot_x]
        lea     ebx, [ecx+32-1]
        mov     [x], ecx
        sets    dl
        dec     edx
        and     ecx, edx      ;clip x to 0<=x
        mov     [cur.left], ecx
        mov     edi, ecx
        sub     edi, [x]
        mov     [_dx], edi
 
        xor     edx, edx
        sub     eax, [esi+CURSOR.hot_y]
        lea     edi, [eax+32-1]
        mov     [y], eax
        sets    dl
        dec     edx
        and     eax, edx      ;clip y to 0<=y
        mov     [cur.top], eax
        mov     edx, eax
        sub     edx, [y]
        mov     [_dy], edx
 
;        mul     dword [BytesPerScanLine]
        mov     eax, [BPSLine_calc_area+eax*4]
        lea     edx, [LFB_BASE+ecx*3]
        add     edx, eax
        mov     [cur_saved_base], edx
 
        cmp     ebx, [_display.width]
        jb      @F
        mov     ebx, [_display.width]
;--------------------------------------
align 4
@@:
        cmp     edi, [_display.height]
        jb      @F
        mov     edi, [_display.height]
;--------------------------------------
align 4
@@:
 
        sub     ebx, [x]
        sub     edi, [y]
        sub     ebx, [_dx]
        sub     edi, [_dy]
 
        mov     [cur.w], ebx
        mov     [cur.h], edi
        mov     [h], edi
 
        mov     eax, edi
        mov     edi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     esi, edx
        add     edx, [_display.lfb_pitch]
        mov     ecx, [cur.w]
        lea     ecx, [ecx+ecx*2]
        rep movsb
        dec     eax
        jnz     @B
 
;draw cursor
        mov     ebx, [cur_saved_base]
        mov     eax, [_dy]
        shl     eax, 5
        add     eax, [_dx]
 
        mov     esi, [hcursor]
        mov     esi, [esi+CURSOR.base]
        lea     edx, [esi+eax*4]
;--------------------------------------
align 4
.row:
        mov     ecx, [cur.w]
        mov     esi, edx
        mov     edi, ebx
        add     edx, 32*4
        add     ebx, [_display.lfb_pitch]
;--------------------------------------
align 4
.pix:
        lodsd
        test    eax, 0xFF000000
        jz      @F
        mov     [edi], ax
        shr     eax, 16
        mov     [edi+2], al
;--------------------------------------
align 4
@@:
        add     edi, 3
        dec     ecx
        jnz     .pix
 
        dec     [h]
        jnz     .row
        ret
endp
;------------------------------------------------------------------------------
align 4
proc move_cursor_32 stdcall, hcursor:dword, x:dword, y:dword
           locals
             h      dd ?
             _dx     dd ?
             _dy     dd ?
           endl
 
        mov     esi, [hcursor]
        mov     ecx, [x]
        mov     eax, [y]
 
        xor     edx, edx
        sub     ecx, [esi+CURSOR.hot_x]
        lea     ebx, [ecx+32-1]
        mov     [x], ecx
        sets    dl
        dec     edx
        and     ecx, edx      ;clip x to 0<=x
        mov     [cur.left], ecx
        mov     edi, ecx
        sub     edi, [x]
        mov     [_dx], edi
 
        xor     edx, edx
        sub     eax, [esi+CURSOR.hot_y]
        lea     edi, [eax+32-1]
        mov     [y], eax
        sets    dl
        dec     edx
        and     eax, edx      ;clip y to 0<=y
        mov     [cur.top], eax
        mov     edx, eax
        sub     edx, [y]
        mov     [_dy], edx
 
;        mul     dword [BytesPerScanLine]
        mov     eax, [BPSLine_calc_area+eax*4]
        lea     edx, [LFB_BASE+eax+ecx*4]
        mov     [cur_saved_base], edx
 
        cmp     ebx, [_display.width]
        jb      @F
        mov     ebx, [_display.width]
;--------------------------------------
align 4
@@:
        cmp     edi, [_display.height]
        jb      @F
        mov     edi, [_display.height]
;--------------------------------------
align 4
@@:
        sub     ebx, [x]
        sub     edi, [y]
        sub     ebx, [_dx]
        sub     edi, [_dy]
 
        mov     [cur.w], ebx
        mov     [cur.h], edi
        mov     [h], edi
 
        mov     eax, edi
        mov     edi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     esi, edx
        add     edx, [_display.lfb_pitch]
        mov     ecx, [cur.w]
        rep movsd
        dec     eax
        jnz     @B
 
;draw cursor
        mov     ebx, [cur_saved_base]
        mov     eax, [_dy]
        shl     eax, 5
        add     eax, [_dx]
 
        mov     esi, [hcursor]
        mov     esi, [esi+CURSOR.base]
        lea     edx, [esi+eax*4]
;--------------------------------------
align 4
.row:
        mov     ecx, [cur.w]
        mov     esi, edx
        mov     edi, ebx
        add     edx, 32*4
        add     ebx, [_display.lfb_pitch]
;--------------------------------------
align 4
.pix:
        lodsd
        test    eax, 0xFF000000
        jz      @F
        mov     [edi], eax
;--------------------------------------
align 4
@@:
        add     edi, 4
        dec     ecx
        jnz     .pix
 
        dec     [h]
        jnz     .row
        ret
endp
;------------------------------------------------------------------------------
align 4
proc move_cursor_16 stdcall, hcursor:dword, x:dword, y:dword
           locals
             h      dd ?
             _dx     dd ?
             _dy     dd ?
           endl
 
        mov     esi, [hcursor]
        mov     ecx, [x]
        mov     eax, [y]
 
        xor     edx, edx
        sub     ecx, [esi+CURSOR.hot_x]
        lea     ebx, [ecx+32-1]
        mov     [x], ecx
        sets    dl
        dec     edx
        and     ecx, edx      ;clip x to 0<=x
        mov     [cur.left], ecx
        mov     edi, ecx
        sub     edi, [x]
        mov     [_dx], edi
 
        xor     edx, edx
        sub     eax, [esi+CURSOR.hot_y]
        lea     edi, [eax+32-1]
        mov     [y], eax
        sets    dl
        dec     edx
        and     eax, edx      ;clip y to 0<=y
        mov     [cur.top], eax
        mov     edx, eax
        sub     edx, [y]
        mov     [_dy], edx
 
;        mul     dword [BytesPerScanLine]
        mov     eax, [BPSLine_calc_area+eax*4]
        lea     edx, [LFB_BASE+eax+ecx*2]
        mov     [cur_saved_base], edx
 
        cmp     ebx, [_display.width]
        jb      @F
        mov     ebx, [_display.width]
;--------------------------------------
align 4
@@:
        cmp     edi, [_display.height]
        jb      @F
        mov     edi, [_display.height]
;--------------------------------------
align 4
@@:
        sub     ebx, [x]
        sub     edi, [y]
        sub     ebx, [_dx]
        sub     edi, [_dy]
 
        mov     [cur.w], ebx
        mov     [cur.h], edi
        mov     [h], edi
 
        mov     eax, edi
        mov     edi, cur_saved_data
;--------------------------------------
align 4
@@:
        mov     esi, edx
        add     edx, [_display.lfb_pitch]
        mov     ecx, [cur.w]
 
        rep movsw
        dec     eax
        jnz     @B
 
;draw cursor
        mov     ebx, [cur_saved_base]
        mov     eax, [_dy]
        shl     eax, 5
        add     eax, [_dx]
 
        mov     esi, [hcursor]
        mov     esi, [esi+CURSOR.base]
        lea     edx, [esi+eax*4]
;--------------------------------------
align 4
.row:
        mov     ecx, [cur.w]
        mov     esi, edx
        mov     edi, ebx
        add     edx, 32*4
        add     ebx, [_display.lfb_pitch]
;--------------------------------------
align 4
.pix:
        lodsd
        test    eax, 0xFF000000
        jz      @F
; convert to 16 bpp and store to real LFB
        and     eax, 00000000111110001111110011111000b
        shr     ah, 2
        shr     ax, 3
        ror     eax, 8
        add     al, ah
        rol     eax, 8
        mov     [edi], ax
;--------------------------------------
align 4
@@:
        add     edi, 2
        dec     ecx
        jnz     .pix
 
        dec     [h]
        jnz     .row
        ret
endp
;------------------------------------------------------------------------------
align 4
check_mouse_area_for_getpixel_new:
; in:
; eax = x
; ebx = y
; out:
; ecx = new color
;--------------------------------------
; check for Y
        cmp     bx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      .no_mouse_area
 
        cmp     bx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     .no_mouse_area
;--------------------------------------
; check for X
        cmp     ax, [X_UNDER_subtraction_CUR_hot_x]
        jb      .no_mouse_area
 
        cmp     ax, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     .no_mouse_area
;--------------------------------------
        push    eax ebx
; offset X
        movzx   ecx, word [X_UNDER_subtraction_CUR_hot_x]
        sub     eax, ecx        ; x1
; offset Y
        movzx   ecx, word [Y_UNDER_subtraction_CUR_hot_y]
        sub     ebx, ecx        ; y1
;--------------------------------------
; ebx = offset y
; eax = offset x
        imul    ebx, [cur.w]     ;y
        add     eax, ebx
        mov     ebx, eax
        shl     eax, 2
        cmp     byte [_display.bits_per_pixel], 32
        je      @f
        sub     eax, ebx
        cmp     byte [_display.bits_per_pixel], 24
        je      @f
        sub     eax, ebx
        add     eax, cur_saved_data
        mov     ecx, [eax]
        shl     ecx, 3
        ror     ecx, 8
        shl     cx, 2
        ror     ecx, 8
        shl     cl, 3
        rol     ecx, 16
        or      ecx, 0xff000000
        pop     ebx eax
        ret
 
;--------------------------------------
align 4
@@:
        add     eax, cur_saved_data
        mov     ecx, [eax]
 
        or      ecx, 0xff000000
        pop     ebx eax
        ret
;--------------------------------------
align 4
.no_mouse_area:
        xor     ecx, ecx
        ret
;-----------------------------------------------------------------------------
align 4
check_mouse_area_for_putpixel_new:
; in:
; ecx = x shl 16 + y
; eax = color
; out:
; eax = new color
;--------------------------------------
; check for Y
        cmp     cx, [Y_UNDER_sub_CUR_hot_y_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [Y_UNDER_subtraction_CUR_hot_y]
        jb      .no_mouse_area
 
        rol     ecx, 16
;--------------------------------------
; check for X
        cmp     cx, [X_UNDER_sub_CUR_hot_x_add_curh]
        jae     .no_mouse_area
 
        sub     cx, [X_UNDER_subtraction_CUR_hot_x]
        jb      .no_mouse_area
 
        ror     ecx, 16
;--------------------------------------
align 4
.1:
        push    eax
;--------------------------------------
; ecx = (offset x) shl 16 + (offset y)
        push    ebx
        mov     ebx, ecx
        shr     ebx, 16        ; x
        and     ecx, 0xffff    ; y
 
        cmp     ecx, [cur.h]
        jae     @f
 
        cmp     ebx, [cur.w]
        jb      .ok
;--------------------------------------
align 4
@@:
;        DEBUGF  1, "K : SHIT HAPPENS: %x %x \n", ecx,ebx
        pop     ebx
        jmp     .sh   ; SORRY! SHIT HAPPENS!
;--------------------------------------
align 4
.ok:
; ecx = offset y
; ebx = offset x
        push    ebx ecx
        imul    ecx, [cur.w]    ;y
        add     ecx, ebx
        mov     ebx, ecx
        shl     ecx, 2
        cmp     byte [_display.bits_per_pixel], 16
        je      .16
        cmp     byte [_display.bits_per_pixel], 24
        je      .24
        and     eax, 0xFFFFFF
        mov     [ecx + cur_saved_data], eax   ;store new color  to
        jmp     @f
;--------------------------------------
align 4
.16:
        sub     ecx, ebx
        sub     ecx, ebx
; convert to 16 bpp and store to real LFB
        and     eax, 00000000111110001111110011111000b
        shr     ah, 2
        shr     ax, 3
        ror     eax, 8
        add     al, ah
        rol     eax, 8
        mov     [ecx + cur_saved_data], ax      ;store new color  to
        jmp     @f
;--------------------------------------
align 4
.24:
        sub     ecx, ebx
        mov     [ecx + cur_saved_data], ax      ;store new color  to
        shr     eax, 16
        mov     [ecx + cur_saved_data + 2], al  ;store new color  to
;--------------------------------------
align 4
@@:
        pop     ecx ebx
 
        shl     ecx, 5
        add     ecx, ebx
 
        mov     eax, [current_cursor]
        mov     eax, [eax+CURSOR.base]
        lea     eax, [eax+ecx*4]
        mov     eax, [eax]
 
        pop     ebx
 
        test    eax, 0xFF000000
        jz      @f
 
        add     esp, 4
        ret
;--------------------------------------
align 4
.sh:
        mov     ecx, -1
;--------------------------------------
align 4
@@:
        pop     eax
;--------------------------------------
align 4
.no_mouse_area:
        ret
;------------------------------------------------------------------------------
align 4
get_display:
        mov     eax, _display
        ret
;------------------------------------------------------------------------------
align 4
init_display:
        xor     eax, eax
        mov     edi, _display
 
        mov     [edi+display_t.init_cursor], eax
        mov     [edi+display_t.select_cursor], eax
        mov     [edi+display_t.show_cursor], eax
        mov     [edi+display_t.move_cursor], eax
        mov     [edi+display_t.restore_cursor], eax
 
        lea     ecx, [edi+display_t.cr_list.next]
        mov     [edi+display_t.cr_list.next], ecx
        mov     [edi+display_t.cr_list.prev], ecx
 
        cmp     [SCR_MODE], word 0x13
        jbe     .fail
 
        test    word [SCR_MODE], 0x4000
        jz      .fail
 
        mov     ebx, restore_32
        mov     ecx, move_cursor_32
        mov     edx, Vesa20_putpixel32_new
        mov     eax, [_display.bits_per_pixel]
        cmp     al, 32
        jne     .not_32bpp
 
.set:
        mov     [_display.select_cursor], select_cursor
        mov     [_display.move_cursor], ecx
        mov     [_display.restore_cursor], ebx
        mov     [_display.check_mouse], check_mouse_area_for_putpixel_new
        mov     [_display.check_m_pixel], check_mouse_area_for_getpixel_new
 
        cmp     [PUTPIXEL], dword VGA_putpixel
        je      @f
        mov     [PUTPIXEL], edx
@@:
        stdcall load_cursor, clock_arrow, dword LOAD_FROM_MEM
        mov     [def_cursor_clock], eax
        stdcall load_cursor, def_arrow, dword LOAD_FROM_MEM
        mov     [def_cursor], eax
        ret
 
.not_32bpp:
        cmp     al, 24
        jne     .not_24bpp
 
        mov     ebx, restore_24
        mov     ecx, move_cursor_24
        mov     edx, Vesa20_putpixel24_new
        jmp     .set
 
.not_24bpp:
        cmp     al, 16
        jne     .not_16bpp
        mov     ebx, restore_16
        mov     ecx, move_cursor_16
        mov     edx, Vesa20_putpixel16_new
        jmp     .set
 
.not_16bpp:
;        cmp     al, 15
;        jne     .fail
;        mov     ebx, restore_15
;        mov     ecx, move_cursor_15
;        mov     edx, Vesa20_putpixel15_new
;        jmp     .set
 
.fail:
        xor     eax, eax
        mov     [_display.select_cursor], eax
        mov     [_display.move_cursor], eax
        ret
;------------------------------------------------------------------------------
align 4
def_arrow:
  file 'arrow.cur'
;------------------------------------------------------------------------------
align 4
clock_arrow:
  file 'arrow_clock.cur'
;------------------------------------------------------------------------------
>
>
>
>
>
>

Rev 7136	Rev 7510
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;	3	;; Copyright (C) KolibriOS team 2004-2018. All rights reserved. ;;
4	;; Distributed under terms of the GNU General Public License ;;	4	;; Distributed under terms of the GNU General Public License ;;
5	;; ;;	5	;; ;;
6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7		7
8	$Revision: 7136 $	8	$Revision: 7510 $
9		9
10		10
11	LOAD_FROM_FILE = 0	11	LOAD_FROM_FILE = 0
12	LOAD_FROM_MEM = 1	12	LOAD_FROM_MEM = 1
13	LOAD_INDIRECT = 2	13	LOAD_INDIRECT = 2
14	LOAD_SYSTEM = 3	14	LOAD_SYSTEM = 3
15		15
16	struct BITMAPINFOHEADER	16	struct BITMAPINFOHEADER
17	Size dd ?	17	Size dd ?
18	Width dd ?	18	Width dd ?
19	Height dd ?	19	Height dd ?
20	Planes dw ?	20	Planes dw ?
21	BitCount dw ?	21	BitCount dw ?
22	Compression dd ?	22	Compression dd ?
23	SizeImage dd ?	23	SizeImage dd ?
24	XPelsPerMeter dd ?	24	XPelsPerMeter dd ?
25	YPelsPerMeter dd ?	25	YPelsPerMeter dd ?
26	ClrUsed dd ?	26	ClrUsed dd ?
27	ClrImportant dd ?	27	ClrImportant dd ?
28	ends	28	ends
29	;------------------------------------------------------------------------------	29	;------------------------------------------------------------------------------
30	align 4	30	align 4
31	proc init_cursor stdcall, dst:dword, src:dword	31	proc init_cursor stdcall, dst:dword, src:dword
32	locals	32	locals
33	rBase dd ?	33	rBase dd ?
34	pQuad dd ?	34	pQuad dd ?
35	pBits dd ?	35	pBits dd ?
36	pAnd dd ?	36	pAnd dd ?
37	width dd ?	37	width dd ?
38	height dd ?	38	height dd ?
39	counter dd ?	39	counter dd ?
40	endl	40	endl
41		41
42	mov esi, [src]	42	mov esi, [src]
43	add esi, [esi+18]	43	add esi, [esi+18]
44	mov eax, esi	44	mov eax, esi
45		45
46	cmp [esi+BITMAPINFOHEADER.BitCount], 24	46	cmp [esi+BITMAPINFOHEADER.BitCount], 24
47	je .img_24	47	je .img_24
48	cmp [esi+BITMAPINFOHEADER.BitCount], 8	48	cmp [esi+BITMAPINFOHEADER.BitCount], 8
49	je .img_8	49	je .img_8
50	cmp [esi+BITMAPINFOHEADER.BitCount], 4	50	cmp [esi+BITMAPINFOHEADER.BitCount], 4
51	je .img_4	51	je .img_4
52	;--------------------------------------	52	;--------------------------------------
53	align 4	53	align 4
54	.img_2:	54	.img_2:
55	add eax, [esi]	55	add eax, [esi]
56	mov [pQuad], eax	56	mov [pQuad], eax
57	add eax, 8	57	add eax, 8
58	mov [pBits], eax	58	mov [pBits], eax
59	add eax, 128	59	add eax, 128
60	mov [pAnd], eax	60	mov [pAnd], eax
61	mov eax, [esi+4]	61	mov eax, [esi+4]
62	mov [width], eax	62	mov [width], eax
63	mov ebx, [esi+8]	63	mov ebx, [esi+8]
64	shr ebx, 1	64	shr ebx, 1
65	mov [height], ebx	65	mov [height], ebx
66		66
67	mov edi, [dst]	67	mov edi, [dst]
68	add edi, 32314	68	add edi, 32314
69	mov [rBase], edi	69	mov [rBase], edi
70		70
71	mov esi, [pQuad]	71	mov esi, [pQuad]
72	;--------------------------------------	72	;--------------------------------------
73	align 4	73	align 4
74	.l21:	74	.l21:
75	mov ebx, [pBits]	75	mov ebx, [pBits]
76	mov ebx, [ebx]	76	mov ebx, [ebx]
77	bswap ebx	77	bswap ebx
78	mov eax, [pAnd]	78	mov eax, [pAnd]
79	mov eax, [eax]	79	mov eax, [eax]
80	bswap eax	80	bswap eax
81	mov [counter], 32	81	mov [counter], 32
82	;--------------------------------------	82	;--------------------------------------
83	align 4	83	align 4
84	@@:	84	@@:
85	xor edx, edx	85	xor edx, edx
86	shl eax, 1	86	shl eax, 1
87	setc dl	87	setc dl
88	dec edx	88	dec edx
89		89
90	xor ecx, ecx	90	xor ecx, ecx
91	shl ebx, 1	91	shl ebx, 1
92	setc cl	92	setc cl
93	mov ecx, [esi+ecx*4]	93	mov ecx, [esi+ecx*4]
94	and ecx, edx	94	and ecx, edx
95	and edx, 0xFF000000	95	and edx, 0xFF000000
96	or edx, ecx	96	or edx, ecx
97	mov [edi], edx	97	mov [edi], edx
98		98
99	add edi, 4	99	add edi, 4
100	dec [counter]	100	dec [counter]
101	jnz @B	101	jnz @B
102		102
103	add [pBits], 4	103	add [pBits], 4
104	add [pAnd], 4	104	add [pAnd], 4
105	mov edi, [rBase]	105	mov edi, [rBase]
106	sub edi, 128	106	sub edi, 128
107	mov [rBase], edi	107	mov [rBase], edi
108	sub [height], 1	108	sub [height], 1
109	jnz .l21	109	jnz .l21
110	ret	110	ret
111	;--------------------------------------	111	;--------------------------------------
112	align 4	112	align 4
113	.img_4:	113	.img_4:
114	add eax, [esi]	114	add eax, [esi]
115	mov [pQuad], eax	115	mov [pQuad], eax
116	add eax, 64	116	add eax, 64
117	mov [pBits], eax	117	mov [pBits], eax
118	add eax, 0x200	118	add eax, 0x200
119	mov [pAnd], eax	119	mov [pAnd], eax
120	mov eax, [esi+4]	120	mov eax, [esi+4]
121	mov [width], eax	121	mov [width], eax
122	mov ebx, [esi+8]	122	mov ebx, [esi+8]
123	shr ebx, 1	123	shr ebx, 1
124	mov [height], ebx	124	mov [height], ebx
125		125
126	mov edi, [dst]	126	mov edi, [dst]
127	add edi, 32314	127	add edi, 32314
128	mov [rBase], edi	128	mov [rBase], edi
129		129
130	mov esi, [pQuad]	130	mov esi, [pQuad]
131	mov ebx, [pBits]	131	mov ebx, [pBits]
132	;--------------------------------------	132	;--------------------------------------
133	align 4	133	align 4
134	.l4:	134	.l4:
135	mov eax, [pAnd]	135	mov eax, [pAnd]
136	mov eax, [eax]	136	mov eax, [eax]
137	bswap eax	137	bswap eax
138	mov [counter], 16	138	mov [counter], 16
139	;--------------------------------------	139	;--------------------------------------
140	align 4	140	align 4
141	@@:	141	@@:
142	xor edx, edx	142	xor edx, edx
143	shl eax, 1	143	shl eax, 1
144	setc dl	144	setc dl
145	dec edx	145	dec edx
146		146
147	movzx ecx, byte [ebx]	147	movzx ecx, byte [ebx]
148	and cl, 0xF0	148	and cl, 0xF0
149	shr ecx, 2	149	shr ecx, 2
150	mov ecx, [esi+ecx]	150	mov ecx, [esi+ecx]
151	and ecx, edx	151	and ecx, edx
152	and edx, 0xFF000000	152	and edx, 0xFF000000
153	or edx, ecx	153	or edx, ecx
154	mov [edi], edx	154	mov [edi], edx
155		155
156	xor edx, edx	156	xor edx, edx
157	shl eax, 1	157	shl eax, 1
158	setc dl	158	setc dl
159	dec edx	159	dec edx
160		160
161	movzx ecx, byte [ebx]	161	movzx ecx, byte [ebx]
162	and cl, 0x0F	162	and cl, 0x0F
163	mov ecx, [esi+ecx*4]	163	mov ecx, [esi+ecx*4]
164	and ecx, edx	164	and ecx, edx
165	and edx, 0xFF000000	165	and edx, 0xFF000000
166	or edx, ecx	166	or edx, ecx
167	mov [edi+4], edx	167	mov [edi+4], edx
168		168
169	inc ebx	169	inc ebx
170	add edi, 8	170	add edi, 8
171	dec [counter]	171	dec [counter]
172	jnz @B	172	jnz @B
173		173
174	add [pAnd], 4	174	add [pAnd], 4
175	mov edi, [rBase]	175	mov edi, [rBase]
176	sub edi, 128	176	sub edi, 128
177	mov [rBase], edi	177	mov [rBase], edi
178	sub [height], 1	178	sub [height], 1
179	jnz .l4	179	jnz .l4
180	ret	180	ret
181	;--------------------------------------	181	;--------------------------------------
182	align 4	182	align 4
183	.img_8:	183	.img_8:
184	add eax, [esi]	184	add eax, [esi]
185	mov [pQuad], eax	185	mov [pQuad], eax
186	add eax, 1024	186	add eax, 1024
187	mov [pBits], eax	187	mov [pBits], eax
188	add eax, 1024	188	add eax, 1024
189	mov [pAnd], eax	189	mov [pAnd], eax
190	mov eax, [esi+4]	190	mov eax, [esi+4]
191	mov [width], eax	191	mov [width], eax
192	mov ebx, [esi+8]	192	mov ebx, [esi+8]
193	shr ebx, 1	193	shr ebx, 1
194	mov [height], ebx	194	mov [height], ebx
195		195
196	mov edi, [dst]	196	mov edi, [dst]
197	add edi, 32314	197	add edi, 32314
198	mov [rBase], edi	198	mov [rBase], edi
199		199
200	mov esi, [pQuad]	200	mov esi, [pQuad]
201	mov ebx, [pBits]	201	mov ebx, [pBits]
202	;--------------------------------------	202	;--------------------------------------
203	align 4	203	align 4
204	.l81:	204	.l81:
205	mov eax, [pAnd]	205	mov eax, [pAnd]
206	mov eax, [eax]	206	mov eax, [eax]
207	bswap eax	207	bswap eax
208	mov [counter], 32	208	mov [counter], 32
209	;--------------------------------------	209	;--------------------------------------
210	align 4	210	align 4
211	@@:	211	@@:
212	xor edx, edx	212	xor edx, edx
213	shl eax, 1	213	shl eax, 1
214	setc dl	214	setc dl
215	dec edx	215	dec edx
216		216
217	movzx ecx, byte [ebx]	217	movzx ecx, byte [ebx]
218	mov ecx, [esi+ecx*4]	218	mov ecx, [esi+ecx*4]
219	and ecx, edx	219	and ecx, edx
220	and edx, 0xFF000000	220	and edx, 0xFF000000
221	or edx, ecx	221	or edx, ecx
222	mov [edi], edx	222	mov [edi], edx
223		223
224	inc ebx	224	inc ebx
225	add edi, 4	225	add edi, 4
226	dec [counter]	226	dec [counter]
227	jnz @B	227	jnz @B
228		228
229	add [pAnd], 4	229	add [pAnd], 4
230	mov edi, [rBase]	230	mov edi, [rBase]
231	sub edi, 128	231	sub edi, 128
232	mov [rBase], edi	232	mov [rBase], edi
233	sub [height], 1	233	sub [height], 1
234	jnz .l81	234	jnz .l81
235	ret	235	ret
236	;--------------------------------------	236	;--------------------------------------
237	align 4	237	align 4
238	.img_24:	238	.img_24:
239	add eax, [esi]	239	add eax, [esi]
240	mov [pQuad], eax	240	mov [pQuad], eax
241	add eax, 0xC00	241	add eax, 0xC00
242	mov [pAnd], eax	242	mov [pAnd], eax
243	mov eax, [esi+BITMAPINFOHEADER.Width]	243	mov eax, [esi+BITMAPINFOHEADER.Width]
244	mov [width], eax	244	mov [width], eax
245	mov ebx, [esi+BITMAPINFOHEADER.Height]	245	mov ebx, [esi+BITMAPINFOHEADER.Height]
246	shr ebx, 1	246	shr ebx, 1
247	mov [height], ebx	247	mov [height], ebx
248		248
249	mov edi, [dst]	249	mov edi, [dst]
250	add edi, 32314	250	add edi, 32314
251	mov [rBase], edi	251	mov [rBase], edi
252		252
253	mov esi, [pAnd]	253	mov esi, [pAnd]
254	mov ebx, [pQuad]	254	mov ebx, [pQuad]
255	;--------------------------------------	255	;--------------------------------------
256	align 4	256	align 4
257	.row_24:	257	.row_24:
258	mov eax, [esi]	258	mov eax, [esi]
259	bswap eax	259	bswap eax
260	mov [counter], 32	260	mov [counter], 32
261	;--------------------------------------	261	;--------------------------------------
262	align 4	262	align 4
263	@@:	263	@@:
264	xor edx, edx	264	xor edx, edx
265	shl eax, 1	265	shl eax, 1
266	setc dl	266	setc dl
267	dec edx	267	dec edx
268		268
269	mov ecx, [ebx]	269	mov ecx, [ebx]
270	and ecx, 0x00FFFFFF	270	and ecx, 0x00FFFFFF
271	and ecx, edx	271	and ecx, edx
272	and edx, 0xFF000000	272	and edx, 0xFF000000
273	or edx, ecx	273	or edx, ecx
274	mov [edi], edx	274	mov [edi], edx
275	add ebx, 3	275	add ebx, 3
276	add edi, 4	276	add edi, 4
277	dec [counter]	277	dec [counter]
278	jnz @B	278	jnz @B
279		279
280	add esi, 4	280	add esi, 4
281	mov edi, [rBase]	281	mov edi, [rBase]
282	sub edi, 128	282	sub edi, 128
283	mov [rBase], edi	283	mov [rBase], edi
284	sub [height], 1	284	sub [height], 1
285	jnz .row_24	285	jnz .row_24
286	ret	286	ret
287	endp	287	endp
288	;------------------------------------------------------------------------------	288	;------------------------------------------------------------------------------
289	align 4	289	align 4
290	proc set_cursor stdcall, hcursor:dword	290	proc set_cursor stdcall, hcursor:dword
291	mov eax, [hcursor]	291	mov eax, [hcursor]
292	cmp [eax+CURSOR.magic], 'CURS'	292	cmp [eax+CURSOR.magic], 'CURS'
293	jne .fail	293	jne .fail
294	; cmp [eax+CURSOR.size], CURSOR_SIZE	294	; cmp [eax+CURSOR.size], CURSOR_SIZE
295	; jne .fail	295	; jne .fail
296	mov ebx, [current_slot]	296	mov ebx, [current_slot]
297	xchg eax, [ebx+APPDATA.cursor]	297	xchg eax, [ebx+APPDATA.cursor]
298	jmp .end	298	jmp .end
299	;--------------------------------------	299	;--------------------------------------
300	align 4	300	align 4
301	.fail:	301	.fail:
302	mov eax, [def_cursor]	302	mov eax, [def_cursor]
303	mov ebx, [current_slot]	303	mov ebx, [current_slot]
304	xchg eax, [ebx+APPDATA.cursor]	304	xchg eax, [ebx+APPDATA.cursor]
305	align 4	305	align 4
306	.end:	306	.end:
307	mov [redrawmouse_unconditional], 1	307	mov [redrawmouse_unconditional], 1
308	call __sys_draw_pointer	308	call __sys_draw_pointer
309	ret	309	ret
310	endp	310	endp
311	;------------------------------------------------------------------------------	311	;------------------------------------------------------------------------------
312	align 4	312	align 4
313	; param	313	; param
314	; eax= pid	314	; eax= pid
315	; ebx= src	315	; ebx= src
316	; ecx= flags	316	; ecx= flags
317		317
318	create_cursor:	318	create_cursor:
319	.src equ esp	319	.src equ esp
320	.flags equ esp+4	320	.flags equ esp+4
321	.hcursor equ esp+8	321	.hcursor equ esp+8
322		322
323	sub esp, 4 ;space for .hcursor	323	sub esp, 4 ;space for .hcursor
324	push ecx	324	push ecx
325	push ebx	325	push ebx
326		326
327	mov ebx, eax	327	mov ebx, eax
328	mov eax, sizeof.CURSOR	328	mov eax, sizeof.CURSOR
329	call create_kernel_object	329	call create_kernel_object
330	test eax, eax	330	test eax, eax
331	jz .fail	331	jz .fail
332		332
333	mov [.hcursor], eax	333	mov [.hcursor], eax
334		334
335	xor ebx, ebx	335	xor ebx, ebx
336	mov [eax+CURSOR.magic], 'CURS'	336	mov [eax+CURSOR.magic], 'CURS'
337	mov [eax+CURSOR.destroy], destroy_cursor	337	mov [eax+CURSOR.destroy], destroy_cursor
338	mov [eax+CURSOR.hot_x], ebx	338	mov [eax+CURSOR.hot_x], ebx
339	mov [eax+CURSOR.hot_y], ebx	339	mov [eax+CURSOR.hot_y], ebx
340		340
341	stdcall kernel_alloc, 0x1000	341	stdcall kernel_alloc, 0x1000
342	test eax, eax	342	test eax, eax
343	jz .fail	343	jz .fail
344		344
345	mov edi, [.hcursor]	345	mov edi, [.hcursor]
346	mov [edi+CURSOR.base], eax	346	mov [edi+CURSOR.base], eax
347		347
348	mov esi, [.src]	348	mov esi, [.src]
349	mov ebx, [.flags]	349	mov ebx, [.flags]
350	cmp bx, LOAD_INDIRECT	350	cmp bx, LOAD_INDIRECT
351	je .indirect	351	je .indirect
352		352
353	movzx ecx, word [esi+10]	353	movzx ecx, word [esi+10]
354	movzx edx, word [esi+12]	354	movzx edx, word [esi+12]
355	mov [edi+CURSOR.hot_x], ecx	355	mov [edi+CURSOR.hot_x], ecx
356	mov [edi+CURSOR.hot_y], edx	356	mov [edi+CURSOR.hot_y], edx
357		357
358	stdcall init_cursor, eax, esi	358	stdcall init_cursor, eax, esi
359		359
360	align 4	360	align 4
361	.add_cursor:	361	.add_cursor:
362	mov ecx, [.hcursor]	362	mov ecx, [.hcursor]
363	lea ecx, [ecx+CURSOR.list_next]	363	lea ecx, [ecx+CURSOR.list_next]
364	lea edx, [_display.cr_list.next]	364	lea edx, [_display.cr_list.next]
365		365
366	pushfd	366	pushfd
367	cli	367	cli
368	list_add ecx, edx ;list_add_tail(new, head)	368	list_add ecx, edx ;list_add_tail(new, head)
369	popfd	369	popfd
370		370
371	mov eax, [.hcursor]	371	mov eax, [.hcursor]
372	cmp [_display.init_cursor], 0	372	cmp [_display.init_cursor], 0
373	je .fail	373	je .fail
374		374
375	push eax	375	push eax
376	call [_display.init_cursor]	376	call [_display.init_cursor]
377	add esp, 4	377	add esp, 4
378		378
379	mov eax, [.hcursor]	379	mov eax, [.hcursor]
380	;--------------------------------------	380	;--------------------------------------
381	align 4	381	align 4
382	.fail:	382	.fail:
383	add esp, 12	383	add esp, 12
384	ret	384	ret
385	;--------------------------------------	385	;--------------------------------------
386	align 4	386	align 4
387	.indirect:	387	.indirect:
388	shr ebx, 16	388	shr ebx, 16
389	movzx ecx, bh	389	movzx ecx, bh
390	movzx edx, bl	390	movzx edx, bl
391	mov [edi+CURSOR.hot_x], ecx	391	mov [edi+CURSOR.hot_x], ecx
392	mov [edi+CURSOR.hot_y], edx	392	mov [edi+CURSOR.hot_y], edx
393		393
394	xchg edi, eax	394	xchg edi, eax
395	mov ecx, 1024	395	mov ecx, 1024
396	cld	396	cld
397	rep movsd	397	rep movsd
398	jmp .add_cursor	398	jmp .add_cursor
399	;------------------------------------------------------------------------------	399	;------------------------------------------------------------------------------
400	align 4	400	align 4
401	proc load_cursor stdcall, src:dword, flags:dword	401	proc load_cursor stdcall, src:dword, flags:dword
402	locals	402	locals
403	handle dd ?	403	handle dd ?
404	endl	404	endl
405		405
406	xor eax, eax	406	xor eax, eax
407	cmp [create_cursor], eax	407	cmp [create_cursor], eax
408	je .fail2	408	je .fail2
409		409
410	mov [handle], eax	410	mov [handle], eax
411	cmp word [flags], LOAD_FROM_FILE	411	cmp word [flags], LOAD_FROM_FILE
412	jne @F	412	jne @F
413		413
414	stdcall load_file, [src]	414	stdcall load_file, [src]
415	test eax, eax	415	test eax, eax
416	jz .fail	416	jz .fail
417	mov [src], eax	417	mov [src], eax
418	;--------------------------------------	418	;--------------------------------------
419	align 4	419	align 4
420	@@:	420	@@:
421	push ebx	421	push ebx
422	push esi	422	push esi
423	push edi	423	push edi
424		424
425	mov eax, [CURRENT_TASK]	425	mov eax, [CURRENT_TASK]
426	shl eax, 5	426	shl eax, 5
427	mov eax, [CURRENT_TASK+eax+4]	427	mov eax, [CURRENT_TASK+eax+4]
428	mov ebx, [src]	428	mov ebx, [src]
429	mov ecx, [flags]	429	mov ecx, [flags]
430	call create_cursor ;eax, ebx, ecx	430	call create_cursor ;eax, ebx, ecx
431	mov [handle], eax	431	mov [handle], eax
432		432
433	cmp word [flags], LOAD_FROM_FILE	433	cmp word [flags], LOAD_FROM_FILE
434	jne .exit	434	jne .exit
435	stdcall kernel_free, [src]	435	stdcall kernel_free, [src]
436	;--------------------------------------	436	;--------------------------------------
437	align 4	437	align 4
438	.exit:	438	.exit:
439	pop edi	439	pop edi
440	pop esi	440	pop esi
441	pop ebx	441	pop ebx
442	;--------------------------------------	442	;--------------------------------------
443	align 4	443	align 4
444	.fail:	444	.fail:
445	mov eax, [handle]	445	mov eax, [handle]
446	;--------------------------------------	446	;--------------------------------------
447	align 4	447	align 4
448	.fail2:	448	.fail2:
449	ret	449	ret
450	endp	450	endp
451	;------------------------------------------------------------------------------	451	;------------------------------------------------------------------------------
452	align 4	452	align 4
453	proc delete_cursor stdcall, hcursor:dword	453	proc delete_cursor stdcall, hcursor:dword
454		454
455	; DEBUGF 1,'K : delete_cursor %x\n', [hcursor]	455	; DEBUGF 1,'K : delete_cursor %x\n', [hcursor]
456		456
457	mov esi, [hcursor]	457	mov esi, [hcursor]
458		458
459	cmp [esi+CURSOR.magic], 'CURS'	459	cmp [esi+CURSOR.magic], 'CURS'
460	jne .fail	460	jne .fail
461		461
462	mov ebx, [CURRENT_TASK]	462	mov ebx, [CURRENT_TASK]
463	shl ebx, 5	463	shl ebx, 5
464	mov ebx, [CURRENT_TASK+ebx+4]	464	mov ebx, [CURRENT_TASK+ebx+4]
465	cmp ebx, [esi+CURSOR.pid]	465	cmp ebx, [esi+CURSOR.pid]
466	jne .fail	466	jne .fail
467		467
468	mov ebx, [current_slot]	468	mov ebx, [current_slot]
469	cmp esi, [ebx+APPDATA.cursor]	469	cmp esi, [ebx+APPDATA.cursor]
470	jne @F	470	jne @F
471	mov eax, [def_cursor]	471	mov eax, [def_cursor]
472	mov [ebx+APPDATA.cursor], eax	472	mov [ebx+APPDATA.cursor], eax
473	;--------------------------------------	473	;--------------------------------------
474	align 4	474	align 4
475	@@:	475	@@:
476	mov eax, [hcursor]	476	mov eax, [hcursor]
477	call [eax+APPOBJ.destroy]	477	call [eax+APPOBJ.destroy]
478	;--------------------------------------	478	;--------------------------------------
479	align 4	479	align 4
480	.fail:	480	.fail:
481	ret	481	ret
482	endp	482	endp
483	;------------------------------------------------------------------------------	483	;------------------------------------------------------------------------------
484	align 4	484	align 4
485	; param	485	; param
486	; eax= cursor	486	; eax= cursor
487	destroy_cursor:	487	destroy_cursor:
488		488
489	push eax	489	push eax
490	stdcall kernel_free, [eax+CURSOR.base]	490	stdcall kernel_free, [eax+CURSOR.base]
491		491
492	mov eax, [esp]	492	mov eax, [esp]
493	lea eax, [eax+CURSOR.list_next]	493	lea eax, [eax+CURSOR.list_next]
494		494
495	pushfd	495	pushfd
496	cli	496	cli
497	list_del eax	497	list_del eax
498	popfd	498	popfd
499		499
500	pop eax	500	pop eax

Subversion Repositories Kolibri OS

(root)/kernel/trunk/video/cursors.inc – Rev 7136 → 7510