kolibrios/programs/media/animage/trunk/menu.inc

KMENUITEM_NORMAL equ 0
KMENUITEM_SUBMENU equ 1
KMENUITEM_SEPARATOR equ 2

macro menu_set code, m_group, m_number
{
local no_set

cmp eax, code
jne no_set
	mov [number_panel], m_group
	mov [number_menu], m_number
	jmp TakeInstruments
no_set:
}

init_main_menu:
	stdcall [kmenu_init], syscolors
	
	stdcall [ksubmenu_new]
	mov [main_menu], eax
	
	stdcall [ksubmenu_new]
	mov [main_menu_file], eax
	stdcall [ksubmenu_new]
	mov [main_menu_edit], eax
	stdcall [ksubmenu_new]
	mov [main_menu_instr], eax
	stdcall [ksubmenu_new]
	mov [main_menu_filters], eax
	
	; init 'File' menu
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_New, 0x71
	stdcall [ksubmenu_add], [main_menu_file], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_Open, 0x72
	stdcall [ksubmenu_add], [main_menu_file], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_Save, 0x73
	stdcall [ksubmenu_add], [main_menu_file], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_SaveAs, 0x74
	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_main_menu_File_Exit, 0x75
	stdcall [ksubmenu_add], [main_menu_file], eax
	
	; add 'File' menu to main
	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_File, [main_menu_file]
	stdcall [ksubmenu_add], [main_menu], eax
	
	; init 'Edit' menu
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Edit_Undo, 0x61
	stdcall [ksubmenu_add], [main_menu_edit], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Edit_Redo, 0x62
	stdcall [ksubmenu_add], [main_menu_edit], eax
	stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0
	stdcall [ksubmenu_add], [main_menu_edit], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Edit_Copy, 0x63
	stdcall [ksubmenu_add], [main_menu_edit], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Edit_Paste, 0x64
	stdcall [ksubmenu_add], [main_menu_edit], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Edit_Cut, 0x65
	stdcall [ksubmenu_add], [main_menu_edit], eax
	stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0
	stdcall [ksubmenu_add], [main_menu_edit], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Edit_ClS, 0x66
	stdcall [ksubmenu_add], [main_menu_edit], eax
	
	; add 'Edit' menu to main
	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_Edit, [main_menu_edit]
	stdcall [ksubmenu_add], [main_menu], eax

	; init 'Instruments' menu
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Pencil, 0x51
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Brush, 0x52
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Spray, 0x53
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Lastik, 0x54
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Flood_fill, 0x55
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Pipetka, 0x56
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Line, 0x57
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Rectangle, 0x58
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Circle, 0x59
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Ellips, 0x5a
	stdcall [ksubmenu_add], [main_menu_instr], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Instr_Hard_contour, 0x5b
	stdcall [ksubmenu_add], [main_menu_instr], eax

	; add 'Instruments' menu to main
	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_Instr, [main_menu_instr]
	stdcall [ksubmenu_add], [main_menu], eax

	; init 'Reflection' menu
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Filters_ReflectionLR, 0x41
	stdcall [ksubmenu_add], [main_menu_filters], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Filters_ReflectionTB, 0x42
	stdcall [ksubmenu_add], [main_menu_filters], eax

	; add 'Reflection' menu to main
	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_Filters, [main_menu_filters]
	stdcall [ksubmenu_add], [main_menu], eax
	ret

put_main_menu:
	stdcall [kmainmenu_draw], [main_menu]
ret

button_handler_main_menu:
	menu_set 0x71, 7,1
	menu_set 0x72, 7,2
	menu_set 0x73, 7,3
	menu_set 0x74, 7,4
	menu_set 0x75, 7,5
	menu_set 0x61, 6,1
	menu_set 0x62, 6,2
	menu_set 0x63, 6,3
	menu_set 0x64, 6,4
	menu_set 0x65, 6,5
	menu_set 0x66, 6,6
	menu_set 0x51, 5,1
	menu_set 0x52, 5,2
	menu_set 0x53, 5,3
	menu_set 0x54, 5,4
	menu_set 0x55, 5,5
	menu_set 0x56, 5,6
	menu_set 0x57, 5,7
	menu_set 0x58, 5,8
	menu_set 0x59, 5,9
	menu_set 0x5a, 5,10
	menu_set 0x5b, 5,11
	menu_set 0x41, 4,1
	menu_set 0x42, 4,2
.end_handler:
ret

main_menu dd 0
main_menu_file  dd 0
main_menu_edit dd 0
main_menu_instr dd 0
main_menu_filters dd 0

sz_main_menu_File        db 'File', 0
sz_main_menu_File_New    db 'New', 0
sz_main_menu_File_Open   db 'Open', 0
sz_main_menu_File_Save   db 'Save', 0
sz_main_menu_File_SaveAs db 'Save as', 0
sz_main_menu_File_Exit   db 'Exit', 0

sz_main_menu_Edit       db 'Edit', 0
sz_main_menu_Edit_Undo  db 'Undo', 0
sz_main_menu_Edit_Redo  db 'Redo', 0
sz_main_menu_Edit_Copy  db 'Copy', 0
sz_main_menu_Edit_Paste db 'Paste', 0
sz_main_menu_Edit_Cut   db 'Cut', 0
sz_main_menu_Edit_ClS   db 'Clear screen', 0

sz_main_menu_Instr       db 'Instruments', 0
sz_main_menu_Instr_Pencil db 'Pencil', 0
sz_main_menu_Instr_Brush db 'Brush', 0
sz_main_menu_Instr_Spray db 'Spray', 0
sz_main_menu_Instr_Lastik db 'Lastik', 0
sz_main_menu_Instr_Flood_fill db 'Flood fill', 0
sz_main_menu_Instr_Pipetka db 'Pipetka', 0
sz_main_menu_Instr_Line db 'Line', 0
sz_main_menu_Instr_Rectangle db 'Rectangle', 0
sz_main_menu_Instr_Circle db 'Circle', 0
sz_main_menu_Instr_Ellips db 'Ellips', 0
sz_main_menu_Instr_Hard_contour db 'Hard contour', 0

sz_main_menu_Filters      db 'Filters', 0
sz_main_menu_Filters_ReflectionLR db 'Reflection |', 0
sz_main_menu_Filters_ReflectionTB db 'Reflection -', 0