WebSVN – Kolibri OS – Diff – /programs/system/icon_new/trunk/icon.asm

 ; params 4 xpos 4 ypos 30 iconfile 30 startfile 10 label
 ;          +0     +4      +8          +38          +68
 include  '..\..\..\macros.inc'
 include  '..\..\..\macros.inc'
 ;__DEBUG__ fix 1
+;__DEBUG_LEVEL__ fix 1
-;__DEBUG_LEVEL__ fix 1
+;include  'debug-fdo.inc'
 ;include  'debug-fdo.inc'
-flipdelay = 7
+flipdelay = 5
-START:           ; start of execution
+START:           ; start of execution
-    cmp  [I_PARAM],byte 0
-    jne  nohalt
+    cmp   [I_PARAM],byte 0
-    or   eax,-1
+    jne   nohalt
-    mcall
+    mcall -1
   nohalt:
  nohalt:
 ;DEBUGF 1,"fname: '%s'\n",fname
-    mov  esi,I_PARAM+8+30
+    mov   esi,I_PARAM+8+30
-    mov  edi,start_file
+    mov   edi,start_file
+    mov   ecx,30
-    mov  ecx,30
+    cld
-    rep  movsb
+    rep   movsb
-    call fill_paths
+    call  fill_paths
-    mov  esi,I_PARAM+8+30+30
+    mov   esi,I_PARAM+8+30+30
-    mov  edi,labelt
+    mov   edi,labelt
-    mov  ecx,10
+    mov   ecx,10
-    cld
-    rep  movsb
+    cld
+    rep   movsb
+    mcall 40,110001b
-    mov  eax,40          ; get also event background change
+    mcall 37,4,hand,1
-    mov  ebx,10101b
-    mcall
     mov   ecx,eax
     mcall 37,5
-    call get_bg
-  red:           ; redraw
+red:
-    call draw_window
+    call  get_bg
+    call  draw_window
-still:
-    mov  eax,10          ; wait here for event
+still:
     mcall
     mcall  10          ; wait here for event
     cmp  eax,1          ; redraw request ?
-    jz  red
-    cmp  eax,3          ; button in buffer ?
-    jz  button
+    cmp   eax,1          ; redraw request ?
+    jz    red
+    cmp   eax,6
+    jz    mouse
+    call  get_bg
+    call  draw_icon
+    mcall 5,80
+    jmp   still
+  mouse:
+    mcall 9,process,-1
+    xor   ebx,ebx
+    mov   bx,[process.window_stack_position]
+    cmp   eax,ebx              ;check is this process is active
+    jne   still
-  check:
+    cmp   [mouse_pressed],1
+    je    @f
+    mcall 37,2
+    test  eax,1
+    jz    still
+    mov   [icon_moved],0
+    mcall 37,0
+    mov   ebx,eax
+    shr   eax,16             ;   eax= abs x
+    and   ebx,0xffff         ;   ebx= abs y
+    mov   [xmouse_old],eax   ; saving mouse coordinates
+    mov   [ymouse_old],ebx
+    cmp   eax,[process.box.left]    ; check is mouse in icon area
+    jl    still
+    sub   eax,[process.box.left]
+    cmp   eax,[process.box.width]
+    ja    still
+    cmp   ebx,[process.box.top]
+    jl    still
+    sub   ebx,[process.box.top]
-    call get_bg
+    cmp   ebx,[process.box.height]
+    ja    still
+    mov   [xmouse_rel],eax   ; saving relative coordinates
+    mov   [ymouse_rel],ebx
+    mov   [mouse_pressed],1
+    jmp   still
+  @@:
+    mcall 37,2
+    test  eax,1
+    jnz   @F
+    mov   [mouse_pressed],0
+  @@:
+    mcall 37,0
+    mov   ecx,eax
+    shr   eax,16             ;   eax= abs x
+    and   ecx,0xffff         ;   ecx= abs y
+    push  eax ecx
+    cmp   [icon_moved],1
+    je    move
+    add   eax,2
+    cmp   eax,[xmouse_old]
+    jle   move
+    sub   eax,4
+    cmp   eax,[xmouse_old]
+    jae   move
     call draw_icon
+    add   ecx,2
+    cmp   ecx,[ymouse_old]
+    jle   move
+    sub   ecx,4
+    cmp   ecx,[ymouse_old]
+    jae   move
+    cmp   [mouse_pressed],1
+    je    still
+    mcall 70,finfo_start
-    mcall 5,80
+    call  flip_icon
+    jmp   still
+ move:
+    mov   [icon_moved],1
+    pop   ecx ebx
+    sub   ebx,[xmouse_rel]   ;   ebx=new_x
+    sub   ecx,[ymouse_rel]   ;   ecx=new_y
+    mov   [xpos],ebx
+    mov   [ypos],ecx
-    jmp  still
+    mcall 67,,,-1,-1    ;   move
-  button:          ; button
+    jmp   still
-    mov  al,17          ; get id
-    mcall
+fill_paths:
+     dec   edi
-    mov  eax,70
+     mov   ecx,30
-    mov  ebx,finfo_start
+     std
-    mcall
+     mov   al,' '
+     repe  scasb
-    call flip_icon
+     cld
+     mov   byte[edi+2],0
-    jmp  still
+     ret
 flip_icon:
-     mov  eax,1
+     mov   eax,1
-     call flip
+     call  flip
-     mov  eax,2
+     inc   eax
-     call flip
+     call  flip
-     mov  eax,3
+     inc   eax
-     call flip
+     call  flip
-     mov  eax,4
+     inc   eax
+     call  flip
-     call flip
+     inc   eax
-     mov  eax,5
+     call  flip
-     call flip
+     dec   eax
-     mov  eax,4
-     call flip
+     call  flip
-     mov  eax,3
+     dec   eax
-     call flip
+     call  flip
-     mov  eax,2
-     call flip
-     mov  eax,1
-     call flip
-     mov  eax,0
-     call flip
-     ret
-flip:
+     dec   eax
-     mov  [iconstate],eax
+     call  flip
-     call get_bg
-     call draw_icon
-     mov  eax,5
-     mov  ebx,flipdelay
+     dec   eax
-     mcall
+     call  flip
+     xor   eax,eax
-     ret
+     call  flip
 fill_paths:
-     dec  edi
-     mov  ecx,30
-     std
-     mov  al,' '
-     repe scasb
+     ret
-     cld
-     mov  byte[edi+2],0
-     ret
+flip:
      push  eax
-draw_window:
+     mov   [iconstate],eax
-    mov  eax,12      ; function 12:tell os about windowdraw
-    mov  ebx,1      ; 1, start of draw
+     call  get_bg
-    mcall
+     call  draw_icon
-       ; DRAW WINDOW
+     mcall 5,flipdelay
-    xor  eax,eax            ; function 0 : define and draw window
-    mov  ebx,[xpos-2]
+     pop   eax
-    mov  ecx,[ypos-2]
+     ret
-    add  ebx,[yw]           ; [x start] *65536 + [x size]
-    add  ecx,67             ; [y start] *65536 + [y size]
     mov  edx,0x01000000     ; color of work area RRGGBB,8->color gl
-    mcall
-    mov  eax,8      ; button
-    mov  ebx,51
+draw_window:
-    mov  ecx,67
-    mov  edx,0x60000001
-    mcall
      mcall 12,1             ; function 12,1 - tell os about start of draw window
     call draw_icon
      xor   eax,eax          ; function 0 : define and draw window
-    mov  eax,12
+     mov   ebx,[xpos-2]
-    mov  ebx,2
+     add   ebx,51           ; [x start] *65536 + [x size]
-    mcall
+     mov   ecx,[ypos-2]
      add   ecx,67           ; [y start] *65536 + [y size]
-    ret
+     mov   edx,0x01000000
      mov   esi,0x01000000
-get_bg:
+     mcall
-    mov  eax,14
+     call  draw_icon
-    mcall
-    add  eax,0x00010001
+     mcall 12,2             ; function 12,2 - tell os about end of draw window
     mov  [scrxy],eax
      ret
     mov  eax,39        ; get background type
     add   eax,[esp]
     add   esp,4
   nostretch:
-    cmp   [bgrdrawtype],dword 1
+    cmp   [bgrdrawtype],1
     jne   notiled
     add  esp,4
   notiled:
-    lea  ecx,[eax+eax*2]
-    mov  eax,39
-    mov  ebx,2
     lea  ecx,[eax+eax*2]
-    mcall
+    mcall 39,2
     mov  [esi+edi+2],al
     sub  edi,3
     dec  ebx
     jge  newb
-    mov  ebx,[yw]
+    mov  ebx,51
     add  esi,52*3
     mov  edi,51*3
 ;*****************************************************************************
     ret
-draw_picture:
-    mov  eax,7
-    mov  ebx,I_END+256+9662
-    mov  ecx,52 shl 16 + 68
-    xor  edx,edx
+draw_picture:
-    mcall
+    mcall 7,I_END+256+9662,52 shl 16+68,0
     ret
     sub   ebx,eax
     movzx ecx,byte [I_PARAM+8+30+30+10]
     shl   ecx,16
     add   ebx,ecx
-; replaced - delete commented lines below if you like that style
+; black shade of text
-    mov   eax,4          ; white text
+; uncomment lines below if you like that style
     xor   ecx,ecx
     mov   edx,labelt
     mov   esi,labellen-labelt
-    add   ebx,1 shl 16      ;*65536+1
+    add   ebx,1 shl 16
-    mcall
+    mcall 4
     inc   ebx
     mcall
     add   ebx,1 shl 16
     mcall
     inc   ebx
     mcall
     sub   ebx,1 shl 16
     mcall
-    sub   ebx,1 shl 16 +1
+    sub   ebx,1*65536+1
     mcall
-    sub   ebx,1 shl 16 + 1
+    sub   ebx,1*65536+1
     mcall
-    add   ebx,1 shl 16 - 1
+    add   ebx,1*65536-1
     mcall
     inc   ebx
-    mov   ecx,0xffffff
+    or    ecx,0xffffff
     mcall
-    ;xor   ecx,ecx        ; black shade of text
-    ;mov   edx,labelt
+    ;xor   ecx,ecx
-    ;mov   esi,labellen-labelt
+    ;mov   edx,labelt
-    ;add   ebx,1*65536+1
+    ;mov   esi,labellen-labelt
-    ;mcall
+    ;mcall 4
     ;sub   ebx,1*65536+1
-    ;mov   ecx,0xffffff
+    ;or    ecx,0xffffff
     ;mcall
-    ret
-; DATA AREA
-itype       db 0
+    ret
 align 4
+; DATA AREA
+itype       db 0
 tl          dd  2
 tl          dd  2
 yw          dd  51
             rb  10
 labellen:
+pixl dd ?
+xpos        dd  ?
+ypos        dd  ?
+mouse_pressed  dd ?
+xmouse_rel  dd ?
+ymouse_rel  dd ?
+xmouse_old  dd ?
+ymouse_old  dd ?
+processes   dd ?
+pid         dd ?
-pixl dd ?
+process     process_information
 ;include_debug_strings
 ;include_debug_strings

Subversion Repositories Kolibri OS

(root)/programs/system/icon_new/trunk/icon.asm – Rev 503 → 872