Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
1639 Lrz 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;Basic macros for use EditBox                             ;
3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4
ed_width        equ [edi]               ;ширина компонента
5
ed_left         equ [edi+4]             ;положение по оси х
6
ed_top          equ [edi+8]             ;положение по оси у
7
ed_color        equ [edi+12]            ;цвет фона компонента
8
shift_color     equ [edi+16]            ;=0x6a9480 для примера возьем желеный цвет бокса
9
ed_focus_border_color   equ [edi+20]    ;цвет рамки компонента
10
ed_blur_border_color    equ [edi+24]    ;цвет не активного компонента
11
ed_text_color   equ [edi+28]            ;цвет текста
12
ed_max          equ [edi+32]                    ;кол-во символов которые можно максимально ввести
13
ed_text         equ [edi+36]                    ;указатель на буфер
14
ed_mouse_variable 	equ [edi+40]	; указатель на переменную для бокса/группы
15
ed_flags        equ [edi+44]            ;флаги
16
bp_flags	equ [ebp+44]		;в некоторых процедурах edi используется, взамен указатель храниться в ebp
17
ed_size equ [edi+48]                    ;кол-во символов
18
bp_size equ [ebp+48]			;кол-во симвполов, для адресации испльзуется ebpб edi занят
19
ed_pos  equ [edi+52]                    ;позиция курсора
20
ed_offset       equ [edi+56]            ;смещение
21
cl_curs_x       equ [edi+60]            ;предыдущее координата курсора по х
22
cl_curs_y       equ [edi+64]            ;предыдущее координата курсора по у
23
ed_shift_pos    equ [edi+68]            ;положение курсора
24
ed_shift_pos_old equ [edi+72]           ;старое положение курсора
25
 
26
ed_struc_size=76
27
 
28
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29
;Bit mask from editbox
30
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
31
ed_figure_only= 1000000000000000b   ;одни символы
32
ed_always_focus= 100000000000000b
33
ed_focus=                     10b   ;фокус приложения
34
ed_shift_on=                1000b   ;если не установлен -значит впервые нажат shift,если был установлен, значит мы уже что - то делали удерживая shift
35
ed_shift_on_off=1111111111110111b
36
ed_shift=                    100b   ;включается при нажатии на shift т.е. если нажимаю
37
ed_shift_off=   1111111111111011b
38
ed_shift_bac=              10000b   ;бит для очистки выделеного shift т.е. при установке говорит что есть выделение
39
ed_shift_bac_cl=1111111111101111b   ;очистка при удалении выделения
40
ed_shift_cl=    1111111111100011b
41
ed_shift_mcl=   1111111111111011b
42
ed_left_fl=               100000b
43
ed_right_fl=    1111111111011111b
44
ed_offset_fl=            1000000b
45
ed_offset_cl=   1111111110111111b
46
ed_insert=              10000000b
47
ed_insert_cl=   1111111101111111b
48
ed_mouse_on =          100000000b
49
ed_mous_adn_b=         100011000b
50
ed_mouse_on_off=1111111011111111b
51
ed_height=14 ; высота
52
 
53
struc  edit_box width,left,top,color,shift_color,focus_border_color,\
54
       blur_border_color,text_color,max,text,mouse_variable,flags,size,pos
55
{
56
.width dd width
57
.left  dd left
58
.top   dd top
59
.color dd color
60
.shift_color dd shift_color
61
.focus_border_color dd focus_border_color
62
.blur_border_color  dd blur_border_color
63
.text_color dd text_color
64
.max  dd max
65
.text dd text
66
.mouse_variable dd mouse_variable
67
.flags  dd flags+0
68
.size   dd size+0
69
.pos    dd pos+0
70
.offset dd 0
71
.cl_curs_x dd 0
72
.cl_curs_y dd 0
73
.shift     dd 0
74
.shift_old dd 0
75
}
76
 
77
macro edit_boxes_set_sys_color start,end,color_table
78
{
79
        mov     edi,start
80
        mov     ecx,((end-start)/ed_struc_size)
81
        mov     esi,color_table
82
@@:
83
        mov     eax,dword [esi+36]
84
        mov     ebx,dword [esi+20]
85
        push	dword eax
86
	pop     dword ed_focus_border_color
87
        shr     bh,1
88
        shr     bl,1
89
        shr     ah,1
90
        shr     al,1
91
        add     ah,bh
92
        add     al,bl
93
        ror     eax,16
94
        ror     ebx,16
95
        shr     bl,1
96
        shr     al,1
97
        add     al,bl
98
        ror     eax,16
99
	mov	dword ed_blur_border_color,eax
100
	mov	dword shift_color,eax
101
        add     edi,ed_struc_size
102
        loop    @b
103
}
104
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
105
;Basic macros for use CheckBox                            ;
1657 lrz 106
;Last change 12.10.2010					  ;
1639 Lrz 107
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1657 lrz 108
ch_struc_size=36		;размер структуры
1639 Lrz 109
ch_flag_en=10b 			;флаг установленного чек бокса.
1660 lrz 110
ch_flag_top=0x0			;флаг расположения текста вверху т.е. 3-й бит
111
ch_flag_middle=100b		;флаг расположения текста в центре т.е. 4-й бит.
112
ch_flag_bottom=1000b		;флаг расположения текста в низу т.е. по умолчанию принимается значение внизу т.е. отсуствие 3-го и 4-го бита
1639 Lrz 113
 
1682 lrz 114
2ch_left_s	equ [ebp]	;кордината начала рисования по х
115
2ch_top_s	equ [ebp+4]	;координата начала рисования по у
116
2ch_text_margin equ [ebp+8] 	;=4 расстояние от прямоугольника чек бокса до надписи
117
2ch_color 	equ [ebp+12]	;цвет внутри checkbox
118
2ch_border_color	equ [ebp+16] 	; or [edi+4] ;цвет рамки checkbox ее можно задать самостоятельно
119
2ch_text_color	equ [ebp+20] 	;[edi+4]  ;цвет текста
120
2ch_text_ptr	equ [ebp+24] 	;указатель на начало текстовой строки
121
2ch_flags	equ [ebp+28]	;флаги
122
2ch_sz_str	equ [ebp+32]	;длинна строки, вычисляется при инициализации компонента
1639 Lrz 123
 
1682 lrz 124
struc check_box2 left_s,top_s,ch_text_margin,color,border_color,text_color,text,flags
1639 Lrz 125
{				;структура параметров для чек бокса
126
.left_s: 	dd left_s	;+0 положение по х dw + размер dw
127
.top_s:  	dd top_s	;+4 положение по у dw + размер dw
128
.ch_text_margin: dd ch_text_margin ;расстояние от прямоугольника чек бокса до надписи
129
.color:   	dd color	;цвет внутри чекбокса
130
.border_color: 	dd border_color	;цвет рамки
131
.text_color:	dd text_color	;цвет надписи
132
.text: 		dd text		;адрес в коде программы где расположен текст
1657 lrz 133
.flags:		dd flags+0	;флаги
134
.size_of_str:	dd 0x0		;длинна строки, вычисляется при инициализации компонента
1639 Lrz 135
}
136
 
1660 lrz 137
;Макрос проверки щелчка мышки над группой checkboxes.
1682 lrz 138
macro init_checkboxes2 start,end
1660 lrz 139
{
140
	mov     ebp,start
141
	mov     ecx,((end-start)/ch_struc_size)
142
@@:
143
	push    ebp			;указатель на первый checkbox
1682 lrz 144
	call	[init_checkbox2]	;макрос проверки мышки над checkbox'ом
1660 lrz 145
	add     ebp,ch_struc_size
146
	loop    @b
147
}
148
 
1661 lrz 149
;Макрос проверки мышки группы checkboxes.
1682 lrz 150
macro checkboxes_mouse2 start,end
1660 lrz 151
{
152
	mov     ebp,start
153
	mov     ecx,((end-start)/ch_struc_size)
154
@@:
155
	push    ebp			;указатель на первый checkbox
1682 lrz 156
	call	[check_box_mouse2]	;нарисовать checkbox
1660 lrz 157
	add     ebp,ch_struc_size
158
	loop    @b
159
}
160
 
161
;Макрос отрисовки группы checkboxes.
1682 lrz 162
macro checkboxes_draw2 start,end
1660 lrz 163
{
164
	mov     ebp,start
165
	mov     ecx,((end-start)/ch_struc_size)
166
@@:
167
	push    ebp			;указатель на первый checkbox
1682 lrz 168
	call	[check_box_draw2]	;нарисовать checkbox
1660 lrz 169
	add     ebp,ch_struc_size
170
	loop    @b
171
}
172
 
1639 Lrz 173
macro check_boxes_set_sys_color start,end,color_table
174
{
175
	mov     ebp,start
176
	mov     ecx,((end-start)/ch_struc_size)
177
	mov     esi,color_table
178
@@:
179
	push    dword [esi+32] 		;цвет текста в рабочей области окна
180
	pop     dword ch_text_color
181
	push    dword [esi+36] 		;цвет графики в окне (разделительные линии и т.п.)
182
	pop     dword ch_border_color
183
	add     ebp,ch_struc_size
184
	loop    @b
185
}
186
 
187
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
188
;Basic macros for use OptionBox                           ;
189
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
190
 
191
struc option_box point_gr,left,top,op_text_margin,op_size,color,border_color,text_color,text,op_text_length,flags
192
{        ;структура параметров для чек бокса
193
op_flag_en=10b
194
.option_group: dd point_gr
195
.left: dw left       ;+0 ;положение по х
196
.top:  dw top        ;положение по у
197
.ch_text_margin:  dd op_text_margin ;расстояние от прямоугольника чек бокса до надписи
198
.ch_size: dd op_size ;размер квадрата чек бокса, для примера 12
199
.color:   dd color   ;цвет внутри чекбокса
200
.border_color: dd border_color ;цвет рамки
201
.text_color:   dd text_color   ;цвет надписи
202
.text: dd text                 ;адрес в коде программы где расположен текст
203
.ch_text_length: dd op_text_length ;длинна строки с символами
204
.flags: dd flags+0   ; флаги
205
}
206
 
207
option_group equ [edi]
208
op_left equ [edi+4]    ;координата начала рисования по х
209
op_top equ [edi+6]     ;координата начала рисования по у
210
op_text_margin equ [edi+8]      ;=4 расстояние от прямоугольника чек бокса до надписи
211
op_size equ [edi+12]             ;12 размер квадрата чек бокса
212
op_color equ [edi+16]
213
op_border_color equ [edi+20] ; or [edi+4] ;цвет рамки checkbox ее можно задать самостоятельно
214
op_text_color equ   [edi+24];[edi+4]  ;цвет текста
215
op_text_ptr equ [edi+28]    ;указатель на начало текстовой строки
216
op_text_length equ [edi+32]
217
op_flags equ [edi+36]       ;флаги
218
 
219
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
220
;Basic macros for use TreeList                            ;
221
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
222
 
223
struc tree_list info_size,info_max_count,style, img_cx,img_cy,\
224
    col_bkg,col_zag,col_txt, box_l,box_t,box_w,box_h, capt_cy,info_capt_offs,\
225
    info_capt_len,el_focus, p_scrol,on_press {
226
  .data_info	dd 0
227
  .info_size	dw info_size
228
  .info_max_count dd info_max_count
229
  .style	    dd style
230
  .data_nodes	dd 0
231
  .data_img	 dd 0
232
  .img_cx	   dw img_cx
233
  .img_cy	   dw img_cy
234
  .data_img_sys	 dd 0
235
  .ch_tim		  dd 0
236
  .ls_tim		  dd 0
237
  .tim_undo	 dd 0
238
  .cur_pos	  dd 0
239
  .col_bkg	  dd col_bkg
240
  .col_zag	  dd col_zag
241
  .col_txt	  dd col_txt
242
  .box_left   dd box_l
243
  .box_top    dd box_t
244
  .box_width  dd box_w
245
  .box_height dd box_h
246
  .capt_cy	   dw capt_cy
247
  .info_capt_offs dw info_capt_offs
248
  .info_capt_len dw info_capt_len
249
  .el_focus dd el_focus
250
  .p_scrol  dd p_scrol
251
  rb 4
252
  .on_activate dd 0
253
  .on_press dd on_press
254
}
255
 
256
tl_info_size  equ  word[edi +4] ;размер данных выделяемых для каждого узла (пользовательськие данные + текст для подписи)
257
tl_info_max_count equ dword[edi+6] ;максимальное количество узлов, которые можно добавить в элемент
258
tl_style      equ dword[edi+10] ;стили элемента
259
tl_data_nodes equ dword[edi+14] ;указатель на структуры узлов
260
tl_data_img   equ dword[edi+18] ;указатель на изображения с иконками узлов
261
tl_img_cx     equ  word[edi+22] ;ширина иконок
262
tl_img_cy     equ  word[edi+24] ;высота иконок
263
tl_data_img_sys equ dword[edi+26] ;указатель на системные изображения (стрелки, плюсики)
264
tl_ch_tim     equ dword[edi+30] ;количество изменений в файле
265
tl_tim_undo   equ dword[edi+38] ;количество отмененных действий
266
tl_cur_pos    equ dword[edi+42] ;позиция курсора
267
tl_col_bkg    equ dword[edi+46] ;цвет фона
268
tl_col_zag    equ dword[edi+50] ;цвет заголовка
269
tl_col_txt    equ dword[edi+54] ;цвет текста
270
tl_box_left   equ dword[edi+58]
271
tl_box_top    equ dword[edi+62]
272
tl_box_width  equ dword[edi+66]
273
tl_box_height equ dword[edi+70]
274
tl_capt_cy    equ  word[edi+74] ;высота подписи
275
tl_info_capt_offs equ word[edi+76] ;сдвиг для начала текста (подписи узла)
276
tl_info_capt_len equ word[edi+78] ;длинна текста подписи узла (если = 0 то до конца структуры)
277
tl_el_focus   equ dword[edi+80] ;указатель на структуру элемента в фокусе
278
tl_p_scrol    equ dword[edi+84] ;указатель на структуру скроллинга
279
tl_on_press   equ dword[edi+96] ;указатель на функцию, которая вызывается при нажатии Enter
280
 
281
;data_info	 dd ? ;+ 0 указатель на основные даные
282
;ls_tim		dd ? ;+34 время последнего сохранения
283
;on_activate dd ? ;+92 указатель на функцию при активировании узла
284
 
285
;константы стиля
286
tl_key_no_edit   equ   1b ;элемент нельзя редактировать на клавиатуре (изменять уровни, удалять)
287
tl_draw_par_line equ  10b ;рисовать линии к родительскому узлу
288
tl_list_box_mode equ 100b ;стиль не отображает уровни (как в ListBox все одного уровня)
289
 
290
;константы для функций
291
tl_err_save_memory_size equ  10b ;не хватает памяти для сохранения элемента
292
tl_err_load_caption     equ   1b ;в памяти нет заголовка 'tree'
293
tl_err_load_info_size   equ 100b ;не совпадает размер информационной структуры при открытии
294
tl_load_mode_add        equ 0x20000 ;опция считывания в режиме добавления информации
295
tl_save_load_heder_size equ 26 ;размер заголовка для записи/чтения элементов
296
tl_offs_box equ 58 ;начало BOX структуры для tree_list
297
 
298
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
299
;Basic macros for use TextEditor                          ;
300
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
301
 
302
ted_wnd_l equ dword[edi+ 0] ;окно редактора: отступ слева
303
ted_wnd_t equ dword[edi+ 4] ;окно редактора: отступ сверху
304
ted_wnd_w equ dword[edi+ 8] ;окно редактора: ширина
305
ted_wnd_h equ dword[edi+12] ;окно редактора: высота
306
ted_rec_l equ dword[edi+16] ;ширина панели в окне
307
ted_rec_t equ dword[edi+20] ;высота панели в окне
308
ted_rec_w equ dword[edi+24] ;ширина символа (знакоместа) в окне
309
ted_rec_h equ dword[edi+28] ;высота символа (знакоместа) в окне
310
ted_drag_m equ byte[edi+32] ;выделение от мыши
311
ted_drag_k equ byte[edi+33] ;выделение от клавиатуры
312
ted_sel_x0 equ dword[edi+34] ;координата выделения x0
313
ted_sel_y0 equ dword[edi+38] ;координата выделения y0
314
ted_sel_x1 equ dword[edi+42] ;координата выделения x1
315
ted_sel_y1 equ dword[edi+46] ;координата выделения y1
316
;запасные координаты выделения
317
ted_seln_x0 equ dword[edi+50]
318
ted_seln_y0 equ dword[edi+54]
319
ted_seln_x1 equ dword[edi+58]
320
ted_seln_y1 equ dword[edi+62]
321
 
322
ted_tex     equ dword[edi+66] ;указатель на память для хранения текста
323
ted_tex_1   equ dword[edi+70] ;указатель на 1-ю стркутру символа
324
ted_tex_end equ dword[edi+74] ;указатель на последнюю структуру символа
325
ted_cur_x   equ dword[edi+78] ;координата x курсора
326
ted_cur_y   equ dword[edi+82] ;координата y курсора
327
ted_max_chars equ dword[edi+86] ;максимальное число символов в одном документе
328
ted_colors_text_count equ dword[edi+90] ;колличество цветов текста
329
ted_key_words_count   equ dword[edi+94] ;колличество ключевых слов
330
ted_color_cursor   equ dword[edi+98] ;цвет курсора
331
ted_color_wnd_capt equ dword[edi+102] ;цвет полей вокруг окна
332
ted_color_wnd_work equ dword[edi+106] ;цвет фона окна
333
ted_color_wnd_bord equ dword[edi+110] ;цвет текста на полях
334
ted_color_select   equ dword[edi+114] ;цвет выделения
335
ted_color_cur_text equ dword[edi+118] ;цвет символа под курсором
336
ted_color_wnd_text equ dword[edi+122] ;цвет текста в окне
337
ted_syntax_file    equ dword[edi+126] ;указатель на начало файла синтаксиса
338
ted_syntax_file_size equ dword[edi+130] ;максимальный размер файла синтаксиса
339
ted_text_colors     equ dword[edi+134] ;указатель на массив цветов текста
340
ted_help_text_f1    equ dword[edi+138] ;указатель на текст справки (по нажатии F1)
341
ted_help_id         equ dword[edi+142] ;идентификатор для справки
342
ted_key_words_data  equ dword[edi+146] ;указатель на структуры ключевых слов TexColViv
343
ted_tim_ch          equ dword[edi+150] ;колличество изменений в файле
344
ted_tim_undo        equ dword[edi+154] ;колличество отмененных действий
345
ted_tim_ls          equ dword[edi+158] ;время последнего сохранения
346
ted_tim_co          equ dword[edi+162] ;время последней цветовой разметки
347
ted_el_focus        equ dword[edi+166] ;указатель на переменную элемента в фокусе
348
ted_err_save        equ  byte[edi+170] ;ошибка сохранения файла
349
ted_panel_id        equ  byte[edi+171] ;номер открытой панели
350
ted_key_new         equ  byte[edi+172] ;символ, который будет добавлятся с клавиатуры
351
ted_symbol_new_line equ  byte[edi+173] ;символ завершения строки
352
ted_scr_w           equ dword[edi+174] ;вертикальный скроллинг
353
ted_scr_h           equ dword[edi+178] ;горизонтальный скроллинг
354
ted_arr_key_pos     equ dword[edi+182] ;указатель на массив позиций ключевых слов
355
ted_buffer          equ dword[edi+186] ;указатель на буфер копирования/вставки
356
ted_buffer_find     equ dword[edi+190] ;указатель на буфер для поиска
357
ted_cur_ins         equ  byte[edi+194] ;режим работы курсора (обычный или замена)
358
ted_mode_color      equ  byte[edi+195] ;режим выделения слов цветом (0-выкл. 1-вкл.)
359
ted_mode_invis      equ  byte[edi+196] ;режим показа непечатаемых символов
360
ted_gp_opt          equ  byte[edi+197] ;опции возвращаемые функцией ted_get_pos_by_cursor
361
ted_fun_on_key_ctrl_o equ dword[edi+198] ;указатель на функцию вызываемую при нажатии Ctrl+O (открытие файла)
362
ted_fun_on_key_ctrl_f equ dword[edi+202] ;... Ctrl+F (вызова/скрытия панели поиска)
363
ted_fun_on_key_ctrl_n equ dword[edi+206] ;... Ctrl+N (создание нового документа)
364
ted_fun_on_key_ctrl_s equ dword[edi+210] ;... Ctrl+S
365
ted_buffer_size       equ dword[edi+214] ;размер буфера копирования/вставки
366
ted_fun_find_err      equ dword[edi+218] ;указатель на функцию вызываемую если поиск закончился неудачно
367
ted_fun_init_synt_err equ dword[edi+222] ;указатель на функцию вызываемую при ошибочном открытии файла синтаксиса
368
ted_fun_draw_panel_buttons equ dword[edi+226] ;указатель на функцию рисования панели с кнопками
369
ted_fun_draw_panel_find    equ dword[edi+230] ;указатель на функцию рисования панели поиска
370
ted_fun_draw_panel_syntax  equ dword[edi+234] ;указатель на функцию рисования панели синтаксиса
371
ted_fun_save_err      equ dword[edi+238] ;указатель на функцию вызываемую если сохранение файла закончилось неудачно
372
ted_increase_size     equ dword[edi+242] ;число символов на которые будет увечиваться память при нехватке
373
ted_ptr_free_symb     equ dword[edi+246] ;указатель на свободную память, в которую можно добавлять символ (используется внутри элемента для ускорения вставки текста)
374
;------------------------------------------------------------------------------
375
ted_opt_ed_move_cursor equ 1 ;двигать курсор после добавления текста
376
ted_opt_ed_change_time equ 2 ;добавлять изменения при редактировании текста
377
ted_offs_sel  equ 34 ;смещение структуры sel
378
ted_offs_seln equ 50 ;смещение структуры seln
379
ted_offs_count_colors equ 90 ;смещение переменной колличества цветов
380
ted_offs_key_new equ 172
381
ted_offs_symbol_new_line equ 173 ;смещение символа новой строки
382
;------------------------------------------------------------------------------
383
 
384
 
385
 
386
; *** scroll bar constant ***
387
sb_offs_size_x   equ  0
388
sb_offs_start_x  equ  2
389
sb_offs_size_y   equ  4
390
sb_offs_start_y  equ  6
391
sb_offs_max_area equ 16
392
sb_offs_cur_area equ 20
393
sb_offs_position equ 24
394
sb_offs_bckg_col equ 28
395
sb_offs_frnt_col equ 32
396
sb_offs_line_col equ 36
397
sb_offs_redraw   equ 40
398
sb_offs_delta2   equ 46
399
sb_offs_all_redraw equ 80
400
;------------------------------------------------------------------------------