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