Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
2413 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 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
 
2444 leency 25
inline byte chTag(dword text) {return strcmp(#tag,text);}
26
 
27
 
28
void GetURLfromPageLinks(int id) //ёЄюы№ъю сЁхфр, яюЄюьє ўЄю эхы№ч  ёючфрЄ№ ьрёёшт ёЄЁшэуют
2413 leency 29
{
2444 leency 30
	j = 0;
31
	for (i = 0; i <= id - 401; i++)
32
	{
33
		do j++;
34
		while (page_links[j] <>'|');
35
	}
36
	page_links[j] = 0x00;
37
	copystr(#page_links[find_symbol(#page_links, '|')], #URL);
2413 leency 38
}
39
 
40
 
2444 leency 41
 
2413 leency 42
//У нас нет наклонных шрифтов, поэтому делаем костыль из
43
//палочек для мороженого и жевательной резинки:
44
//Снимаем область экрана и выводим её обратно полосками со смещением,
45
//что даёт перекос картинки
46
//При наличии фона и т.п. проявится вся костыльность решения :)
47
 
48
//часть данных уже получена в TBW - skin_width, Form.top, подключение memory
49
inline void Skew(dword x,y,w,h)
50
{
51
dword italic_buf;
52
int tile_height=2,//будем выводить двухпиксельными полосками
53
i, skin_width,
54
shift=-2;
55
 
56
  italic_buf = mem_Alloc(w*h*3);
57
 
58
  skin_width = GetSkinWidth();
59
 
2444 leency 60
  CopyScreen(italic_buf, x+Form.left+2, y+Form.top+skin_width, w, h);
2413 leency 61
 
62
 
63
  FOR (i=0;i*tile_height
64
    PutImage(w*3*tile_height*i+italic_buf,w,tile_height,x+shift-i+1,i*tile_height+y);
65
  }
66
  mem_Free(italic_buf);
67
}