Subversion Repositories Kolibri OS

Rev

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

  1. #ifndef INCLUDE_GUI_H
  2. #define INCLUDE_GUI_H
  3. #print "[include <gui.h>]\n"
  4.  
  5. #ifndef INCLUDE_KOLIBRI_H
  6. #include "../lib/kolibri.h"
  7. #endif
  8.  
  9. #ifndef INCLUDE_STRING_H
  10. #include "../lib/strings.h"
  11. #endif
  12.  
  13. #ifndef INCLUDE_RGB_H
  14. #include "../lib/patterns/rgb.h"
  15. #endif
  16.  
  17. :void DrawRectangle(dword x,y,w,h,color1)
  18. {
  19.         if (w<=0) || (h<=0) return;
  20.         DrawBar(x,y,w,1,color1);
  21.         DrawBar(x,y+h,w,1,color1);
  22.         DrawBar(x,y,1,h,color1);
  23.         DrawBar(x+w,y,1,h+1,color1);
  24. }
  25.  
  26. :void DrawWideRectangle(dword x,y,w,h,boder,color1)
  27. {
  28.         if (w<=0) || (h<=0) return;
  29.         DrawBar(x, y, w, boder, color1);
  30.         DrawBar(x, y+h-boder, w, boder, color1);
  31.         DrawBar(x, y+boder, boder, h-boder-boder, color1);
  32.         DrawBar(x+w-boder, y+boder, boder, h-boder-boder, color1);
  33. }
  34.  
  35. :void DrawRectangle3D(dword x,y,w,h,color1,color2)
  36. {
  37.         if (w<=0) || (h<=0) return;
  38.         DrawBar(x,y,w+1,1,color1);
  39.         DrawBar(x,y+1,1,h-1,color1);
  40.         DrawBar(x+w,y+1,1,h,color2);
  41.         DrawBar(x,y+h,w,1,color2);
  42. }
  43.  
  44. :void DrawCaptButton(dword x,y,w,h,id,color_b, color_t,text)
  45. {
  46.         word tx = -strlen(text)*6+w/2+x+1;
  47.         word ty = h/2-3+y;
  48.         if (id>0) DefineButton(x,y,w,h,id,color_b);
  49.         WriteText(tx+1,ty+1,0x80,MixColors(color_b,0,200),text);
  50.         WriteText(tx,ty,0x80,color_t,text);
  51. }
  52.  
  53. :void WriteTextCenter(dword x,y,w,color_t,text)
  54. {
  55.         WriteText(-strlen(text)*6+w/2+x+1,y,0x80,color_t,text);
  56. }
  57.  
  58. :void DrawCircle(int x, y, r, color)
  59. {
  60.         int i;
  61.         float px=0, py=r, ii = r * 3.1415926 * 2;
  62.         FOR (i = 0; i < ii; i++)
  63.         {
  64.         PutPixel(px + x, y - py, color);
  65.         px = py / r + px;
  66.         py = -px / r + py;
  67.         }
  68. }
  69.  
  70. :void CheckBox(dword x,y,bt_id, text, is_checked)
  71. {
  72.         byte w=14, h=14;
  73.         DefineButton(x-1, y-1, strlen(text)*6 + w + 17, h+2, bt_id+BT_HIDE+BT_NOFRAME, 0);
  74.         WriteText(x+w+8, h / 2 + y -3, 0x80, system.color.work_text, text);
  75.         DrawRectangle(x, y, w, h, system.color.work_graph);
  76.         if (is_checked == 0)
  77.         {
  78.                 DrawRectangle3D(x+1, y+1, w-2, h-2, 0xDDDddd, 0xffffff);
  79.                 DrawBar(x+2, y+2, w-3, h-3, 0xffffff);
  80.         }
  81.         else if (is_checked == 1)
  82.         {
  83.                 DrawWideRectangle(x+1, y+1, w-1, h-1, 2, 0xffffff);
  84.                 DrawBar(x+3, y+3, w-5, h-5, 0x00C000); //0x13A113
  85.         }
  86.         else if (is_checked == 2) //not active
  87.         {
  88.                 DrawWideRectangle(x+1, y+1, w-1, h-1, 2, 0xffffff);
  89.                 DrawBar(x+3, y+3, w-5, h-5, 0x888888);
  90.         }
  91.         DrawRectangle3D(x-1,y-1,w+2,h+2,system.color.work_dark,system.color.work_light);
  92. }
  93.  
  94. :void MoreLessBox(dword x,y, bt_id_more, bt_id_less, value, text)
  95. {
  96.         #define VALUE_FIELD_W 26
  97.         #define SIZE 18
  98.  
  99.         DrawRectangle(x, y, VALUE_FIELD_W, SIZE, system.color.work_graph);
  100.         DrawRectangle3D(x+1, y+1, VALUE_FIELD_W-2, SIZE-2, 0xDDDddd, 0xffffff);
  101.         DrawBar(x+2, y+2, VALUE_FIELD_W-3, SIZE-3, 0xffffff);
  102.         WriteText(x+6, SIZE / 2 + y -3, 0x80, 0x000000, itoa(value));
  103.  
  104.         DrawCaptButton(VALUE_FIELD_W + x,     y, SIZE, SIZE, bt_id_more, system.color.work_button, system.color.work_button_text, "+");
  105.         DrawCaptButton(VALUE_FIELD_W + x + SIZE, y, SIZE, SIZE, bt_id_less, system.color.work_button, system.color.work_button_text, "-");
  106.         WriteText(x+VALUE_FIELD_W+SIZE+SIZE+10, SIZE / 2 + y -3, 0x80, system.color.work_text, text);
  107.         DrawRectangle3D(x-1,y-1,VALUE_FIELD_W+SIZE+SIZE+2,SIZE+2,system.color.work_dark,system.color.work_light);
  108. }
  109.  
  110. :void EditBox(dword edit_box_pointer)
  111. {
  112.         dword x,y,w,h;
  113.         ESI = edit_box_pointer;
  114.         x = ESI.edit_box.left;
  115.         y = ESI.edit_box.top;
  116.         w = ESI.edit_box.width+1;
  117.         h = 15;
  118.         DrawRectangle(x-1, y-1, w+2, h+2, 0xFFFfff);
  119.         DrawRectangle3D(x-2, y-2, w+2, h+2, 0xDDDddd, 0xffffff);
  120.         DrawRectangle(x-3, y-3, w+6, h+6, system.color.work_graph);
  121.         DrawRectangle3D(x-4, y-4, w+8, h+8, system.color.work_dark, system.color.work_light);
  122. }
  123.  
  124. :void DrawProgressBar(dword st_x, st_y, st_w, st_h, col_fon, col_border, col_fill, col_text, progress_percent)
  125. {
  126.         int progress_w;
  127.         static int fill_old;
  128.            
  129.         //if (progress_percent<=0) {DrawBar(st_x,st_y, st_x + st_w + fill_old + 15,st_h+1, col_fon); fill_old=0; return;}
  130.         if (progress_percent<=0) || (progress_percent>=100) return;
  131.        
  132.         DrawRectangle(st_x, st_y, st_w,st_h, col_border);
  133.         DrawRectangle3D(st_x+1, st_y+1, st_w-2,st_h-2, 0xFFFfff, 0xFFFfff);
  134.  
  135.         if (progress_percent>0) && (progress_percent<=100)
  136.         {
  137.                 progress_w = st_w - 3 * progress_percent / 100;
  138.                 DrawBar(st_x+2, st_y+2, progress_w, st_h-3, col_fill);
  139.                 DrawBar(st_x+2+progress_w, st_y+2, st_w-progress_w-3, st_h-3, 0xFFFfff);
  140.         }
  141. }
  142.  
  143. :void DrawLink(dword x,y,font_type,btn_id, inscription)
  144. {
  145.         int w;
  146.         WriteText(x,y,font_type,0x4E00E7,inscription);
  147.         if (font_type==0x80) w = strlen(inscription)*6; else w = strlen(inscription)*7;
  148.         DefineButton(x-1,y-1,w,10,btn_id+BT_HIDE,0);
  149.         DrawBar(x,y+8,w,1,0x4E00E7);
  150. }
  151.  
  152. :void PutShadow(dword x,y,w,h,skinned,strength)
  153. {
  154.         proc_info wForm;
  155.         dword shadow_buf, skin_height;
  156.         shadow_buf = mem_Alloc(w*h*3);
  157.         GetProcessInfo(#wForm, SelfInfo);
  158.         CopyScreen(shadow_buf, 5*skinned+x+wForm.left, GetSkinHeight()*skinned+y+wForm.top, w, h);
  159.         ShadowImage(shadow_buf, w, h, strength);
  160.         _PutImage(x,y,w,h,shadow_buf);
  161.         mem_Free(shadow_buf);
  162. }
  163.  
  164. :void DrawPopup(dword x,y,w,h,skinned, col_work,col_border)
  165. {
  166.         DrawRectangle(x,y,w,h,col_border);
  167.         DrawBar(x+1,y+1,w-1,1,0xFFFfff);
  168.         DrawBar(x+1,y+2,1,h-2,0xFFFfff);
  169.         if (col_work!=-1) DrawBar(x+2,y+2,w-2,h-2,col_work);
  170.         DrawPopupShadow(x,y,w,h-1,skinned);
  171. }
  172.  
  173. :void DrawPopupShadow(dword x,y,w,h,skinned)
  174. {
  175.         PutShadow(w+x+1,y,1,h+2,skinned,2);
  176.         PutShadow(w+x+2,y+1,1,h+2,skinned,1);
  177.         PutShadow(x,y+h+2,w+2,1,skinned,2);
  178.         PutShadow(x+1,y+h+3,w+1,1,skinned,1);
  179. }
  180.  
  181. :void GrayScaleImage(dword color_image, w, h)
  182. {
  183.         dword i,gray,to,rr,gg,bb;
  184.         to = w*h*3 + color_image;
  185.         for (i = color_image; i < to; i+=3)
  186.         {
  187.                 rr = DSBYTE[i];
  188.                 gg = DSBYTE[i+1];
  189.                 bb = DSBYTE[i+2];
  190.                 gray = rr*rr;
  191.                 gray += gg*gg;
  192.                 gray += bb*bb;
  193.                 gray = sqrt(gray) / 3;
  194.                 DSBYTE[i] = DSBYTE[i+1] = DSBYTE[i+2] = gray;
  195.         }
  196. }
  197.  
  198. :void ShadowImage(dword color_image, w, h, strength)
  199. {
  200.         dword col, to;
  201.         strength = 10 - strength;
  202.         to = w*h*3 + color_image;
  203.         for ( ; color_image < to; color_image++)
  204.         {
  205.                 col = strength * DSBYTE[color_image] / 10;
  206.                 DSBYTE[color_image] = col;
  207.         }
  208. }
  209.  
  210. :void WriteTextLines(dword x,y,byte fontType, dword color, text_pointer, line_h)
  211. {
  212.         dword next_word_pointer = strchr(text_pointer, '\n');
  213.         if (next_word_pointer) WriteTextLines(dword x, y+line_h, byte fontType, dword color, next_word_pointer+2, line_h);
  214.         ESBYTE[next_word_pointer] = NULL;
  215.         WriteText(dword x, y, byte fontType, dword color, text_pointer);
  216.         ESBYTE[next_word_pointer] = '\n';
  217. }
  218.  
  219. #endif