Subversion Repositories Kolibri OS

Rev

Rev 485 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. ; Interface
  2.  
  3. macro Window xStart,yStart,xSize,ySize,bColor,gColor,fColor
  4. {
  5.  __mov ebx,xStart,xSize
  6.  __mov ecx,yStart,ySize
  7.  __mov edx,bColor
  8.  __mov esi,gColor
  9.  __mov edi,fColor
  10.  xor eax,eax
  11.  mcall
  12. }
  13.  
  14.  
  15. ;WriteTextToWindow
  16. macro Text xStart,yStart,rgbColor,pText,nTextLen
  17. {
  18.  __mov ebx,xStart,yStart
  19.  __mov ecx,rgbColor
  20.  __mov edx,pText
  21.  __mov esi,nTextLen
  22.  mov eax,4
  23.  mcall
  24. }
  25.  
  26. ;DisplayNumber
  27. macro Number xStart,yStart,nPrintType,noOfDigits,Data,rgbColor
  28. {
  29.  __mov edx,xStart,yStart
  30.  __mov ebx,noOfDigits,nPrintType
  31.  __mov ecx,Data
  32.  __mov esi,rgbColor
  33.  mov eax,47
  34.  mcall
  35. }
  36.  
  37. macro DrawLine xStart,xEnd,yStart,yEnd,rgbColor
  38. {
  39.  __mov ebx,xStart,xEnd
  40.  __mov ecx,yStart,yEnd
  41.  __mov edx,rgbColor
  42.  mov eax,38
  43.  mcall
  44. }
  45.  
  46. macro PutImage xPos,yPos,xImage,yImage,pImage
  47. {
  48.  __mov ecx,xImage,yImage
  49.  __mov edx,xPos,yPos
  50.  __mov ebx,pImage
  51.  mov eax,7
  52.  mcall
  53. }
  54.  
  55. macro Button xStart,yStart,xSize,ySize,nID,rgbColor
  56. {
  57.  __mov ebx,xStart,xSize
  58.  __mov ecx,yStart,ySize
  59.  __mov edx,nID
  60.  __mov esi,rgbColor
  61.  mov eax,8
  62.  mcall
  63. }
  64.  
  65. macro CreateTread EntryPoint,StackPos
  66. {
  67.  xor ebx,ebx
  68.  inc ebx
  69.  mov ecx,EntryPoint
  70.  mov edx,StackPos
  71.  mov eax,51
  72.  mcall
  73. }
  74.