forked from KolibriOS/kolibrios
faf7939a32
2) bcc32 add example use libimg.obj git-svn-id: svn://kolibrios.org@8236 a494cfbc-eb01-0410-851d-a64ba20cac60
348 lines
6.8 KiB
NASM
348 lines
6.8 KiB
NASM
;Ž£à®¬ ï ¡« £®¤ à®áâì Maxxxx32, Diamond, Heavyiron
|
||
;¨ ¤à㣨¬ ¯à®£à ¬¬¨áâ ¬, â ª¦¥
|
||
;’¥¯«®¢ã €«¥ªá¥î (<Lrz> www.lrz.land.ru)
|
||
use32
|
||
org 0
|
||
db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â
|
||
dd 0,start,i_end,mem,stacktop,0,cur_dir_path
|
||
|
||
include '../../KOSfuncs.inc'
|
||
include '../../macros.inc'
|
||
include '../../proc32.inc'
|
||
include '../../load_lib.mac'
|
||
include 'lang.inc'
|
||
|
||
@use_library
|
||
|
||
align 4
|
||
start:
|
||
mcall SF_SET_EVENTS_MASK,0x25 ;¬ ᪠®¦¨¤ ¥¬ëå ᮡë⨩
|
||
|
||
sys_load_library msgbox_name, library_path, system_path, msgbox_lib_import
|
||
|
||
|
||
red_win:
|
||
mcall SF_REDRAW,SSF_BEGIN_DRAW
|
||
|
||
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,SF_DEFINE_BUTTON
|
||
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,txt5
|
||
mcall
|
||
|
||
mov ebx,50*65536+90
|
||
mov edx,txt4
|
||
mcall
|
||
|
||
mov ebx,50*65536+65
|
||
mov edx,txt3
|
||
mcall
|
||
|
||
mov ebx,50*65536+40
|
||
mov edx,txt2
|
||
mcall
|
||
|
||
mov ebx,50*65536+15
|
||
mov edx,txt1
|
||
mcall
|
||
|
||
push eax ebx ecx edx esi
|
||
;line numbers
|
||
mov eax,SF_DRAW_NUMBER
|
||
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 SF_REDRAW,SSF_END_DRAW
|
||
|
||
align 4
|
||
still:
|
||
mcall SF_WAIT_EVENT
|
||
|
||
cmp al,1 ;¨§¬. ¯®«®¦¥¨¥ ®ª
|
||
jz red_win
|
||
cmp al,3
|
||
jz button
|
||
jmp still
|
||
|
||
button:
|
||
mcall SF_GET_BUTTON
|
||
|
||
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 SF_TERMINATE_PROCESS
|
||
|
||
but_1:
|
||
stdcall [mb_create],msgbox_1,thread
|
||
jmp still
|
||
|
||
but_2:
|
||
stdcall [mb_create],msgbox_2,thread
|
||
stdcall [mb_setfunctions],msgbox_2_funct
|
||
jmp still
|
||
|
||
but_3:
|
||
stdcall [mb_create],msgbox_3,thread
|
||
jmp still
|
||
|
||
but_4:
|
||
stdcall [mb_create],msgbox_4,thread
|
||
jmp still
|
||
|
||
but_5:
|
||
stdcall [mb_create],msgbox_5,thread
|
||
mcall SF_SLEEP,100 ;stop program
|
||
stdcall [mb_reinit],msgbox_5_2
|
||
jmp still
|
||
|
||
if lang eq ru
|
||
txt1 db '¯à®á⮥',0
|
||
txt2 db '3 ª®¯ª¨',0
|
||
txt3 db '3 áâப¨',0
|
||
txt4 db '¡®«ì讥',0
|
||
txt5 db 'mb_reinit',0
|
||
hed db '<27>ਬ¥à ¨á¯®«ì§®¢ ¨ï MsgBox',0
|
||
else
|
||
txt1 db 'Simple',0
|
||
txt2 db '3 buttons',0
|
||
txt3 db '3 lines',0
|
||
txt4 db 'Big',0
|
||
txt5 db 'mb_reinit',0
|
||
hed db 'MsgBox usage example',0
|
||
end if
|
||
;sc system_colors
|
||
|
||
|
||
;---------------------------------------------------------------------
|
||
msgbox_1:
|
||
dw 0
|
||
db 'MBox',0 ;+2 = +MB_TEXT_OFFSET
|
||
if lang eq ru
|
||
db '<27>ਬ¥à',0
|
||
db '‚¨¦ã',0 ;button1
|
||
else
|
||
db 'Example',0
|
||
db 'I see!',0 ;button1
|
||
end if
|
||
db 0
|
||
msgbox_2:
|
||
dw 0
|
||
db 'MBox 3 buttons',0 ;+2 = +MB_TEXT_OFFSET
|
||
if lang eq ru
|
||
db '<27>ਬ¥à á 3-¬ï ª®¯ª ¬¨',0
|
||
db '„ ',0 ;button1
|
||
db 'Žâ¬¥ ',0 ;button2
|
||
db '<27>®¬®éì',0 ;button3
|
||
else
|
||
db '3 buttons example',0
|
||
db 'Yes',0 ;button1
|
||
db 'Cancel',0 ;button2
|
||
db 'Help',0 ;button3
|
||
end if
|
||
db 0
|
||
msgbox_2_funct:
|
||
dd 0,0,fun_show_help
|
||
|
||
msgbox_3:
|
||
dw 0
|
||
db 'MBox 3 lines',0 ;+2 = +MB_TEXT_OFFSET
|
||
if lang eq ru
|
||
db '‘âப 1',13,'‘âப 2',13,'‘âப 3',0
|
||
db '2020 £.',0 ;button1
|
||
else
|
||
db 'Line 1',13,'Line 2',13,'Line 3',0
|
||
db 'Year 2020',0 ;button1
|
||
end if
|
||
db 0
|
||
msgbox_4:
|
||
dw 0
|
||
if lang eq ru
|
||
db '‚¢¥¤¨â¥ ¤¥ì',0 ;+2 = +MB_TEXT_OFFSET
|
||
else
|
||
db 'Select day',0 ;+2 = +MB_TEXT_OFFSET
|
||
end if
|
||
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
|
||
if lang eq ru
|
||
db '<27>',0,'‚â',0,'‘à',0,'—â',0,'<27>â',0,'‘¡',0,'‚®áªà¥á¥¨¥',0
|
||
else
|
||
db 'Sun',0,'Mon',0,'Tue',0,'Wed',0,'Thu',0,'Fri',0,'Sat',0
|
||
end if
|
||
db 0
|
||
msgbox_5:
|
||
dw 0
|
||
if lang eq ru
|
||
db '‘®®¡é¥¨¥',0 ;+2 = +MB_TEXT_OFFSET
|
||
db '‚믮«ïî ¯à®æ¥áá ...',0
|
||
db 'Žáâ ®¢¨âì',0
|
||
db '<27>à¥à¢ âì',0
|
||
else
|
||
db 'Message',0 ;+2 = +MB_TEXT_OFFSET
|
||
db 'Running process ...',0
|
||
db 'Stop',0
|
||
db 'Terminate',0
|
||
end if
|
||
db 0
|
||
msgbox_5_2:
|
||
dw 0
|
||
if lang eq ru
|
||
db '‘®®¡é¥¨¥',0 ;+2 = +MB_TEXT_OFFSET
|
||
db '‚ᥠ§ ª®ç¥®',0
|
||
db '‡ ªàëâì ®ª®',0
|
||
else
|
||
db 'Message',0 ;+2 = +MB_TEXT_OFFSET
|
||
db 'All finished',0
|
||
db 'Close window',0
|
||
end if
|
||
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
|
||
;--------------------------------------------------
|
||
|
||
draw_square:
|
||
cmp byte[sh_help],0
|
||
je @f
|
||
push eax ebx ecx edx
|
||
mcall SF_DRAW_RECT, 105*65536+70, 15*65536+50, 0x8080ff
|
||
mcall SF_DRAW_TEXT, 110*65536+25, 0xffffff, txt_help
|
||
|
||
mov esi,0xffff
|
||
mov ebx,0x10000 ;format
|
||
movzx ecx,byte[sh_help]
|
||
mov edx,(150 shl 16)+40
|
||
mcall SF_DRAW_NUMBER
|
||
|
||
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
|
||
if lang eq ru
|
||
txt_help db '<27>®¬®éì...'
|
||
else
|
||
txt_help db 'Help...'
|
||
end if
|
||
|
||
align 16
|
||
i_end: ;ª®¥æ ª®¤
|
||
rb 1024
|
||
thread:
|
||
rb 1024
|
||
stacktop:
|
||
cur_dir_path:
|
||
rb 4096
|
||
library_path:
|
||
rb 4096
|
||
file_info:
|
||
rb 40
|
||
mem:
|