Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
1971 lev 1
//HTML Viewer in C--
2433 leency 2
//Copyright 2007-2012 by Veliant & Leency
1971 lev 3
//Asper, Lrz, Nable, lev.
4
 
2413 leency 5
#include "..\lib\kolibri.h--"
6
#include "..\lib\file_system.h--"
7
#include "img\toolbar_icons.c"
8
#include "img\URLgoto.txt";
1971 lev 9
//Asper
2413 leency 10
#include "..\lib\mem.h--"
11
#include "..\lib\libio_lib.h--"
12
#include "..\lib\libimg_lib.h--"
13
#include "..\lib\edit_box_lib.h--"
14
#include "..\lib\dll.h--"
1971 lev 15
 
16
//переменные
2238 leency 17
char URL[4096]="/sys/index.htm",
1971 lev 18
	editURL[4096],
19
	page_links[12000],
20
	header[512];
21
 
2238 leency 22
int max_kolvo_strok,
1971 lev 23
	 max_kolvo_stolbcov,
2238 leency 24
	 count;
1971 lev 25
 
2228 leency 26
int za_kadrom,
2238 leency 27
	scroll_size,
1971 lev 28
	mouse_dd;
29
 
30
edit_box edit1= {250,207,16,0xffffff,0x94AECE,0xffffff,0xffffff,0,248,#editURL,#mouse_dd,2,19,19};
31
 
2413 leency 32
proc_info Form;
1971 lev 33
 
34
 
2413 leency 35
#include "TWB.h"
1971 lev 36
 
37
 
38
void main()
39
{
2153 leency 40
	mouse m;
41
	int btn;
42
	byte key;
43
 
1971 lev 44
    //Asper [
45
        mem_Init();
46
        $or      eax, eax
47
        $jnz      loc00
48
        return;
49
      @loc00:
50
      load_dll2(libio, #libio_init,1);
51
      load_dll2(libimg, #libimg_init,1);
52
      load_dll2(boxlib, #edit_box_draw,0);
53
    //] Asper
2248 leency 54
 
55
	IF (param) copystr(#param,#URL);
56
	copystr(#URL,#editURL);
57
 
2420 leency 58
	if (!strcmp(get_URL_part(5),"http:"))) HttpLoad();
2433 leency 59
	//Draw_Window();  //shis is right
60
	//WB1.ShowPage(#URL);  //shis is right
2420 leency 61
 
1971 lev 62
	SetEventMask(0x27);
63
	loop()
64
	{
65
		switch(WaitEvent())
66
		{
67
			CASE evMouse:
68
				m.get();
69
				IF (m.vert==65535) //прокрутка колёсиком
70
				{
71
					IF (za_kadrom==0) break;
72
					IF (za_kadrom>3) za_kadrom-=2; ELSE za_kadrom=1;
73
					WB1.Scan(ID1);
74
				}
75
				IF (m.vert==1)
76
				{
2238 leency 77
					IF(max_kolvo_strok+za_kadrom+3>=count) WB1.Scan(181);
1971 lev 78
					ELSE	{
79
						za_kadrom+=2;
80
						WB1.Scan(ID2);
81
					}
82
				}
2238 leency 83
				//IF (count
2085 leency 84
				if (m.x>=WB1.width-14) && (m.x<=WB1.width+6)
85
				&& (m.y>WB1.top+16) && (m.y
2238 leency 86
				&& (count>max_kolvo_strok) while (m.lkm)
1971 lev 87
				{
2238 leency 88
					IF (scroll_size/2+WB1.top>m.y) || (m.y<0) || (m.y>4000) m.y=scroll_size/2+WB1.top; //если курсор над окном
1971 lev 89
					btn=za_kadrom; //сохраняем старое количество
2238 leency 90
					j= scroll_size/2;
91
					za_kadrom = m.y -j -WB1.top * count / WB1.height;
92
					IF (max_kolvo_strok+za_kadrom>count) za_kadrom=count-max_kolvo_strok;
1971 lev 93
					IF (btn<>za_kadrom) WB1.ParseHTML(buf, filesize); //чтоб лишний раз не перерисовывать
94
					m.get();
95
				}
2413 leency 96
				break;
1971 lev 97
			case evButton:
98
				btn=GetButtonID();
2413 leency 99
				IF (btn==1)
100
				{
101
					KillProcess(downloader_id);
102
					ExitProcess();
103
				}
1971 lev 104
				ELSE
105
				{
106
					WB1.Scan(btn);
107
				}
1974 yogev_ezra 108
				BREAK;
1971 lev 109
			case evKey:
110
				key = GetKey();
111
				WB1.Scan(key);
1974 yogev_ezra 112
				IF (key<>0x0d) && (key<>183) && (key<>184) && (key<>173) {EAX=key<<8; edit_box_key stdcall(#edit1);} //адресная строка
113
				BREAK;
1971 lev 114
			case evReDraw:
115
				Draw_Window();
116
				break;
117
		}
118
		edit_box_mouse stdcall (#edit1);
119
	}
120
}
121
 
122
 
123
void Draw_Window()
124
{
125
	DefineAndDrawWindow(215,100,640,480,0x73,0x00E4DFE1,0,0,0);
2248 leency 126
 
2250 leency 127
	GetProcessInfo(#Form, SelfInfo);
2495 leency 128
	IF (Form.status_window==4) //если свернуто в заголовок, ничего не рисуем
1971 lev 129
	{
130
		DrawTitle(#header);
131
		return;
132
	}
133
	IF (Form.height<120) MoveSize(OLD,OLD,OLD,120);
134
	IF (Form.width<280) MoveSize(OLD,OLD,280,OLD);
2155 leency 135
 
136
	PutPaletteImage(#toolbar,200,42,0,0,8,#toolbar_pal);
2413 leency 137
	if (GetProcessSlot(downloader_id)<>0) PutImage(#stop_btn,24,24,88,10);
138
 
2155 leency 139
	DrawBar(200,0,onLeft(200,9),43,0xE4DFE1); //закрашиваем фон под тулбаром
1971 lev 140
	DrawBar(0,42,onLeft(5,4),1,0xE2DBDC); //выпуклость
141
	DrawBar(0,43,onLeft(5,4),1,0xD2CED0); //выпуклость
142
	FOR (j=0; j<5; j++) DefineButton(j*37+11, 7, 29, 29, 300+j+BT_HIDE, 0x00E4DFE1);
143
	PutImage(#URLgoto,40,19,onLeft(57,0),14);
2152 leency 144
	DefineButton(onLeft(37,0),15, 18, 16, GOTOURL+BT_HIDE, 0xE4DFE1);
145
	DefineButton(onLeft(56,0),15, 17, 16, SEARCHWEB+BT_HIDE, 0xE4DFE1);
1971 lev 146
	DrawRegion_3D(205,14,onLeft(58,205),18,0x94AECE,0x94AECE); //ободок полосы адреса
147
	DrawRegion_3D(206,15,onLeft(59,205),16,0xE4ECF3,0xE4ECF3);
148
	edit1.width=Form.width-266;
2433 leency 149
	//edit_box_draw stdcall(#edit1); //рисуем строку адреса  //shis is right
150
 
1971 lev 151
	WB1.top=44;
152
	WB1.width=Form.width-11;
153
	WB1.height=onTop(43,5);
2399 leency 154
	WB1.ShowPage(#URL);
2433 leency 155
	//WB1.ParseHTML(buf, filesize); //shis is right
1971 lev 156
}
157
 
2238 leency 158
int onLeft(dword right,left) {return Form.width-right-left;}
159
int onTop(dword down,up) {return Form.height-GetSkinWidth()-down-up;}
1971 lev 160
 
161
 
162
stop: