Subversion Repositories Kolibri OS

Rev

Rev 1032 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1032 Lrz 1
ed_struc_size=72
2
struc  edit_box width,left,top,color,shift_color,focus_border_color,\
3
       blur_border_color,text_color,max,text,flags,size,pos
4
{
5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6
;Bit mask from editbox
7
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8
ed_figure_only= 1000000000000000b   ;одни символы
9
ed_always_focus= 100000000000000b
10
ed_focus=                     10b   ;фокус приложения
11
ed_shift_on=                1000b   ;если не установлен -значит впервые нажат shift,если был установлен, значит мы уже что - то делали удерживая shift
12
ed_shift_on_off=1111111111110111b
13
ed_shift=                    100b   ;включается при нажатии на shift т.е. если нажимаю
14
ed_shift_off=   1111111111111011b
15
ed_shift_bac=              10000b   ;бит для очистки выделеного shift т.е. при установке говорит что есть выделение
16
ed_shift_bac_cl=1111111111101111b   ;очистка при удалении выделения
17
ed_shift_cl=    1111111111100011b
18
ed_shift_mcl=   1111111111111011b
19
ed_left_fl=               100000b
20
ed_right_fl=    1111111111011111b
21
ed_offset_fl=            1000000b
22
ed_offset_cl=   1111111110111111b
23
ed_insert=              10000000b
24
ed_insert_cl=   1111111101111111b
25
ed_mouse_on =          100000000b
26
ed_mous_adn_b=         100011000b
27
ed_mouse_on_off=1111111011111111b
28
ed_height=14 ; высота
29
 
30
.width dd width
31
.left dd left
32
.top dd top
33
.color dd color
34
.shift_color dd shift_color
35
.focus_border_color dd focus_border_color
36
.blur_border_color dd blur_border_color
37
.text_color dd text_color
38
.max dd max
39
.text dd text
40
.flags dd flags+0
41
.size dd size+0
42
.pos dd pos+0
43
.offset dd 0
44
.cl_curs_x dd 0
45
.cl_curs_y dd 0
46
.shift   dd 0
47
.shift_old   dd 0
48
}
49
struc check_box left,top,ch_text_margin,ch_size,color,border_color,text_color,text,ch_text_length,flags
50
{        ;структура параметров для чек бокса
51
ch_flag_en=10b
52
.left: dw left      ;+0        ;положение по х
53
.top: dw top        ;положение по у
54
.ch_text_margin:  dd ch_text_margin ;расстояние от прямоугольника чек бокса до надписи
55
.ch_size: dd ch_size ;размер квадрата чек бокса, для примера 12
56
.color: dd color    ;цвет внутри чекбокса
57
.border_color: dd border_color ;цвет рамки
58
.text_color: dd text_color     ;цвет надписи
59
.text: dd text                 ;адрес в коде программы где расположен текст
60
.ch_text_length: dd ch_text_length ;длинна строки с символами
61
.flags: dd flags+0   ; флаги
62
}
63
struc option_box point_gr,left,top,op_text_margin,op_size,color,border_color,text_color,text,op_text_length,flags
64
{        ;структура параметров для чек бокса
65
op_flag_en=10b
66
.option_group: dd point_gr
67
.left: dw left      ;+0        ;положение по х
68
.top: dw top        ;положение по у
69
.ch_text_margin:  dd op_text_margin ;расстояние от прямоугольника чек бокса до надписи
70
.ch_size: dd op_size ;размер квадрата чек бокса, для примера 12
71
.color: dd color    ;цвет внутри чекбокса
72
.border_color: dd border_color ;цвет рамки
73
.text_color: dd text_color     ;цвет надписи
74
.text: dd text                 ;адрес в коде программы где расположен текст
75
.ch_text_length: dd op_text_length ;длинна строки с символами
76
.flags: dd flags+0   ; флаги
77
}
1068 Lrz 78