Subversion Repositories Kolibri OS

Rev

Rev 6642 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. BT_DEL     equ 0x80000000
  2. BT_HIDE    equ 0x40000000
  3. BT_NOFRAME equ 0x20000000
  4.  
  5. macro DefineButton  x, y, w, h, id, background_color
  6. {
  7.         mcall 8, (x) shl 16 + (w), (y) shl 16 + (h), id, background_color
  8. }
  9.  
  10. macro DrawBar  x, y, width, height, color
  11. {
  12.         mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
  13. }
  14.  
  15. macro DrawRectangle  x, y, w, h, color
  16. {
  17.         DrawBar x,y,w,1,color
  18.         DrawBar x,y+h,w,1
  19.         DrawBar x,y,1,h
  20.         DrawBar x+w,y,1,h+1
  21. }
  22.  
  23. macro DrawRectangle3D  x, y, w, h, color1, color2
  24. {
  25.         DrawBar x,y,w,1,color1
  26.         DrawBar x,y,1,h
  27.         DrawBar x,y+h,w,1,color2
  28.         DrawBar x+w,y,1,h+1
  29. }
  30.  
  31. macro DrawWideRectangle  x, y, w, h, boder, color
  32. {
  33.         DrawBar x, y, w, boder, color
  34.         DrawBar x, y+h-boder, w, boder
  35.         DrawBar x, y+boder, boder, h-boder-boder
  36.         DrawBar x+w-boder, y+boder, boder, h-boder-boder
  37. }
  38.  
  39. macro WriteText  x, y, fontType, color, text
  40. {
  41.         mcall 4, (x) shl 16 + (y), (fontType) shl 24 + (color), text
  42. }
  43.  
  44. macro WriteTextBold  x, y, fontType, color, text
  45. {
  46.         mcall 4, (x) shl 16 + (y), (fontType) shl 24 + (color), text
  47.         add ebx,1 shl 16
  48.         mcall
  49. }
  50.  
  51.