Subversion Repositories Kolibri OS

Rev

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

  1. //#include "strings.h"
  2.  
  3. :void DrawRectangle(dword x,y,w,h,color1)
  4. {
  5.         if (w<=0) || (h<=0) return;
  6.         DrawBar(x,y,w,1,color1);
  7.         DrawBar(x,y+h,w,1,color1);
  8.         DrawBar(x,y,1,h,color1);
  9.         DrawBar(x+w,y,1,h+1,color1);
  10. }
  11.  
  12. :void DrawRectangle3D(dword x,y,w,h,color1,color2)
  13. {
  14.         if (w<=0) || (h<=0) return;
  15.         DrawBar(x,y,w+1,1,color1);
  16.         DrawBar(x,y+1,1,h-1,color1);
  17.         DrawBar(x+w,y+1,1,h,color2);
  18.         DrawBar(x,y+h,w,1,color2);
  19. }
  20.  
  21. :void DrawCaptButton(dword x,y,w,h,id,color_b, color_t,text)
  22. {
  23.         if (id>0) DefineButton(x,y,w,h,id,color_b);
  24.         WriteText(-strlen(text)*6+w/2+x+1,h/2-3+y,0x80,color_t,text);
  25. }
  26.  
  27. :void WriteTextCenter(dword x,y,w,color_t,text)
  28. {
  29.         WriteText(-strlen(text)*6+w/2+x+1,y,0x80,color_t,text);
  30. }
  31.  
  32. :void DrawCircle(int x, y, r)
  33. {
  34.         int i;
  35.         float px=0, py=r, ii = r * 3.1415926 * 2;
  36.         FOR (i = 0; i < ii; i++)
  37.         {
  38.         PutPixel(px + x, y - py, 0);
  39.         px = py / r + px;
  40.         py = -px / r + py;
  41.         }
  42. }
  43.  
  44. :void CheckBox(dword x,y,w,h, bt_id, text, graph_color, text_color, is_checked)
  45. {
  46.         DefineButton(x-1, y-1, strlen(text)*6 + w + 17, h+2, bt_id+BT_HIDE+BT_NOFRAME, graph_color);
  47.         WriteText(x+w+8, h / 2 + y -3, 0x80, text_color, text);
  48.         DrawRectangle(x, y, w, h, graph_color);
  49.         if (is_checked == 0)
  50.         {
  51.                 DrawRectangle3D(x+1, y+1, w-2, h-2, 0xDDDddd, 0xffffff);
  52.                 DrawBar(x+2, y+2, w-3, h-3, 0xffffff);
  53.         }
  54.         else if (is_checked == 1)
  55.         {
  56.                 DrawRectangle(x+1, y+1, w-2, h-2, 0xffffff);
  57.                 DrawBar(x+2, y+2, w-3, h-3, graph_color);
  58.         }
  59.         else if (is_checked == 2) //not active
  60.         {
  61.                 DrawRectangle(x+1, y+1, w-2, h-2, 0xffffff);
  62.                 DrawBar(x+2, y+2, w-3, h-3, 0x888888); 
  63.         }
  64. }
  65.  
  66.  
  67. :void MoreLessBox(dword x,y,s, bt_id_more, bt_id_less, color_border, color_button, color_text, value, text)
  68. {
  69.         #define VALUE_FIELD_W 26;
  70.         DrawRectangle(x, y, VALUE_FIELD_W, s, color_border);
  71.         DrawRectangle3D(x+1, y+1, VALUE_FIELD_W-2, s-2, 0xDDDddd, 0xffffff);
  72.         DrawBar(x+2, y+2, VALUE_FIELD_W-3, s-3, 0xffffff);
  73.         WriteText(x+6, s / 2 + y -3, 0x80, color_text, itoa(value));
  74.  
  75.         DrawCaptButton(VALUE_FIELD_W + x + 1,     y, s, s, bt_id_more, color_button, color_text, "+");
  76.         DrawCaptButton(VALUE_FIELD_W + x + s + 2, y, s, s, bt_id_less, color_button, color_text, "-");
  77.         WriteText(x+VALUE_FIELD_W+s+s+10, s / 2 + y -3, 0x80, color_text, text);
  78. }
  79.  
  80.  
  81. :void DrawProgressBar(dword st_x, st_y, st_w, st_h, col_fon, col_border, col_fill, col_text, progress_percent)
  82. {
  83.         int progress_w;
  84.         static int fill_old;
  85.            
  86.         //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;}
  87.         if (progress_percent<=0) || (progress_percent>=100) return;
  88.        
  89.         DrawRectangle(st_x, st_y, st_w,st_h, col_border);
  90.         DrawRectangle3D(st_x+1, st_y+1, st_w-2,st_h-2, 0xFFFfff, 0xFFFfff);
  91.  
  92.         if (progress_percent>0) && (progress_percent<=100)
  93.         {
  94.                 progress_w = st_w - 3 * progress_percent / 100;
  95.                 DrawBar(st_x+2, st_y+2, progress_w, st_h-3, col_fill);
  96.                 DrawBar(st_x+2+progress_w, st_y+2, st_w-progress_w-3, st_h-3, 0xFFFfff);
  97.         }
  98. }
  99.  
  100. :void DrawLink(dword x,y,font_type,btn_id, inscription)
  101. {
  102.         int w;
  103.         WriteText(x,y,font_type,0x4E00E7,inscription);
  104.         if (font_type==0x80) w = strlen(inscription)*6; else w = strlen(inscription)*7;
  105.         DefineButton(x-1,y-1,w,10,btn_id+BT_HIDE,0);
  106.         DrawBar(x,y+8,w,1,0x4E00E7);
  107. }
  108.  
  109.  
  110. :void PutShadow(dword x,y,w,h,skinned,strength)
  111. {
  112.         proc_info wForm;
  113.         dword shadow_buf, skin_height;
  114.         shadow_buf = mem_Alloc(w*h*3);
  115.         GetProcessInfo(#wForm, SelfInfo);
  116.         CopyScreen(shadow_buf, 5*skinned+x+wForm.left, GetSkinHeight()*skinned+y+wForm.top, w, h);
  117.         ShadowImage(shadow_buf, w, h, strength);
  118.         _PutImage(x,y,w,h,shadow_buf);
  119.         mem_Free(shadow_buf);
  120. }
  121.  
  122. :void DrawPopupShadow(dword x,y,w,h,skinned)
  123. {
  124.         PutShadow(w+x+1,y,1,h+2,skinned,2);
  125.         PutShadow(w+x+2,y+1,1,h+2,skinned,1);
  126.         PutShadow(x,y+h+2,w+2,1,skinned,2);
  127.         PutShadow(x+1,y+h+3,w+1,1,skinned,1);
  128. }
  129.  
  130. :void DrawPopup(dword x,y,w,h,skinned, col_work,col_border)
  131. {
  132.         DrawRectangle(x,y,w,h,col_border);
  133.         DrawBar(x+1,y+1,w-1,1,0xFFFfff);
  134.         DrawBar(x+1,y+2,1,h-2,0xFFFfff);
  135.         if (col_work!=-1) DrawBar(x+2,y+2,w-2,h-2,col_work);
  136.         DrawPopupShadow(x,y,w,h-1,skinned);
  137. }
  138.  
  139. :void GrayScaleImage(dword color_image, w, h)
  140. {
  141.         dword i,gray,rr,gg,bb;
  142.         for (i = 0; i < w*h*3; i+=3)
  143.         {
  144.                 rr = DSBYTE[i+color_image];
  145.                 gg = DSBYTE[i+1+color_image];
  146.                 bb = DSBYTE[i+2+color_image];
  147.                 gray = rr*rr;
  148.                 gray += gg*gg;
  149.                 gray += bb*bb;
  150.                 gray = sqrt(gray) / 3;
  151.                 DSBYTE[i  +color_image] = DSBYTE[i+1+color_image] = DSBYTE[i+2+color_image] = gray;
  152.         }
  153. }
  154.  
  155. :void ShadowImage(dword color_image, w, h, strength)
  156. {
  157.         dword col, to;
  158.         strength = 10 - strength;
  159.         to = w*h*3 + color_image;
  160.         for ( ; color_image < to; color_image++)
  161.         {
  162.                 col = strength * DSBYTE[color_image] / 10;
  163.                 DSBYTE[color_image] = col;
  164.         }
  165. }