Subversion Repositories Kolibri OS

Rev

Rev 2228 | 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.  
  18. dword get_URL_part(byte len) {
  19.         char temp1[1000];
  20.         copystr(#URL, #temp1);
  21.         temp1[len] = 0x00;
  22.         return #temp1;
  23. }
  24.  
  25. inline fastcall CopyScreen(dword EBX, ECX, EDX)
  26. {
  27.   EAX = 36;
  28.   $int  0x40;
  29. }
  30.  
  31. inline byte chTag(dword text) {return strcmp(#tag,text);}
  32.  
  33. //“ ­ á ­¥â ­ ª«®­­ëå èà¨ä⮢, ¯®í⮬㠤¥« ¥¬ ª®áâë«ì ¨§
  34. //¯ «®ç¥ª ¤«ï ¬®à®¦¥­®£® ¨ ¦¥¢ â¥«ì­®© १¨­ª¨:
  35. //‘­¨¬ ¥¬ ®¡« áâì íªà ­  ¨ ¢ë¢®¤¨¬ ¥ñ ®¡à â­® ¯®«®áª ¬¨ ᮠᬥ饭¨¥¬,
  36. //çâ® ¤ ñâ ¯¥à¥ª®á ª à⨭ª¨
  37. //à¨ ­ «¨ç¨¨ ä®­  ¨ â.¯. ¯à®ï¢¨âáï ¢áï ª®áâë«ì­®áâì à¥è¥­¨ï :)
  38.  
  39. //ç áâì ¤ ­­ëå 㦥 ¯®«ã祭  ¢ TBW - skin_width, Form.top, ¯®¤ª«î祭¨¥ memory
  40. inline void Skew(dword x,y,w,h)
  41. {
  42. dword italic_buf;
  43. int tile_height=2,//¡ã¤¥¬ ¢ë¢®¤¨âì ¤¢ã寨ªá¥«ì­ë¬¨ ¯®«®áª ¬¨
  44. i, skin_width,
  45. shift=-2;
  46.  
  47.   italic_buf = mem_Alloc(w*h*3);
  48.  
  49.   skin_width = GetSkinWidth();
  50.  
  51.   CopyScreen(italic_buf, w * 65536 + h, x + Form.left + 2 * 65536 + y + Form.top + skin_width);
  52.  
  53.  
  54.   FOR (i=0;i*tile_height<h;i++){
  55.     PutImage(w*3*tile_height*i+italic_buf,w,tile_height,x+shift-i+1,i*tile_height+y);
  56.   }
  57.   mem_Free(italic_buf);
  58. }
  59.