Subversion Repositories Kolibri OS

Rev

Rev 1705 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1698 IgorA 1 
;lang equ ru
2 
 
3 
MAX_LEN_OBJ_TXT equ 200
4 
 
5 
C_TD equ 't' ;typedef
6 
C_AC equ 'a' ;автоматические коды (auto code)
7 
C_ST equ 's' ;struct
8 
C_IN equ '#' ;include
9 
C_TT equ 'd' ;блок кода (данных)
10 
C_VR equ '-' ;переменная
11 
C_CO equ ';' ;комментарий
12 
C_WI equ 'w' ;окно
13 
C_CB equ 'c' ;CheckBox
14 
C_OP equ 'o' ;OptionBox
15 
C_ED equ 'e' ;EditBox
16 
C_BU equ 'b' ;Button
17 
C_DT equ 'x' ;рисовать текст
18 
C_RE equ 'r' ;рисовать прямоугольник
19 
C_KE equ 'k' ;клавиатура
20 
 
21 
macro ObjOpt c,bl_type,graph,info,caption,Col,img
22 
{
23 
db c
24 
db bl_type
25 
db graph
26 
@@: db info
27 
rb @b+30-$
28 
@@: db caption
29 
rb @b+MAX_LEN_OBJ_TXT-$
30 
dw Col
31 
dw img
32 
}
33 
 
34 
ObjOpt C_AC,  1,0,'Авто код','',\
35 
	<0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
36 
	<2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
37 
ObjOpt C_ST,  1,0,'Структура','имя структуры*параметры для макроса',\
38 
	<40,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
39 
	< 1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
40 
ObjOpt C_BU,  1,1,'Кнопка','идентификатор*отступ слева*отступ сверху*ширина*высота*цвет*имя метки при нажатии',\
41 
	<20, 40, 60, 80,100,120,  0,  0,  0,  0, 0>,\
42 
	<29, 15, 16, 26, 27, 25, -1, -1, -1, -1,-1>
43 
ObjOpt C_ED,  1,1,'Текстовое поле','***отступ сверху*цвет фона*цвет выделения при удерживании shift или мышкой*цвет рамки*при неактивном боксе цвет рамки*цвет текста*максимальная длина текста*начальный текст',\
44 
	<30, 40, 50, 60, 80,100,120,140,160,170, 0>,\
45 
	<10, 26, 15, 16, 25, 25, 25, 25, 25, -1, 4>
46 
ObjOpt C_OP,  1,1,'Радио кнопка','имя*отступ слева*отступ сверху*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*подпись*отступ до надписи*размер квадрата',\
47 
	<40, 50, 60, 80,100,120,180,190,  0,  0, 0>,\
48 
	< 9, 15, 16, 25, 25, 25,  4, 26, 27, -1, -1>
49 
ObjOpt C_CB,  1,1,'Флажок','***подпись*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*отступ до надписи*размер квадрата',\
50 
	<40, 50, 60,120,140,160,180,190,  0,  0, 0>,\
51 
	< 8, 15, 16,  4, 25, 25, 25, 26, 27, -1, -1>
52 
ObjOpt C_TT,  1,0,'asm код','',\
53 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
54 
	<11, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
55 
ObjOpt C_VR,  0,0,'Переменная','имя переменной*значение по умолчанию*комментарий',\
56 
	<40, 80,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
57 
	< 0, -1,  5, -1, -1, -1, -1, -1, -1, -1, -1>
58 
ObjOpt C_WI,  1,1,'Окно','**отступ слева*отступ сверху*ширина*высота*цвет клиентской области*цвет заголовка (если есть)',\
59 
	<98,100,110,120,130,150,170,  0,  0,  0, 0>,\
60 
	<12, -1, 15, 16, 26, 27, 25, 25, -1, -1, -1>
61 
ObjOpt C_CO,  1,0,'Комментарий','строка комментария',\
62 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
63 
	< 5, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
64 
ObjOpt C_IN,  1,0,'Включение файла','имя файла*комментарий',\
65 
	<100,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
66 
	< 6,  5, -1, -1, -1, -1, -1, -1, -1, -1, -1>
67 
ObjOpt C_TD,  0,0,'Тип данного','',\
68 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
69 
	< 3, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
70 
ObjOpt C_DT,  1,1,'Рисование текста','***цвет текста*цвет фона (если есть)',\
71 
	<40, 50, 60, 80,  0,  0,  0,  0,  0,  0, 0>,\
72 
	< 4, 15, 16, 25, 25, -1, -1, -1, -1, -1, -1>
73 
ObjOpt C_RE,  1,1,'Прямоугольник','цвет*отступ слева*отступ сверху*ширина*высота',\
74 
	<20, 40, 60, 80,  0,  0,  0,  0,  0,  0, 0>,\
75 
	<25, 15, 16, 26, 27, -1, -1, -1, -1, -1, -1>
76 
ObjOpt C_KE,  1,0,'Событие на клавиатуру','',\
77 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
78 
	<28, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
79 
ObjOpt 0x0d,  1,0, '-','',\
80 
	<20,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
81 
	<-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
82