Subversion Repositories Kolibri OS

Rev

Rev 1698 | Rev 1714 | 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 
 
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' ;клавиатура
1705 IgorA 20 
C_LIB equ 'l'
21 
C_IFN equ 'f'
1698 IgorA 22 
 
23 
macro ObjOpt c,bl_type,graph,info,caption,Col,img
24 
{
25 
db c
26 
db bl_type
27 
db graph
28 
@@: db info
29 
rb @b+30-$
30 
@@: db caption
31 
rb @b+MAX_LEN_OBJ_TXT-$
32 
dw Col
33 
dw img
34 
}
35 
 
1705 IgorA 36 
ObjOpt C_TD,  0,0,'Тип данного','',\
37 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
38 
	< 3, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
39 
ObjOpt C_VR,  0,0,'Переменная','имя переменной*значение по умолчанию*комментарий',\
40 
	<40, 80,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
41 
	< 0, -1,  5, -1, -1, -1, -1, -1, -1, -1, -1>
42 
ObjOpt C_ST,  1,0,'Структура','имя структуры*параметры для макроса',\
43 
	<40,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
44 
	< 1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
1698 IgorA 45 
ObjOpt C_AC,  1,0,'Авто код','',\
46 
	<0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
47 
	<2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
48 
ObjOpt C_BU,  1,1,'Кнопка','идентификатор*отступ слева*отступ сверху*ширина*высота*цвет*имя метки при нажатии',\
49 
	<20, 40, 60, 80,100,120,  0,  0,  0,  0, 0>,\
50 
	<29, 15, 16, 26, 27, 25, -1, -1, -1, -1,-1>
51 
ObjOpt C_ED,  1,1,'Текстовое поле','***отступ сверху*цвет фона*цвет выделения при удерживании shift или мышкой*цвет рамки*при неактивном боксе цвет рамки*цвет текста*максимальная длина текста*начальный текст',\
52 
	<30, 40, 50, 60, 80,100,120,140,160,170, 0>,\
53 
	<10, 26, 15, 16, 25, 25, 25, 25, 25, -1, 4>
54 
ObjOpt C_OP,  1,1,'Радио кнопка','имя*отступ слева*отступ сверху*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*подпись*отступ до надписи*размер квадрата',\
55 
	<40, 50, 60, 80,100,120,180,190,  0,  0, 0>,\
56 
	< 9, 15, 16, 25, 25, 25,  4, 26, 27, -1, -1>
57 
ObjOpt C_CB,  1,1,'Флажок','***подпись*цвет фона внутри*цвет рамки и внутр. галочки*цвет текста*отступ до надписи*размер квадрата',\
58 
	<40, 50, 60,120,140,160,180,190,  0,  0, 0>,\
59 
	< 8, 15, 16,  4, 25, 25, 25, 26, 27, -1, -1>
60 
ObjOpt C_TT,  1,0,'asm код','',\
61 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
62 
	<11, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
63 
ObjOpt C_WI,  1,1,'Окно','**отступ слева*отступ сверху*ширина*высота*цвет клиентской области*цвет заголовка (если есть)',\
64 
	<98,100,110,120,130,150,170,  0,  0,  0, 0>,\
65 
	<12, -1, 15, 16, 26, 27, 25, 25, -1, -1, -1>
66 
ObjOpt C_CO,  1,0,'Комментарий','строка комментария',\
67 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
68 
	< 5, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
69 
ObjOpt C_IN,  1,0,'Включение файла','имя файла*комментарий',\
1705 IgorA 70 
	<100, 0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
1698 IgorA 71 
	< 6,  5, -1, -1, -1, -1, -1, -1, -1, -1, -1>
1705 IgorA 72 
ObjOpt C_LIB,  1,0,'Импорт библиотеки','имя библ.*сист. дир.*метка импорта*приставка*ошибка не найдена*ошибка не могу открыть',\
73 
	<30, 80,110,120,160,  0,  0,  0,  0,  0, 0>,\
74 
	<20, -1, -1, -1,  4,  4, -1, -1, -1, -1, -1>
75 
ObjOpt C_IFN,  1,0,'Функция из библиотеки','програмное имя функции*импортируемое имя функции',\
76 
	<100, 0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
77 
	<21, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
1698 IgorA 78 
ObjOpt C_DT,  1,1,'Рисование текста','***цвет текста*цвет фона (если есть)',\
79 
	<40, 50, 60, 80,  0,  0,  0,  0,  0,  0, 0>,\
80 
	< 4, 15, 16, 25, 25, -1, -1, -1, -1, -1, -1>
81 
ObjOpt C_RE,  1,1,'Прямоугольник','цвет*отступ слева*отступ сверху*ширина*высота',\
82 
	<20, 40, 60, 80,  0,  0,  0,  0,  0,  0, 0>,\
83 
	<25, 15, 16, 26, 27, -1, -1, -1, -1, -1, -1>
84 
ObjOpt C_KE,  1,0,'Событие на клавиатуру','',\
85 
	< 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
86 
	<28, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
87 
ObjOpt 0x0d,  1,0, '-','',\
88 
	<20,  0,  0,  0,  0,  0,  0,  0,  0,  0, 0>,\
89 
	<-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1>
90