ace-dent
0cd3b0c5b1
- Move source code from `trunk` into root directory for each program. - Update build files and ASM include paths. Add SPDX license header where appropriate. - Note: Line endings standardised from `CRLF` > `LF`, so best to view diffs with whitespace changes hidden. (Work towards #75, point 3) Reviewed-on: KolibriOS/kolibrios#419 Co-authored-by: Andrew <dent.ace@gmail.com> Co-committed-by: Andrew <dent.ace@gmail.com>
271 lines
9.0 KiB
FASM
271 lines
9.0 KiB
FASM
; SEE YOU File FAQ.txt and HISTORY. Good Like!
|
||
;;;;;;;;;;;;;;;;;;
|
||
include 'editbox.mac' ;макрос который должен облегчить жизнь :) специально для editbox
|
||
;;;;;;;;;;;;;;;;;;
|
||
macro use_edit_box
|
||
{
|
||
edit_box:
|
||
ed_width equ [edi] ;ширина компонента
|
||
ed_left equ [edi+4] ;положение по оси х
|
||
ed_top equ [edi+8] ;положение по оси у
|
||
ed_color equ [edi+12] ;цвет фона компонента
|
||
shift_color equ [edi+16] ;=0x6a9480
|
||
ed_focus_border_color equ [edi+20] ;цвет рамки компонента
|
||
ed_blur_border_color equ [edi+24] ;цвет не активного компонента
|
||
ed_text_color equ [edi+28] ;цвет текста
|
||
ed_max equ [edi+32] ;кол-во символов которые можно максимально ввести
|
||
ed_text equ [edi+36] ;указатель на буфер
|
||
ed_flags equ [edi+40] ;флаги
|
||
ed_size equ [edi+44] ;кол-во символов
|
||
ed_pos equ [edi+48] ;позиция курсора
|
||
ed_offset equ [edi+52] ;смещение
|
||
cl_curs_x equ [edi+56] ;предыдущее координата курсора по х
|
||
cl_curs_y equ [edi+60] ;предыдущее координата курсора по у
|
||
ed_shift_pos equ [edi+64] ;положение курсора
|
||
ed_shift_pos_old equ [edi+68] ;старое положение курсора
|
||
;==========================================================
|
||
;=== процедура прорисовки =================================
|
||
;==========================================================
|
||
.draw:
|
||
pushad
|
||
;--- рисуем рамку ---
|
||
call .draw_border ; Функция стабильна
|
||
.draw_bg_cursor_text:
|
||
;--- изменяем смещение, если надо ---
|
||
call .check_offset ;вычисление позиции курсора стабильна
|
||
;--- рисуем внутреннюю область ---
|
||
call .draw_bg ;нарисовать прямоугольник рабочей области
|
||
;---- рисуем выделение, по shift если есть
|
||
call .draw_shift
|
||
.draw_cursor_text:
|
||
;--- рисуем курсор ---
|
||
;--- может его не надо рисовать ----
|
||
test word ed_flags,ed_focus
|
||
je @f
|
||
call .draw_cursor
|
||
@@:
|
||
call .draw_text
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Общий выход из editbox для всех функций и пост обработчиков
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
.editbox_exit:
|
||
edit_ex
|
||
;==========================================================
|
||
;=== обработка клавиатуры =================================
|
||
;==========================================================
|
||
.key:
|
||
pushad
|
||
test word ed_flags,ed_focus ; если не в фокусе, выходим
|
||
je .editbox_exit
|
||
test word ed_flags,ed_mouse_on
|
||
jne .editbox_exit
|
||
|
||
;Проверка нажат shift ?
|
||
call .check_shift
|
||
;----------------------------------------------------------
|
||
;--- проверяем, что нажато --------------------------------
|
||
;----------------------------------------------------------
|
||
use_key_process backspase,delete,left,right,home,end,insert
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Заглушка на обработку клавиш вверх и вниз т.е. при обнаружении этих кодов происходит выход из обработчика
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll
|
||
;--- нажата другая клавиша ---
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Проверка установлен ли флаг при котором нужно выводить только цифры в нужном боксе если такойнеобходимости нет нужно закоментировать макрос
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_key_figures_only
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;проверка на shift был ли нажат
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
are_key_shift_press
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; проверяем, находится ли курсор в конце + дальнейшая обработка
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
are_key_cur_end
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Обработка клавиш insert,delete.backspase,home,end,left,right
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_work_key
|
||
;==========================================================
|
||
;=== обработка мыши =======================================
|
||
;==========================================================
|
||
.mouse:
|
||
pushad
|
||
;debug
|
||
;----------------------------------------------------------
|
||
;--- получаем состояние кнопок мыши -----------------------
|
||
;----------------------------------------------------------
|
||
mcall 37,2
|
||
;----------------------------------------------------------
|
||
;--- проверяем состояние ----------------------------------
|
||
;----------------------------------------------------------
|
||
test eax,1
|
||
jnz .mouse_left_button
|
||
and word ed_flags,ed_mouse_on_off
|
||
xor ebx,ebx
|
||
mov dword [mouse_flag],ebx
|
||
jmp .editbox_exit
|
||
.mouse_left_button:
|
||
;----------------------------------------------------------
|
||
;--- блокировка от фокусировки в других боксах при попадании на них курсора
|
||
;----------------------------------------------------------
|
||
mov eax,dword [mouse_flag]
|
||
test eax,eax
|
||
jz @f
|
||
cmp eax,edi
|
||
je @f
|
||
jmp ._blur
|
||
;----------------------------------------------------------
|
||
;--- получаем координаты мыши относительно окна
|
||
;----------------------------------------------------------
|
||
@@: mcall 37,1
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Функция обработки мышки получение координат и проверка их + выделения
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_work_mouse
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Общие функции обработки
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_general_func
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Функции для работы с key
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_key_func
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Функции для работы с mouse
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_mouse_func
|
||
}
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Bit mask from editbox
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
ed_figure_only= 1000000000000000b ;одни символы
|
||
ed_always_focus= 100000000000000b
|
||
ed_focus= 10b ;фокус приложения
|
||
ed_shift_on= 1000b ;если не установлен -значит впервые нажат shift,если был установлен, значит мы уже что - то делали удерживая shift
|
||
ed_shift_on_off=1111111111110111b
|
||
ed_shift= 100b ;включается при нажатии на shift т.е. если нажимаю
|
||
ed_shift_off= 1111111111111011b
|
||
ed_shift_bac= 10000b ;бит для очистки выделеного shift т.е. при установке говорит что есть выделение
|
||
ed_shift_bac_cl=1111111111101111b ;очистка при удалении выделения
|
||
ed_shift_cl= 1111111111100011b
|
||
ed_shift_mcl= 1111111111111011b
|
||
ed_left_fl= 100000b
|
||
ed_right_fl= 1111111111011111b
|
||
ed_offset_fl= 1000000b
|
||
ed_offset_cl= 1111111110111111b
|
||
ed_insert= 10000000b
|
||
ed_insert_cl= 1111111101111111b
|
||
ed_mouse_on = 100000000b
|
||
ed_mous_adn_b= 100011000b
|
||
ed_mouse_on_off=1111111011111111b
|
||
ed_height=14 ; высота
|
||
macro draw_edit_boxes start,_end
|
||
{
|
||
mov edi,start
|
||
mov ecx,((_end-start)/ed_struc_size)
|
||
@@:
|
||
call edit_box.draw
|
||
add edi,ed_struc_size
|
||
loop @b
|
||
}
|
||
|
||
macro mouse_edit_boxes start,_end
|
||
{
|
||
mov edi,start
|
||
mov ecx,((_end-start)/ed_struc_size)
|
||
@@:
|
||
call edit_box.mouse
|
||
add edi,ed_struc_size
|
||
loop @b
|
||
}
|
||
|
||
macro key_edit_boxes start,end
|
||
{
|
||
mov edi,start
|
||
mov ecx,((end-start)/ed_struc_size)
|
||
@@:
|
||
call edit_box.key
|
||
add edi,ed_struc_size
|
||
loop @b
|
||
}
|
||
ed_struc_size=72
|
||
struc edit_box width,left,top,color,shift_color,focus_border_color,\
|
||
blur_border_color,text_color,max,text,flags,size,pos
|
||
{
|
||
.width dd width
|
||
.left dd left
|
||
.top dd top
|
||
.color dd color
|
||
.shift_color dd shift_color
|
||
.focus_border_color dd focus_border_color
|
||
.blur_border_color dd blur_border_color
|
||
.text_color dd text_color
|
||
.max dd max
|
||
.text dd text
|
||
.flags dd flags+0
|
||
.size dd size+0
|
||
.pos dd pos+0
|
||
.offset dd 0
|
||
.cl_curs_x dd 0
|
||
.cl_curs_y dd 0
|
||
.shift dd 0
|
||
.shift_old dd 0
|
||
}
|
||
|
||
|
||
macro edit_boxes_set_sys_color start,end,color_table
|
||
{
|
||
mov edi,start
|
||
mov ecx,((end-start)/ed_struc_size)
|
||
mov esi,color_table
|
||
@@:
|
||
mov eax,[esi+36]
|
||
mov ebx,[esi+20]
|
||
mov ed_focus_border_color,eax
|
||
shr bh,1
|
||
shr bl,1
|
||
shr ah,1
|
||
shr al,1
|
||
add ah,bh
|
||
add al,bl
|
||
ror eax,16
|
||
ror ebx,16
|
||
shr bl,1
|
||
shr al,1
|
||
add al,bl
|
||
ror eax,16
|
||
mov ed_blur_border_color,eax
|
||
add edi,ed_struc_size
|
||
loop @b
|
||
}
|
||
|
||
macro draw_edit_box ed_ptr
|
||
{
|
||
mov edi,ed_ptr
|
||
call edit_box.draw
|
||
}
|
||
|
||
macro mouse_edit_box ed_ptr
|
||
{
|
||
mov edi,ed_ptr
|
||
call edit_box.mouse
|
||
}
|
||
|
||
macro key_edit_box ed_ptr
|
||
{
|
||
mov edi,ed_ptr
|
||
call edit_box.key
|
||
}
|
||
macro default_box ed_ptr
|
||
{
|
||
pusha
|
||
; xor eax,eax
|
||
; mov ed_shift_pos,eax
|
||
; mov ed_shift_pos_old,eax
|
||
and word ed_flags,ed_shift_cl
|
||
; mov ed_offset,eax
|
||
popa
|
||
} |