Subversion Repositories Kolibri OS

Rev

Rev 3363 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3458 leency 1
 
2
enum { _WIN, _DOS, _KOI, _UTF };
3
4
 
3067 leency 5
#define ID2         177
6
7
 
8
 
9
 
10
	char temp1[sizeof(URL)];
11
	strcpy(#temp1, #URL);
12
	temp1[len] = 0x00;
13
	return #temp1;
14
}
15
16
 
17
18
 
19
 
20
{
21
	int i, j = 0;
22
	for (i = 0; i <= id - 401; i++)
23
	{
24
		do
25
		{
26
			j++;
27
			if (j>=strlen(#page_links)) return;
3458 leency 28
		}
3067 leency 29
		while (page_links[j] <>'|');
30
	}
31
	page_links[j] = 0x00;
32
	strcpy(#URL, #page_links+strrchr(#page_links, '|'));
33
}
34
35
 
36
 
37
//палочек для мороженого и жевательной резинки:
38
//Снимаем область экрана и выводим её обратно полосками со смещением,
39
//что даёт перекос картинки
40
//При наличии фона и т.п. проявится вся костыльность решения :)
41
42
 
43
{
44
	dword italic_buf;
45
	int tile_height=2,
3458 leency 46
	shift=-2,
47
	i, skin_height;
3067 leency 48
49
 
50
 	skin_height = GetSkinHeight();
51
	CopyScreen(italic_buf, x+Form.left+2, y+Form.top+skin_height, w, h);
52
53
 
54
		_PutImage(x+shift-i+1,i*tile_height+y, w,tile_height, w*3*tile_height*i+italic_buf);
3363 leency 55
3067 leency 56
 
57
}
58
>