forked from KolibriOS/kolibrios
faf7939a32
2) bcc32 add example use libimg.obj git-svn-id: svn://kolibrios.org@8236 a494cfbc-eb01-0410-851d-a64ba20cac60
303 lines
8.2 KiB
NASM
303 lines
8.2 KiB
NASM
;
|
||
; 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 '../../../../load_lib.mac'
|
||
include '../../../../dll.inc'
|
||
|
||
KMENUITEM_NORMAL equ 0
|
||
KMENUITEM_SUBMENU equ 1
|
||
KMENUITEM_SEPARATOR equ 2
|
||
|
||
@use_library 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
|
||
|
||
align 4
|
||
l_libs_start:
|
||
lib_0 l_libs lib_name_0, file_name, system_dir_0, import_libkmenu
|
||
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:
|