/programs/cmm/examples/compile.bat |
---|
1,11 → 1,14 |
c-- example.c |
c-- collections.c |
c-- menu.c |
@del @@example |
@del @@collections |
@del @@menu |
@rename example.com @@example |
@rename collections.com @@collections |
@rename menu.com @@menu |
@del warning.txt |
@pause |
/programs/cmm/examples/menu.c |
---|
0,0 → 1,69 |
#define MEMSIZE 4096*10 |
#include "../lib/io.h" |
#include "../lib/list_box.h" |
#include "../lib/gui.h" |
#include "../lib/menu.h" |
struct _object |
{ |
int x,y,w,h,id; |
}; |
_object butv = { 20, 20, 100, 30, 10}; |
_object buta = {150, 20, 100, 30, 20}; |
char vegetables[] = |
"Onion |
Melon |
Tomato |
Squash |
Salad"; |
char animals[] = |
"Cat |
Dog |
Pig |
Cow |
Goat |
Rabbit"; |
byte category; |
void main() |
{ |
proc_info Form; |
int id; |
loop() switch(WaitEvent()) |
{ |
case evButton: |
id=GetButtonID(); |
if (id==1) ExitProcess(); |
if (id==butv.id) { |
menu.selected = category+1; |
menu.show(Form.left+5 + butv.x, Form.top+skin_height + butv.y + butv.h, 100, #vegetables, butv.id); |
} |
if (id==buta.id) { |
menu.selected = 0; |
menu.show(Form.left+5 + buta.x, Form.top+skin_height + buta.y + buta.h, 120, #animals, buta.id); |
} |
break; |
case evKey: |
GetKeys(); |
break; |
case evReDraw: |
if (menu.list.cur_y) { |
if (menu.list.cur_y > butv.id) && (menu.list.cur_y < buta.id) category = menu.list.cur_y - butv.id; |
} |
DefineAndDrawWindow(215,100,350,300,0x34,0xFFFFFF,"Window header"); |
GetProcessInfo(#Form, SelfInfo); |
WriteText(10,110,0x80,0,#param); |
DrawCaptButton(butv.x, butv.y, butv.w, butv.h, butv.id, 0xCCCccc, 0x000000, "Vegetables"); |
DrawCaptButton(buta.x, buta.y, buta.w, buta.h, buta.id, 0xCCCccc, 0x000000, "Aminal"); |
break; |
} |
} |
/programs/cmm/lib/kolibri.h |
---|
719,10 → 719,7 |
dword width,height; |
} screen; |
:struct _skin |
{ |
dword width,height; |
} SKIN; |
:byte skin_height; |
:void DrawDate(dword x, y, color, in_date) |
{ |
795,7 → 792,7 |
self.path = I_Path; |
__path_name__(#__BUF_DIR__,I_Path); |
SKIN.height = GetSkinHeight(); |
skin_height = GetSkinHeight(); |
screen.width = GetScreenWidth(); |
screen.height = GetScreenHeight(); |
/programs/cmm/lib/menu.h |
---|
0,0 → 1,74 |
struct _menu |
{ |
dword appear_x, appear_y, text, identifier, selected; |
llist list; |
void show(); |
char stak[4096]; |
}menu; |
void _menu::show(dword _appear_x, _appear_y, _menu_width, _text, _identifier) |
{ |
appear_x = _appear_x; |
appear_y = _appear_y; |
text = _text; |
identifier = _identifier; |
list.cur_y = -1; |
list.ClearList(); |
list.count = chrnum(text, '\n')+1; |
list.SetSizes(2,2,_menu_width,list.count*19,19); |
CreateThread(#_menu_thread,#stak+4092); |
} |
void _menu_thread() |
{ |
proc_info MenuForm; |
SetEventMask(100111b); |
loop() switch(WaitEvent()) |
{ |
case evMouse: |
GetProcessInfo(#MenuForm, SelfInfo); |
if (!CheckActiveProcess(MenuForm.ID)) _menu_no_item_click(); |
mouse.get(); |
if (menu.list.ProcessMouse(mouse.x, mouse.y)) _menu_draw_list(); |
if (mouse.lkm)&&(mouse.up) _menu_item_click(); |
break; |
case evKey: |
GetKeys(); |
if (key_scancode==SCAN_CODE_ESC) _menu_no_item_click(); |
if (key_scancode==SCAN_CODE_ENTER) _menu_item_click(); |
if (menu.list.ProcessKey(key_scancode)) _menu_draw_list(); |
break; |
case evReDraw: |
DefineAndDrawWindow(menu.appear_x,menu.appear_y,menu.list.w+2,menu.list.h+4,0x01, 0, 0, 0x01fffFFF); |
DrawPopup(0,0,menu.list.w,menu.list.h+3,0, 0xE4DFE1,0x9098B0); |
_menu_draw_list(); |
} |
} |
void _menu_draw_list() |
{ |
int N, bgcol; |
for (N=0; N<menu.list.count; N++;) |
{ |
if (N==menu.list.cur_y) bgcol=0xFFFfff; else bgcol=0xE4DFE1; |
DrawBar(menu.list.x, N*menu.list.item_h+menu.list.y, menu.list.w-3, menu.list.item_h, bgcol); |
} |
WriteTextLines(13, menu.list.item_h-8/2+menu.list.y, 0x80, 0, menu.text, menu.list.item_h); |
if (menu.selected) WriteText(5, menu.selected-1*menu.list.item_h+7, 0x80, 0xEE0000, "\x10"); |
} |
void _menu_item_click() |
{ |
menu.list.cur_y = menu.identifier + menu.list.cur_y; |
ExitProcess(); |
} |
void _menu_no_item_click() |
{ |
menu.list.cur_y = 0; |
ExitProcess(); |
} |