diff --git a/programs/other/planet_v/pl_import.inc b/programs/other/planet_v/pl_import.inc index 772ab47866..b7ef47a664 100644 --- a/programs/other/planet_v/pl_import.inc +++ b/programs/other/planet_v/pl_import.inc @@ -7,6 +7,7 @@ boxlib_import: edit_box_mouse dd aEdit_box_mouse ; version_ed dd aVersion_ed + init_checkbox dd aInit_checkbox check_box_draw dd aCheck_box_draw check_box_mouse dd aCheck_box_mouse ; version_ch dd aVersion_ch @@ -53,8 +54,9 @@ boxlib_import: aEdit_box_mouse db 'edit_box_mouse',0 ; aVersion_ed db 'version_ed',0 - aCheck_box_draw db 'check_box_draw',0 - aCheck_box_mouse db 'check_box_mouse',0 + aInit_checkbox db 'init_checkbox2',0 + aCheck_box_draw db 'check_box_draw2',0 + aCheck_box_mouse db 'check_box_mouse2',0 ; aVersion_ch db 'version_ch',0 ; aOption_box_draw db 'option_box_draw',0 diff --git a/programs/other/planet_v/planet_v.asm b/programs/other/planet_v/planet_v.asm index c73f3abe1b..ef39c08b9d 100644 --- a/programs/other/planet_v/planet_v.asm +++ b/programs/other/planet_v/planet_v.asm @@ -157,12 +157,13 @@ start: m2m dword[tree2.data_img],dword[tree_nod_icon] @@: - mcall 40,0x27 + mcall 40,0x27 ;маска системных событий + init_checkboxes2 ch1,checkboxes_end mcall 48,3,sc,sizeof.system_colors ;установка системных цветов edit_boxes_set_sys_color edit1,editboxes_end,sc - check_boxes_set_sys_color ch1,checkboxes_end,sc + check_boxes_set_sys_color2 ch1,checkboxes_end,sc mov byte[file_name],0 @@ -877,12 +878,12 @@ fun_opn_dlg: ; txt142 db 'Выбор метки',0 ; check_boxes -ch1 check_box 5, 5, 6, 12, 0xffffd0, 0x800000, 0, ch_text1, 12,ch_flag_en -ch2 check_box 5, 20, 6, 12, 0xffffd0, 0x800000, 0, ch_text2, 11,ch_flag_en +ch1 check_box2 (5 shl 16)+12, (5 shl 16)+12, 6, 0xffffd0, 0x800000, 0, ch_text1, ch_flag_en +ch2 check_box2 (5 shl 16)+12, (20 shl 16)+12, 6, 0xffffd0, 0x800000, 0, ch_text2, ch_flag_en checkboxes_end: -ch_text1 db 'брать сверху' -ch_text2 db 'брать снизу' +ch_text1 db 'брать сверху',0 +ch_text2 db 'брать снизу',0 edit1 edit_box 190, 215, 10, 0xd0ffff, 0xff, 0x80ff, 0, 0xa000, 4090, openfile_path, mouse_dd, 0 edit2 edit_box 100, 370, 240, 0xd0ffff, 0xff, 0x80ff, 0, 0xa000, 30, ed_buffer.2, mouse_dd, 0 @@ -1028,7 +1029,7 @@ align 4 ret ;вернуться чень интересный ход т.к. пока в стеке храниться кол-во вызовов то столько раз мы и будем вызываться -hed db 'Planet viewer 24.08.10',0 ;подпись окна +hed db 'Planet viewer 16.01.13',0 ;подпись окна sc system_colors ;системные цвета mouse_dd dd 0 ;нужно для Shift-а в editbox diff --git a/programs/other/planet_v/tile_fun.inc b/programs/other/planet_v/tile_fun.inc index 419f330983..ff5dec4166 100644 --- a/programs/other/planet_v/tile_fun.inc +++ b/programs/other/planet_v/tile_fun.inc @@ -638,8 +638,7 @@ proc load_tile, tile:dword ; cmp tile_err_f,6 ; je @f mov tile_drobn,0 - mov eax,ch2 ;проверяем опцию 'брать снизу' - bt dword[eax+32],1 ;ch_flags equ [edi+32] ;флаги + bt dword[ch2.flags],1 ;проверяем опцию 'брать снизу' jae .opt_drobn_false ;если файл не найден, попадаем сюда @@ -724,8 +723,7 @@ proc load_tile, tile:dword .opt_drobn_false: - mov eax,ch1 ;проверяем опцию 'брать сверху' - bt dword[eax+32],1 ;ch_flags equ [edi+32] ;флаги + bt dword[ch1.flags],1 ;проверяем опцию 'брать сверху' jae @f cmp tile_drobn,FRACT_TILE_ALL ;если собрана вся картинка, то сверху уже не берем je @f