diff --git a/programs/develop/kol_f_edit/ced_code_g.inc b/programs/develop/kol_f_edit/ced_code_g.inc
index a7c30696b9..cf1641cf98 100644
--- a/programs/develop/kol_f_edit/ced_code_g.inc
+++ b/programs/develop/kol_f_edit/ced_code_g.inc
@@ -164,7 +164,7 @@ push ebx
cmp eax,0
je .find_no
- cmp byte[eax],C_ST
+ cmp byte[eax],C_STR
jne @f
stdcall get_code_struct,eax ;юсЁрсюЄър юс·хъЄр
stdcall dword[tl_node_poi_get_next_info], esi,tree2
@@ -181,31 +181,31 @@ push ebx
stdcall [ted_text_add], tedit0,txt_ends,6,ted_opt_ed_move_cursor
jmp .beg_iterat
@@:
- cmp byte[eax],C_TT
+ cmp byte[eax],C_TXT
jne @f
stdcall get_code_text,eax ;юсЁрсюЄър юс·хъЄр
@@:
- cmp byte[eax],C_IN
+ cmp byte[eax],C_INC
jne @f
stdcall get_code_incl,eax ;юсЁрсюЄър юс·хъЄр
@@:
- cmp byte[eax],C_CO
+ cmp byte[eax],C_COM
jne @f
stdcall get_code_comment,eax ;юсЁрсюЄър юс·хъЄр
@@:
- cmp byte[eax],C_VR
+ cmp byte[eax],C_VAR
jne @f
stdcall get_code_variable,eax,ebx ;юсЁрсюЄър юс·хъЄр
@@:
- cmp byte[eax],C_WI
+ cmp byte[eax],C_WND
jne @f
stdcall get_code_window,eax ;юсЁрсюЄър юс·хъЄр
@@:
- cmp byte[eax],C_AC
+ cmp byte[eax],C_ACO
jne @f
stdcall get_code_auto,eax ;юсЁрсюЄър юс·хъЄр
@@:
- cmp byte[eax],C_KE ;ъыртшрЄєЁр
+ cmp byte[eax],C_KEY ;ъыртшрЄєЁр
jne @f
stdcall get_code_key,eax ;юсЁрсюЄър юс·хъЄр
@@:
@@ -298,7 +298,7 @@ proc get_code_auto_m
cmp ebx,0
je .find_no
- cmp byte[ebx],C_ED
+ cmp byte[ebx],C_EDB
jne @f
stdcall insert_text, txt_std_mouse_ed
;insert_sp
@@ -307,7 +307,7 @@ proc get_code_auto_m
stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
insert_nl
@@:
- cmp byte[ebx],C_CB
+ cmp byte[ebx],C_CHB
jne @f
stdcall insert_text, txt_std_mouse_cb
;insert_sp
@@ -343,7 +343,7 @@ proc get_code_auto_data_el
cmp ebx,0
je .find_no
- cmp byte[ebx],C_ED
+ cmp byte[ebx],C_EDB
jne @f
;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
stdcall insert_text_prop, ebx,0
@@ -362,7 +362,7 @@ proc get_code_auto_data_el
stdcall insert_text, txt_txt
mov edx,fp_icon
- stdcall get_obj_id, ebx,edx
+ stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
stdcall insert_text, txt_mouse_dd
@@ -396,11 +396,11 @@ proc get_code_auto_data_el
.null_string:
insert_nl
@@:
- cmp byte[ebx],C_DT
+ cmp byte[ebx],C_DTT
jne @f
stdcall insert_text, txt_txt
mov edx,fp_icon
- stdcall get_obj_id, ebx,edx
+ stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
stdcall insert_text, txt_db
stdcall insert_text_prop, ebx,0
@@ -440,7 +440,7 @@ proc get_code_auto_data_libs_param
stdcall insert_text, txt_sys_dir
;object code
mov edx,fp_icon
- stdcall get_obj_id, ebx,edx
+ stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
stdcall insert_text,txt_db
;stdcall insert_text, txt_str_beg
@@ -508,7 +508,7 @@ proc get_code_auto_data_libs_struc
stdcall insert_text, txt_lib
;object code
mov edx,fp_icon
- stdcall get_obj_id, ebx,edx
+ stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
insert_sp
stdcall insert_text, txt_ll
@@ -666,12 +666,12 @@ proc get_code_auto_data_dop
cmp ebx,0
je .find_no
- cmp byte[ebx],C_ED
+ cmp byte[ebx],C_EDB
jne @f
;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
stdcall insert_text, txt_txt
mov edx,fp_icon
- stdcall get_obj_id, ebx,edx
+ stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
stdcall get_obj_text_col,ebx,10
@@ -690,7 +690,7 @@ proc get_code_auto_data_dop
stdcall insert_text, txt_rb
stdcall insert_text, txt_txt
mov edx,fp_icon
- stdcall get_obj_id, ebx,edx
+ stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
stdcall insert_text, txt_minus
@@ -717,7 +717,7 @@ proc get_code_auto_data_dop
insert_0
insert_nl
@@:
- ;cmp byte[ebx],C_CB
+ ;cmp byte[ebx],C_CHB
;jne @f
;@@:
@@ -745,7 +745,7 @@ proc get_code_auto_but
cmp ebx,0
je .find_no
- cmp byte[ebx],C_BU
+ cmp byte[ebx],C_BUT
jne @f
insert_tab
insert_cmp
@@ -797,7 +797,7 @@ proc get_code_a_but_fun
cmp ebx,0
je .find_no
- cmp byte[ebx],C_BU
+ cmp byte[ebx],C_BUT
jne @f
stdcall get_obj_text_col,ebx,6
stdcall str_len,edx
@@ -851,7 +851,7 @@ proc get_code_funct_key
cmp ebx,0
je .find_no
- cmp byte[ebx],C_ED
+ cmp byte[ebx],C_EDB
jne @f
stdcall insert_text, txt_std_key_ed
stdcall insert_text_prop,ebx,0
@@ -984,19 +984,19 @@ proc get_code_draw_obj
cmp ebx,0
je .find_no
- cmp byte[ebx],C_ED
+ cmp byte[ebx],C_EDB
jne @f
stdcall insert_text, txt_editb_draw
stdcall insert_text_prop, ebx,0
insert_nl
@@:
- cmp byte[ebx],C_CB
+ cmp byte[ebx],C_CHB
jne @f
stdcall insert_text, txt_cbox_draw
stdcall insert_text_prop, ebx,0
insert_nl
@@:
- cmp byte[ebx],C_BU
+ cmp byte[ebx],C_BUT
jne @f
insert_tab
stdcall insert_text, txt_mov
@@ -1048,7 +1048,7 @@ proc get_code_draw_obj
stdcall insert_text, txt_i_40
insert_nl
@@:
- cmp byte[ebx],C_RE
+ cmp byte[ebx],C_REC
jne @f
insert_tab
stdcall insert_text, txt_mov
@@ -1087,7 +1087,7 @@ proc get_code_draw_obj
stdcall insert_text, txt_i_40
insert_nl
@@:
- cmp byte[ebx],C_DT ;Ёшёютрэшх ЄхъёЄр ўхЁхч ёшёЄ. Ї. 4
+ cmp byte[ebx],C_DTT ;Ёшёютрэшх ЄхъёЄр ўхЁхч ёшёЄ. Ї. 4
jne @f
insert_tab
stdcall insert_text, txt_mov
@@ -1120,7 +1120,7 @@ proc get_code_draw_obj
insert_coma
stdcall insert_text, txt_txt
mov edx,fp_icon
- stdcall get_obj_id, ebx,edx
+ stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
insert_nl
@@ -1295,8 +1295,11 @@ txt_key_2:
db 9,'jmp still',13
txt_key_3:
+;яюыєўрхь яюЁ фъют√щ эюьхЁ юс·хъЄр юЄэюёшЄхы№эю ярь Єш ¤ыхьхэЄр tree2
+;output:
+; txt_buf - ёЄЁюър ё эюьхЁюь юс·хъЄр
align 4
-proc get_obj_id, p_obj:dword, txt_buf:dword
+proc get_obj_id_str, p_obj:dword, txt_buf:dword
push eax ecx edx
mov eax,dword[p_obj]
sub eax,[tree2.data_info]
@@ -1312,6 +1315,22 @@ proc get_obj_id, p_obj:dword, txt_buf:dword
ret
endp
+;яюыєўрхь яюЁ фъют√щ эюьхЁ юс·хъЄр юЄэюёшЄхы№эю ярь Єш ¤ыхьхэЄр tree2
+;output:
+; eax - эюьхЁ юс·хъЄр
+align 4
+proc get_obj_id, p_obj:dword
+ push ecx edx
+ mov eax,dword[p_obj]
+ sub eax,[tree2.data_info]
+ xor edx,edx
+ xor ecx,ecx
+ mov cx,word[tree2.info_size]
+ div ecx
+ pop edx ecx
+ ret
+endp
+
;--- ЄхъёЄют√х ЇєэъЎшш ---
align 4
diff --git a/programs/develop/kol_f_edit/ced_constr.inc b/programs/develop/kol_f_edit/ced_constr.inc
index 3e00b4f7bf..eebc80eed2 100644
--- a/programs/develop/kol_f_edit/ced_constr.inc
+++ b/programs/develop/kol_f_edit/ced_constr.inc
@@ -24,7 +24,7 @@ pushad
@@:
xor edx,edx
- mov dl,C_WI
+ mov dl,C_WND
stdcall find_obj_in_file,edx ;eax - указатель на структуру окна
cmp eax,0
je .end_draw
@@ -81,15 +81,15 @@ pushad
.end_skin:
xor edx,edx ;рисуем графические элементы
- mov dl,C_BU
+ mov dl,C_BUT
stdcall draw_arr_objects, edx,draw_obj_but
- mov dl,C_ED
+ mov dl,C_EDB
stdcall draw_arr_objects, edx,draw_obj_edit
- mov dl,C_CB
+ mov dl,C_CHB
stdcall draw_arr_objects, edx,draw_obj_check
- mov dl,C_DT
+ mov dl,C_DTT
stdcall draw_arr_objects, edx,draw_obj_text
- mov dl,C_RE
+ mov dl,C_REC
stdcall draw_arr_objects, edx,draw_obj_rect_f13
.end_draw:
diff --git a/programs/develop/kol_f_edit/ced_wnd_m.inc b/programs/develop/kol_f_edit/ced_wnd_m.inc
index 8226b14a92..2eee9e7d56 100644
--- a/programs/develop/kol_f_edit/ced_wnd_m.inc
+++ b/programs/develop/kol_f_edit/ced_wnd_m.inc
@@ -1,91 +1,3 @@
-align 4
-draw_obj_info: ;окно со свойствами объекта
- mov eax,13 ;rect
- mov edx,WND_CAPT_COLOR
- mov ebx,[wndObjI.left]
- shl ebx,16
- add ebx,[wndObjI.width]
- mov ecx,[wndObjI.top]
- add ecx,[recMain.top]
- shl ecx,16
- add ecx,[wndObjI.height]
- sub ecx,[recMain.top]
- mov edx,0xffffff ;0x80ffffff
- int 0x40 ;прямоугольник для окна
-
- mov ecx,[wndObjI.top] ;draw caption
- shl ecx,16
- add ecx,[recMain.top]
- mov edx,WND_CAPT_COLOR
- int 0x40
-
- mov edx,[foc_obj] ;берем указатель на объект
- cmp edx,0
- je .exit_fun
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- pushad
- ;draw caption wndObjI
- mov eax,4 ;подпись - название объекта
-
- mov bl,[edx]
- call find_obj_in_opt
- mov edx,edi
-
- mov ebx,[wndObjI.left]
- add ebx,[recMain.left]
- add ebx,4
- shl ebx,16
- add ebx,[wndObjI.top]
- add ebx,4
- mov ecx,0xc0d000ff
- mov edi,WND_CAPT_COLOR
- add edx,obj_opt.info-obj_opt
- int 0x40
-
- mov eax,8 ;кнопка для сохранения изменений
- mov ebx,[wndObjI.left]
- add ebx,119
- shl ebx,16
- add ebx,18
- mov ecx,[wndObjI.top]
- add ecx,1
- shl ecx,16
- add ecx,18
- mov edx,10
- mov esi,0xd040
- int 0x40
-
- ror ebx,16 ;вычисляем координаты для иконки
- ror ecx,16
- and ebx,0xffff
- and ecx,0xffff
- inc ebx
- inc ecx
- stdcall draw_icon, 17,ebx,ecx ;17 - save
-
- mov edi,edit2
- .cycle:
- stdcall [edit_box_draw], edi ;рисуем поля со свойствами объекта
- add edi,ed_struc_size
- cmp edi,prop_wnd_edits_end
- jl .cycle
-
- popad
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- xor ebx,ebx ;номер поля
- .draw_column:
- mov eax,ebx
- imul eax,[recMain.height]
- add eax,[recMain.top]
- add eax,[wndObjI.top]
- stdcall draw_icon_obj,[edx],ebx,eax
-
- inc ebx
- cmp ebx,MAX_OPT_FIELDS
- jl .draw_column
- .exit_fun:
- ret
;поднимаем объект вверх по списку
align 4
@@ -134,20 +46,47 @@ align 4
but_element_change:
;foc_obj - указатель на последний выбранный узел в tree2
cmp dword[foc_obj],0
- je @f
+ je .err_obj
pushad
+ ;установка текстовых свойств
xor ebx,ebx
mov edi,edit2
- .cycle:
+ @@:
call get_obj_win_param
inc ebx
add edi,ed_struc_size
cmp edi,prop_wnd_edits_end
- jl .cycle
+ jl @b
+
+ ;установка ссылки на объект типа
+ mov edx,dword[foc_obj]
+ mov dword[edx+u_object.typid-u_object],0 ;на случай если ничего не выбрано
+ stdcall [tl_node_get_data],tree3
+ pop eax
+ cmp eax,0
+ je @f
+ mov eax,dword[eax] ;берем порядковый номер (в памяти) выбранного объекта
+ mov dword[edx+u_object.typid-u_object],eax
+ @@:
+
+ ;установка логических свойств
+ mov edi,ch1.flags
+ mov eax,1
+ xor ebx,ebx
+ @@:
+ bt dword[edi],1 ;почему оно тут не работает я не знаю ... ???
+ jnc .opt_no_sel
+ or ebx,eax ;накопление отмеченных опций
+ .opt_no_sel:
+ shl eax,1
+ add edi,ch_struc_size
+ cmp edi,check_boxes_end
+ jl @b
+ mov dword[edx+u_object.modif-u_object],ebx
popad
- @@:
+ .err_obj:
call draw_constructor ;обновляем окно конструктора
- call draw_window
+ ;call draw_window
ret
;input:
@@ -259,7 +198,7 @@ pop ebx
endp
align 4
-proc draw_icon_obj, o_type:dword,n_col:dword, coord_y:dword
+proc draw_obj_icon, o_type:dword,n_col:dword, coord_y:dword
pushad
xor ebx,ebx
mov bl,byte[o_type]
@@ -283,8 +222,7 @@ proc draw_icon_obj, o_type:dword,n_col:dword, coord_y:dword
mov eax,7
mov ecx,0x100010 ;ecx - size:16*16
- mov edx,[wndObjI.left]
- add edx,3 ;отступ от левого края рамки до иконки
+ mov edx,3 ;отступ от левого края рамки до иконки
shl edx,16
add edx,[coord_y]
int 0x40
@@ -293,6 +231,54 @@ proc draw_icon_obj, o_type:dword,n_col:dword, coord_y:dword
ret
endp
+;вывод текста с подписью
+align 4
+proc draw_obj_caption, o_type:dword,n_col:dword, coord_y:dword
+ pushad
+ stdcall get_obj_text_len_col, [foc_obj], [n_col] ;eax - длинна поля
+ cmp eax,1
+ jl .no_draw
+
+ xor ebx,ebx
+ mov bl,byte[o_type]
+ call find_obj_in_opt
+
+ mov edx,edi
+ add edx,obj_opt.caption-obj_opt
+
+ mov eax,[n_col]
+ mov ebx,150
+ shl ebx,16
+ add ebx,dword[coord_y]
+ add ebx,3
+ mov ecx,0 ;text color
+
+ mov esi,edx
+ .beg_found:
+ cmp byte[esi],0
+ je .end_found
+ cmp byte[esi],'*'
+ je @f
+ inc esi
+ jmp .beg_found
+ @@:
+ cmp eax,0
+ je .end_found
+ dec eax
+ inc esi
+ mov edx,esi ;переключаем начало строки на след. подпись
+ jmp .beg_found
+ .end_found:
+ cmp esi,edx
+ jle .no_draw
+ sub esi,edx ;esi = text len
+ mov eax,4
+ int 0x40
+ .no_draw:
+ popad
+ ret
+endp
+
align 4
proc draw_icon, ind:dword,coord_x:dword,coord_y:dword
pushad
diff --git a/programs/develop/kol_f_edit/ced_wnd_prop.inc b/programs/develop/kol_f_edit/ced_wnd_prop.inc
new file mode 100644
index 0000000000..214f2c15e7
--- /dev/null
+++ b/programs/develop/kol_f_edit/ced_wnd_prop.inc
@@ -0,0 +1,342 @@
+;
+; в этом файле собраны функции нужные для создания и
+; работы окна со свойствами объекта
+;
+
+prop_edits_top equ 25
+prop_edits_height equ 18
+prop_wnd_width equ 520 ;ширина окна со свойствами объекта
+
+prop_wnd_run db 0 ;переменная следящая за тем что-бы не запускать больше 1-го окна со свойствами одновременно
+
+;даное окно (процесс) вызываеться функцией on_file_object_select
+align 4
+prop_start:
+pushad
+ mcall 40,0x27 ;маска ожидаемых событий
+
+ ; настройка текстовых полей
+ xor ebx,ebx
+ mov edi,edit2
+ @@:
+ stdcall set_obj_win_param, ebx,edi
+ inc ebx
+ add edi,ed_struc_size
+ cmp edi,prop_wnd_edits_end
+ jl @b
+
+ ; настройка списка объектов, определяющих типы переменных
+ stdcall dword[tl_data_init], tree3
+ cmp byte[err_ini0],1
+ je @f
+ mov dword[tree3.data_img],bmp_icon
+ @@:
+ mov eax,dword[icon_tl_sys]
+ mov dword[tree3.data_img_sys],eax
+
+ mov edx,[foc_obj]
+ cmp byte[edx],C_VAR
+ jne .sel_end
+
+ stdcall [tl_node_poi_get_info], 0,tree2
+ pop edx
+ @@:
+ cmp edx,0
+ je @f
+ stdcall [tl_node_poi_get_data], edx,tree2
+ pop esi ;получаем данные узла
+;------ добавление объекта в список -------------------------------------------
+ mov ebx,[foc_obj]
+ cmp ebx,esi
+ je .add_end ;избегаем циклической ссылки
+ mov bl,[esi]
+ cmp bl,C_TDF
+ je .add_beg
+ cmp bl,C_STR
+ je .add_beg
+ jmp .add_end
+ .add_beg:
+ stdcall get_obj_id,esi
+ mov edi,u_object
+ mov dword[edi],eax
+ add edi,4
+ inc esi ;переходим на имя объекта
+ mov ecx,MAX_LEN_OBJ_TXT
+ cld
+ rep movsb
+
+ call find_obj_in_opt ;edi = pointer to ObjOpt struct
+ mov cx,word[edi+obj_opt.img-obj_opt]
+ cmp cx,0
+ jge .zero
+ xor cx,cx ;что-бы не глючило с отрицательным индексом
+ .zero:
+ shl ecx,16 ;в ecx индекс иконки
+
+ stdcall dword[tl_node_add], u_object, ecx, tree3 ;структура u_object в данном случае не соблюдается, она нужна просто как память для вставки
+ stdcall dword[tl_cur_next], tree3 ;переносим курсор вниз, что-бы не поменялся порядок
+ .add_end:
+;-------
+ stdcall [tl_node_poi_get_next_info], edx,tree2
+ pop edx ;переходим к следущему узлу
+ jmp @b
+ @@:
+
+ ;ставим курсор на нужную позицию
+ mov edx,[foc_obj] ;берем указатель на объект
+ cmp edx,0
+ je .sel_end
+ mov edx,dword[edx+u_object.typid-u_object]
+ stdcall [tl_cur_beg],tree3
+ @@:
+ stdcall [tl_node_get_data],tree3
+ pop eax
+ cmp eax,0
+ je .sel_end
+ cmp dword[eax],edx
+ je .sel_end ;если нашли указатель
+ stdcall [tl_cur_next],tree3
+ jmp @b
+ .sel_end:
+
+ ;чистка подписей
+ mov dword[ch1.text],ch_text
+ mov dword[ch2.text],ch_text
+ mov dword[ch3.text],ch_text
+ mov dword[ch4.text],ch_text
+
+ ;установка новых подписей
+ mov esi,[foc_obj] ;берем указатель на объект
+ mov bl,byte[esi]
+ call find_obj_in_opt
+ mov edi,dword[edi+obj_opt.bit_prop-obj_opt]
+ cmp edi,0
+ je .no_bit_capts ;если 1-е битовое свойство пустое, то в цикл не заходим
+ mov edx,ch1.text
+ xor al,al ;0 - символ конца строки
+ add edi,obj_opt
+ @@:
+ mov [edx],edi ;записываем текст в check_box
+ xor ecx,ecx
+ dec ecx ;ecx - число просматриваемых байт
+ cld
+ repne scasb ;ищем конец строки (al=0)
+ cmp byte[edi],0
+ je .no_bit_capts ;если следующей строки нет выход из цикла
+
+ add edx,ch_struc_size
+ cmp edx,check_boxes_end
+ jl @b
+ .no_bit_capts:
+
+ ;установка флажков
+ mov esi,[foc_obj] ;берем указатель на объект
+ mov edx,ch1.flags
+ xor eax,eax
+ @@:
+ bt dword[esi+u_object.modif-u_object],eax
+ jc .flag_set
+ btr dword[edx],1 ;снимаем галочку
+ jmp .end_set
+ .flag_set:
+ bts dword[edx],1 ;ставим галочку (ch_flag_en = 10b = 2^1)
+ .end_set:
+
+ inc eax
+ add edx,ch_struc_size
+ cmp edx,check_boxes_end
+ jl @b
+
+ init_checkboxes2 check_boxes,check_boxes_end
+ check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc
+popad
+
+align 4
+prop_red_win:
+pushad
+ mcall 12,1
+
+ xor eax,eax
+ mov edi,hed
+ mov edx,[foc_obj] ;берем указатель на объект
+ cmp edx,0
+ je @f
+ mov bl,[edx]
+ call find_obj_in_opt
+ add edi,obj_opt.info-obj_opt ;edi - подпись (название объекта)
+ @@:
+ mov ebx,30*65536+prop_wnd_width
+ mov ecx,50*65536+250
+ mov edx,0xffffd0
+ or edx,0x33000000
+ int 0x40
+
+ mov edx,[foc_obj] ;берем указатель на объект
+ cmp edx,0
+ je .exit_fun
+
+ mov eax,8 ;кнопка для сохранения изменений
+ mov ebx,prop_wnd_width-18-20
+ shl ebx,16
+ add ebx,18
+ mov ecx,3
+ shl ecx,16
+ add ecx,18
+ mov edx,10
+ mov esi,0xd040
+ int 0x40
+
+ ror ebx,16 ;вычисляем координаты для иконки
+ ror ecx,16
+ and ebx,0xffff
+ and ecx,0xffff
+ inc ebx
+ inc ecx
+ stdcall draw_icon, 17,ebx,ecx ;17 - save
+
+ mov edi,edit2
+ .cycle:
+ stdcall [edit_box_draw], edi ;рисуем поля со свойствами объекта
+ add edi,ed_struc_size
+ cmp edi,prop_wnd_edits_end
+ jl .cycle
+
+ cmp [err_ini0],1
+ je .exit_fun
+ cmp [err_ini1],1
+ je .exit_fun
+
+ mov edx,[foc_obj] ;берем указатель на объект
+ xor ebx,ebx ;номер поля
+ .draw_column:
+ mov eax,ebx
+ imul eax,prop_edits_height
+ add eax,prop_edits_top
+ stdcall draw_obj_icon,[edx],ebx,eax
+ stdcall draw_obj_caption,[edx],ebx,eax
+
+ inc ebx
+ cmp ebx,MAX_OPT_FIELDS
+ jl .draw_column
+
+ cmp byte[edx],C_VAR
+ jne .no_tree
+ mov dword[w_scr_t3.all_redraw],1
+ stdcall [tl_draw], tree3
+ .no_tree:
+
+ checkboxes_draw2 check_boxes,check_boxes_end
+
+ .exit_fun:
+ mcall 12,2
+popad
+
+align 4
+prop_still:
+ pushad
+ mcall 10
+
+ cmp al,1 ;изм. положение окна
+ jz prop_red_win
+ cmp al,2
+ jne @f
+ call prop_key
+ @@:
+ cmp al,3
+ jz prop_button
+ cmp al,6
+ jne @f
+ call prop_mouse
+ @@:
+ popad
+ jmp prop_still
+
+align 4
+prop_key:
+push eax edi
+ mcall 2
+ mov edi,edit2
+ .cycle:
+ stdcall [edit_box_key], edi
+ add edi,ed_struc_size
+ cmp edi,prop_wnd_edits_end
+ jl .cycle
+
+ mov edi,[foc_obj]
+ cmp byte[edi],C_VAR
+ jne @f
+ stdcall [tl_key], tree3
+ @@:
+pop edi eax
+ ret
+
+align 4
+prop_mouse:
+ push edi
+ mov edi,edit2
+ .cycle:
+ stdcall [edit_box_mouse], edi
+ add edi,ed_struc_size
+ cmp edi,prop_wnd_edits_end
+ jl .cycle
+
+ mov edi,[foc_obj]
+ cmp byte[edi],C_VAR
+ jne @f
+ stdcall [tl_mouse], tree3
+ @@:
+
+ checkboxes_mouse2 check_boxes,check_boxes_end
+
+ pop edi
+ ret
+
+align 4
+prop_button:
+ mcall 17 ;получить код нажатой кнопки
+
+ cmp ah,10
+ jne @f
+ call but_element_change
+ mov ah,1 ;для закрытия окна
+ @@:
+
+ cmp ah,1
+ jne prop_still
+.exit:
+ mov dword[tree3.data_img],0 ;чистим указатели на иконки что-бы их не удалил деструктор
+ mov dword[tree3.data_img_sys],0 ;т. к. они еще используються в других элементах
+ stdcall dword[tl_data_clear], tree3
+ mov byte[prop_wnd_run],0 ;обнуляем счетчик окон
+ mcall -1 ;выход из программы
+
+;дерево с объектами в пользовательском файле
+tree3 tree_list sizeof.object,(MAX_CED_OBJECTS shr 2)+2, tl_key_no_edit+tl_list_box_mode,\
+ 16,16, 0xffffff,0xb0d0ff,0xd000ff, 320,30,165,125, 0,4,MAX_LEN_OBJ_TXT, el_focus,\
+ w_scr_t3,0
+
+align 4
+w_scr_t3:
+.size_x dw 16 ;+0
+rb 2+2+2
+.btn_high dd 15 ;+8
+.type dd 1 ;+12
+.max_area dd 100 ;+16
+rb 4+4
+.bckg_col dd 0xeeeeee ;+28
+.frnt_col dd 0xbbddff ;+32
+.line_col dd 0 ;+36
+rb 4+2+2
+.run_x:
+rb 2+2+2+2+4+4+4+4+4+4
+.all_redraw dd 0 ;+80
+.ar_offset dd 1 ;+84
+
+check_boxes:
+ch1 check_box2 (320 shl 16+11),(160 shl 16 +11),5,0xffffff,0,0x80000000,ch_text,ch_flag_en+ch_flag_middle
+ch2 check_box2 (320 shl 16+11),(175 shl 16 +11),5,0xffffff,0,0x80000000,ch_text,ch_flag_en+ch_flag_middle
+ch3 check_box2 (320 shl 16+11),(190 shl 16 +11),5,0xffffff,0,0x80000000,ch_text,ch_flag_en+ch_flag_middle
+ch4 check_box2 (320 shl 16+11),(205 shl 16 +11),5,0xffffff,0,0x80000000,ch_text,ch_flag_en+ch_flag_middle
+check_boxes_end:
+
+ch_text db 0
diff --git a/programs/develop/kol_f_edit/kol_f_edit.asm b/programs/develop/kol_f_edit/kol_f_edit.asm
index a6d3aaa5eb..96f6bad3f7 100644
--- a/programs/develop/kol_f_edit/kol_f_edit.asm
+++ b/programs/develop/kol_f_edit/kol_f_edit.asm
@@ -16,10 +16,11 @@ include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'mem.inc'
include 'dll.inc'
include 'strlen.inc'
+include 'obj_codes.inc'
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
-hed db 'kol_f_edit 29.11.10',0
+hed db 'kol_f_edit 08.12.10',0
sizeof.TreeList equ 20 ;need for element 'tree_list'
@@ -33,39 +34,38 @@ buf2d_size_lt equ dword[edi+4] ;
buf2d_color equ dword[edi+16] ;цвет фона буфера
buf2d_bits equ byte[edi+20] ;количество бит в 1-й точке изображения
-MAX_LEN_OBJ_TXT equ 200
+
MAX_CED_OBJECTS equ 200
MAX_OPT_FIELDS equ 11
-MAX_OBJ_TYPES equ 18
+MAX_OBJ_TYPES equ 18 ;максимальное число объектов
+MAX_OBJ_CAPTIONS equ 1000 ;размер дополнительных подписей подписей
WND_CAPT_COLOR equ 0xb0d0ff
BUF_SIZE equ 1000
-C_TD equ 't' ;typedef
-C_AC equ 'a' ;автоматические коды (auto code)
-C_ST equ 's' ;struct
-C_IN equ '#' ;include
-C_TT equ 'd' ;блок кода (данных)
-C_VR equ '-' ;переменная
-C_CO equ ';' ;комментарий
-C_WI equ 'w' ;окно
-C_CB equ 'c' ;CheckBox
-C_OP equ 'o' ;OptionBox
-C_ED equ 'e' ;EditBox
-C_BU equ 'b' ;Button
-C_DT equ 'x' ;рисовать текст
-C_RE equ 'r' ;рисовать прямоугольник
-C_KE equ 'k' ;клавиатура
-C_LIB equ 'l'
-C_IFN equ 'f'
-
;modif
CPP_MOD_ACM equ 2 ;события мыши
BIT_MOD_ACM equ 1 ;события мыши
+CPP_MOD_ACI equ 4 ; включения
+BIT_MOD_ACI equ 2 ; включения
CPP_MOD_ACD equ 8 ;данные объектов
BIT_MOD_ACD equ 3 ;данные объектов
CPP_MOD_ABU equ 16 ;связывание кнопок
BIT_MOD_ABU equ 4 ;связывание кнопок
+CPP_MOD_WI_CA equ 16 ; стиль окна подпись
+CPP_MOD_WI_AO equ 32 ; стиль окна координаты относительно клиентской области
+CPP_MOD_WI_RD equ 64 ; стиль окна перерисовка окна
+CPP_MOD_WI_GR equ 128 ; стиль окна градиент
+CPP_MOD_CHE equ 512 ; ch_flag_en - выбран CheckBox
+CPP_MOD_TXT_ASCII_0 equ 1 ; текст заканчив. 0
+CPP_MOD_TXT_TRAN equ 4 ; текст прозрачный
+CPP_MOD_TXT_CHAR2 equ 2 ; текст 2-м шрифтом
+CPP_MOD_EDIT_FOC equ 1 ; EditBox в фокусе
+CPP_MOD_EDIT_FIO equ 2 ;
+CPP_MOD_RE_GR equ 1 ; градиентный прямоугольник
+CPP_MOD_BUT_NFON equ 1 ; стиль Button не рисовать кнопку
+CPP_MOD_BUT_NBORD equ 2 ; стиль Button не рисовать границу
+
macro load_image_file path,buf,size ;макрос для загрузки изображений
{
copy_path path,sys_path,fp_icon,0x0 ;формируем полный путь к файлу изображения, подразумеваем что он в одной папке с программой
@@ -116,13 +116,14 @@ struct object
ends
struct ObjOpt
- c db ?
+ db ?
bl_type db ?
graph db ?
info rb 30
caption rb 200
Col rw MAX_OPT_FIELDS
img rw MAX_OPT_FIELDS ;индексы картинок (в файле 'icon.bmp')
+ bit_prop dd 0 ;битовые свойства
ends
SKIN_H equ 22
@@ -151,6 +152,7 @@ icon_font_s1 dd 0 ;ука
fn_syntax db 'asm.syn',0 ;имя загружаемого файла синтаксиса
include 'ced_wnd_m.inc'
+include 'ced_wnd_prop.inc' ;файл с функциями окна свойств объекта
include 'ced_constr.inc' ;файл с функциями окна конструктора
include 'ced_code_g.inc' ;файл с функциями генерирования кодов
@@ -180,17 +182,15 @@ start:
mcall -1 ;exit not correct
@@:
- mov eax,[wndObjI.top]
- add eax,[recMain.top]
- inc eax
- mov ebx,[wndObjI.left]
- add ebx,16+6 ;ширина иконки + отступы
+ ;задание размеров полей со свойствами
+ mov eax,prop_edits_top
+ mov ebx,16+6 ;ширина иконки + отступы
mov edi,edit2
@@:
mov ed_top,eax ;отступ сверху
mov ed_left,ebx ;отступ слева
add edi,ed_struc_size
- add eax,[recMain.height]
+ add eax,prop_edits_height
cmp edi,prop_wnd_edits_end
jl @b
@@ -226,8 +226,9 @@ start:
load_image_file fn_icon_tl_sys, icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE
;если изображение не открылось, то в icon_tl_sys будут
;не инициализированные данные, но ошибки не будет, т. к. буфер нужного размера
- m2m dword[tree1.data_img_sys],dword[icon_tl_sys]
- m2m dword[tree2.data_img_sys],dword[icon_tl_sys]
+ mov eax,dword[icon_tl_sys]
+ mov dword[tree1.data_img_sys],eax
+ mov dword[tree2.data_img_sys],eax
;1-й файл скина
load_image_file fn_skin_1, icon_font_s1,IMAGE_FILE_SKIN1_SIZE
@@ -254,7 +255,7 @@ start:
;load options file
mov eax,70
mov [run_file_70.Position], 0
- mov [run_file_70.Count], sizeof.ObjOpt*MAX_OBJ_TYPES
+ mov [run_file_70.Count], sizeof.ObjOpt*MAX_OBJ_TYPES+MAX_OBJ_CAPTIONS
mov [run_file_70.Buffer], obj_opt
mov [run_file_70.FileName], fp_obj_opt
mov ebx,run_file_70
@@ -271,7 +272,7 @@ start:
cmp bl,0
je @f
;xor ecx,ecx ;в ecx будет индекс иконки
- mov cx,word[eax+sizeof.ObjOpt-2*MAX_OPT_FIELDS]
+ mov cx,word[eax+obj_opt.img-obj_opt]
cmp cx,0
jge .zero
xor cx,cx ;что-бы не глючило с отрицательным индексом
@@ -454,21 +455,15 @@ pushad
int 0x40
@@:
- cmp [err_ini0],1
- je err_init_icon
- cmp [err_ini1],1
- je err_init_icon
- call draw_obj_info ;окно редактирования выбранного объекта
- err_init_icon:
-
stdcall [edit_box_draw], dword edit1
stdcall [edit_box_draw], dword edit_sav
- stdcall [tl_draw],dword tree1
+
mov dword[w_scr_t1.all_redraw],1
- stdcall [scrollbar_ver_draw],dword w_scr_t1
- stdcall [tl_draw],dword tree2
+ ;stdcall [scrollbar_ver_draw],dword w_scr_t1
+ stdcall [tl_draw],dword tree1
mov dword[w_scr_t2.all_redraw],1
- stdcall [scrollbar_ver_draw],dword w_scr_t2
+ ;stdcall [scrollbar_ver_draw],dword w_scr_t2
+ stdcall [tl_draw],dword tree2
cmp byte[show_mode],0 ;условие видимости окна конструктора
jne @f
@@ -485,14 +480,6 @@ popad
align 4
mouse:
stdcall [edit_box_mouse], dword edit1
- push edi
- mov edi,edit2
- .cycle:
- stdcall [edit_box_mouse], edi
- add edi,ed_struc_size
- cmp edi,prop_wnd_edits_end
- jl .cycle
- pop edi
stdcall [edit_box_mouse], dword edit_sav
stdcall [tl_mouse], dword tree1
stdcall [tl_mouse], dword tree2
@@ -507,26 +494,9 @@ align 4
key:
mcall 2
stdcall [edit_box_key], dword edit1
- push edi
- mov edi,edit2
- .cycle:
- stdcall [edit_box_key], edi
- add edi,ed_struc_size
- cmp edi,prop_wnd_edits_end
- jl .cycle
- pop edi
stdcall [edit_box_key], dword edit_sav
stdcall [tl_key], dword tree1
stdcall [tl_key], dword tree2
-
-; cmp ah,178 ;Up
-; jne @f
-; cmp [cur_y],0
-; je @f
-; dec [cur_y]
-; call get_obj_pos
-; call draw_window
-; @@:
jmp still
@@ -541,10 +511,10 @@ button:
jne @f
call but_save_proj
@@:
- cmp ah,10
- jne @f
- call but_element_change
- @@:
+ ;cmp ah,10
+ ;jne @f
+ ;call but_element_change
+ ;@@:
cmp ah,11
jne @f
call but_show_constructor
@@ -653,7 +623,7 @@ but_open_proj:
call find_obj_in_opt ;edi = pointer to ObjOpt struct
- mov cx,word[edi+sizeof.ObjOpt-2*MAX_OPT_FIELDS]
+ mov cx,word[edi+obj_opt.img-obj_opt]
cmp cx,0
jge .zero
xor cx,cx ;что-бы не глючило с отрицательным индексом
@@ -743,6 +713,8 @@ but_save_proj:
ret
;берет номер по порядку по указателю на структуру объекта
+;output:
+; eax - номер объекта
align 4
proc get_obj_npp, p_obj_str:dword
mov eax,2
@@ -820,22 +792,19 @@ ted_save_err_msg:
;функция обратная к данной but_element_change
align 4
on_file_object_select:
- stdcall [tl_node_get_data], tree2
- pop dword[foc_obj]
- cmp dword[foc_obj],0
- je @f
- push ebx edi
- xor ebx,ebx
- mov edi,edit2
- .cycle:
- stdcall set_obj_win_param, ebx,edi
- inc ebx
- add edi,ed_struc_size
- cmp edi,prop_wnd_edits_end
- jl .cycle
- pop edi ebx
+ cmp byte[prop_wnd_run],0
+ jne @f
+ mov byte[prop_wnd_run],1
+ stdcall [tl_node_get_data], tree2
+ pop dword[foc_obj]
+ cmp dword[foc_obj],0
+ je @f
+ pushad
+ ;все действия по настройке элементов управления выполняются в окне со свойствами
+ mcall 51,1,prop_start,prop_thread
+ popad
@@:
- call draw_window
+ ;call draw_window
ret
align 4
@@ -944,9 +913,9 @@ buf_skin3:
show_mode db 0 ;режим для показа определенного окна
txtErrOpen db 'Не найден файл, проверьте правильность имени',0
txtErrIni1 db 'Не открылся файл с опциями',0
-err_opn db 0
-err_ini0 db 0 ;???
-err_ini1 db 0
+err_opn db 0 ;рез. открытия файла проэкта
+err_ini0 db 0 ;рез. открытия файла с иконками
+err_ini1 db 0 ;рез. открытия файла с опциями
edit1 edit_box 210, 10, 5, 0xffffff, 0xff80, 0xff, 0xff0000, 0x4080, 300, ed_text1, mouse_dd, 0, 7, 7
@@ -987,7 +956,7 @@ mouse_dd dd ?
el_focus dd tree1
;дерево со списком возможных типов объектов
tree1 tree_list sizeof.ObjOpt,20+2, tl_key_no_edit+tl_draw_par_line+tl_list_box_mode,\
- 16,16, 0xffffff,0xb0d0ff,0xd000ff, 5,50,125,100, 0,3,0, el_focus,\
+ 16,16, 0xffffff,0xb0d0ff,0xd000ff, 5,50,125,280, 0,3,0, el_focus,\
w_scr_t1,on_add_object
;дерево с объектами в пользовательском файле
tree2 tree_list sizeof.object,MAX_CED_OBJECTS+2, tl_draw_par_line,\
@@ -1187,15 +1156,13 @@ sc system_colors
image_data dd 0 ;память для преобразования картинки функциями libimg
-recMain BOX 3,20,16,18 ;координаты: 1,2 - отступы; 3,4 - размер
ced_info object 0 ;on start == 0
rb sizeof.object*(MAX_CED_OBJECTS-1)
-wndObjI BOX 5,155,125+16,175
text_buffer db BUF_SIZE dup(0)
fn_obj_opt db 'ob_o.opt',0
obj_opt ObjOpt
- rb sizeof.ObjOpt*(MAX_OBJ_TYPES-1)
+ rb sizeof.ObjOpt*(MAX_OBJ_TYPES-1)+MAX_OBJ_CAPTIONS
db 0 ;eof options
cur_x dd 0
@@ -1308,6 +1275,10 @@ import_box_lib:
edit_box_mouse dd aEdit_box_mouse
edit_box_set_text dd aEdit_box_set_text
+ init_checkbox dd aInit_checkbox
+ check_box_draw dd aCheck_box_draw
+ check_box_mouse dd aCheck_box_mouse
+
scrollbar_ver_draw dd aScrollbar_ver_draw
scrollbar_hor_draw dd aScrollbar_hor_draw
@@ -1370,6 +1341,10 @@ dd 0,0
aEdit_box_mouse db 'edit_box_mouse',0
aEdit_box_set_text db 'edit_box_set_text',0
+ aInit_checkbox db 'init_checkbox2',0
+ aCheck_box_draw db 'check_box_draw2',0
+ aCheck_box_mouse db 'check_box_mouse2',0
+
aScrollbar_ver_draw db 'scrollbar_v_draw',0
aScrollbar_hor_draw db 'scrollbar_h_draw',0
@@ -1508,6 +1483,8 @@ i_end:
fp_icon rb 1024 ;icon file path
fp_obj_opt rb 1024 ;obj options file patch
rb 1024
+ prop_thread:
+ rb 1024
thread: ;вверху дочерний стек для окна сообщения
rb 1024
stacktop: ;вверху стек основной программы
diff --git a/programs/develop/kol_f_edit/ob_o.asm b/programs/develop/kol_f_edit/ob_o.asm
index 81b26a1bd7..e74264b459 100644
--- a/programs/develop/kol_f_edit/ob_o.asm
+++ b/programs/develop/kol_f_edit/ob_o.asm
@@ -1,26 +1,8 @@
;lang equ ru
-MAX_LEN_OBJ_TXT equ 200
+include 'obj_codes.inc'
-C_TD equ 't' ;typedef
-C_AC equ 'a' ;автоматические коды (auto code)
-C_ST equ 's' ;struct
-C_IN equ '#' ;include
-C_TT equ 'd' ;блок кода (данных)
-C_VR equ '-' ;переменная
-C_CO equ ';' ;комментарий
-C_WI equ 'w' ;окно
-C_CB equ 'c' ;CheckBox
-C_OP equ 'o' ;OptionBox
-C_ED equ 'e' ;EditBox
-C_BU equ 'b' ;Button
-C_DT equ 'x' ;рисовать текст
-C_RE equ 'r' ;рисовать прямоугольник
-C_KE equ 'k' ;клавиатура
-C_LIB equ 'l'
-C_IFN equ 'f'
-
-macro ObjOpt c,bl_type,graph,info,caption,Col,img
+macro ObjOpt c,bl_type,graph,info,caption,Col,img,bit_prop
{
db c
db bl_type
@@ -30,43 +12,49 @@ rb @b+30-$
@@: db caption
rb @b+MAX_LEN_OBJ_TXT-$
dw Col
-dw img
+dw img ;индексы картинок (в файле 'icon.bmp')
+dd bit_prop+0
}
-ObjOpt C_TD, 0,0,'Тип данного','',\
+ObjOpt C_TDF, 0,0,'Тип данного','',\
< 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
< 3, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
-ObjOpt C_VR, 0,0,'Переменная','имя переменной*значение по умолчанию*комментарий',\
+ObjOpt C_VAR, 0,0,'Переменная','имя переменной*значение по умолчанию*комментарий',\
<40, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
< 0, -1, 5, -1, -1, -1, -1, -1, -1, -1, -1>
-ObjOpt C_ST, 1,0,'Структура','имя структуры*параметры для макроса',\
+ObjOpt C_STR, 1,0,'Структура','имя структуры*параметры для макроса',\
<40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
< 1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
-ObjOpt C_AC, 1,0,'Авто код','',\
+ObjOpt C_ACO, 1,0,'Авто код','',\
<0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
- <2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
-ObjOpt C_BU, 1,1,'Кнопка','идентификатор*отступ слева*отступ сверху*ширина*высота*цвет*имя метки при нажатии',\
+ <2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>,\
+ txt_bit_auto
+ObjOpt C_BUT, 1,1,'Кнопка','идентификатор*отступ слева*отступ сверху*ширина*высота*цвет*имя метки при нажатии',\
<20, 40, 60, 80,100,120, 0, 0, 0, 0, 0>,\
- <29, 15, 16, 26, 27, 25, -1, -1, -1, -1,-1>
-ObjOpt C_ED, 1,1,'Текстовое поле','***отступ сверху*цвет фона*цвет выделения при удерживании shift или мышкой*цвет рамки*при неактивном боксе цвет рамки*цвет текста*максимальная длина текста*начальный текст',\
+ <29, 15, 16, 26, 27, 25, -1, -1, -1, -1,-1>,\
+ txt_bit_but
+ObjOpt C_EDB, 1,1,'Текстовое поле','***отступ сверху*цвет фона*цвет выделения при удерживании shift или мышкой*цвет рамки*при неактивном боксе цвет рамки*цвет текста*максимальная длина текста*начальный текст',\
<30, 40, 50, 60, 80,100,120,140,160,170, 0>,\
- <10, 26, 15, 16, 25, 25, 25, 25, 25, -1, 4>
-ObjOpt C_OP, 1,1,'Радио кнопка','имя*отступ слева*отступ сверху*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*подпись*отступ до надписи*размер квадрата',\
+ <10, 26, 15, 16, 25, 25, 25, 25, 25, -1, 4>,\
+ txt_bit_edit
+ObjOpt C_OPT, 1,1,'Радио кнопка','имя*отступ слева*отступ сверху*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*подпись*отступ до надписи*размер квадрата',\
<40, 50, 60, 80,100,120,180,190, 0, 0, 0>,\
< 9, 15, 16, 25, 25, 25, 4, 26, 27, -1, -1>
-ObjOpt C_CB, 1,1,'Флажок','***подпись*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*отступ до надписи*размер квадрата',\
+ObjOpt C_CHB, 1,1,'Флажок','***подпись*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*отступ до надписи*размер квадрата',\
<40, 50, 60,120,140,160,180,190, 0, 0, 0>,\
- < 8, 15, 16, 4, 25, 25, 25, 26, 27, -1, -1>
-ObjOpt C_TT, 1,0,'asm код','',\
+ < 8, 15, 16, 4, 25, 25, 25, 26, 27, -1, -1>,\
+ txt_bit_che
+ObjOpt C_TXT, 1,0,'asm код','',\
< 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
<11, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
-ObjOpt C_WI, 1,1,'Окно','**отступ слева*отступ сверху*ширина*высота*цвет клиентской области*цвет заголовка (если есть)',\
+ObjOpt C_WND, 1,1,'Окно','**отступ слева*отступ сверху*ширина*высота*цвет клиентской области*цвет заголовка (если есть)',\
<98,100,110,120,130,150,170, 0, 0, 0, 0>,\
- <12, -1, 15, 16, 26, 27, 25, 25, -1, -1, -1>
-ObjOpt C_CO, 1,0,'Комментарий','строка комментария',\
+ <12, -1, 15, 16, 26, 27, 25, 25, -1, -1, -1>,\
+ txt_bit_wnd
+ObjOpt C_COM, 1,0,'Комментарий','строка комментария',\
< 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
< 5, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
-ObjOpt C_IN, 1,0,'Включение файла','имя файла*комментарий',\
+ObjOpt C_INC, 1,0,'Включение файла','имя файла*комментарий',\
<100, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
< 6, 5, -1, -1, -1, -1, -1, -1, -1, -1, -1>
ObjOpt C_LIB, 1,0,'Импорт библиотеки','имя библ.*сист. дир.*метка импорта*приставка*ошибка не найдена*ошибка не могу открыть',\
@@ -75,18 +63,44 @@ ObjOpt C_LIB, 1,0,'
ObjOpt C_IFN, 1,0,'Функция из библиотеки','програмное имя функции*импортируемое имя функции',\
<100, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
<21, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
-ObjOpt C_DT, 1,1,'Рисование текста','***цвет текста*цвет фона (если есть)',\
+ObjOpt C_DTT, 1,1,'Рисование текста','текстовая строка*координата по x*координата по y*цвет текста*цвет фона (если есть)',\
<40, 50, 60, 80, 0, 0, 0, 0, 0, 0, 0>,\
- < 4, 15, 16, 25, 25, -1, -1, -1, -1, -1, -1>
-ObjOpt C_RE, 1,1,'Прямоугольник','цвет*отступ слева*отступ сверху*ширина*высота',\
+ < 4, 15, 16, 25, 25, -1, -1, -1, -1, -1, -1>,\
+ txt_bit_caption
+ObjOpt C_REC, 1,1,'Прямоугольник','цвет*отступ слева*отступ сверху*ширина*высота',\
<20, 40, 60, 80, 0, 0, 0, 0, 0, 0, 0>,\
<25, 15, 16, 26, 27, -1, -1, -1, -1, -1, -1>
-ObjOpt C_KE, 1,0,'Событие на клавиатуру','',\
+ObjOpt C_KEY, 1,0,'Событие на клавиатуру','',\
< 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
<28, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
ObjOpt 0x0d, 1,0, '-','',\
<20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0>,\
<-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
+dd 0 ;разделитель
+
+;названия битовых свойств
+txt_bit_auto db 'подключения файлов',0
+ db 'события от мыши',0
+ db 'коды элементов',0
+ db 'нажатия на кнопки',0
+ db 0
+txt_bit_wnd db 'подпись окна',0
+ db 'окно не закрашивает клиентскую обл.',0
+ db 'коорд. относительно клиентской обл.',0
+ db 'градиентная заливка раб. обл.',0
+ db 0
+txt_bit_edit db 'в фокусе',0
+ db 'цифры от 0-9',0
+ db 0
+txt_bit_che db 'check_box выбран',0
+ db 0
+txt_bit_but db 'не рисовать кнопку',0
+ db 'не рисовать границу при нажатии',0
+ db 0
+txt_bit_caption db 'строка ASCII заканч. 0',0
+ db 'заливка фона',0
+ db '2-й шрифт',0
+ db 0
diff --git a/programs/develop/kol_f_edit/obj_codes.inc b/programs/develop/kol_f_edit/obj_codes.inc
new file mode 100644
index 0000000000..bb43bfcfa2
--- /dev/null
+++ b/programs/develop/kol_f_edit/obj_codes.inc
@@ -0,0 +1,23 @@
+;
+; в этом файле собраны коды объектов
+;
+
+C_TDF equ 't' ;typedef
+C_ACO equ 'a' ;автоматические коды (auto code)
+C_STR equ 's' ;struct
+C_INC equ '#' ;include
+C_TXT equ 'd' ;блок кода (данных)
+C_VAR equ '-' ;переменная
+C_COM equ ';' ;комментарий
+C_WND equ 'w' ;окно
+C_CHB equ 'c' ;CheckBox
+C_OPT equ 'o' ;OptionBox
+C_EDB equ 'e' ;EditBox
+C_BUT equ 'b' ;Button
+C_DTT equ 'x' ;рисовать текст
+C_REC equ 'r' ;рисовать прямоугольник
+C_KEY equ 'k' ;клавиатура
+C_LIB equ 'l' ;библиотека
+C_IFN equ 'f' ;библиотечная подключаемая функция
+
+MAX_LEN_OBJ_TXT equ 200
\ No newline at end of file
diff --git a/programs/develop/libraries/box_lib/trunk/doc/checkbox/info_checkbox.htm b/programs/develop/libraries/box_lib/trunk/doc/checkbox/info_checkbox.htm
index f5c4888adf..428ad9c6a6 100644
--- a/programs/develop/libraries/box_lib/trunk/doc/checkbox/info_checkbox.htm
+++ b/programs/develop/libraries/box_lib/trunk/doc/checkbox/info_checkbox.htm
@@ -55,6 +55,7 @@
┬хЁёш ¤ыхьхэЄр
+╨рчьхЁ ёЄЁєъЄєЁ√ checkbox2 єърчрэ тэєЄЁш Їрщыр box_lib.mac т ярЁрьхЄЁх ch_struc_size.
struc check_box2 left_s,top_s,ch_text_margin,color,border_color,text_color,text,flags
{ ;ёЄЁєъЄєЁр ярЁрьхЄЁют фы ўхъ сюъёр
.left_s: dd left_s ;+0 яюыюцхэшх яю ї dw + ЁрчьхЁ dw
@@ -68,19 +69,22 @@
.size_of_str: dd 0x0 ;фышээр ёЄЁюъш, т√ўшёы хЄё яЁш шэшЎшрышчрЎшш ъюьяюэхэЄр
}
-left_s - юЄёЄєя ёыхтр + фышээр т ЇюЁьрЄх (яюыюцхэшх яю x * 65536 +фышээр яю ї).
-top - юЄёЄєя ётхЁїє + фышээр яю y (яюыюцхэшх яю y* 65536 +фышээр яю y).
+left_s - юЄёЄєя ёыхтр + °шЁшэр (т ЇюЁьрЄх: яюыюцхэшх яю x * 65536 + фышээр яю ї).
+top_s - юЄёЄєя ётхЁїє + т√ёюЄр (т ЇюЁьрЄх: яюыюцхэшх яю y * 65536 + фышээр яю y).
ch_text_margin - ЁрёёЄю эшх юЄ яЁ ьюєуюы№эшър ўхъ сюъёр фю эрфяшёш.
color - ЎтхЄ тэєЄЁш ўхъсюъёр.
-
-ch_flag_en = 10b ;Їыру єёЄрэютыхээюую ўхъ сюъёр.
-ch_flag_top = 0x0 ;Їыру Ёрёяюыюцхэш ЄхъёЄр ттхЁїє Є.х. 3-щ сшЄ
-ch_flag_middle = 100b ;Їыру Ёрёяюыюцхэш ЄхъёЄр т ЎхэЄЁх Є.х. 4-щ сшЄ.
-ch_flag_bottom = 1000b ;Їыру Ёрёяюыюцхэш ЄхъёЄр т эшчє Є.х. яю єьюыўрэш■ яЁшэшьрхЄё чэрўхэшх тэшчє Є.х. юЄёєёЄтшх 3-ую ш 4-ую сшЄр
-
+ch_flag_en = 10b
+╘ыру єёЄрэютыхээюую ўхъ сюъёр.
+ch_flag_top = 0x0
+╘ыру Ёрёяюыюцхэш ЄхъёЄр ттхЁїє Є.х. 3-щ сшЄ.
+ch_flag_middle = 100b
+╘ыру Ёрёяюыюцхэш ЄхъёЄр т ЎхэЄЁх Є.х. 4-щ сшЄ.
+ch_flag_bottom = 1000b
+╘ыру Ёрёяюыюцхэш ЄхъёЄр т эшчє Є.х. яю єьюыўрэш■ яЁшэшьрхЄё чэрўхэшх тэшчє Є.х. юЄёєёЄтшх 3-ую ш 4-ую сшЄр
+
@@ -122,6 +126,6 @@ ch_flag_bottom = 1000b ;
╘ырцюъ т√сЁрэ.
-─юъєьхэЄрЎш юсэюты ырё№ яюёыхфэшщ Ёрч 10.01.10.
+─юъєьхэЄрЎш юсэюты ырё№ яюёыхфэшщ Ёрч 08.12.10.