forked from KolibriOS/kolibrios
62 lines
1.4 KiB
Plaintext
62 lines
1.4 KiB
Plaintext
//ª®¯ª¨
|
||
#define BACK 300
|
||
#define FORWARD 301
|
||
#define REFRESH 302
|
||
#define HOME 303
|
||
#define NEWTAB 304
|
||
#define GOTOURL 305
|
||
#define SEARCHWEB 306
|
||
#define ID1 178
|
||
#define ID2 177
|
||
|
||
#define WINDOWS 0
|
||
#define DOS 1
|
||
#define KOI 2
|
||
#define UTF 3
|
||
|
||
#define DONT_LOAD 0
|
||
#define LETS_LOAD 1
|
||
|
||
|
||
dword get_URL_part(byte len) {
|
||
char temp1[1000];
|
||
copystr(#URL, #temp1);
|
||
temp1[len] = 0x00;
|
||
return #temp1;
|
||
}
|
||
|
||
inline fastcall CopyScreen(dword EBX, ECX, EDX)
|
||
{
|
||
EAX = 36;
|
||
$int 0x40;
|
||
}
|
||
|
||
inline byte chTag(dword text) {return strcmp(#tag,text);}
|
||
|
||
//“ á ¥â ª«®ëå èà¨ä⮢, ¯®í⮬㠤¥« ¥¬ ª®áâë«ì ¨§
|
||
//¯ «®ç¥ª ¤«ï ¬®à®¦¥®£® ¨ ¦¥¢ ⥫쮩 १¨ª¨:
|
||
//‘¨¬ ¥¬ ®¡« áâì íªà ¨ ¢ë¢®¤¨¬ ¥ñ ®¡à â® ¯®«®áª ¬¨ ᮠᬥ饨¥¬,
|
||
//çâ® ¤ ñâ ¯¥à¥ª®á ª à⨪¨
|
||
//<2F>ਠ«¨ç¨¨ ä® ¨ â.¯. ¯à®ï¢¨âáï ¢áï ª®áâë«ì®áâì à¥è¥¨ï :)
|
||
|
||
//ç áâì ¤ ëå 㦥 ¯®«ãç¥ ¢ TBW - skin_width, Form.top, ¯®¤ª«î票¥ memory
|
||
inline void Skew(dword x,y,w,h)
|
||
{
|
||
dword italic_buf;
|
||
int tile_height=2,//¡ã¤¥¬ ¢ë¢®¤¨âì ¤¢ã寨ªá¥«ì묨 ¯®«®áª ¬¨
|
||
i, skin_width,
|
||
shift=-2;
|
||
|
||
italic_buf = mem_Alloc(w*h*3);
|
||
|
||
skin_width = GetSkinWidth();
|
||
|
||
CopyScreen(italic_buf, w * 65536 + h, x + Form.left + 2 * 65536 + y + Form.top + skin_width);
|
||
|
||
|
||
FOR (i=0;i*tile_height<h;i++){
|
||
PutImage(w*3*tile_height*i+italic_buf,w,tile_height,x+shift-i+1,i*tile_height+y);
|
||
}
|
||
mem_Free(italic_buf);
|
||
}
|