Subversion Repositories Kolibri OS

Rev

Rev 9541 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. proc DrawDeepRectangle, _x:word, _y:word, _w:word, _h:word, color1:dword, color2:dword
  2. pusha
  3.  
  4. movzx ebx, [_x]
  5. shl ebx, 16
  6. or ebx, dword[_x]
  7. add ebx, dword[_w]
  8.  
  9. movzx ecx, [_y]
  10. shl ecx, 16
  11. add ecx, dword[_y]
  12.  
  13. mcall SF_DRAW_LINE, , ,[color1] ; x+w,y,1,h+1,color2
  14.  
  15. sub ebx, dword[_w]
  16. add ecx, dword[_h]
  17. int 0x40
  18.  
  19. mov edx, dword[_w]
  20. shl edx, 16
  21. or edx, dword[_w]
  22. add ebx, edx
  23. mcall SF_DRAW_LINE, , ,[color2]
  24.  
  25.  
  26.  
  27. mov edx, dword[_w]
  28. shl edx, 16
  29. sub ebx, edx
  30.  
  31. mov edx, dword[_h]
  32. shl edx, 16
  33. add ecx, edx
  34.  
  35. mcall SF_DRAW_LINE, , ,[color2]
  36.  
  37.  
  38. popa
  39.         ret
  40. endp