; 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 }