Subversion Repositories Kolibri OS

Rev

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

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