Subversion Repositories Kolibri OS

Rev

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
  6.  shl ebx,16
  7.  add ebx,xSize
  8.  mov ecx,yStart
  9.  shl ecx,16
  10.  add ecx,ySize
  11.  mov edx,bColor
  12.  mov esi,gColor
  13.  mov edi,fColor
  14.  xor eax,eax
  15.  mcall
  16. }
  17.  
  18.  
  19. ;WriteTextToWindow
  20. macro Text xStart,yStart,rgbColor,pText,nTextLen
  21. {
  22.  mov ebx,xStart
  23.  shl ebx,16
  24.  add ebx,yStart
  25.  mov ecx,rgbColor
  26.  mov edx,pText
  27.  mov esi,nTextLen
  28.  mov eax,4
  29.  mcall
  30. }
  31.  
  32. ;DisplayNumber
  33. macro Number xStart,yStart,nPrintType,noOfDigits,Data,rgbColor
  34. {
  35.  
  36.  mov edx,xStart
  37.  shl edx,16
  38.  add edx,yStart
  39.  mov ebx,noOfDigits
  40.  shl ebx,16
  41.  or ebx,nPrintType
  42.  mov ecx,Data
  43.  mov esi,rgbColor
  44.  mov eax,47
  45.  mcall
  46. }
  47.  
  48. macro DrawLine xStart,xEnd,yStart,yEnd,rgbColor
  49. {
  50.  mov ebx,xStart
  51.  shl ebx,16
  52.  add ebx,xEnd
  53.  mov ecx,yStart
  54.  shl ecx,16
  55.  add ecx, yEnd
  56.  mov edx,rgbColor
  57.  mov eax,38
  58.  mcall
  59. }
  60.  
  61. macro PutImage xPos,yPos,xImage,yImage,pImage
  62. {
  63.  mov ecx,xImage
  64.  shl ecx,16
  65.  add ecx, yImage
  66.  mov edx,xPos
  67.  shl edx,16
  68.  add edx,yPos
  69.  mov ebx,pImage
  70.  mov eax,7
  71.  mcall
  72. }
  73.  
  74. macro Button xStart,yStart,xSize,ySize,nID,rgbColor
  75. {
  76.  mov ebx,xStart
  77.  shl ebx,16
  78.  add ebx,xSize
  79.  mov ecx,yStart
  80.  shl ecx,16
  81.  add ecx,ySize
  82.  mov edx,nID
  83.  mov esi,rgbColor
  84.  mov eax,8
  85.  mcall
  86. }
  87.  
  88. macro CreateTread EntryPoint,StackPos
  89. {
  90.  xor ebx,ebx
  91.  inc ebx
  92.  mov ecx,EntryPoint
  93.  mov edx,StackPos
  94.  mov eax,51
  95.  mcall
  96. }
  97.