Subversion Repositories Kolibri OS

Rev

Rev 2153 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. //ª­®¯ª¨
  2. #define BACK            300
  3. #define FORWARD         301
  4. #define REFRESH         302
  5. #define HOME            303
  6. #define NEWTAB          304
  7. #define GOTOURL         305
  8. #define SEARCHWEB       306
  9. #define ID1             178
  10. #define ID2             177
  11.  
  12. #define WINDOWS 0
  13. #define DOS             1
  14. #define KOI             2
  15. #define UTF             3
  16.  
  17. #define DONT_LOAD       0
  18. #define LETS_LOAD       1
  19.                      
  20.  
  21. dword get_URL_part(byte len) {
  22.         char temp1[1000];
  23.         copystr(#URL, #temp1);
  24.         temp1[len] = 0x00;
  25.         return #temp1;
  26. }
  27.  
  28. inline fastcall CopyScreen(dword EBX, ECX, EDX)
  29. {
  30.   EAX = 36;
  31.   $int  0x40;
  32. }
  33.  
  34. inline byte chTag(dword text) {return strcmp(#tag,text);}
  35.  
  36. //“ ­ á ­¥â ­ ª«®­­ëå èà¨ä⮢, ¯®í⮬㠤¥« ¥¬ ª®áâë«ì ¨§
  37. //¯ «®ç¥ª ¤«ï ¬®à®¦¥­®£® ¨ ¦¥¢ â¥«ì­®© १¨­ª¨:
  38. //‘­¨¬ ¥¬ ®¡« áâì íªà ­  ¨ ¢ë¢®¤¨¬ ¥ñ ®¡à â­® ¯®«®áª ¬¨ ᮠᬥ饭¨¥¬,
  39. //çâ® ¤ ñâ ¯¥à¥ª®á ª à⨭ª¨
  40. //à¨ ­ «¨ç¨¨ ä®­  ¨ â.¯. ¯à®ï¢¨âáï ¢áï ª®áâë«ì­®áâì à¥è¥­¨ï :)
  41.  
  42. //ç áâì ¤ ­­ëå 㦥 ¯®«ã祭  ¢ TBW - skin_width, Form.top, ¯®¤ª«î祭¨¥ memory
  43. inline void Skew(dword x,y,w,h)
  44. {
  45. dword italic_buf;
  46. int tile_height=2,//¡ã¤¥¬ ¢ë¢®¤¨âì ¤¢ã寨ªá¥«ì­ë¬¨ ¯®«®áª ¬¨
  47. i, skin_width,
  48. shift=-2;
  49.  
  50.   italic_buf = mem_Alloc(w*h*3);
  51.  
  52.   skin_width = GetSkinWidth();
  53.  
  54.   CopyScreen(italic_buf, w * 65536 + h, x + Form.left + 2 * 65536 + y + Form.top + skin_width);
  55.  
  56.  
  57.   FOR (i=0;i*tile_height<h;i++){
  58.     PutImage(w*3*tile_height*i+italic_buf,w,tile_height,x+shift-i+1,i*tile_height+y);
  59.   }
  60.   mem_Free(italic_buf);
  61. }
  62.