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