From 8df9a500b63b05c61b2c9f34d35d611e3d51a88d Mon Sep 17 00:00:00 2001 From: "Alexey Teplov (" Date: Mon, 19 Feb 2007 07:08:33 +0000 Subject: [PATCH] upgrade component optionbox git-svn-id: svn://kolibrios.org@362 a494cfbc-eb01-0410-851d-a64ba20cac60 --- .../examples/radiobutton/trunk/optionbox.asm | 26 ++++++------ .../examples/radiobutton/trunk/optionbox.inc | 41 +++++++------------ 2 files changed, 28 insertions(+), 39 deletions(-) diff --git a/programs/develop/examples/radiobutton/trunk/optionbox.asm b/programs/develop/examples/radiobutton/trunk/optionbox.asm index 02029dba80..ed0f4a28fc 100644 --- a/programs/develop/examples/radiobutton/trunk/optionbox.asm +++ b/programs/develop/examples/radiobutton/trunk/optionbox.asm @@ -1,7 +1,8 @@ ;компонент OptionBox (основан на Checkbox) ;Огромная благодарность Maxxxx32, Diamond, Heavyiron и другим программистам, и их программам, без ;которых я не смог бы написать этот компонент. -;16.02.2007 +;19.02.2007 общее улучшение кода, уменьшение размера и использование системных цветов для отображения optionkbox +;16.02.2007 дата создания компонента ; - Теплов Алексей www.lrz.land.ru ;заголовок приложения @@ -22,7 +23,7 @@ use32 ; ; откуда запущено приложение ;------------------ include 'macros.inc' - include 'optionbox.inc' ;включить файл check.inc + include 'optionbox.inc' ;включить файл opeck.inc use_option_box ;используя макросы,внести процедуры для рисования optionbox align 16 ;Область кода @@ -86,19 +87,19 @@ draw_window: ; ;0 - цвет текста надписи ;op_text.1 - указатель на начало строки ;option_group1 - это признак группы, т.е. этот код может обрабатывать много групп из optibox -;op_text.e1-ch_text.1 - длина строки +;op_text.e1-op_text.1 - длина строки ; align 16 option_boxes: -op1 option_box 10,15,0,0,ch_text.1,ch_text.e1-ch_text.1,option_group1 -op2 option_box 10,30,0,0,ch_text.2,ch_text.e2-ch_text.2,option_group1 -op3 option_box 10,45,0,0,ch_text.3,ch_text.e3-ch_text.3,option_group1 -op11 option_box 10,80,0,0,ch_text.1,ch_text.e1-ch_text.1,option_group2 -op12 option_box 10,95,0,0,ch_text.2,ch_text.e2-ch_text.2,option_group2 -op13 option_box 10,110,0,0,ch_text.3,ch_text.e3-ch_text.3,option_group2 +op1 option_box 10,15,op_text.1,op_text.e1-op_text.1,option_group1 +op2 option_box 10,30,op_text.2,op_text.e2-op_text.2,option_group1 +op3 option_box 10,45,op_text.3,op_text.e3-op_text.3,option_group1 +op11 option_box 10,80,op_text.1,op_text.e1-op_text.1,option_group2 +op12 option_box 10,95,op_text.2,op_text.e2-op_text.2,option_group2 +op13 option_box 10,110,op_text.3,op_text.e3-op_text.3,option_group2 option_boxes_end: -ch_text: ; Сопровождающий текст для чек боксов +op_text: ; Сопровождающий текст для чек боксов .1 db 'Option_Box #1' .e1: .2 db 'Option_Box #2' @@ -109,7 +110,6 @@ ch_text: ; option_group1 dd op1 ;указатели, они отображаются по умолчанию, когда выводится option_group2 dd op11 ;приложение -hed db 'Optionbox [16.02.2007]',0 ;заголовок приложения +hed db 'Optionbox [19.02.2007]',0 ;заголовок приложения sc system_colors -i_end: ;конец кода - +i_end: ;конец кода \ No newline at end of file diff --git a/programs/develop/examples/radiobutton/trunk/optionbox.inc b/programs/develop/examples/radiobutton/trunk/optionbox.inc index 0e078c1230..8d01eeb3c1 100644 --- a/programs/develop/examples/radiobutton/trunk/optionbox.inc +++ b/programs/develop/examples/radiobutton/trunk/optionbox.inc @@ -1,7 +1,8 @@ ;компонент OptionBox (Основан на Checkbox) ;Огромная благодарность Maxxxx32, Diamond, Heavyiron, и другим программистам, и их программам, без ;которых я не смог бы написать этот компонент. -;16.02.2007 +;19.02.2007 общее улучшение кода, уменьшение размера и использование системных цветов для отображения optionkbox +;16.02.2007 дата создания компонента ; - Теплов Алексей www.lrz.land.ru macro use_option_box @@ -10,11 +11,13 @@ op_text_margin=4 ; op_size=10 ;размер квадрата чек бокса op_left equ [edi] ;координата начала рисования по х op_top equ [edi+2] ;координата начала рисования по у -op_border_color equ [edi+4] ;цвет рамки optionbox -op_text_color equ [edi+8] ;цвет текста -op_text_ptr equ [edi+12] ;указатель на начало текстовой строки -op_text_length equ [edi+16] ;длина надписи (2^64 такой длины может быть текст) -op_optibox_gr equ [edi+18] +op_border_color equ [sc.work_graph] ; or [edi+4] ;цвет рамки checkbox ее можно задать самостоятельно +op_text_color equ [sc.work_text];[edi+4] ;цвет текста +;op_border_color equ [edi+4] ;цвет рамки optionbox +;op_text_color equ [edi+8] ;цвет текста +op_text_ptr equ [edi+4] ;указатель на начало текстовой строки +op_text_length equ [edi+8] ;длина надписи (2^64 такой длины может быть текст) +op_optibox_gr equ [edi+10] option_box: .draw: pusha ;сохраним все регистры @@ -56,21 +59,7 @@ pusha ; ;pop cx int 0x40 ;нарисовали прямоугольник - mov eax,13 ;закрашиваем его. Функция 13 - нарисовать полосу - movzx ebx,word op_left ;загрузить в bx, положение по х - add ebx,1 ;сдвинем на 1 т.е. прибавим 1 иначе затрется рамка - shl ebx,16 ;сдвинем на 16 разрядов в лево (умножим на 65536) - mov bx,op_size ;прибавим длину стороны прямоугольника - sub ebx,1 ;вычтем 1 т.к. иначе затрется рамка - mov bp,bx ;сохраним регистр bx в регистре указателя базы - ;push bx - movzx ecx,word op_top ;загрузим координаты по y - add ecx,1 ;сдвинем на 1 т.е. прибавим 1 иначе затрется рамка - shl ecx,16 ;сдвинем на 16 разрядов в лево (умножим на 65536) - mov cx,bp ;восстановим значение регистра cx - ;pop cx - mov edx,dword [sc.work] ;загрузим цвет полосы - int 0x40 ;закрасили + call .clear_op ;очистка области mov eax,dword op_optibox_gr mov dword eax,[eax] @@ -162,17 +151,17 @@ popa ; ret ;выйти } -struc option_box left,top,border_color,text_color,text,text_length,point_gr,flags +struc option_box left,top,text,text_length,point_gr { ;структура параметров для чек бокса .left: dw left ;+0 ;положение по х .top: dw top ;+2 ;положение по у -.border_color: dd border_color ;+8 цвет рамки -.text_color: dd text_color ;+12 цвет текста надписи +;.border_color: dd border_color ;+8 цвет рамки +;.text_color: dd text_color ;+12 цвет текста надписи .text: dd text ;+16 адрес в коде программы где расположен текстр .text_length: dw text_length ; +20 длина текста .option_group: dd point_gr ;указатель на размещение edi - идентификатора optibox } -op_struc_size=22 ;общая структура 24 байт +op_struc_size=14 ;общая структура 24 байт op_flag_en=10b macro draw_option_boxes start,end ;рисовать чек боксы { @@ -196,7 +185,7 @@ macro mouse_option_boxes start,end ; mov ecx,((end-start)/op_struc_size) ;Количество чек боксов .home: - mov eax,[edi+18] ;op_optibox_gr + mov eax,[edi+10] ;op_optibox_gr mov dword eax,[eax] pusha