Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
1698 IgorA 1 
;lang equ ru
2 
 
1714 IgorA 3 
include 'obj_codes.inc'
1698 IgorA 4 
 
1727 IgorA 5 
macro ObjOpt id,bl_type,graph,info,caption,Col,img,bit_prop,bit_val
1698 IgorA 6 
{
1717 IgorA 7 
dd id
1698 IgorA 8 
db bl_type
9 
db graph
10 
@@: db info
11 
rb @b+30-$
12 
@@: db caption
1717 IgorA 13 
rb @b+MAX_OPT_CAPTION-$
1698 IgorA 14 
dw Col
1714 IgorA 15 
dw img ;индексы картинок (в файле 'icon.bmp')
1727 IgorA 16 
dd bit_prop+0 ;указатель на названия битовых свойств
17 
dd bit_val+0 ;указатель на значения (константы) битовых свойств
1698 IgorA 18 
}
19 
 
1714 IgorA 20 
ObjOpt C_TDF,  0,0,'Тип данного','',\
1705 IgorA 21 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
22 
	< 3, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
1714 IgorA 23 
ObjOpt C_VAR,  0,0,'Переменная','имя переменной*значение по умолчанию*комментарий',\
1705 IgorA 24 
	<40, 80,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
25 
	< 0, -1,  5, -1, -1, -1, -1, -1, -1, -1, -1>
1714 IgorA 26 
ObjOpt C_STR,  1,0,'Структура','имя структуры*параметры для макроса',\
1705 IgorA 27 
	<40,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
28 
	< 1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
1714 IgorA 29 
ObjOpt C_ACO,  1,0,'Авто код','',\
1698 IgorA 30 
	<0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
1714 IgorA 31 
	<2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>,\
32 
	txt_bit_auto
33 
ObjOpt C_BUT,  1,1,'Кнопка','идентификатор*отступ слева*отступ сверху*ширина*высота*цвет*имя метки при нажатии',\
1698 IgorA 34 
	<20, 40, 60, 80,100,120,  0,  0,  0,  0, 0>,\
1714 IgorA 35 
	<29, 15, 16, 26, 27, 25, -1, -1, -1, -1,-1>,\
36 
	txt_bit_but
1717 IgorA 37 
ObjOpt C_EDB,  1,1,'Текстовое поле',\
38 
	'имя структуры editbox*ширина поля*отступ слева*отступ сверху*цвет фона*цвет выделения при удерживании shift или мышкой*цвет рамки*цвет рамки при неактивном поле*цвет текста*максимальная длина текста*начальный текст',\
1698 IgorA 39 
	<30, 40, 50, 60, 80,100,120,140,160,170, 0>,\
1714 IgorA 40 
	<10, 26, 15, 16, 25, 25, 25, 25, 25, -1, 4>,\
1727 IgorA 41 
	txt_bit_edit,txt_bit_edit.v
1714 IgorA 42 
ObjOpt C_OPT,  1,1,'Радио кнопка','имя*отступ слева*отступ сверху*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*подпись*отступ до надписи*размер квадрата',\
1698 IgorA 43 
	<40, 50, 60, 80,100,120,180,190,  0,  0, 0>,\
44 
	< 9, 15, 16, 25, 25, 25,  4, 26, 27, -1, -1>
1720 IgorA 45 
ObjOpt C_CHB,  1,1,'Флажок','имя структуры*отступ слева*отступ сверху*ширина*высота*отступ до надписи*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*подпись',\
46 
	<40, 50, 60, 70, 80, 90,110,130,150,  0, 0>,\
47 
	< 8, 15, 16, 26, 27, 26, 25, 25, 25,  4,-1>,\
1727 IgorA 48 
	txt_bit_che,txt_bit_che.v
1714 IgorA 49 
ObjOpt C_TXT,  1,0,'asm код','',\
1698 IgorA 50 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
51 
	<11, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
1717 IgorA 52 
ObjOpt C_WND,  1,1,'Окно','заголовок окна*стиль окна*отступ слева*отступ сверху*ширина*высота*цвет клиентской области*цвет заголовка (если есть)',\
1698 IgorA 53 
	<98,100,110,120,130,150,170,  0,  0,  0, 0>,\
1714 IgorA 54 
	<12, -1, 15, 16, 26, 27, 25, 25, -1, -1, -1>,\
55 
	txt_bit_wnd
56 
ObjOpt C_INC,  1,0,'Включение файла','имя файла*комментарий',\
1705 IgorA 57 
	<100, 0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
1698 IgorA 58 
	< 6,  5, -1, -1, -1, -1, -1, -1, -1, -1, -1>
1705 IgorA 59 
ObjOpt C_LIB,  1,0,'Импорт библиотеки','имя библ.*сист. дир.*метка импорта*приставка*ошибка не найдена*ошибка не могу открыть',\
60 
	<30, 80,110,120,160,  0,  0,  0,  0,  0, 0>,\
61 
	<20, -1, -1, -1,  4,  4, -1, -1, -1, -1, -1>
62 
ObjOpt C_IFN,  1,0,'Функция из библиотеки','програмное имя функции*импортируемое имя функции',\
63 
	<100, 0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
1720 IgorA 64 
	<21, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>,\
65 
	txt_bit_ifn
1714 IgorA 66 
ObjOpt C_DTT,  1,1,'Рисование текста','текстовая строка*координата по x*координата по y*цвет текста*цвет фона (если есть)',\
1698 IgorA 67 
	<40, 50, 60, 80,  0,  0,  0,  0,  0,  0, 0>,\
1714 IgorA 68 
	< 4, 15, 16, 25, 25, -1, -1, -1, -1, -1, -1>,\
1727 IgorA 69 
	txt_bit_caption,txt_bit_caption.v
1714 IgorA 70 
ObjOpt C_REC,  1,1,'Прямоугольник','цвет*отступ слева*отступ сверху*ширина*высота',\
1698 IgorA 71 
	<20, 40, 60, 80,  0,  0,  0,  0,  0,  0, 0>,\
72 
	<25, 15, 16, 26, 27, -1, -1, -1, -1, -1, -1>
1714 IgorA 73 
ObjOpt C_KEY,  1,0,'Событие на клавиатуру','',\
1698 IgorA 74 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
75 
	<28, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
76 
ObjOpt 0x0d,  1,0, '-','',\
77 
	<20,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
78 
	<-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
79 
 
1714 IgorA 80 
dd 0 ;разделитель
1698 IgorA 81 
 
1714 IgorA 82 
;названия битовых свойств
1720 IgorA 83 
txt_bit_auto db 'первоначальные настройки элементов',0
1714 IgorA 84 
	db 'события от мыши',0
85 
	db 'коды элементов',0
86 
	db 'нажатия на кнопки',0
87 
	db 0
88 
txt_bit_wnd db 'подпись окна',0
89 
	db 'окно не закрашивает клиентскую обл.',0
90 
	db 'коорд. относительно клиентской обл.',0
91 
	db 'градиентная заливка раб. обл.',0
92 
	db 0
93 
txt_bit_edit db 'в фокусе',0
94 
	db 'цифры от 0-9',0
95 
	db 0
1727 IgorA 96 
.v:
97 
	db 'ed_focus',0
98 
	db 'ed_figure_only',0
99 
	db 0
1714 IgorA 100 
txt_bit_che db 'check_box выбран',0
1720 IgorA 101 
	db 'текст cверху',0
102 
	db 'текст по центру',0
103 
	db 'текст cнизу',0
1714 IgorA 104 
	db 0
1727 IgorA 105 
.v:
106 
	db 'ch_flag_en',0
107 
	db 'ch_flag_top',0
108 
	db 'ch_flag_middle',0
109 
	db 'ch_flag_bottom',0
110 
	db 0
1714 IgorA 111 
txt_bit_but db 'не рисовать кнопку',0
112 
	db 'не рисовать границу при нажатии',0
113 
	db 0
114 
txt_bit_caption db 'строка ASCII заканч. 0',0
115 
	db 'заливка фона',0
116 
	db '2-й шрифт',0
117 
	db 0
1727 IgorA 118 
.v:
119 
	db '0x80000000',0
120 
	db '0x40000000',0
121 
	db '0x10000000',0
122 
	db 0
1720 IgorA 123 
txt_bit_ifn db 'закоментировать функцию',0
124 
	db 0