Subversion Repositories Kolibri OS

proc MovingWnd

local MySlot:DWORD

        mcall	40,0	;SetMaskMessage 000b

        mcall	12,1	;RedrawWinBeg

        mcall   14

        xor     ebx,ebx

        xor     ecx,ecx

        mov     cx,ax

        shr     eax,16

        mov     cx,ax

        dec     ebx

        dec     ecx

        mcall   0,,,01000000h

        ;mcall   0,IMG_SIZE,IMG_SIZE,01000000h

        mcall	12,2	;RedrawWinEnd

        mov     eax,[SelIcon]

        call    DrawIconToArea

        mcall   37,4,IconArea,10100002h

        push    eax

        test    eax,eax

        jz      @f

        mov     ecx,eax

        mcall   37,5

     @@:

        mcall   9,RBProcInfo,-1    ;+30

        mcall   18,21,dword[RBProcInfo+30]

        mov     [MySlot],eax

  .messages:

        cmp     [MovingActiv],1

        jne     .close

        mcall   18,7

        cmp     eax,[MySlot]

        je      @f

        mcall   18,3,[MySlot]

     @@:

        mcall	5,1	;Yield

        jmp     .messages

.close:

        pop     ecx

        test    ecx,ecx

        jz      @f

        mcall   37,6

     @@:

        mcall   -1

endp

;eax = NumIcon

proc DrawIconToArea  ;¯à¥¤­ §­ ç¥­ ¤«ï ¨ª®­®ª à §¬¥à®¬ = 32x32

        push    edi esi

        ;mov     eax,[NumIcon]

        mov     edi,[IconsOffs+eax*4]

        xor     al,al

        or      ecx,-1

        repne   scasb

        repne   scasb

        repne   scasb

        mov     al,[edi]

        cmp     al,'9'

        ja      .PathToIcon

        cmp     al,'/'

        jne     .GetIconInd

   .PathToIcon:

        mov     al,30h           ;§ £«ã誠!!!!!!!!!!!!!

        mov     byte[edi+1],0

   .GetIconInd:

;int3

        sub     al,30h

        cmp     byte[edi+1],0

        je      @f

        shl     eax,1

        lea     eax,[eax*4+eax]

        xor     edx,edx

        mov     dl,[edi+1]

        sub     dl,30h

        add     eax,edx

     @@:             ;eax=num icon

        cmp     eax,[icon_count]

        jb      @f

        xor     eax,eax

     @@:

        test    eax,eax

        je      .DIA

        mov     ecx,eax

        xor     eax,eax

      @@:

        add     eax,32*32*4;IMG_SIZE*IMG_SIZE*4

        loop    @b

     .DIA:

        mov     esi,eax

        add     esi,[raw_pointer]

        add     esi,44

        mov     edi,IconArea;+((IMAGE_TOP_Y*ICON_SIZE)+((ICON_SIZE-IMG_SIZE)/2))*4

;int3

        mov     eax,32;IMG_SIZE

        mov     edx,eax

      @@:

        mov     ecx,eax

        rep     movsd

     ;   add     edi,32*4

        dec     edx

        jnz     @b

        pop     esi edi

        ret

endp