forked from KolibriOS/kolibrios
Upload sources of msgbox.obj library and use_mb example to SVN.
git-svn-id: svn://kolibrios.org@4327 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Yogev Ezra
parent
cf448cafd3
commit
53829299a9
28
programs/demos/use_mb/about.txt
Normal file
28
programs/demos/use_mb/about.txt
Normal file
@ -0,0 +1,28 @@
|
|||||||
|
msgbox версия 26.05.2009
|
||||||
|
|
||||||
|
*** О программе ***
|
||||||
|
Программа для вывода окна с сообщениями.
|
||||||
|
Лицензия свободная.
|
||||||
|
|
||||||
|
*** Возможности ***
|
||||||
|
Можно выводить сообщения с текстом, в которых до 8 кнопок
|
||||||
|
(указано в константе MB_MAX_BUT).
|
||||||
|
Вычисление координат кнопок и текста делается автоматически.
|
||||||
|
Управление кнопками (Влево, Вправо, Enter)
|
||||||
|
На каджую кнопку сообщения возможно назначить свою функцию.
|
||||||
|
|
||||||
|
*** Ограничения ***
|
||||||
|
При использовании msgbox-ов, нужно стараться избегать ситуаций,
|
||||||
|
когда несколько сообщений открыто одновременно. Потому что все окна
|
||||||
|
msgbox используют одни и те же указатели, и возможен конфликт.
|
||||||
|
|
||||||
|
*** Описание ***
|
||||||
|
Из библиотеки экспортируются 3 параметра:
|
||||||
|
mb_create - функция для создания потока с окном сообщения
|
||||||
|
mb_reinit - функция для (пере)вычисления размеров окна с сообщением
|
||||||
|
Обычно в большинстве случаев Вы будете пользоваться только функцией mb_create.
|
||||||
|
Функция mb_reinit будет нужна только в том случае, если Вы
|
||||||
|
захотите заменить готовое сообщение после его успешного запуска.
|
||||||
|
mb_setfunctions - назначение функций кнопкам. При нажатии на кнопку
|
||||||
|
сообщение закрывается, но если кнопке была назначена функция, то сперва будет
|
||||||
|
вызвана функция.
|
||||||
349
programs/demos/use_mb/use_mb.asm
Normal file
349
programs/demos/use_mb/use_mb.asm
Normal file
@ -0,0 +1,349 @@
|
|||||||
|
;Ž£à®¬ ï ¡« £®¤ à®áâì Maxxxx32, Diamond, Heavyiron
|
||||||
|
;¨ ¤à㣨¬ ¯à®£à ¬¬¨áâ ¬, â ª¦¥
|
||||||
|
;’¥¯«®¢ã €«¥ªá¥î (<Lrz> www.lrz.land.ru)
|
||||||
|
use32
|
||||||
|
org 0x0
|
||||||
|
db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â
|
||||||
|
dd 0x1
|
||||||
|
dd start
|
||||||
|
dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï
|
||||||
|
dd mem
|
||||||
|
dd stacktop
|
||||||
|
dd 0x0 ;library_path
|
||||||
|
dd cur_dir_path
|
||||||
|
|
||||||
|
include 'macros.inc'
|
||||||
|
include 'load_lib.mac'
|
||||||
|
|
||||||
|
@use_library
|
||||||
|
|
||||||
|
align 4
|
||||||
|
start:
|
||||||
|
|
||||||
|
mov eax,40
|
||||||
|
mov ebx,0x25 ;¬ ᪠®¦¨¤ ¥¬ëå ᮡë⨩
|
||||||
|
mcall
|
||||||
|
|
||||||
|
sys_load_library msgbox_name, cur_dir_path, library_path, system_path, \
|
||||||
|
err_message_found_lib, head_f_l, msgbox_lib_import, err_message_import, head_f_i
|
||||||
|
|
||||||
|
|
||||||
|
red_win:
|
||||||
|
mcall 12,1
|
||||||
|
|
||||||
|
xor eax,eax
|
||||||
|
mov ebx,50*65536+200
|
||||||
|
mov ecx,30*65536+170
|
||||||
|
mov edx,0xffffd0
|
||||||
|
or edx,0x33000000
|
||||||
|
mov edi,hed
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov eax,8 ;ª®¯ª
|
||||||
|
mov ebx,10*65536+30
|
||||||
|
mov ecx,110*65536+20
|
||||||
|
mov edx,7
|
||||||
|
mov esi,0xffd040
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov ebx,10*65536+30
|
||||||
|
mov ecx,85*65536+20
|
||||||
|
mov edx,6
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov ebx,10*65536+30
|
||||||
|
mov ecx,60*65536+20
|
||||||
|
mov edx,5
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov ebx,10*65536+30
|
||||||
|
mov ecx,35*65536+20
|
||||||
|
mov edx,4
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov ebx,10*65536+30
|
||||||
|
mov ecx,10*65536+20
|
||||||
|
mov edx,3
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov eax,4 ;à¨á®¢ ¨¥ ⥪áâ
|
||||||
|
mov ebx,50*65536+115
|
||||||
|
mov ecx,0x4000d0
|
||||||
|
or ecx,0x80000000
|
||||||
|
mov edx,txt140
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov ebx,50*65536+90
|
||||||
|
mov edx,txt139
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov ebx,50*65536+65
|
||||||
|
mov edx,txt138
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov ebx,50*65536+40
|
||||||
|
mov edx,txt137
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov ebx,50*65536+15
|
||||||
|
mov edx,txt136
|
||||||
|
mcall
|
||||||
|
|
||||||
|
push eax ebx ecx edx esi
|
||||||
|
;line numbers
|
||||||
|
mov eax,47
|
||||||
|
mov esi,0xd00000
|
||||||
|
mov ebx,0x10000 ;format
|
||||||
|
|
||||||
|
; --- draw codes ---
|
||||||
|
xor ecx,ecx
|
||||||
|
mov cl,byte[msgbox_1]
|
||||||
|
mov dx,25
|
||||||
|
shl edx,16
|
||||||
|
mov dx,15
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov cl,byte[msgbox_2]
|
||||||
|
add dx,25
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov cl,byte[msgbox_3]
|
||||||
|
add dx,25
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov cl,byte[msgbox_4]
|
||||||
|
add dx,25
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov cl,byte[msgbox_5]
|
||||||
|
add dx,25
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
pop esi edx ecx ebx eax
|
||||||
|
call draw_square
|
||||||
|
mcall 12,2
|
||||||
|
|
||||||
|
still:
|
||||||
|
mov eax,10
|
||||||
|
mcall
|
||||||
|
|
||||||
|
cmp al,1 ;¨§¬. ¯®«®¦¥¨¥ ®ª
|
||||||
|
jz red_win
|
||||||
|
cmp al,3
|
||||||
|
jz button
|
||||||
|
jmp still
|
||||||
|
|
||||||
|
button:
|
||||||
|
mcall 17 ;¯®«ãç¨âì ª®¤ ¦ ⮩ ª®¯ª¨
|
||||||
|
|
||||||
|
cmp ah,3
|
||||||
|
jz but_1
|
||||||
|
cmp ah,4
|
||||||
|
jz but_2
|
||||||
|
cmp ah,5
|
||||||
|
jz but_3
|
||||||
|
cmp ah,6
|
||||||
|
jz but_4
|
||||||
|
cmp ah,7
|
||||||
|
jz but_5
|
||||||
|
|
||||||
|
cmp ah,1
|
||||||
|
jne still
|
||||||
|
.exit:
|
||||||
|
mcall -1 ;¢ë室 ¨§ ¯à®£à ¬¬ë
|
||||||
|
|
||||||
|
but_1:
|
||||||
|
push thread
|
||||||
|
push msgbox_1
|
||||||
|
call [mb_create]
|
||||||
|
jmp still
|
||||||
|
|
||||||
|
but_2:
|
||||||
|
push thread
|
||||||
|
push msgbox_2
|
||||||
|
call [mb_create]
|
||||||
|
;mov eax,5
|
||||||
|
;mov ebx,50
|
||||||
|
;int 0x40
|
||||||
|
push msgbox_2_funct
|
||||||
|
call [mb_setfunctions]
|
||||||
|
jmp still
|
||||||
|
|
||||||
|
but_3:
|
||||||
|
push thread
|
||||||
|
push msgbox_3
|
||||||
|
call [mb_create]
|
||||||
|
jmp still
|
||||||
|
|
||||||
|
but_4:
|
||||||
|
push thread
|
||||||
|
push msgbox_4
|
||||||
|
call [mb_create]
|
||||||
|
jmp still
|
||||||
|
|
||||||
|
but_5:
|
||||||
|
push thread
|
||||||
|
push msgbox_5
|
||||||
|
call [mb_create]
|
||||||
|
|
||||||
|
mcall 5,100 ;stop program
|
||||||
|
|
||||||
|
push msgbox_5_2
|
||||||
|
call [mb_reinit]
|
||||||
|
|
||||||
|
jmp still
|
||||||
|
|
||||||
|
|
||||||
|
txt136 db '¯à®á⮥',0
|
||||||
|
txt137 db '3 ª®¯ª¨',0
|
||||||
|
txt138 db '3 áâப¨',0
|
||||||
|
txt139 db '¡®«ì讥',0
|
||||||
|
txt140 db 'mb_reinit',0
|
||||||
|
|
||||||
|
hed db '<27>ਬ¥à ¨á¯®«ì§®¢ ¨ï MsgBox',0
|
||||||
|
;sc system_colors
|
||||||
|
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
msgbox_1:
|
||||||
|
dw 0
|
||||||
|
db 'MBox',0 ;+2 = +MB_TEXT_OFFSET
|
||||||
|
db '<27>ਬ¥à',0
|
||||||
|
db '‚¨¦ã',0 ;button1
|
||||||
|
db 0
|
||||||
|
msgbox_2:
|
||||||
|
dw 0
|
||||||
|
db 'MBox 3 but',0 ;+2 = +MB_TEXT_OFFSET
|
||||||
|
db '<27>ਬ¥à á 3-¬ï ª®¯ª ¬¨',0
|
||||||
|
db '„ ',0 ;button1
|
||||||
|
db 'Žâ¬¥ ',0 ;button2
|
||||||
|
db '<27>®¬®éì',0 ;button3
|
||||||
|
db 0
|
||||||
|
msgbox_2_funct:
|
||||||
|
dd 0
|
||||||
|
dd 0
|
||||||
|
dd fun_show_help
|
||||||
|
|
||||||
|
msgbox_3:
|
||||||
|
dw 0
|
||||||
|
db 'MBox 3 lines',0 ;+2 = +MB_TEXT_OFFSET
|
||||||
|
db '‘âப 1',13,'‘âப 2',13,'‘âப 3',0
|
||||||
|
db '2009 £.',0 ;button1
|
||||||
|
db 0
|
||||||
|
msgbox_4:
|
||||||
|
dw 0
|
||||||
|
db '‚¢¥¤¨â¥ ¤¥ì',0 ;+2 = +MB_TEXT_OFFSET
|
||||||
|
db ' @@@@@@@@@@@@ @@@@@@@@',13
|
||||||
|
db ' @............@ @........@',13
|
||||||
|
db '@..............@ @..........@',13
|
||||||
|
db '@.......@@@.....@ @......@.....@',13
|
||||||
|
db '@.......@ @.....@@@@@@......@@......@',13
|
||||||
|
db '@......@ @.................@@.......@',13
|
||||||
|
db ' @....@ @.....@@......@@....@.......@',13
|
||||||
|
db ' @..@ @.........@.........@......@',13
|
||||||
|
db ' @@ @...................@@....@',13
|
||||||
|
db ' @.......@@@.......@ @..@',13
|
||||||
|
db ' @...............@ @@',13
|
||||||
|
db ' @...............@',13
|
||||||
|
db ' @.................@',13
|
||||||
|
db ' @...................@',13
|
||||||
|
db ' @.....................@',13
|
||||||
|
db ' @.......@@......@@......@ @@',13
|
||||||
|
db ' @......@....@..@....@.....@@..@',13
|
||||||
|
db ' @......@....@..@....@.........@',13
|
||||||
|
db ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@',0
|
||||||
|
db '<27>',0
|
||||||
|
db '‚â',0
|
||||||
|
db '‘à',0
|
||||||
|
db '—â',0
|
||||||
|
db '<27>â',0
|
||||||
|
db '‘¡',0
|
||||||
|
db '‚®áªà¥á¥¨¥',0
|
||||||
|
db 0
|
||||||
|
msgbox_5:
|
||||||
|
dw 0
|
||||||
|
db '‘®®¡é¥¨¥',0 ;+2 = +MB_TEXT_OFFSET
|
||||||
|
db '‚믮«ïî ¯à®æ¥áá ...',0
|
||||||
|
db 'Žáâ ®¢¨âì',0
|
||||||
|
db '<27>à¥à¢ âì',0
|
||||||
|
db 0
|
||||||
|
msgbox_5_2:
|
||||||
|
dw 0
|
||||||
|
db '‘®®¡é¥¨¥',0 ;+2 = +MB_TEXT_OFFSET
|
||||||
|
db '‚ᥠ§ ª®ç¥®',0
|
||||||
|
db '‡ ªàëâì ®ª®',0
|
||||||
|
db 0
|
||||||
|
|
||||||
|
;--------------------------------------------------
|
||||||
|
align 4
|
||||||
|
msgbox_lib_import:
|
||||||
|
mb_create dd amb_create
|
||||||
|
mb_reinit dd amb_reinit
|
||||||
|
mb_setfunctions dd amb_setfunctions
|
||||||
|
dd 0,0
|
||||||
|
amb_create db 'mb_create',0
|
||||||
|
amb_reinit db 'mb_reinit',0
|
||||||
|
amb_setfunctions db 'mb_setfunctions',0
|
||||||
|
;--------------------------------------------------
|
||||||
|
system_path db '/sys/lib/'
|
||||||
|
msgbox_name db 'msgbox.obj',0
|
||||||
|
err_message_found_lib db 'Sorry I cannot load library msgbox.obj',0
|
||||||
|
head_f_i:
|
||||||
|
head_f_l db 'System error',0
|
||||||
|
err_message_import db 'Error on load import library msgbox.obj',0
|
||||||
|
;--------------------------------------------------
|
||||||
|
|
||||||
|
draw_square:
|
||||||
|
cmp byte[sh_help],0
|
||||||
|
je @f
|
||||||
|
push eax ebx ecx edx
|
||||||
|
mov eax,13 ;ðèñîâàíèå ïðÿìîóãîëüíèêà
|
||||||
|
mov ebx,105*65536+70
|
||||||
|
mov ecx,15*65536+50
|
||||||
|
mov edx,0x8080ff
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov eax,4 ;à¨á®¢ ¨¥ ⥪áâ
|
||||||
|
mov ebx,110*65536+25
|
||||||
|
mov ecx,0xffffff
|
||||||
|
mov edx,txt_help
|
||||||
|
mov esi,9
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov eax,47
|
||||||
|
mov esi,0xffff
|
||||||
|
mov ebx,0x10000 ;format
|
||||||
|
xor ecx,ecx
|
||||||
|
mov cl,byte[sh_help]
|
||||||
|
mov dx,150
|
||||||
|
shl edx,16
|
||||||
|
mov dx,40
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
pop edx ecx ebx eax
|
||||||
|
@@:
|
||||||
|
ret
|
||||||
|
fun_show_help:
|
||||||
|
inc byte[sh_help]
|
||||||
|
cmp byte[sh_help],10
|
||||||
|
jne @f
|
||||||
|
mov byte[sh_help],0
|
||||||
|
@@:
|
||||||
|
call draw_square
|
||||||
|
ret
|
||||||
|
sh_help db 0
|
||||||
|
txt_help db '<27>®¬®éì...'
|
||||||
|
|
||||||
|
|
||||||
|
i_end: ;ª®¥æ ª®¤
|
||||||
|
rb 1024
|
||||||
|
thread:
|
||||||
|
rb 1024
|
||||||
|
stacktop:
|
||||||
|
cur_dir_path:
|
||||||
|
rb 4096
|
||||||
|
library_path:
|
||||||
|
rb 4096
|
||||||
|
file_info:
|
||||||
|
rb 40
|
||||||
|
mem:
|
||||||
423
programs/develop/libraries/msgbox/msgbox.asm
Normal file
423
programs/develop/libraries/msgbox/msgbox.asm
Normal file
@ -0,0 +1,423 @@
|
|||||||
|
format MS COFF
|
||||||
|
public EXPORTS
|
||||||
|
section '.flat' code readable align 16
|
||||||
|
|
||||||
|
include '../../../macros.inc'
|
||||||
|
purge mov
|
||||||
|
include 'strlen.inc'
|
||||||
|
|
||||||
|
MB_FIRST_BUT_ID equ 3 ;¨¤¥â¨ä¨ª â®à 1-© ª®¯ª¨ á®®¡é¥¨¨
|
||||||
|
MB_MAX_BUT equ 8 ;¬ ªá¨¬ «ì®¥ ç¨á«® ª®¯®ª ¢ á®®¡é¥¨¨
|
||||||
|
MB_BUT_HEIGHT equ 20 ;¢ëá®â ª®¯ª¨ á®®¡é¥¨¨
|
||||||
|
CHAR_WIDTH equ 6 ;è¨à¨ 1-© ¡ãª¢ë ⥪áâ
|
||||||
|
MB_BUT_OTY_1 equ 5 ;¢ëà⨪ «ìë©(¥) ®âáâã¯(ë) ¬¥¦¤ã: § £®«®¢ª®¬ ®ª ¨ ⥪á⮬, ⥪á⮬ ª®¯ª ¬¨
|
||||||
|
;--- ®âáâã¯ë ª®¯ª å, 㪠§ ë¥ ¢®¯à®á ¬¨: <-?->, ¡¥§ ãç¥â ⥪áâ ---
|
||||||
|
MB_BUT_OTX_1 equ 5 ;[<-?->Caption.....]
|
||||||
|
MB_BUT_OTX_2 equ 10 ;[<-?->Caption<-?->]
|
||||||
|
MB_BUT_OTX_3 equ 15 ;[<-?->Caption<-?->]<-?->
|
||||||
|
MB_TEXT_OFFSET equ 2 ;ᬥ饨¥, ¯® ª®â®à®¬ã ç¨ ¥âìáï ⥪áâ § £®«®¢ª ®ª
|
||||||
|
|
||||||
|
align 4
|
||||||
|
start:
|
||||||
|
mov eax,48
|
||||||
|
mov ebx,3
|
||||||
|
mov ecx,sc
|
||||||
|
mov edx,sizeof.system_colors
|
||||||
|
mcall
|
||||||
|
mov eax,40
|
||||||
|
mov ebx,0x27
|
||||||
|
mcall
|
||||||
|
|
||||||
|
;-- clear id pressed button ---
|
||||||
|
mov ebx,[mb_text]
|
||||||
|
mov al,byte[ebx]
|
||||||
|
add al,MB_FIRST_BUT_ID
|
||||||
|
dec al
|
||||||
|
mov byte[mb_key_foc],al
|
||||||
|
|
||||||
|
push [mb_text]
|
||||||
|
call MsgBoxReInit
|
||||||
|
|
||||||
|
align 4
|
||||||
|
red_win:
|
||||||
|
mov eax,12
|
||||||
|
mov ebx,1
|
||||||
|
mcall
|
||||||
|
|
||||||
|
xor eax,eax
|
||||||
|
mov bx,word[mb_left]
|
||||||
|
shl ebx,16
|
||||||
|
mov bx,word[mb_width]
|
||||||
|
mov cx,word[mb_top]
|
||||||
|
shl ecx,16
|
||||||
|
mov cx,word[mb_height]
|
||||||
|
mov edx,[sc.work]
|
||||||
|
or edx,0x33000000
|
||||||
|
mov edi,[mb_text]
|
||||||
|
add edi,MB_TEXT_OFFSET ;Caption
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mcall 9,mb_procinfo,-1
|
||||||
|
mov eax,dword[mb_procinfo.client_box.width]
|
||||||
|
|
||||||
|
sub eax,[but_width]
|
||||||
|
shr eax,1
|
||||||
|
add eax,MB_BUT_OTX_1
|
||||||
|
mov [ot_left],eax
|
||||||
|
|
||||||
|
mov eax,4 ;à¨á®¢ ¨¥ ⥪áâ
|
||||||
|
mov bx,MB_BUT_OTX_1
|
||||||
|
shl ebx,16
|
||||||
|
mov bx,MB_BUT_OTY_1
|
||||||
|
mov ecx,[sc.work_text]
|
||||||
|
mov edx,[txtMsg]
|
||||||
|
|
||||||
|
@@:
|
||||||
|
mov esi,edx
|
||||||
|
call strlen
|
||||||
|
call linlen
|
||||||
|
|
||||||
|
cmp eax,0
|
||||||
|
je @f
|
||||||
|
|
||||||
|
mov esi,eax
|
||||||
|
push eax
|
||||||
|
mov eax,4
|
||||||
|
int 0x40
|
||||||
|
pop eax
|
||||||
|
|
||||||
|
add edx,eax
|
||||||
|
cmp byte[edx],0
|
||||||
|
je @f
|
||||||
|
inc edx
|
||||||
|
|
||||||
|
add ebx,10 ; move <--y-->
|
||||||
|
jmp @b
|
||||||
|
@@:
|
||||||
|
|
||||||
|
call MsgBoxDrawAllBut
|
||||||
|
mcall 12,2
|
||||||
|
|
||||||
|
align 4
|
||||||
|
still:
|
||||||
|
mov eax,10
|
||||||
|
mcall
|
||||||
|
|
||||||
|
cmp al,1 ;¨§¬. ¯®«®¦¥¨¥ ®ª
|
||||||
|
jz red_win
|
||||||
|
cmp al,2
|
||||||
|
jz key
|
||||||
|
cmp al,3
|
||||||
|
jz button
|
||||||
|
|
||||||
|
jmp still
|
||||||
|
|
||||||
|
align 4
|
||||||
|
key:
|
||||||
|
mcall 2
|
||||||
|
cmp ah,13
|
||||||
|
jne @f
|
||||||
|
mov ah,[mb_key_foc]
|
||||||
|
jmp close
|
||||||
|
@@:
|
||||||
|
|
||||||
|
cmp ah,176 ;Left
|
||||||
|
jne .no_left
|
||||||
|
cmp [mb_key_foc],MB_FIRST_BUT_ID
|
||||||
|
jg @f
|
||||||
|
mov al,[mb_key_max]
|
||||||
|
add [mb_key_foc],al
|
||||||
|
@@:
|
||||||
|
dec [mb_key_foc]
|
||||||
|
call MsgBoxDrawAllBut
|
||||||
|
.no_left:
|
||||||
|
|
||||||
|
cmp ah,179 ;Right
|
||||||
|
jne .no_right
|
||||||
|
mov al,[mb_key_max]
|
||||||
|
add al,MB_FIRST_BUT_ID
|
||||||
|
cmp [mb_key_foc],al
|
||||||
|
je .no_right
|
||||||
|
inc [mb_key_foc]
|
||||||
|
cmp [mb_key_foc],al
|
||||||
|
jl @f
|
||||||
|
mov [mb_key_foc],MB_FIRST_BUT_ID
|
||||||
|
@@:
|
||||||
|
call MsgBoxDrawAllBut
|
||||||
|
.no_right:
|
||||||
|
|
||||||
|
jmp still
|
||||||
|
|
||||||
|
align 4
|
||||||
|
button:
|
||||||
|
mcall 17 ;¯®«ãç¨âì ª®¤ ¦ ⮩ ª®¯ª¨
|
||||||
|
cmp ah,MB_FIRST_BUT_ID
|
||||||
|
jge close
|
||||||
|
cmp ah,1
|
||||||
|
jne still
|
||||||
|
|
||||||
|
;.exit:
|
||||||
|
mov ah,MB_FIRST_BUT_ID
|
||||||
|
dec ah
|
||||||
|
close:
|
||||||
|
sub ah,MB_FIRST_BUT_ID
|
||||||
|
inc ah
|
||||||
|
mov ebx,[mb_text]
|
||||||
|
mov byte[ebx],ah
|
||||||
|
|
||||||
|
;*** call msgbox functions ***
|
||||||
|
cmp ah,0
|
||||||
|
je @f
|
||||||
|
cmp dword[mb_funct],0
|
||||||
|
je @f
|
||||||
|
xor ebx,ebx
|
||||||
|
mov bl,ah
|
||||||
|
dec bl
|
||||||
|
shl bx,2 ;bx=bx*4
|
||||||
|
add ebx,dword[mb_funct]
|
||||||
|
cmp dword[ebx],0
|
||||||
|
je @f
|
||||||
|
call dword[ebx]
|
||||||
|
@@:
|
||||||
|
mcall -1 ;¢ë室 ¨§ ¯à®£à ¬¬ë
|
||||||
|
|
||||||
|
align 4
|
||||||
|
MsgBoxDrawAllBut:
|
||||||
|
mov ebx,[ot_left]
|
||||||
|
shl ebx,16
|
||||||
|
mov bx,word[ot_top]
|
||||||
|
add bx,MB_BUT_OTY_1
|
||||||
|
|
||||||
|
; Buttons ...
|
||||||
|
push edi
|
||||||
|
mov edi,txtBut
|
||||||
|
mov edx,[edi]
|
||||||
|
|
||||||
|
mov ecx,MB_FIRST_BUT_ID
|
||||||
|
@@:
|
||||||
|
;eax = len button caption text
|
||||||
|
mov esi,edx
|
||||||
|
call strlen
|
||||||
|
|
||||||
|
cmp eax,0
|
||||||
|
je @f
|
||||||
|
|
||||||
|
call MsgBoxDrawButton
|
||||||
|
inc ecx
|
||||||
|
|
||||||
|
add edi,4
|
||||||
|
cmp edi,endBut
|
||||||
|
jge @f
|
||||||
|
mov edx,[edi]
|
||||||
|
|
||||||
|
push bx
|
||||||
|
ror ebx,16
|
||||||
|
imul esi,CHAR_WIDTH
|
||||||
|
add esi,MB_BUT_OTX_3
|
||||||
|
add ebx,esi ; ...
|
||||||
|
ror ebx,16
|
||||||
|
pop bx
|
||||||
|
|
||||||
|
jmp @b
|
||||||
|
@@:
|
||||||
|
pop edi
|
||||||
|
ret
|
||||||
|
|
||||||
|
;input:
|
||||||
|
; ecx = button id
|
||||||
|
align 4
|
||||||
|
MsgBoxDrawButton:
|
||||||
|
push ecx
|
||||||
|
|
||||||
|
;button
|
||||||
|
push eax ebx edx
|
||||||
|
mov edx,ecx
|
||||||
|
imul eax,CHAR_WIDTH
|
||||||
|
add eax,MB_BUT_OTX_2
|
||||||
|
|
||||||
|
mov esi,[sc.work_button]
|
||||||
|
cmp cl,[mb_key_foc]
|
||||||
|
jne @f
|
||||||
|
mov esi,[sc.work_button_text]
|
||||||
|
@@:
|
||||||
|
|
||||||
|
mov cx,bx
|
||||||
|
sub cx,MB_BUT_OTY_1
|
||||||
|
shl ecx,16
|
||||||
|
mov cx,MB_BUT_HEIGHT
|
||||||
|
ror ebx,16
|
||||||
|
sub bx,MB_BUT_OTX_1
|
||||||
|
ror ebx,16
|
||||||
|
mov bx,ax
|
||||||
|
|
||||||
|
mov eax,8
|
||||||
|
int 0x40
|
||||||
|
pop edx ebx eax
|
||||||
|
|
||||||
|
;caption
|
||||||
|
mov ecx,[sc.work_button_text]
|
||||||
|
cmp esi,ecx
|
||||||
|
jne @f
|
||||||
|
mov ecx,[sc.work_button]
|
||||||
|
@@:
|
||||||
|
mov esi,eax
|
||||||
|
mov eax,4
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
pop ecx
|
||||||
|
ret
|
||||||
|
|
||||||
|
align 4
|
||||||
|
MsgBoxReInit:
|
||||||
|
push ebp
|
||||||
|
mov ebp,esp
|
||||||
|
m2m dword[mb_text],dword[ebp+8]
|
||||||
|
push eax ebx ecx edi esi
|
||||||
|
|
||||||
|
mov esi,[mb_text]
|
||||||
|
add esi,MB_TEXT_OFFSET
|
||||||
|
call strlen
|
||||||
|
inc esi ;add terminated zero
|
||||||
|
add esi,eax ;add len of caption
|
||||||
|
mov [txtMsg],esi
|
||||||
|
|
||||||
|
;--- go to first button text --- buttons 1...MB_MAX_BUT
|
||||||
|
mov ebx,txtBut
|
||||||
|
mov cx,MB_MAX_BUT
|
||||||
|
@@:
|
||||||
|
call strlen
|
||||||
|
add esi,eax ;add len of caption
|
||||||
|
inc esi ;add terminated zero
|
||||||
|
|
||||||
|
mov dword[ebx],esi
|
||||||
|
cmp byte[esi],0
|
||||||
|
je @f
|
||||||
|
add ebx,4
|
||||||
|
loop @b
|
||||||
|
@@:
|
||||||
|
|
||||||
|
;--- calc button top ---
|
||||||
|
mov eax,1
|
||||||
|
mov ebx,[txtMsg]
|
||||||
|
@@:
|
||||||
|
inc ebx
|
||||||
|
cmp byte[ebx],0
|
||||||
|
je @f
|
||||||
|
cmp byte[ebx],13
|
||||||
|
jne @b
|
||||||
|
inc eax
|
||||||
|
jmp @b
|
||||||
|
@@:
|
||||||
|
imul eax,10
|
||||||
|
add eax,2*MB_BUT_OTY_1
|
||||||
|
mov [ot_top],eax
|
||||||
|
|
||||||
|
;--- calc window height ---
|
||||||
|
add eax,MB_BUT_OTY_1
|
||||||
|
add eax,MB_BUT_HEIGHT
|
||||||
|
add ax,5 ;height of border
|
||||||
|
mov [mb_height],ax
|
||||||
|
mcall 48,4 ;skin height
|
||||||
|
add [mb_height],ax
|
||||||
|
|
||||||
|
;--- calc window top ---
|
||||||
|
mov eax,14
|
||||||
|
int 0x40
|
||||||
|
mov word[mb_top],ax
|
||||||
|
mov ax,word[mb_height]
|
||||||
|
sub word[mb_top],ax
|
||||||
|
shr word[mb_top],1
|
||||||
|
;---
|
||||||
|
shr eax,16
|
||||||
|
mov word[mb_left],ax
|
||||||
|
mov ax,word[mb_width]
|
||||||
|
sub word[mb_left],ax
|
||||||
|
shr word[mb_left],1
|
||||||
|
|
||||||
|
;--- calc button width ---
|
||||||
|
xor ebx,ebx
|
||||||
|
xor ecx,ecx
|
||||||
|
mov esi,[txtBut]
|
||||||
|
mov byte[mb_key_max],0
|
||||||
|
@@:
|
||||||
|
cmp byte[esi],0
|
||||||
|
je @f
|
||||||
|
inc ecx
|
||||||
|
call strlen
|
||||||
|
add esi,eax
|
||||||
|
inc esi
|
||||||
|
inc byte[mb_key_max]
|
||||||
|
add ebx,eax
|
||||||
|
jmp @b
|
||||||
|
@@:
|
||||||
|
|
||||||
|
imul ebx,CHAR_WIDTH
|
||||||
|
imul ecx,MB_BUT_OTX_3
|
||||||
|
add ebx,ecx
|
||||||
|
add ebx,MB_BUT_OTX_2
|
||||||
|
sub ebx,MB_BUT_OTX_3
|
||||||
|
mov [but_width],ebx
|
||||||
|
|
||||||
|
pop esi edi ecx ebx eax
|
||||||
|
pop ebp
|
||||||
|
ret 4
|
||||||
|
|
||||||
|
;input:
|
||||||
|
; [esp+8] = pointer to msgbox text
|
||||||
|
align 4
|
||||||
|
MsgBoxCreate:
|
||||||
|
push ebp
|
||||||
|
mov ebp,esp
|
||||||
|
m2m dword[mb_text],dword[ebp+8]
|
||||||
|
push eax ebx ecx edx
|
||||||
|
|
||||||
|
mov eax,51
|
||||||
|
mov ebx,1
|
||||||
|
mov ecx,start
|
||||||
|
mov edx,dword[ebp+12];thread
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov dword[mb_funct],0
|
||||||
|
pop edx ecx ebx eax
|
||||||
|
pop ebp
|
||||||
|
ret 8
|
||||||
|
|
||||||
|
;input:
|
||||||
|
; [esp+8] = pointer to msgbox functions pointers
|
||||||
|
align 4
|
||||||
|
MsgBoxSetFunctions:
|
||||||
|
push ebp
|
||||||
|
mov ebp,esp
|
||||||
|
m2m dword[mb_funct],dword[ebp+8]
|
||||||
|
pop ebp
|
||||||
|
ret 4
|
||||||
|
|
||||||
|
;--- data ---
|
||||||
|
txtMsg dd 0 ;㪠§ ⥫ì ç «® ⥪áâ á®®¡é¥¨ï
|
||||||
|
txtBut rd MB_MAX_BUT ;㪠§ ⥫ì ç «® ⥪áâ ¯®¤¯¨á¥© ª®¯®ª
|
||||||
|
endBut:
|
||||||
|
ot_left dd 0 ;®âáâ㯠᫥¢ (¤«ï à¨á®¢ ¨ï ª®¯®ª)
|
||||||
|
ot_top dd 0 ;®âáâ㯠ᢥàåã (¤«ï à¨á®¢ ¨ï ª®¯®ª)
|
||||||
|
but_width dd 0 ;è¨à¨ ¢á¥å ª®¯®ª + § §®àë ¬¥¦¤ã ¨¬¨
|
||||||
|
;--- à §¬¥àë íªà ¥ ®ª á®®¡é¥¨ï ---
|
||||||
|
mb_left dw 0
|
||||||
|
mb_width dw 300
|
||||||
|
mb_top dw 0
|
||||||
|
mb_height dw 50
|
||||||
|
mb_key_foc db MB_FIRST_BUT_ID ;ª®¯ª ¢ 䮪ãᥠ(á ãç¥â®¬ MB_FIRST_BUT_ID)
|
||||||
|
mb_key_max db 1 ;ç¨á«® ¢á¥å ª®¯®ª á®®¡é¥¨ï
|
||||||
|
;--------------------------------------------------
|
||||||
|
sc system_colors
|
||||||
|
mb_procinfo process_information ;㪠§ ⥫ì áâàãªâãàã process_information த¨â¥«ì᪮£® ®ª
|
||||||
|
mb_text dd 0 ;msgbox_1 ;㪠§ â¥«ì ¤ ë¥ ¤«ï á®®¡é¥¨ï (ª®â®àë ¯¥à¥¤ îâìáï ®ªã)
|
||||||
|
mb_funct dd 0 ;pointer to functions
|
||||||
|
;--------------------------------------------------
|
||||||
|
align 16
|
||||||
|
EXPORTS:
|
||||||
|
dd sz_mb_create, MsgBoxCreate
|
||||||
|
dd sz_mb_reinit, MsgBoxReInit
|
||||||
|
dd sz_mb_setfunctions, MsgBoxSetFunctions
|
||||||
|
dd 0,0
|
||||||
|
sz_mb_create db 'mb_create',0
|
||||||
|
sz_mb_reinit db 'mb_reinit',0
|
||||||
|
sz_mb_setfunctions db 'mb_setfunctions',0
|
||||||
71
programs/develop/libraries/msgbox/strlen.inc
Normal file
71
programs/develop/libraries/msgbox/strlen.inc
Normal file
@ -0,0 +1,71 @@
|
|||||||
|
; strlen function
|
||||||
|
;
|
||||||
|
; Copyright (c) 2003 Thomas Mathys
|
||||||
|
; killer@vantage.ch
|
||||||
|
;
|
||||||
|
; This program is free software; you can redistribute it and/or modify
|
||||||
|
; it under the terms of the GNU General Public License as published by
|
||||||
|
; the Free Software Foundation; either version 2 of the License, or
|
||||||
|
; (at your option) any later version.
|
||||||
|
;
|
||||||
|
; This program is distributed in the hope that it will be useful,
|
||||||
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
; GNU General Public License for more details.
|
||||||
|
;
|
||||||
|
; You should have received a copy of the GNU General Public License
|
||||||
|
; along with this program; if not, write to the Free Software
|
||||||
|
; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
;
|
||||||
|
;%ifndef _STRLEN_INC
|
||||||
|
;%define _STRLEN_INC
|
||||||
|
|
||||||
|
|
||||||
|
;********************************************************************
|
||||||
|
; returns the length of an asciiz string
|
||||||
|
; input : esi = pointer to string
|
||||||
|
; output : eax = string length
|
||||||
|
; destroys : nothing
|
||||||
|
;********************************************************************
|
||||||
|
strlen:
|
||||||
|
push ecx
|
||||||
|
push edi
|
||||||
|
pushfd
|
||||||
|
cld ; !
|
||||||
|
mov ecx,-1
|
||||||
|
mov edi,esi ; find terminating zero
|
||||||
|
xor al,al
|
||||||
|
repne scasb
|
||||||
|
mov eax,edi ; calculate string length
|
||||||
|
sub eax,esi
|
||||||
|
dec eax
|
||||||
|
popfd
|
||||||
|
pop edi
|
||||||
|
pop ecx
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; linlen function
|
||||||
|
;
|
||||||
|
; Copyright (c) 2009 Igor Afanasiev
|
||||||
|
|
||||||
|
linlen:
|
||||||
|
push ecx
|
||||||
|
push edi
|
||||||
|
pushfd
|
||||||
|
cld ; !
|
||||||
|
mov ecx,eax
|
||||||
|
inc ecx
|
||||||
|
mov edi,esi ; find terminating zero
|
||||||
|
mov al,13
|
||||||
|
repne scasb
|
||||||
|
mov eax,edi ; calculate string length
|
||||||
|
sub eax,esi
|
||||||
|
dec eax
|
||||||
|
popfd
|
||||||
|
pop edi
|
||||||
|
pop ecx
|
||||||
|
ret
|
||||||
|
;%endif
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user