forked from KolibriOS/kolibrios
editbox example use check_box2
git-svn-id: svn://kolibrios.org@3693 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
1a4d5374c9
commit
ee18db4d68
@ -1,190 +1,201 @@
|
|||||||
;§ £®«®¢®ª ¯à¨«®¦¥¨ï
|
;§ £®«®¢®ª ¯à¨«®¦¥¨ï
|
||||||
use32 ; âà á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §àï¤ëå ª®¬ ¤ë
|
use32 ; âà á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §àï¤ëå ª®¬ ¤ë
|
||||||
org 0x0 ; ¡ §®¢ë© ¤à¥á ª®¤ , ¢á¥£¤ 0x0
|
org 0x0 ; ¡ §®¢ë© ¤à¥á ª®¤ , ¢á¥£¤ 0x0
|
||||||
db 'MENUET01' ; ¨¤¥â¨ä¨ª â®à ¨á¯®«ï¥¬®£® ä ©« (8 ¡ ©â)
|
db 'MENUET01' ; ¨¤¥â¨ä¨ª â®à ¨á¯®«ï¥¬®£® ä ©« (8 ¡ ©â)
|
||||||
dd 0x1 ; ¢¥àá¨ï ä®à¬ â § £®«®¢ª ¨á¯®«ï¥¬®£® ä ©«
|
dd 0x1 ; ¢¥àá¨ï ä®à¬ â § £®«®¢ª ¨á¯®«ï¥¬®£® ä ©«
|
||||||
dd start ; ¤à¥á, ª®â®àë© á¨á⥬ ¯¥à¥¤ ñâ ã¯à ¢«¥¨¥
|
dd start ; ¤à¥á, ª®â®àë© á¨á⥬ ¯¥à¥¤ ñâ ã¯à ¢«¥¨¥
|
||||||
; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥¨ï ¢ ¯ ¬ïâì
|
; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥¨ï ¢ ¯ ¬ïâì
|
||||||
dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï
|
dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï
|
||||||
dd mem ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪ ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢¨¬ £à¨æã 4 ¡ ©â
|
dd mem ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪ ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢¨¬ £à¨æã 4 ¡ ©â
|
||||||
dd mem ; à ᯮ«®¦¨¬ ¯®§¨æ¨î á⥪ ¢ ®¡« á⨠¯ ¬ïâ¨, áà §ã § ⥫®¬ ¯à®£à ¬¬ë. ‚¥àè¨ á⥪ ¢ ¤¨ ¯ §®¥ ¯ ¬ïâ¨, 㪠§ ®¬ ¢ëè¥
|
dd mem ; à ᯮ«®¦¨¬ ¯®§¨æ¨î á⥪ ¢ ®¡« á⨠¯ ¬ïâ¨, áà §ã § ⥫®¬ ¯à®£à ¬¬ë. ‚¥àè¨ á⥪ ¢ ¤¨ ¯ §®¥ ¯ ¬ïâ¨, 㪠§ ®¬ ¢ëè¥
|
||||||
dd 0x0 ; 㪠§ ⥫ì áâபã á ¯ à ¬¥âà ¬¨.
|
dd 0x0 ; 㪠§ ⥫ì áâபã á ¯ à ¬¥âà ¬¨.
|
||||||
dd cur_dir_path
|
dd cur_dir_path ; 㪠§ â¥«ì ¤à¥á, ªã¤ ¯®¬¥é ¥âáï áâப , ᮤ¥à¦ é ï ¯ãâì ¤® ¯à®£à ¬¬ë ¢ ¬®¬¥â § ¯ã᪠.
|
||||||
|
|
||||||
|
|
||||||
include '../../../../../macros.inc'
|
include '../../../../../macros.inc'
|
||||||
include '../../trunk/box_lib.mac'
|
include '../../trunk/box_lib.mac'
|
||||||
include '../../load_lib.mac'
|
include '../../load_lib.mac'
|
||||||
@use_library ;use load lib macros
|
@use_library ;use load lib macros
|
||||||
start:
|
start:
|
||||||
;universal load library/librarys
|
;universal load library/librarys
|
||||||
sys_load_library library_name, cur_dir_path, library_path, system_path, \
|
sys_load_library library_name, cur_dir_path, library_path, system_path, \
|
||||||
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
|
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
|
||||||
;if return code =-1 then exit, else nornary work
|
;if return code =-1 then exit, else nornary work
|
||||||
cmp eax,-1
|
cmp eax,-1
|
||||||
jz exit
|
jz exit
|
||||||
mcall 40,0x27 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
|
mcall 40,0x27 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
|
||||||
|
|
||||||
|
push dword check1 ;¯®¤áçñâ ¤¨ë ⥪áâ ¤«ï Checkbox'®¢
|
||||||
|
call [init_checkbox]
|
||||||
|
|
||||||
|
push dword check2
|
||||||
|
call [init_checkbox]
|
||||||
|
|
||||||
red_win:
|
red_win:
|
||||||
call draw_window ;¯¥à¢® ç «ì® ¥®¡å®¤¨¬® à¨á®¢ âì ®ª®
|
call draw_window ;¯¥à¢® ç «ì® ¥®¡å®¤¨¬® à¨á®¢ âì ®ª®
|
||||||
align 4
|
align 4
|
||||||
still: ;®á®¢®© ®¡à ¡®â稪
|
still: ;®á®¢®© ®¡à ¡®â稪
|
||||||
mcall 10 ;Ž¦¨¤ âì ᮡëâ¨ï
|
mcall 10 ;Ž¦¨¤ âì ᮡëâ¨ï
|
||||||
dec eax
|
dec eax
|
||||||
jz red_win
|
jz red_win
|
||||||
dec eax
|
dec eax
|
||||||
jz key
|
jz key
|
||||||
dec eax
|
dec eax
|
||||||
jz button
|
jz button
|
||||||
|
|
||||||
push dword edit1
|
push dword edit1
|
||||||
call [edit_box_mouse]
|
call [edit_box_mouse]
|
||||||
|
|
||||||
push dword edit2
|
push dword edit2
|
||||||
call [edit_box_mouse]
|
call [edit_box_mouse]
|
||||||
|
|
||||||
push dword check1
|
push dword check1
|
||||||
call [check_box_mouse]
|
call [check_box_mouse]
|
||||||
|
|
||||||
push dword check2
|
push dword check2
|
||||||
call [check_box_mouse]
|
call [check_box_mouse]
|
||||||
|
|
||||||
push dword Option_boxs
|
push dword Option_boxs
|
||||||
call [option_box_mouse]
|
call [option_box_mouse]
|
||||||
|
|
||||||
push dword Option_boxs2
|
push dword Option_boxs2
|
||||||
call [option_box_mouse]
|
call [option_box_mouse]
|
||||||
|
|
||||||
jmp still ;¥á«¨ ¨ç¥£® ¨§ ¯¥à¥ç¨á«¥®£® ⮠ᮢ ¢ 横«
|
jmp still ;¥á«¨ ¨ç¥£® ¨§ ¯¥à¥ç¨á«¥®£® ⮠ᮢ ¢ 横«
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
button:
|
button:
|
||||||
mcall 17 ;¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª« ¢¨è¨
|
mcall 17 ;¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª« ¢¨è¨
|
||||||
test ah,ah ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ®¡à ¡®â稪 ᮡë⨩ still
|
test ah,ah ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ®¡à ¡®â稪 ᮡë⨩ still
|
||||||
jz still
|
jz still
|
||||||
exit: mcall -1
|
exit:
|
||||||
|
mcall -1
|
||||||
key:
|
key:
|
||||||
mcall 2 ;§ £à㧨¬ § 票¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ¦ ⮩ ª« ¢¨è¨
|
mcall 2 ;§ £à㧨¬ § 票¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ¦ ⮩ ª« ¢¨è¨
|
||||||
|
|
||||||
push dword edit1
|
push dword edit1
|
||||||
call [edit_box_key]
|
call [edit_box_key]
|
||||||
|
|
||||||
push dword edit2
|
push dword edit2
|
||||||
call [edit_box_key]
|
call [edit_box_key]
|
||||||
|
|
||||||
jmp still
|
jmp still
|
||||||
|
|
||||||
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||||
align 4
|
align 4
|
||||||
draw_window: ;à¨á®¢ ¨¥ ®ª ¯à¨«®¦¥¨ï
|
draw_window: ;à¨á®¢ ¨¥ ®ª ¯à¨«®¦¥¨ï
|
||||||
mcall 12,1
|
mcall 12,1
|
||||||
mcall 0,(50*65536+390),(30*65536+200),0x33AABBCC,0x805080DD,hed
|
mcall 0,(50*65536+390),(30*65536+200),0x33AABBCC,0x805080DD,hed
|
||||||
|
|
||||||
push dword edit1
|
push dword edit1
|
||||||
call [edit_box_draw]
|
call [edit_box_draw]
|
||||||
|
|
||||||
push dword edit2
|
push dword edit2
|
||||||
call [edit_box_draw]
|
call [edit_box_draw]
|
||||||
|
|
||||||
push dword check1
|
push dword check1
|
||||||
call [check_box_draw]
|
call [check_box_draw]
|
||||||
|
|
||||||
push dword check2
|
push dword check2
|
||||||
call [check_box_draw]
|
call [check_box_draw]
|
||||||
|
|
||||||
push dword Option_boxs
|
push dword Option_boxs
|
||||||
call [option_box_draw]
|
call [option_box_draw]
|
||||||
|
|
||||||
push dword Option_boxs2
|
push dword Option_boxs2
|
||||||
call [option_box_draw]
|
call [option_box_draw]
|
||||||
|
|
||||||
mcall 12,2
|
mcall 12,2
|
||||||
ret
|
ret
|
||||||
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||||
;DATA ¤ ë¥
|
;DATA ¤ ë¥
|
||||||
;‚ᥣ¤ ᮡ«î¤ âì ¯®á«¥¤®¢ ⥫ì®áâì ¢ ¨¬¥¨.
|
;‚ᥣ¤ ᮡ«î¤ âì ¯®á«¥¤®¢ ⥫ì®áâì ¢ ¨¬¥¨.
|
||||||
system_path db '/sys/lib/'
|
system_path db '/sys/lib/'
|
||||||
library_name db 'box_lib.obj',0
|
library_name db 'box_lib.obj',0
|
||||||
; …᫨ ¥áâì ¦¥« ¨¥ à §ê¥¤¨¨âì, ⮠㦮 ¨á¯®«ì§®¢ âì á«¥¤ãîé¨î ª®áâàãªæ¨î
|
; …᫨ ¥áâì ¦¥« ¨¥ à §ê¥¤¨¨âì, ⮠㦮 ¨á¯®«ì§®¢ âì á«¥¤ãîé¨î ª®áâàãªæ¨î
|
||||||
;system_path db '/sys/lib/box_lib.obj',0
|
;system_path db '/sys/lib/box_lib.obj',0
|
||||||
;... «î¡ ï ¯®á«¥¤®¢ ⥫ì®áâì ¤àã£¨å ª®¬ ¤ ¨ ®¯à¥¤¥«¥¨©.
|
;... «î¡ ï ¯®á«¥¤®¢ ⥫ì®áâì ¤àã£¨å ª®¬ ¤ ¨ ®¯à¥¤¥«¥¨©.
|
||||||
;library_name db 'box_lib.obj',0
|
;library_name db 'box_lib.obj',0
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0
|
err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0
|
||||||
|
|
||||||
head_f_i:
|
head_f_i:
|
||||||
head_f_l db 'System error',0
|
head_f_l db 'System error',0
|
||||||
err_message_import db 'Error on load import library box_lib.obj',0
|
err_message_import db 'Error on load import library box_lib.obj',0
|
||||||
|
|
||||||
myimport:
|
myimport:
|
||||||
|
|
||||||
edit_box_draw dd aEdit_box_draw
|
edit_box_draw dd aEdit_box_draw
|
||||||
edit_box_key dd aEdit_box_key
|
edit_box_key dd aEdit_box_key
|
||||||
edit_box_mouse dd aEdit_box_mouse
|
edit_box_mouse dd aEdit_box_mouse
|
||||||
version_ed dd aVersion_ed
|
version_ed dd aVersion_ed
|
||||||
|
|
||||||
check_box_draw dd aCheck_box_draw
|
init_checkbox dd aInit_checkbox
|
||||||
check_box_mouse dd aCheck_box_mouse
|
check_box_draw dd aCheck_box_draw
|
||||||
version_ch dd aVersion_ch
|
check_box_mouse dd aCheck_box_mouse
|
||||||
|
version_ch dd aVersion_ch
|
||||||
|
|
||||||
option_box_draw dd aOption_box_draw
|
option_box_draw dd aOption_box_draw
|
||||||
option_box_mouse dd aOption_box_mouse
|
option_box_mouse dd aOption_box_mouse
|
||||||
version_op dd aVersion_op
|
version_op dd aVersion_op
|
||||||
|
|
||||||
dd 0
|
dd 0
|
||||||
dd 0
|
dd 0
|
||||||
|
|
||||||
aEdit_box_draw db 'edit_box',0
|
aEdit_box_draw db 'edit_box',0
|
||||||
aEdit_box_key db 'edit_box_key',0
|
aEdit_box_key db 'edit_box_key',0
|
||||||
aEdit_box_mouse db 'edit_box_mouse',0
|
aEdit_box_mouse db 'edit_box_mouse',0
|
||||||
aVersion_ed db 'version_ed',0
|
aVersion_ed db 'version_ed',0
|
||||||
|
|
||||||
aCheck_box_draw db 'check_box_draw',0
|
aInit_checkbox db 'init_checkbox2',0
|
||||||
aCheck_box_mouse db 'check_box_mouse',0
|
aCheck_box_draw db 'check_box_draw2',0
|
||||||
aVersion_ch db 'version_ch',0
|
aCheck_box_mouse db 'check_box_mouse2',0
|
||||||
|
aVersion_ch db 'version_ch2',0
|
||||||
|
|
||||||
aOption_box_draw db 'option_box_draw',0
|
aOption_box_draw db 'option_box_draw',0
|
||||||
aOption_box_mouse db 'option_box_mouse',0
|
aOption_box_mouse db 'option_box_mouse',0
|
||||||
aVersion_op db 'version_op',0
|
aVersion_op db 'version_op',0
|
||||||
|
|
||||||
|
|
||||||
|
check1 check_box2 (10 shl 16 + 12),(45 shl 16 + 12),5,0x80AABBCC,0,0,check_text1,ch_flag_en
|
||||||
|
check2 check_box2 (10 shl 16 + 12),(60 shl 16 + 12),6,0x80AABBCC,0,0,check_text2
|
||||||
check1 check_box 10,45,6,12,0x80AABBCC,0,0,check_text,14,ch_flag_en
|
|
||||||
check2 check_box 10,60,6,12,0x80AABBCC,0,0,check_text2,15
|
|
||||||
|
|
||||||
edit1 edit_box 350,3,5,0xffffff,0x6f9480,0,0xAABBCC,0,308,hed,mouse_dd,ed_focus,hed_end-hed-1,hed_end-hed-1
|
edit1 edit_box 350,3,5,0xffffff,0x6f9480,0,0xAABBCC,0,308,hed,mouse_dd,ed_focus,hed_end-hed-1,hed_end-hed-1
|
||||||
edit2 edit_box 350,3,25,0xffffff,0x6a9480,0,0,0,99,ed_buffer,mouse_dd,ed_figure_only
|
edit2 edit_box 350,3,25,0xffffff,0x6a9480,0,0,0,99,ed_buffer,mouse_dd,ed_figure_only
|
||||||
|
|
||||||
op1 option_box option_group1,10,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
|
op1 option_box option_group1,10,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
|
||||||
op2 option_box option_group1,10,105,6,12,0xFFFFFF,0,0,op_text.2,op_text.e2-op_text.2
|
op2 option_box option_group1,10,105,6,12,0xFFFFFF,0,0,op_text.2,op_text.e2-op_text.2
|
||||||
op3 option_box option_group1,10,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
|
op3 option_box option_group1,10,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
|
||||||
op11 option_box option_group2,120,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
|
op11 option_box option_group2,120,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
|
||||||
op12 option_box option_group2,120,105,6,12,0xffffff,0,0,op_text.2,op_text.e2-op_text.2
|
op12 option_box option_group2,120,105,6,12,0xffffff,0,0,op_text.2,op_text.e2-op_text.2
|
||||||
op13 option_box option_group2,120,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
|
op13 option_box option_group2,120,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
|
||||||
|
|
||||||
option_group1 dd op1 ;㪠§ ⥫¨, ®¨ ®â®¡à ¦ îâáï ¯® 㬮«ç ¨î, ª®£¤ ¢ë¢®¤¨âáï
|
option_group1 dd op1 ;㪠§ ⥫¨, ®¨ ®â®¡à ¦ îâáï ¯® 㬮«ç ¨î, ª®£¤ ¢ë¢®¤¨âáï
|
||||||
option_group2 dd op12 ;¯à¨«®¦¥¨¥
|
option_group2 dd op12 ;¯à¨«®¦¥¨¥
|
||||||
Option_boxs dd op1,op2,op3,0
|
Option_boxs dd op1,op2,op3,0
|
||||||
Option_boxs2 dd op11,op12,op13,0
|
Option_boxs2 dd op11,op12,op13,0
|
||||||
hed db 'BOXs load from lib <Lrz> date 27.04.2009',0
|
|
||||||
|
hed db 'BOXs load from lib <Lrz> date 27.04.2009',0
|
||||||
hed_end:
|
hed_end:
|
||||||
|
|
||||||
rb 256
|
rb 256
|
||||||
check_text db 'First checkbox'
|
check_text1 db 'First checkbox',0
|
||||||
check_text2 db 'Second checkbox'
|
check_text2 db 'Second checkbox',0
|
||||||
op_text: ; ‘®¯à®¢®¦¤ î騩 ⥪áâ ¤«ï 祪 ¡®ªá®¢
|
|
||||||
.1 db 'Option_Box #1'
|
op_text: ; ‘®¯à®¢®¦¤ î騩 ⥪áâ ¤«ï Optionbox'
|
||||||
|
.1 db 'Option_Box #1'
|
||||||
.e1:
|
.e1:
|
||||||
.2 db 'Option_Box #2'
|
.2 db 'Option_Box #2'
|
||||||
.e2:
|
.e2:
|
||||||
.3 db 'Option_Box #3'
|
.3 db 'Option_Box #3'
|
||||||
.e3:
|
.e3:
|
||||||
ed_buffer rb 100
|
ed_buffer rb 100
|
||||||
;-----------------------
|
;-----------------------
|
||||||
;sc system_colors
|
;sc system_colors
|
||||||
|
|
||||||
mouse_dd rd 1
|
mouse_dd rd 1
|
||||||
p_info process_information
|
p_info process_information
|
||||||
cur_dir_path rb 4096
|
cur_dir_path rb 4096
|
||||||
library_path rb 4096
|
library_path rb 4096
|
||||||
i_end:
|
i_end:
|
||||||
rb 1024
|
rb 1024
|
||||||
mem:
|
mem:
|
Loading…
Reference in New Issue
Block a user