| 0,0 → 1,271 |
|---|
| ; 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 |
| } |