Support new flags for checkbox.

git-svn-id: svn://kolibrios.org@1660 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/libraries/box_lib/branch/box_lib.mac

@@ -107,6 +107,9 @@ macro edit_boxes_set_sys_color start,end,color_table
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ch_struc_size=36		;размер структуры
 ch_flag_en=10b 			;флаг установленного чек бокса.
+ch_flag_top=0x0			;флаг расположения текста вверху т.е. 3-й бит
+ch_flag_middle=100b		;флаг расположения текста в центре т.е. 4-й бит.
+ch_flag_bottom=1000b		;флаг расположения текста в низу т.е. по умолчанию принимается значение внизу т.е. отсуствие 3-го и 4-го бита
 
 ch_left_s	equ [ebp]	;кордината начала рисования по х
 ch_top_s	equ [ebp+4]	;координата начала рисования по у
@@ -131,6 +134,42 @@ struc check_box left_s,top_s,ch_text_margin,color,border_color,text_color,text,f
 .size_of_str:	dd 0x0		;длинна строки, вычисляется при инициализации компонента
 }
 
+;Макрос проверки щелчка мышки над группой checkboxes.
+macro init_checkboxes start,end
+{
+	mov     ebp,start
+	mov     ecx,((end-start)/ch_struc_size)
+@@:
+	push    ebp			;указатель на первый checkbox
+	call	[check_box_mouse]	;макрос проверки мышки над checkbox'ом
+	add     ebp,ch_struc_size
+	loop    @b
+}
+
+;Макрос отрисовки группы checkboxes.
+macro checkboxes_draw start,end
+{
+	mov     ebp,start
+	mov     ecx,((end-start)/ch_struc_size)
+@@:
+	push    ebp			;указатель на первый checkbox
+	call	[check_box_draw]	;нарисовать checkbox
+	add     ebp,ch_struc_size
+	loop    @b
+}
+
+;Макрос отрисовки группы checkboxes.
+macro checkboxes_draw start,end
+{
+	mov     ebp,start
+	mov     ecx,((end-start)/ch_struc_size)
+@@:
+	push    ebp			;указатель на первый checkbox
+	call	[check_box_draw]	;нарисовать checkbox
+	add     ebp,ch_struc_size
+	loop    @b
+}
+
 macro check_boxes_set_sys_color start,end,color_table
 {
 	mov     ebp,start