kolibrios/programs/develop/examples/example3/trunk/example3.asm

316 lines
8.7 KiB
NASM
Raw Normal View History

;
; MENU EXAMPLE
;
; Compile with FASM for Kolibri
;
use32
org 0x0
db 'MENUET01' ; 8 byte id
dd 0x01 ; header version
dd start ; start of code
dd i_end ; size of image
dd mem, stacktop, file_name, sys_path
include 'lang.inc'
include '../../../../macros.inc'
include '../../../../proc32.inc'
include '../../../../KOSfuncs.inc'
include '../../../../develop/libraries/box_lib/load_lib.mac'
include '../../../../dll.inc'
KMENUITEM_NORMAL equ 0
KMENUITEM_SUBMENU equ 1
KMENUITEM_SEPARATOR equ 2
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
start: ; start of execution
load_libraries l_libs_start,l_libs_end
mov ebp,lib_0
.test_lib_open:
cmp dword [ebp+ll_struc_size-4],0
jz @f
mcall SF_TERMINATE_PROCESS ;exit not correct
@@:
add ebp,ll_struc_size
cmp ebp,l_libs_end
jl .test_lib_open
mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
mcall SF_SET_EVENTS_MASK,0x27
;kmenu initialisation
stdcall [kmenu_init],sc
stdcall [ksubmenu_new]
mov [main_menu], eax
stdcall [ksubmenu_new]
mov [main_menu_File], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Load, 110
stdcall [ksubmenu_add], [main_menu_File], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Save, 111
stdcall [ksubmenu_add], [main_menu_File], eax
stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0
stdcall [ksubmenu_add], [main_menu_File], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Quit, 112
stdcall [ksubmenu_add], [main_menu_File], eax
stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_File, [main_menu_File]
stdcall [ksubmenu_add], [main_menu], eax
stdcall [ksubmenu_new]
mov [main_menu_Edit], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Copy, 120
stdcall [ksubmenu_add], [main_menu_Edit], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Paste, 121
stdcall [ksubmenu_add], [main_menu_Edit], eax
stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_Edit, [main_menu_Edit]
stdcall [ksubmenu_add], [main_menu], eax
stdcall [ksubmenu_new]
mov [main_menu_Test], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Test1, 130
stdcall [ksubmenu_add], [main_menu_Test], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Test2, 131
stdcall [ksubmenu_add], [main_menu_Test], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Test3, 132
stdcall [ksubmenu_add], [main_menu_Test], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Test4, 133
stdcall [ksubmenu_add], [main_menu_Test], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Test5, 134
stdcall [ksubmenu_add], [main_menu_Test], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Test6, 134
stdcall [ksubmenu_add], [main_menu_Test], eax
stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_Test, [main_menu_Test]
stdcall [ksubmenu_add], [main_menu], eax
stdcall [ksubmenu_new]
mov [main_menu_Help], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_Setup, 140
stdcall [ksubmenu_add], [main_menu_Help], eax
stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_About, 141
stdcall [ksubmenu_add], [main_menu_Help], eax
stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_Help, [main_menu_Help]
stdcall [ksubmenu_add], [main_menu], eax
red:
call draw_window ; draw window
stdcall [kmainmenu_draw], [main_menu]
still:
mcall SF_WAIT_EVENT
cmp eax,1 ; redraw request ?
jz red ; yes jump to it
cmp eax,2
jz key
cmp eax,3
jz button
cmp eax,6
jne @f
call mouse
jmp still
@@:
key:
mcall SF_GET_KEY
jmp still ; start again
button:
mcall SF_GET_BUTTON
mov [button_press],eax
shr dword[button_press],8
call draw_data
cmp ah,1 ; is it the close button
jne still ; no then jump code
mcall SF_TERMINATE_PROCESS ; close this program
mouse:
stdcall [kmainmenu_dispatch_cursorevent], [main_menu]
ret
; *********************************************
; ******* WINDOW DEFINITIONS AND DRAW ********
; *********************************************
draw_window:
push eax ; save register
mcall SF_REDRAW,SSF_BEGIN_DRAW
mov ebx,50*65536 ; [x start] *65536
add ebx,[x_size] ; add [x size]
mov ecx,50*65536 ; [y start] *65536
add ecx,[y_size] ; add [y size]
mcall SF_CREATE_WINDOW,,,0xb3ffffff,,window_text
mov ebx,1*65536 ; [x start] *65536
add ebx,[x_size] ; add [x size]
sub ebx,11 ; x size - 11
mov ecx,[y_size] ; [y start] *65536
sub ecx,47 ; minus height
shl ecx,16 ; *65536
add ecx,17 ; add height
mcall SF_DRAW_RECT,,,0x006688dd
mov ebx,5*65536 ; [x start] *65536
add ebx,[y_size] ; add [y start]
sub ebx,42 ; move up
xor ecx,ecx ; text colour
mcall SF_DRAW_TEXT,,,button_no,9
call draw_data
mcall SF_REDRAW,SSF_END_DRAW
pop eax ; restore register
ret ; return
; *********** DRAW DATA ***********
draw_data:
push eax ; save register
mov ecx,[y_size] ; [y start]
sub ecx,45 ; move position
shl ecx,16 ; *65536
add ecx,13 ; [y size]
mov edx,0x00aaaaaa ; bar colour
mcall SF_DRAW_RECT, (67 shl 16)+23
mov ebx,0x00030000 ; display 3 decimal characters
mov ecx,[button_press] ; menu id
mov edx,70*65536 ; [x start] *65536
add edx,[y_size] ; +[y start]
sub edx,42 ; move position
xor esi,esi ; text colour
mcall SF_DRAW_NUMBER
pop eax ; restore register
ret ; return
; ***************** DATA AREA ******************
x_size: dd 381 ; window x size
y_size: dd 200 ; window y size
if lang eq ru
window_text db '<27><EFBFBD><E0A8AC> <20><><EFBFBD><EFBFBD>',0
button_no db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> N:'
else
window_text db 'Menu example',0 ; grab bar text
button_no db 'Button N:' ; status bar text
end if
main_menu dd 0
main_menu_File dd 0
main_menu_Edit dd 0
main_menu_Test dd 0
main_menu_Help dd 0
if lang eq ru
sz_File db '<27><><EFBFBD><EFBFBD>',0
sz_Load db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
sz_Save db '<27><><EFBFBD><EFBFBD><E0A0AD><EFBFBD>',0
sz_Quit db '<27><>室',0
sz_Edit db '<27><EFBFBD><E0A0A2>',0
sz_Copy db '<27><><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD>',0
sz_Paste db '<27><><EFBFBD><E2A0A2><EFBFBD>',0
sz_Test db '<27><><EFBFBD><EFBFBD>',0
sz_Test1 db '<27><><EFBFBD><EFBFBD> 1',0
sz_Test2 db '<27><><EFBFBD><EFBFBD> 2',0
sz_Test3 db '<27><><EFBFBD><EFBFBD> 3',0
sz_Test4 db '<27><><EFBFBD><EFBFBD> 4',0
sz_Test5 db '<27><><EFBFBD><EFBFBD> 5',0
sz_Test6 db '<27><><EFBFBD><EFBFBD> 6',0
sz_Help db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
sz_Setup db '<27><><EFBFBD><EFBFBD><EFBFBD><E0AEA9>',0
sz_About db '<27> <20>ணࠬ<E0AEA3><E0A0AC>..',0
else
sz_File db 'File',0
sz_Load db 'Load',0
sz_Save db 'Save',0
sz_Quit db 'Quit',0
sz_Edit db 'Edit',0
sz_Copy db 'Copy',0
sz_Paste db 'Paste',0
sz_Test db 'Test',0
sz_Test1 db 'Test 1',0
sz_Test2 db 'Test 2',0
sz_Test3 db 'Test 3',0
sz_Test4 db 'Test 4',0
sz_Test5 db 'Test 5',0
sz_Test6 db 'Test 6',0
sz_Help db 'Help',0
sz_Setup db 'Setup',0
sz_About db 'About..',0
end if
button_press dd 0
align 4
system_dir_0 db '/sys/lib/'
lib_name_0 db 'kmenu.obj',0
if lang eq ru
head_f_i:
head_f_l db '<27><><EFBFBD><EFBFBD><E2A5AC><EFBFBD> <20><EFBFBD><E8A8A1>',0
err_msg_found_lib_0 db '<27><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',39,'kmenu.obj',39,0
err_msg_import_0 db '<27><EFBFBD><E8A8A1> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',39,'kmenu',39,0
else
head_f_i:
head_f_l db 'System error',0
err_msg_found_lib_0 db 'Sorry I cannot found library ',39,'kmenu.obj',39,0
err_msg_import_0 db 'Error on load import library ',39,'kmenu.obj',39,0
end if
align 4
l_libs_start:
lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
err_msg_found_lib_0, head_f_l, import_libkmenu,err_msg_import_0,head_f_i
l_libs_end:
align 4
import_libkmenu:
kmenu_init dd akmenu_init
kmainmenu_draw dd akmainmenu_draw
kmainmenu_dispatch_cursorevent dd akmainmenu_dispatch_cursorevent
ksubmenu_new dd aksubmenu_new
ksubmenu_delete dd aksubmenu_delete
ksubmenu_draw dd aksubmenu_draw
ksubmenu_add dd aksubmenu_add
kmenuitem_new dd akmenuitem_new
kmenuitem_delete dd akmenuitem_delete
kmenuitem_draw dd akmenuitem_draw
dd 0,0
akmenu_init db 'kmenu_init',0
akmainmenu_draw db 'kmainmenu_draw',0
akmainmenu_dispatch_cursorevent db 'kmainmenu_dispatch_cursorevent',0
aksubmenu_new db 'ksubmenu_new',0
aksubmenu_delete db 'ksubmenu_delete',0
aksubmenu_draw db 'ksubmenu_draw',0
aksubmenu_add db 'ksubmenu_add',0
akmenuitem_new db 'kmenuitem_new',0
akmenuitem_delete db 'kmenuitem_delete',0
akmenuitem_draw db 'kmenuitem_draw',0
i_end:
sc system_colors
rb 2048
stacktop:
sys_path rb 2048
file_name rb 4096
mem: