Rev 2125 | Rev 2707 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 2125 | Rev 2632 | ||
---|---|---|---|
Line 20... | Line 20... | ||
20 | maxSyntaxFileSize equ 410000 |
20 | maxSyntaxFileSize equ 410000 |
Line 21... | Line 21... | ||
21 | 21 | ||
22 | include '../../proc32.inc' |
22 | include '../../proc32.inc' |
23 | include '../../macros.inc' |
23 | include '../../macros.inc' |
- | 24 | include 'mem.inc' |
|
24 | include 'mem.inc' |
25 | include 'dll.inc' |
25 | include '../../develop/libraries/box_lib/load_lib.mac' |
26 | include '../../develop/libraries/box_lib/load_lib.mac' |
26 | include '../../develop/libraries/box_lib/trunk/box_lib.mac' |
27 | include '../../develop/libraries/box_lib/trunk/box_lib.mac' |
Line 27... | Line 28... | ||
27 | include 'lang.inc' |
28 | include 'lang.inc' |
28 | 29 | ||
29 | include 't_data.inc' |
30 | include 't_data.inc' |
30 | include 'strlen.inc' |
31 | include 'strlen.inc' |
Line 31... | Line 32... | ||
31 | include 't_draw.inc' ;draw main window functions |
32 | include 't_draw.inc' ;draw main window functions |
- | 33 | include 't_button.inc' ;text work functions |
|
- | 34 | ||
- | 35 | @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load |
|
- | 36 | ||
- | 37 | ||
- | 38 | ; ªà®á ¤«ï § £à㧪¨ ¨§®¡à ¦¥¨© á ¨á¯®«ì§®¢ ¨¥¬ ¡¨¡«¨®â¥ª¨ libimg.obj |
|
- | 39 | ;¤«ï ¨á¯®«ì§®¢ ¨ï ¬ ªà®á ã¦ë ¯¥à¥¬¥ë¥: |
|
- | 40 | ; - run_file_70 FileInfoBlock |
|
- | 41 | ; - image_data dd 0 |
|
- | 42 | macro load_image_file path,buf,size |
|
- | 43 | { |
|
- | 44 | ;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâப®¢ë¬ ¯ à ¬¥â஬ |
|
- | 45 | if path eqtype '' ;¯à®¢¥à塞 § ¤ «¨ áâப®© ¯ à ¬¥âà path |
|
- | 46 | jmp @f |
|
- | 47 | local .path_str |
|
- | 48 | .path_str db path ;ä®à¬¨à㥬 «®ª «ìãî ¯¥à¥¬¥ãî |
|
- | 49 | db 0 |
|
- | 50 | @@: |
|
- | 51 | ;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ã⥬ |
|
- | 52 | copy_path .path_str,[32],file_name,0x0 |
|
- | 53 | else |
|
- | 54 | copy_path path,[32],file_name,0x0 ;ä®à¬¨à㥬 ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®© |
|
- | 55 | end if |
|
- | 56 | ||
- | 57 | stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï |
|
- | 58 | mov [buf],eax |
|
- | 59 | ||
- | 60 | mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨ |
|
- | 61 | mov [run_file_70.Function], 0 |
|
- | 62 | mov [run_file_70.Position], 0 |
|
- | 63 | mov [run_file_70.Flags], 0 |
|
- | 64 | mov [run_file_70.Count], dword size |
|
- | 65 | m2m [run_file_70.Buffer], [buf] |
|
- | 66 | mov byte[run_file_70+20], 0 |
|
- | 67 | mov [run_file_70.FileName], file_name |
|
- | 68 | mov ebx,run_file_70 |
|
- | 69 | int 0x40 ;§ £à㦠¥¬ ä ©« ¨§®¡à ¦¥¨ï |
|
- | 70 | cmp ebx,0xffffffff |
|
- | 71 | je @f |
|
- | 72 | ;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data |
|
- | 73 | stdcall dword[img_decode], dword[buf],ebx,0 |
|
- | 74 | mov dword[image_data],eax |
|
- | 75 | ;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb |
|
- | 76 | stdcall dword[img_to_rgb2], dword[image_data],dword[buf] |
|
- | 77 | ;㤠«ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data |
|
- | 78 | stdcall dword[img_destroy], dword[image_data] |
|
- | 79 | @@: |
|
- | 80 | } |
|
Line 32... | Line 81... | ||
32 | include 't_button.inc' ;text work functions |
81 | |
33 | 82 | image_data dd 0 ;㪠§ â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï 㦥 ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï |
|
34 | @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,0 |
83 | icon_tl_sys dd 0 ;㪠§ â¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨á⥬ëå ¨ª®®ª |
Line 47... | Line 96... | ||
47 | 96 | ||
48 | mov esi,file_name |
97 | mov esi,file_name |
49 | call strlen |
98 | call strlen |
50 | mov ecx,eax |
99 | mov ecx,eax |
- | 100 | mov edi,openfile_path |
|
51 | mov edi,openfile_path |
101 | cld |
Line 52... | Line 102... | ||
52 | rep movsb ;ª®¯¨à㥬 ¨¬ï ä ©« ¢ ¡ãä¥à edit1 |
102 | rep movsb ;ª®¯¨à㥬 ¨¬ï ä ©« ¢ ¡ãä¥à edit1 |
Line 53... | Line 103... | ||
53 | 103 | ||
Line 76... | Line 126... | ||
76 | stdcall dword[tl_data_init], tree1 |
126 | stdcall dword[tl_data_init], tree1 |
Line 77... | Line 127... | ||
77 | 127 | ||
78 | ; OpenDialog initialisation |
128 | ; OpenDialog initialisation |
Line 79... | Line 129... | ||
79 | stdcall [OpenDialog_Init],OpenDialog_data |
129 | stdcall [OpenDialog_Init],OpenDialog_data |
80 | - | ||
81 | ; init bmp file |
- | |
82 | mov ecx,1200*18 |
- | |
83 | stdcall mem.Alloc,ecx |
- | |
84 | mov [bmp_icon],eax |
- | |
85 | - | ||
86 | copy_path fn_icon,sys_path,file_name,0x0 |
- | |
87 | - | ||
88 | mov eax,70 ;load icon file |
- | |
89 | mov [run_file_70.Function], 0 |
- | |
90 | mov [run_file_70.Position], 54 |
130 | |
91 | mov [run_file_70.Flags], 0 |
- | |
92 | mov [run_file_70.Count], 1200*18 |
- | |
93 | m2m [run_file_70.Buffer], [bmp_icon] |
- | |
94 | mov byte[run_file_70+20], 0 |
- | |
95 | mov [run_file_70.FileName], file_name |
- | |
96 | mov ebx,run_file_70 |
- | |
97 | int 0x40 |
- | |
98 | - | ||
99 | cmp ebx,-1 |
- | |
100 | mov [err_ini0],1 |
- | |
101 | je @f ;if open file |
- | |
102 | mov [err_ini0],0 |
- | |
103 | @@: |
131 | ; init toolbar file |
104 | 132 | load_image_file 'te_icon.png', bmp_icon,1200*18 |
|
105 | ;--------------------------------------------------------------------- |
133 | ;--------------------------------------------------------------------- |
106 | ; ç¨â ¥¬ bmp ä ©« á ªãàá®à ¬¨ ¨ «¨¨ï¬¨ |
- | |
107 | copy_path fn_icon_tl_sys,sys_path,file_name,0x0 |
134 | ; ç¨â ¥¬ ä ©« á ªãàá®à ¬¨ ¨ «¨¨ï¬¨ |
108 | - | ||
109 | mov ecx,3*256*13 |
135 | load_image_file 'tl_sys_16.png', icon_tl_sys,54+3*256*13 |
110 | stdcall mem.Alloc,ecx |
- | |
111 | mov dword[tree1.data_img_sys],eax |
- | |
112 | - | ||
113 | ;mov [run_file_70.Function], 0 |
- | |
114 | ;mov [run_file_70.Position], 54 |
- | |
115 | ;mov [run_file_70.Flags], 0 |
- | |
116 | mov [run_file_70.Count], 3*256*13 |
- | |
117 | mov [run_file_70.Buffer], eax |
- | |
118 | ;mov byte[run_file_70+20], 0 |
- | |
119 | ;mov [run_file_70.FileName], file_name |
- | |
120 | - | ||
121 | mov eax,70 ;load icon file |
- | |
122 | mov ebx,run_file_70 |
- | |
123 | int 0x40 |
- | |
124 | cmp ebx,0 |
- | |
125 | jg @f |
- | |
126 | mov dword[tree1.data_img_sys],0 |
136 | mov eax,dword[icon_tl_sys] |
127 | @@: |
137 | mov dword[tree1.data_img_sys],eax |
128 | ;--------------------------------------------------------------------- |
138 | ;--------------------------------------------------------------------- |
129 | ; ç¨â ¥¬ bmp ä ©« á ¨ª®ª ¬¨ 㧫®¢ |
- | |
130 | copy_path fn_icon_tl_nod,sys_path,file_name,0x0 |
139 | ; ç¨â ¥¬ ä ©« á ¨ª®ª ¬¨ 㧫®¢ |
131 | - | ||
132 | mov ecx,3*256*2 |
140 | load_image_file 'tl_nod_16.png', icon_tl_sys,54+3*256*2 |
133 | stdcall mem.Alloc,ecx |
- | |
134 | mov dword[tree1.data_img],eax |
- | |
135 | - | ||
136 | ; mov [run_file_70.Function], 0 |
- | |
137 | ; mov [run_file_70.Position], 54 |
- | |
138 | ; mov [run_file_70.Flags], 0 |
- | |
139 | mov [run_file_70.Count], 3*256*2 |
- | |
140 | mov [run_file_70.Buffer], eax |
- | |
141 | ; mov byte[run_file_70+20], 0 |
- | |
142 | ; mov [run_file_70.FileName], file_name |
- | |
143 | - | ||
144 | mov eax,70 ;load icon file |
- | |
145 | mov ebx,run_file_70 |
- | |
146 | int 0x40 |
- | |
147 | cmp ebx,0 |
- | |
148 | jg @f |
- | |
149 | mov dword[tree1.data_img],0 |
141 | mov eax,dword[icon_tl_sys] |
150 | @@: |
142 | mov dword[tree1.data_img],eax |
151 | ;------------------------------------------------------------------------------ |
143 | ;------------------------------------------------------------------------------ |
152 | copy_path fn_syntax_dir,sys_path,file_name,0x0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨â ªá¨á |
144 | copy_path fn_syntax_dir,sys_path,file_name,0x0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨â ªá¨á |
153 | mov eax,70 |
145 | mov eax,70 |
Line 241... | Line 233... | ||
241 | stdcall [edit_box_draw], dword edit1 |
233 | stdcall [edit_box_draw], dword edit1 |
242 | stdcall [menu_bar_draw], dword menu_data_1 |
234 | stdcall [menu_bar_draw], dword menu_data_1 |
Line 243... | Line 235... | ||
243 | 235 | ||
Line 244... | Line -... | ||
244 | call draw_but_toolbar |
- | |
245 | - | ||
246 | cmp [err_ini0],1 |
- | |
247 | jne @f |
- | |
248 | mov eax,4 |
- | |
249 | mov ebx,ted_wnd_l |
- | |
250 | add ebx,ted_rec_l |
- | |
251 | shl ebx,16 |
- | |
252 | add ebx,ted_wnd_t |
- | |
253 | add ebx,ted_rec_t |
- | |
254 | mov ecx,0x80ff0000 |
- | |
255 | mov edx,txtErrIni0 |
- | |
256 | int 0x40 |
- | |
257 | - | ||
258 | add ebx,10 ;move <--y--> |
- | |
259 | mov ecx,0x80ff0080 |
- | |
260 | mov edx,file_name |
- | |
261 | int 0x40 |
- | |
262 | @@: |
- | |
263 | - | ||
264 | cmp [err_ini0],1 |
236 | call draw_but_toolbar |
265 | je @f |
- | |
Line 266... | Line 237... | ||
266 | stdcall [ted_draw], tedit0 |
237 | |
267 | @@: |
238 | stdcall [ted_draw], tedit0 |
Line 268... | Line 239... | ||
268 | 239 | ||
Line 500... | Line 471... | ||
500 | stdcall [ted_delete], tedit0 |
471 | stdcall [ted_delete], tedit0 |
501 | stdcall dword[tl_data_clear], tree1 |
472 | stdcall dword[tl_data_clear], tree1 |
502 | mcall -1 ;¢ë室 ¨§ ¯à®£à ¬¬ë |
473 | mcall -1 ;¢ë室 ¨§ ¯à®£à ¬¬ë |
Line 503... | Line -... | ||
503 | - | ||
504 | - | ||
505 | - | ||
506 | txtErrIni0 db '¥ ®âªàë«áï ä ©« á ¨ª®ª ¬¨',0 |
- | |
507 | err_ini0 db 0 |
474 | |
508 | 475 | ||
Line 509... | Line 476... | ||
509 | edit1 edit_box 250, 220, 5, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 4090, openfile_path, mouse_dd, 0 |
476 | edit1 edit_box 250, 220, 5, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 4090, openfile_path, mouse_dd, 0 |
Line 510... | Line 477... | ||
510 | edit2 edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_find, mouse_dd, 0 |
477 | edit2 edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_find, mouse_dd, 0 |
511 | 478 | ||
512 | buf_find db 302 dup(0) |
479 | buf_find db 302 dup(0) |
513 | 480 | ||
514 | if lang eq ru |
481 | if lang eq ru |
515 | head_f_i0: |
482 | head_f_i: |
516 | head_f_l0 db '¨á⥬ ï ®è¨¡ª ',0 |
483 | head_f_l db '¨á⥬ ï ®è¨¡ª ',0 |
517 | err_message_found_lib0 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'box_lib.obj',39,0 |
484 | err_message_found_lib0 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'box_lib.obj',39,0 |
518 | err_message_import0 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'box_lib.obj',39,0 |
485 | err_message_import0 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'box_lib.obj',39,0 |
- | 486 | err_message_found_lib1 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'msgbox.obj',39,0 |
|
- | 487 | err_message_import1 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'msgbox.obj',39,0 |
|
519 | err_message_found_lib1 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'msgbox.obj',39,0 |
488 | err_message_found_lib2 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'proc_lib.obj',39,0 |
520 | err_message_import1 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'msgbox.obj',39,0 |
489 | err_message_import2 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0 |
521 | err_message_found_lib2 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'proc_lib.obj',39,0 |
490 | err_message_found_lib_3 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'libimg.obj',39,0 |
522 | err_message_import2 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0 |
491 | err_message_import_3 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0 |
523 | else |
492 | else |
524 | head_f_i0: |
493 | head_f_i: |
525 | head_f_l0 db 'System error',0 |
494 | head_f_l db 'System error',0 |
526 | err_message_found_lib0 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0 |
495 | err_message_found_lib0 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0 |
527 | err_message_import0 db 'Error on load import library ',39,'box_lib.obj',39,0 |
496 | err_message_import0 db 'Error on load import library ',39,'box_lib.obj',39,0 |
- | 497 | err_message_found_lib1 db 'Sorry I cannot found library ',39,'msgbox.obj',39,0 |
|
- | 498 | err_message_import1 db 'Error on load import library ',39,'msgbox.obj',39,0 |
|
528 | err_message_found_lib1 db 'Sorry I cannot found library ',39,'msgbox.obj',39,0 |
499 | err_message_found_lib2 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0 |
Line 529... | Line 500... | ||
529 | err_message_import1 db 'Error on load import library ',39,'msgbox.obj',39,0 |
500 | err_message_import2 db 'Error on load import library ',39,'proc_lib.obj',39,0 |
530 | err_message_found_lib2 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0 |
501 | err_message_found_lib_3 db 'Sorry I cannot found library ',39,'libimg.obj',39,0 |
- | 502 | err_message_import_3 db 'Error on load import library ',39,'libimg.obj',39,0 |
|
531 | err_message_import2 db 'Error on load import library ',39,'proc_lib.obj',39,0 |
503 | end if |
- | 504 | ||
532 | end if |
505 | ;library structures |
- | 506 | l_libs_start: |
|
- | 507 | lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\ |
|
- | 508 | err_message_found_lib0, head_f_l, import_box_lib,err_message_import0, head_f_i |
|
533 | 509 | lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\ |
|
534 | ;library structures |
510 | err_message_found_lib1, head_f_l, import_msgbox_lib, err_message_import1, head_f_i |
Line 535... | Line 511... | ||
535 | l_libs_start: |
511 | lib2 l_libs lib_name_2, sys_path, file_name, system_dir_2,\ |
536 | lib0 l_libs lib0_name, sys_path, file_name, system_dir0, err_message_found_lib0, head_f_l0, boxlib_import,err_message_import0, head_f_i0 |
512 | err_message_found_lib2, head_f_l, import_proclib, err_message_import2, head_f_i |