Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
3067 leency 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 _WIN  0
13
#define _DOS  1
14
#define _KOI  2
15
#define _UTF  3
16
 
17
 
18
dword get_URL_part(int len) {
19
	char temp1[sizeof(URL)];
20
	strcpy(#temp1, #URL);
21
	temp1[len] = 0x00;
22
	return #temp1;
23
}
24
 
25
inline byte chTag(dword text) {return strcmp(#tag,text);}
26
 
27
 
28
void GetURLfromPageLinks(int id)
29
{
30
	int i, j = 0;
31
	for (i = 0; i <= id - 401; i++)
32
	{
33
		do
34
		{
35
			j++;
36
			if (j>=strlen(#page_links)) return; //не самое удачное решение
37
		}
38
		while (page_links[j] <>'|');
39
	}
40
	page_links[j] = 0x00;
41
	strcpy(#URL, #page_links+strrchr(#page_links, '|'));
42
}
43
 
44
 
45
//У нас нет наклонных шрифтов, поэтому делаем костыль из
46
//палочек для мороженого и жевательной резинки:
47
//Снимаем область экрана и выводим её обратно полосками со смещением,
48
//что даёт перекос картинки
49
//При наличии фона и т.п. проявится вся костыльность решения :)
50
 
51
inline void Skew(dword x,y,w,h)
52
{
53
	dword italic_buf;
54
	int tile_height=2, //будем выводить двухпиксельными полосками
55
	shift=-2, //с двухпиксельным смещением
56
	i, skin_height;
57
 
58
	italic_buf = mem_Alloc(w*h*3);
59
 	skin_height = GetSkinHeight();
60
	CopyScreen(italic_buf, x+Form.left+2, y+Form.top+skin_height, w, h);
61
 
62
	FOR (i=0;i*tile_height
63
		PutImage(w*3*tile_height*i+italic_buf,w,tile_height,x+shift-i+1,i*tile_height+y);
64
 
65
	mem_Free(italic_buf);
66
}