mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-11 17:44:09 +03:00
1510d5d932
git-svn-id: svn://kolibrios.org@1837 a494cfbc-eb01-0410-851d-a64ba20cac60
278 lines
9.2 KiB
PHP
278 lines
9.2 KiB
PHP
; SEE YOU File FAQ.txt and HISTORY. Good Like!
|
||
;;;;;;;;;;;;;;;;;;
|
||
include 'editbox.mac' ;¬ ªà®á ª®â®àë© ¤®«¦¥ ®¡«¥£ç¨âì ¦¨§ì :) á¯¥æ¨ «ì® ¤«ï editbox
|
||
;;;;;;;;;;;;;;;;;;
|
||
macro use_edit_box procinfo,scr_h,scr_w
|
||
{
|
||
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+42] ;ª®«-¢® ᨬ¢®«®¢
|
||
ed_pos equ [edi+46] ;¯®§¨æ¨ï ªãàá®à
|
||
ed_offset equ [edi+50] ;ᬥ饨¥
|
||
cl_curs_x equ [edi+54] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® å
|
||
cl_curs_y equ [edi+58] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® ã
|
||
ed_shift_pos equ [edi+62] ;¯®«®¦¥¨¥ ªãàá®à
|
||
ed_shift_pos_old equ [edi+66] ;áâ ஥ ¯®«®¦¥¨¥ ªãàá®à
|
||
;==========================================================
|
||
;=== ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ =================================
|
||
;==========================================================
|
||
.draw:
|
||
pusha
|
||
;--- à¨á㥬 à ¬ªã ---
|
||
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:
|
||
pusha
|
||
test word ed_flags,ed_focus ; ¥á«¨ ¥ ¢ 䮪ãá¥, ¢ë室¨¬
|
||
je .editbox_exit
|
||
test word ed_flags,ed_mouse_on
|
||
jne .editbox_exit
|
||
|
||
;<EFBFBD>஢¥àª ¦ â shift ?
|
||
call .check_shift
|
||
;----------------------------------------------------------
|
||
;--- ¯à®¢¥à塞, çâ® ¦ â® --------------------------------
|
||
;----------------------------------------------------------
|
||
use_key_process backspase,delete,left,right,home,end,insert
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;‡ £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ â.¥. ¯à¨ ®¡ à㦥¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_key_no_process up,down,esc
|
||
;--- ¦ â ¤àã£ ï ª« ¢¨è ---
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;<EFBFBD>஢¥àª ãáâ ®¢«¥ «¨ ä« £ ¯à¨ ª®â®à®¬ 㦮 ¢ë¢®¤¨âì ⮫쪮 æ¨äàë ¢ 㦮¬ ¡®ªá¥ ¥á«¨ â ª®©¥®¡å®¤¨¬®á⨠¥â 㦮 § ª®¬¥â¨à®¢ âì ¬ ªà®á
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_key_figures_only
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;¯à®¢¥àª shift ¡ë« «¨ ¦ â
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
are_key_shift_press
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; ¯à®¢¥à塞, 室¨âáï «¨ ªãàá®à ¢ ª®æ¥ + ¤ «ì¥©è ï ®¡à ¡®âª
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
are_key_cur_end
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Ž¡à ¡®âª ª« ¢¨è insert,delete.backspase,home,end,left,right
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_work_key
|
||
;==========================================================
|
||
;=== ®¡à ¡®âª ¬ëè¨ =======================================
|
||
;==========================================================
|
||
.mouse:
|
||
pusha
|
||
;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
|
||
;----------------------------------------------------------
|
||
;--- ¯®«ãç ¥¬ ª®®à¤¨ âë ¬ëè¨ ®â®á¨â¥«ì® 0 â.¥ ¢á¥© ®¡« á⨠íªà
|
||
;----------------------------------------------------------
|
||
@@: mcall 37,0
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;”ãªæ¨ï ®¡à ¡®âª¨ ¬ë誨 ¯®«ã票¥ ª®®à¤¨ â ¨ ¯à®¢¥àª ¨å + ¢ë¤¥«¥¨ï
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_work_mause scr_h,scr_w
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;Ž¡é¨¥ äãªæ¨¨ ®¡à ¡®âª¨
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_general_func
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;”ãªæ¨¨ ¤«ï à ¡®âë á key
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_key_func
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;”ãªæ¨¨ ¤«ï à ¡®âë á mouse
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
use_mouse_func scr_w
|
||
}
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;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,use_f9,procinfo
|
||
{
|
||
if use_f9 eq
|
||
else
|
||
mcall 9,procinfo,-1
|
||
end if
|
||
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=70
|
||
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 dw 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,use_f9,procinfo
|
||
{
|
||
if use_f9 eq
|
||
else
|
||
mcall 9,procinfo,-1
|
||
end if
|
||
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
|
||
} |