Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
2413 leency 1
 
2
3
 
4
	buf,
5
	filesize,
6
	blink = 400;
7
 int i;
8
9
 
2739 leency 10
char search_path[]="http://nigma.ru/index.php?s=";
11
char version[]=" Text-based Browser 0.93";
2793 leency 12
2413 leency 13
 
2793 leency 14
char t_edit_path[]="/sys/develop/t_edit";
15
2413 leency 16
 
2793 leency 17
 
2413 leency 18
	int left, top, width, height;
2739 leency 19
	void DrawScroller();
2413 leency 20
	void ShowPage();
21
	void ParseHTML(dword, dword);
22
	void Scan(int);
2793 leency 23
	void WhatTextStyle(int left1, top1, width1);
2413 leency 24
};
25
26
 
27
28
 
2420 leency 29
2413 leency 30
 
31
 
2793 leency 32
	text_color_index,
2605 leency 33
	link_color,
2420 leency 34
	bg_color;
2660 leency 35
2413 leency 36
 
37
	stolbec,
38
	tab_len;
39
40
 
41
	tag[100],
42
	tagparam[10000],
43
	parametr[1200],
44
	options[1000];
45
46
 
2793 leency 47
int anchor_line_num;
48
2413 leency 49
 
2793 leency 50
 
2413 leency 51
#include "include\colors.h"
52
#include "include\unicode_tags.h"
53
#include "include\some_code.h"
54
55
 
56
 
2793 leency 57
	if (id > 399)
2413 leency 58
	{
59
		GetURLfromPageLinks(id);
2428 leency 60
2793 leency 61
 
62
		if (URL[0] == '#')
63
		{
64
			copystr(#URL+find_symbol(#URL, '#'), #anchor);
65
66
 
2433 leency 67
			//copystr(#editURL, #URL + strlen(#URL));
2793 leency 68
			//copystr(#URL, #editURL);
69
70
 
71
			ShowPage(#URL);
2433 leency 72
			return;
2413 leency 73
		}
74
		//liner.ru#1
2793 leency 75
		if (find_symbol(#URL, '#')<>-1)
76
		{
77
			copystr(#URL+find_symbol(#URL, '#'), #anchor);
78
			URL[find_symbol(#URL, '#')-1] = 0x00; //заглушка
79
		}
80
2428 leency 81
 
2413 leency 82
2764 leency 83
 
2428 leency 84
		{
85
			RunProgram("/sys/media/kiv", #URL);
86
			copystr(BrowserHistory.CurrentUrl(), #URL);
2433 leency 87
			return;
2428 leency 88
		}
89
90
 
2763 leency 91
		return;
2413 leency 92
	}
93
94
 
95
	IF(count < max_kolvo_strok) SWITCH(id) //если мало строк игнорируем некоторые кнопки
96
	{ CASE 183: CASE 184: CASE 180: CASE 181: return; }
97
98
 
99
	{
100
		case 011: //Ctrk+K
101
			ReadHtml();
102
			koitodos(buf);
103
			break;
104
		case 021: //Ctrl+U
2660 leency 105
			ReadHtml();
106
			utf8rutodos(buf);
107
			break;
108
		case BACK:
2413 leency 109
			if (!BrowserHistory.GoBack()) return;
2739 leency 110
			OpenPage();
111
			return;
2413 leency 112
		case FORWARD:
113
			if (!BrowserHistory.GoForward()) return;
2739 leency 114
			OpenPage();
115
			return;
2413 leency 116
		case 054: //F5
117
			IF(edit1.flags == 66) break;
118
		case REFRESH:
119
			if (GetProcessSlot(downloader_id)<>0)
120
			{
121
				KillProcess(downloader_id);
122
				Pause(20);
123
				Draw_Window();
124
				return;
125
			}
126
			OpenPage(); //от сердца отрываю, здесь нужно za_kadrom старое
2764 leency 127
			return;
2413 leency 128
		case 014: //Ctrl+N новое окно
129
		case 020: //Ctrl+T новая вкладка
130
		case NEWTAB:
131
			MoveSize(190,80,OLD,OLD);
132
			RunProgram(#program_path, #URL);
133
			return;
134
		case 052:  //Нажата F3
135
			IF(edit1.flags <> 66)
136
			IF (!strcmp(get_URL_part(5),"http:")) RunProgram(#tinypad_path, #download_path); ELSE RunProgram(#tinypad_path, #URL);
2793 leency 137
			return;
2413 leency 138
		case 053:  //Нажата F4
2793 leency 139
			IF(edit1.flags <> 66)
140
			IF (!strcmp(get_URL_part(5),"http:")) RunProgram(#t_edit_path, #download_path); ELSE RunProgram(#t_edit_path, #URL);
141
			return;
142
143
 
2413 leency 144
			copystr("http://kolibri-os.narod.ru", #editURL);
2696 leency 145
		case GOTOURL:
2413 leency 146
		case 0x0D: //enter
147
			copystr(#editURL, #URL);
148
			OpenPage();
2739 leency 149
			return;
2413 leency 150
		case 173:	//ctrl+enter
151
		case SEARCHWEB:
152
			copystr(#search_path, #URL);
153
			copystr(#editURL, #URL + strlen(#URL));
154
			OpenPage();
2739 leency 155
			return;
2413 leency 156
157
 
158
			IF(za_kadrom <= 0) return;
159
			za_kadrom--;
160
			break;
161
		case ID2: //мотаем вниз
162
			IF(max_kolvo_strok + za_kadrom >= count) return;
163
			za_kadrom++;
164
			break;
165
		case 183: //PgDown
166
			IF(za_kadrom == count - max_kolvo_strok) return;
167
			za_kadrom += max_kolvo_strok + 2;
168
			IF(max_kolvo_strok + za_kadrom > count) za_kadrom = count - max_kolvo_strok;
169
			BREAK;
170
		case 184: //PgUp
171
			IF(za_kadrom == 0) RETURN;
172
			za_kadrom -= max_kolvo_strok - 2;
173
			IF(za_kadrom < 0) za_kadrom = 0;
174
			BREAK;
175
		case 180: //home
176
			IF(za_kadrom == 0) RETURN;
177
			za_kadrom = 0;
178
			BREAK;
179
		case 181: //end
180
			IF (za_kadrom == count - max_kolvo_strok) RETURN;
181
			za_kadrom = count - max_kolvo_strok;
182
			BREAK;
183
		default:
184
			RETURN;
185
	}
186
	ParseHTML(buf, filesize);
187
}
188
189
 
2739 leency 190
 
2764 leency 191
 
2413 leency 192
	IF (!strcmp(get_URL_part(2),"./")) copystr(#URL+2,#URL); //игнорим :)
2433 leency 193
2428 leency 194
 
195
	&& (strcmp(get_URL_part(5),"http:")<>0)	&& (strcmp(get_URL_part(5),"mailt")<>0)	&& (strcmp(get_URL_part(5),"ftp:/")<>0)
2413 leency 196
	{
197
		copystr(BrowserHistory.CurrentUrl(), #editURL); //достаём адрес текущей страницы
198
199
 
2428 leency 200
201
 
2444 leency 202
		{
2413 leency 203
			editURL[find_symbol(#editURL, '/')] = 0x00; //обрезаем её урл до последнего /
204
		}
205
2428 leency 206
 
207
		{
208
			copystr(#URL+3,#URL);
209
			editURL[find_symbol(#editURL, '/')-1] = 0x00; //обрезаем её урл до последнего /
210
			goto _CUT_ST_LEVEL_MARK;
211
		}
212
213
 
2444 leency 214
		copystr(#URL, #editURL + strlen(#editURL)); //клеим новый адрес
2413 leency 215
		copystr(#editURL, #URL);
216
	}
217
}
218
219
 
220
 
221
 
222
{
223
	if (!strcmp(get_URL_part(5),"http:")))
224
		file_size stdcall (#download_path);
225
	else
226
		file_size stdcall (#URL);
227
228
 
229
	if (!filesize) return;
2764 leency 230
231
 
2413 leency 232
	buf = mem_Alloc(filesize);
233
	if (!strcmp(get_URL_part(5),"http:")))
234
		ReadFile(0, filesize, buf, #download_path);
235
	else
236
		ReadFile(0, filesize, buf, #URL);
237
}
238
239
 
240
 
2764 leency 241
{
242
	if (GetProcessSlot(downloader_id)<>0) PutPaletteImage(#toolbar,200,42,0,0,8,#toolbar_pal);
243
	KillProcess(downloader_id);
244
	copystr(#URL, #editURL);
245
	BrowserHistory.AddUrl();
246
	za_kadrom = count = 0;
247
	if (!strcmp(get_URL_part(5),"http:")))
248
	{
249
		copystr(#version, #header);
250
		KillProcess(downloader_id); //убиваем старый процесс
251
		DeleteFile(#download_path);
252
		IF (URL[strlen(#URL)-1]=='/') URL[strlen(#URL)-1]='';
253
		downloader_id = RunProgram("/sys/network/downloader", #URL);
254
		//это гениально и это пиздец!!!
255
		Pause(60);
256
		if (GetProcessSlot(downloader_id)<>0)
257
		{
258
			WriteDebug("Browser Hack v2.0: Killing downloader and trying to run it one more!");
259
			KillProcess(downloader_id); //убиваем старый процесс
260
			downloader_id = RunProgram("/sys/network/downloader", #URL);
261
		}
262
		//
263
		IF (downloader_id<0) RunProgram("@notify", "Error running Downloader. Internet unavilable.");
264
		Draw_Window();
265
		return;
266
	}
267
	ReadHtml();
268
	if (filesize) wintodos(buf);
269
	WB1.ShowPage(#URL);
270
}
271
2413 leency 272
 
2764 leency 273
 
274
{
275
	edit1.size = edit1.pos = strlen(#editURL);
2413 leency 276
	edit_box_draw stdcall(#edit1); //рисуем строку адреса
277
278
 
279
	{
280
		DrawBar(left, top, width+4, height, 0xFFFFFF); //закрашиваем всё донизу
2739 leency 281
		if (GetProcessSlot(downloader_id)<>0) WriteText(left + 10, top + 18, 0x80, 0, "Loading...", 0);
2413 leency 282
		else
283
		{
284
			WriteText(left + 10, top + 18, 0x80, 0, "Page not found. May be, URL contains some errors.", 0);
285
			if (!strcmp(get_URL_part(5),"http:"))) WriteText(left + 10, top + 32, 0x80, 0, "Or Internet unavilable for your configuration.", 0);
286
		}
287
		DrawTitle(#version); //?
288
		return;
289
	}
290
2764 leency 291
 
2413 leency 292
	IF (!strcmp(#version, #header)) DrawTitle(#header);
293
}
294
295
 
296
 
297
 
298
	word bukva[1];
299
	byte ignor_param = 0;
300
	char temp[768];
301
	stroka = -za_kadrom;
302
	stolbec = 0;
303
	FOR(j = 400; j < blink + 1; j++;) DeleteButton(j);
304
	b_text = i_text = u_text = s_text = pre_text = blq_text = body_present =
2420 leency 305
	li_text = link = ignor_text = text_color_index = text_colors[0] = li_tab = 0; //обнуляем теги
2413 leency 306
	link_color = 0x0000FF;
307
	bg_color = 0xFFFFFF;
2420 leency 308
	blink = 400;
2413 leency 309
	line = '';
310
	copystr("|", #page_links);
311
	copystr(#version, #header);
2418 leency 312
	IF(!strcmp(#URL + strlen(#URL) - 4, ".txt"))
2420 leency 313
	{
314
		DrawBar(left, top, width-15, 15, bg_color); //закрашиваем первую строку
315
		pre_text = 1; //зачётное отображение текста
316
	}
317
	IF(!strcmp(#URL + strlen(#URL) - 4, ".mht")) ignor_text = 1;
2413 leency 318
	for (bword = buf; buf + fsize > bword; bword++;) {
2660 leency 319
	  bukva = ESBYTE[bword];
2413 leency 320
	  switch (bukva) {
321
		case 0x0a:
322
			IF(pre_text == 1) {
323
				bukva = '';
324
				temp = '';
325
				goto NEXT_MARK;
326
			}
327
		case '\9':
2605 leency 328
			if (pre_text == 1) //иначе идём на 0x0d
2413 leency 329
			{
330
				tab_len=strlen(#line)/8;
331
				tab_len=tab_len*8;
332
				tab_len=8+tab_len-strlen(#line);
333
				for (i=0; i
334
				break;
335
			}
336
		case 0x0d:
337
			bukva = ' ';
338
			goto DEFAULT_MARK;
339
		case '<':
340
			bword++; //промотаем символ <
341
			IF(ESBYTE[bword] == '!') //фильтрация внутри , дерзко
342
			{
343
				bword++;
344
				IF(ESBYTE[bword] == '-') {
345
					HH_: do {
346
						bword++;
347
						IF(bword >= buf + fsize) break 1;
348
					} while (ESBYTE[bword] <>'-');
349
					bword++;
350
					IF(ESBYTE[bword] <>'-') GOTO HH_;
351
				}
352
			}
353
			WHILE (ESBYTE[bword] <>'>') && (bword < buf + fsize) //получаем тег и его параметры
354
			{
355
				bukva = ESBYTE[bword];
356
				IF(bukva == '\9') || (bukva == '\x0a') || (bukva == '\x0d') bukva = ' ';
357
				IF(!ignor_param) && (bukva <>' ') copystr(#bukva, #tag + strlen(#tag));
358
				ELSE {
359
					ignor_param = true;
360
					copystr(#bukva, #tagparam + strlen(#tagparam));
361
				}
362
				bword++;
363
			}
364
			lowcase(#tag);
365
			lowcase(#tagparam);
366
2418 leency 367
 
2413 leency 368
			IF(strlen(#tagparam) > 0) && (strlen(#tagparam) < 4000) GetNextParam();
369
			WhatTextStyle(left + 5, stroka * 10 + top + 5, width - 20); //обработка тегов
370
371
 
372
2793 leency 373
 
2413 leency 374
		case '=': //поддержка шайтанской кодировки страниц, сохранённых через ИЕ7
375
			IF(strcmp(#URL + strlen(#URL) - 4, ".mht")<>0) goto DEFAULT_MARK;
376
377
 
378
			bukva=ESBYTE[bword];
379
			copystr(#bukva, #temp);
380
381
 
382
			bukva=ESBYTE[bword];
383
			copystr(#bukva, #temp + strlen(#temp));
384
385
 
386
			IF (bukva) goto DEFAULT_MARK;
387
			break;
388
389
 
390
			IF(ignor_text) break;
391
			bword++;
392
			tag='';
393
			FOR (j=0;   (ESBYTE[bword] <>';') && (j < 7);     j++; bword++;)
394
			{
395
				bukva = ESBYTE[bword];
396
				copystr(#bukva, #tag + strlen(#tag));
397
			}
398
399
 
400
			{
401
				IF(!strcmp(#tag, unicode_tags[j]))
402
				{
403
					copystr(unicode_tags[j+1], #line + strlen(#line));
404
					break 1;
405
				}
406
			}
407
408
 
409
			IF(tag[1] == '1') && (rez>=0) && (rez<=72) && (strlen(#tag) == 5)
410
				{
411
					bukva = unicode_chars[rez];
412
					GOTO DEFAULT_MARK; //обрабатываем букву
413
				}
414
415
 
2739 leency 416
			copystr(#tag, #line + strlen(#line)); //выводим на экран необработанный тег, так браузеры зачем-то делают
2413 leency 417
			break;
418
		default:
419
			DEFAULT_MARK:
420
			IF(ignor_text) break;
421
			IF(pre_text == 0) && (bukva == ' ') && (strcmp(#line + strlen(#line) - 1, " ") == 0) continue;
422
			//
423
			if (stolbec + strlen(#line) > max_kolvo_stolbcov)
424
			{
425
				copystr(#line + find_symbol(#line, ' '), #temp); //перенос по словам
426
				line[find_symbol(#line, ' ')] = 0x00;
427
				NEXT_MARK: IF(stroka - 1 > max_kolvo_strok) && (za_kadrom <>0) break 1; //уходим...
428
				WhatTextStyle(left + 5, stroka * 10 + top + 5, width - 20); //вывод строки
429
				TextGoDown(left + 5, stroka * 10 + top + 5, width - 20); //закрашиваем следущую строку
430
				copystr(#temp, #line);
431
			}
432
			IF(pre_text == 0) && (bukva == ' ') && (stolbec == 0) && (strlen(#line) == 0) CONTINUE;
433
			copystr(#bukva, #line + strlen(#line));
434
	  }
435
	}
436
	if (strcmp(#URL + strlen(#URL) - 4, ".txt")<>0) && (body_present==0)
2420 leency 437
		DrawBar(left, top, width-15, 15, bg_color); //закрашиваем первую строку если какой-то рахит не создал тег боди
438
439
 
440
		DrawBar(left, max_kolvo_strok * 10 + top + 25, width - 15, -max_kolvo_strok * 10 + height - 25, bg_color);
441
	if (stroka * 10 + 15 <= height)
442
		DrawBar(left, stroka * 10 + top + 15, width - 15, -stroka * 10 + height - 15, bg_color); //закрашиваем всё до конца
443
	if (za_kadrom == 0) count = stroka;
444
2793 leency 445
 
446
	{
447
		anchor[0]='';
448
		za_kadrom=anchor_line_num;
449
		ParseHTML(buf, filesize);
450
	}
451
452
 
2413 leency 453
}
454
455
 
456
 
457
{
458
	byte	kavichki = false;
459
	int		i = strlen(#tagparam) - 1;
460
461
 
462
	{
463
		IF (tagparam[i] == '"') || (tagparam[i] == '\'') kavichki=tagparam[i];
464
		tagparam[i] = 0x00;
465
		i--;
466
	}
467
468
 
469
	{
470
		i=find_symbol(#tagparam, kavichki);
471
		copystr(#tagparam + i, #options);
472
	}
473
	ELSE
474
	{
475
		WHILE((i > 0) && (tagparam[i] <>'=')) i--; //i=find_symbol(#tagparam, '=')+1;
476
		i++;
477
478
 
479
		WHILE (options[0] == ' ') copystr(#options + 1, #options);
480
	}
481
	tagparam[i] = 0x00;
482
483
 
484
	{
485
		IF (tagparam[i] == '=') //дерзкая заглушка
486
		{
487
			//copystr(#tagparam+i+2,#options);
488
			tagparam[i + 1] = 0x00;
489
		}
490
	}
491
492
 
493
	tagparam[i] = 0x00;
494
}
495
496
 
497
 
498
 
499
void TWebBrowser::WhatTextStyle(int left1, top1, width1) {
500
	dword hr_color;
501
502
 
503
    char temp[4096];
504
    int w, h, img_za_kadrom=0;
505
506
 
507
	IF(tag[0] == '/')
508
	{
509
		rez = 0;
510
		copystr(#tag + 1, #tag);
511
	}
512
	ELSE
513
		rez = 1;
514
515
 
516
	IF(!chTag("html")) {
517
		IF(!strcmp(#URL + strlen(#URL) - 4, ".mht")) IF (rez==0) ignor_text = 1; ELSE ignor_text = 0;
518
		return;
519
	}
520
	IF(!chTag("script")) || (!chTag("style")) || (!chTag("binary")) ignor_text = rez;
2660 leency 521
2413 leency 522
 
2418 leency 523
	{
2413 leency 524
		copystr(#line, #header);
525
		copystr(" -", #header + strlen(#header));
526
		copystr(#version, #header + strlen(#header));
527
		if (stroka==0) DrawTitle(#header);
2418 leency 528
		return;
2413 leency 529
	}
530
531
 
2418 leency 532
	//
2413 leency 533
2793 leency 534
 
2418 leency 535
	IF(!chTag("q")) copystr("\"", #line + strlen(#line));
2413 leency 536
537
 
538
	if (stroka >= 0) && (stroka - 2 < max_kolvo_strok) && (line)
539
	{
540
		WriteText(stolbec * 6 + left1, top1, 0x80, text_colors[text_color_index], #line, 0); //может тут рисовать белую строку?
2444 leency 541
		IF (b_text)	{ $add ebx, 1<<16   $int 0x40 }
2696 leency 542
		IF (i_text) Skew(stolbec * 6 + left1, top1, strlen(#line)+1*6, 10); //наклонный текст
2413 leency 543
		IF (s_text) DrawBar(stolbec * 6 + left1, top1 + 4, strlen(#line) * 6, 1, text_colors[text_color_index]); //зачёркнутый
544
		IF (u_text) DrawBar(stolbec * 6 + left1, top1 + 8, strlen(#line) * 6, 1, text_colors[text_color_index]); //подчёркнутый
545
		IF (link) {
546
			DefineButton(stolbec * 6 + left1 - 2, top1, strlen(#line) * 6 + 3, 9, blink + BT_HIDE, 0xB5BFC9); //
547
			DrawBar(stolbec * 6 + left1, top1 + 8, strlen(#line) * 6, 1, text_colors[text_color_index]);
548
		}
549
	}
550
	//
551
	IF(!tag) return;
552
	stolbec += strlen(#line);
553
2420 leency 554
 
2793 leency 555
	{
556
		if (!strcmp(#anchor, #options))
557
		{
558
			anchor_line_num=za_kadrom+stroka;
559
		}
560
	}
561
562
 
2413 leency 563
	{
564
		BODY_MARK:
565
566
 
567
			link_color = GetColor(#options);
568
569
 
2420 leency 570
		{
2413 leency 571
			text_colors[0]=GetColor(#options);
572
		}
573
574
 
575
		{
576
			bg_color=GetColor(#options);
2420 leency 577
		}
578
2413 leency 579
 
580
			GetNextParam();
581
			GOTO BODY_MARK;
582
		}
2420 leency 583
584
 
585
586
 
587
		return;
588
	}
2413 leency 589
	//////////////////////////
590
	if (!chTag("a"))
2793 leency 591
	{
592
		if (rez)
593
		{
594
			_A_MARK:
595
			if (!strcmp(#parametr, "href="))
596
			{
597
				if (stroka - 1 > max_kolvo_strok) || (stroka < -2) return;
598
				if (link == 1) text_color_index--; //если какой-то долбоёб не закрыл тэг
599
				link = 1;
2413 leency 600
				blink++;
601
				text_color_index++;
602
				text_colors[text_color_index] = link_color;
603
				copystr(#options, #page_links + strlen(#page_links));
604
				copystr("|", #page_links + strlen(#page_links));
605
			}
606
			if (anchor) && (!strcmp(#parametr, "name="))
2793 leency 607
			{
608
				if (!strcmp(#anchor, #options))
609
				{
610
					anchor_line_num=za_kadrom+stroka;
611
				}
612
			}
613
			if (tagparam)
614
			{
615
				GetNextParam();
2413 leency 616
				GOTO _A_MARK;
2793 leency 617
			}
2413 leency 618
		}
619
		ELSE {
620
			link = 0;
621
			IF(text_color_index > 0) text_color_index--;
622
		}
623
		return;
624
	}
625
	/////////////////////////
626
	if (!chTag("font"))
627
	{
628
		IF (stroka - 1 > max_kolvo_strok) return;
2739 leency 629
		COL_MARK:
2413 leency 630
		if (strcmp(#parametr, "color=") == 0) //&& (parametr[1] == '#')
631
		{
632
			text_color_index++;
633
			text_colors[text_color_index] = GetColor(#options);
634
		}
635
		IF(tagparam) {
636
			GetNextParam();
637
			GOTO COL_MARK;
638
		}
639
		IF(!rez) && (text_color_index > 0) text_color_index--;
640
		return;
641
	}
642
	//////////////////////////
643
	IF(!chTag("tr")) || (!chTag("br")) {
644
		TextGoDown(left1, top1, width1);
645
		return;
646
	}
647
	IF(!chTag("div")) {
648
		IF(oldtag[0] <>'h') TextGoDown(left1, top1, width1);
649
		return;
650
	}
651
	IF(!chTag("p")) {
652
		IF(oldtag[0] == 'h') return;
653
		TextGoDown(left1, top1, width1);
654
		IF(rez) TextGoDown(left1, top1 + 10, width1);
655
		return;
656
	}
657
	////////////////////////////
658
	IF(!chTag("h1")) || (!chTag("h2")) || (!chTag("h3")) || (!chTag("h4")) {
659
		TextGoDown(left1, top1, width1);
660
		IF(rez) TextGoDown(left1, top1 + 10, width1);
661
		b_text = rez;
662
		copystr(#tag, #oldtag);
663
		return;
664
	} ELSE copystr("", #oldtag);
665
	IF(!chTag("b")) || (!chTag("strong")) || (!chTag("big")) {
666
		b_text = rez;
667
		return;
668
	}
669
	////////////////////////////
670
	IF(!chTag("i")) || (!chTag("em")) || (!chTag("subtitle")) {
2660 leency 671
		i_text = rez;
2413 leency 672
		return;
673
	}
674
	////////////////////////////
675
	if (!chTag("dt"))
2696 leency 676
	{
2413 leency 677
		li_text = rez;
678
		IF(rez == 0) return;
679
		TextGoDown(left1, top1, width1);
680
		return;
681
	}
682
	/////////////////////////////
2696 leency 683
	if(!chTag("li")) //надо сделать вложенные списки
684
	{
685
		li_text = rez;
686
		IF(rez == 0) return;
687
		TextGoDown(left1, top1, width1);
688
		IF(stroka > -1) && (stroka - 2 < max_kolvo_strok) DrawBar(li_tab * 5 * 6 + left1 - 5, top1 + 12, 2, 2, 0);
689
		return;
690
	}
691
	////////////////////////////
2413 leency 692
	IF(!chTag("u")) || (!chTag("ins")) u_text = rez;
693
	IF(!chTag("s")) || (!chTag("strike")) || (!chTag("del")) s_text = rez;
694
	IF(!chTag("ul")) || (!chTag("ol")) IF(!rez) {
695
		li_text = rez;
696
		li_tab--;
697
		TextGoDown(left1, top1, width1);
698
	} ELSE li_tab++;
699
	IF(!chTag("dd")) stolbec += 5;
700
	IF(!chTag("blockquote")) blq_text = rez;
701
	IF(!chTag("pre")) pre_text = rez;
702
	IF(!chTag("hr")) {
703
		TextGoDown(left1, top1, width1);
704
		TextGoDown(left1, top1 + 10, width1);
705
		IF(strcmp(#parametr, "color=") == 0) hr_color = GetColor(#options);
706
		ELSE hr_color = 0x999999;
707
		IF(stroka > 0) DrawBar(left1, top1 + 14, width1 - 8, 1, hr_color);
708
	}
709
710
 
711
	{
712
		//IF (GetFileInfo(#libimg)<>0) return;  //если библиотеки нет
713
		IMG_TAG:
714
			IF (strcmp(#parametr,"src=")==0)   //надо объединить с GetNewUrl()
715
	          {
716
				copystr(BrowserHistory.CurrentUrl(), #temp); //достаём адрес текущей страницы
717
				temp[find_symbol(#temp, '/')] = 0x00; //обрезаем её урл до последнего /
718
				copystr(#options,#temp+strlen(#temp));
719
				image=load_image(#temp);
720
721
 
722
	                h=DSWORD[image+8];
723
	          }
724
		IF(tagparam) {
725
			GetNextParam();
726
			GOTO IMG_TAG;
727
		}
728
729
 
730
731
 
732
        {
733
			stroka+=h/10;
734
735
 
736
				return;
737
738
 
739
			{
740
				img_za_kadrom=WB1.top-top1;
741
				h=h-img_za_kadrom;
742
				top1=WB1.top;
2433 leency 743
			}
2413 leency 744
745
 
2566 leency 746
			{
2413 leency 747
				h=WB1.top+WB1.height-top1-15;
2566 leency 748
			}
2413 leency 749
750
 
751
752
 
753
			DrawBar(left1+w - 5, top1 + 10, width1-w + 5, h, bg_color);
2420 leency 754
			IF (link)
2433 leency 755
			{
756
				DefineButton(left1 - 5, top1+10, w, h, blink + BT_HIDE, 0xB5BFC9);
757
			}
758
759
 
2413 leency 760
		/*else
761
		{
762
			IF (strcmp(#parametr,"alt=")==0) copystr(#options,#line+strlen(#line));
763
		}*/
764
		return;
765
	}
766
767
 
2605 leency 768
	{
2413 leency 769
		META:
770
		if (!strcmp(#parametr, "charset=")) || (!strcmp(#parametr, "content=")) || (!strcmp(#parametr, "encoding="))
2605 leency 771
		{
2413 leency 772
			copystr(#options[find_symbol(#options, '=')],#options); //поиск в content=
773
774
 
775
			{
776
				ReadHtml();
777
				utf8rutodos(buf);
778
			}
779
			IF(!strcmp(#options, "koi8-r")) || (!strcmp(#options, "koi8-u"))
780
			{
781
				ReadHtml();
782
				koitodos(buf);
783
			}
784
			IF(!strcmp(#options, "dos")) || (!strcmp(#options, "cp-866"))
785
			{
786
				ReadHtml();
787
			}
788
		}
789
		IF(tagparam)
790
		{
791
			GetNextParam();
792
			goto META;
793
		}
794
		return;
795
	}
796
}
797
798
 
799
 
2739 leency 800
{
801
	stroka++;
2413 leency 802
	IF(blq_text == 1) stolbec = 8;
803
	ELSE stolbec = 0;
804
	IF(li_text == 1) stolbec = li_tab * 5;
805
	IF(stroka >= 0) && (stroka - 2 < max_kolvo_strok) DrawBar(left1 - 5, top1 + 10, width1 + 5, 10, bg_color);
2420 leency 806
}
2413 leency 807
808
 
809
 
810
void TWebBrowser::DrawScroller() //не оптимальная отрисовка, но зато в одном месте
2739 leency 811
{
812
	scroll1.max_area = count;
813
	scroll1.cur_area = max_kolvo_strok;
814
	scroll1.position = za_kadrom;
815
2413 leency 816
 
2739 leency 817
	scroll1.start_x=Form.width-28; //left + width - 15
818
	scroll1.size_y=WB1.height;
819
2413 leency 820
 
2739 leency 821
822
 
823
	DefineButton(scroll1.start_x+1, scroll1.start_y+scroll1.size_y-18, 16, 16, ID2+BT_HIDE, 0xE4DFE1);
824
}
2413 leency 825
>