kolibrios/programs/cmm/eolite/include/file_menu.h
Kirill Lipatov (Leency) ce5a4a5f1a Eolite 1.77: RMB menu, list_box element used, fixed crash when changing size (reported by 0CodErr), a lot of other improvements
git-svn-id: svn://kolibrios.org@3434 a494cfbc-eb01-0410-851d-a64ba20cac60
2013-03-31 20:25:54 +00:00

66 lines
1.8 KiB
C

//Leency 2008-2013
char *captions[] = {
"Open", "Enter",
"Open with...", "Ctrl+Ent",
"View as text", "F3",
"View as HEX", "F4",
"Rename", "F2",
"Delete", "Del",
0};
void FileMenu()
{
proc_info MenuForm;
word id, key, slot;
int ccount=0, linew=10, lineh=18, texty;
for (i=0; captions[i]!=0; i+=2)
{
ccount++;
if (strlen(captions[i])>linew) linew = strlen(captions[i]);
}
linew = linew + 3 * 6 + 70;
texty = lineh/2-4;
SetEventMask(100111b);
goto _MENU_DRAW;
loop() switch(WaitEvent())
{
case evMouse:
slot = GetProcessSlot(MenuForm.ID);
if (slot != GetActiveProcess()) ExitProcess();
break;
case evButton:
id=GetButtonID();
if (id==100) Open();
if (id==101) notify("Not compleated yet");
if (id==102) ActionsProcess(3);
if (id==103) ActionsProcess(4);
if (id==104) ActionsProcess(2);
if (id==105) Del_Form();
ExitProcess();
break;
case evKey:
IF (GetKey()==27) ExitProcess();
break;
case evReDraw: _MENU_DRAW:
DefineAndDrawWindow(m.x+Form.left+5,m.y+Form.top+GetSkinHeight(),linew+2,ccount*lineh+2,0x01,0xEEEeee,0x01fffFFF);
GetProcessInfo(#MenuForm, SelfInfo);
/* _PutImage(1,23, 16,44, #factions); //èêîíêè */
DrawRectangle(0,0,linew+1,ccount*lineh+1,col_border);
PutShadow(linew+2,1,1,ccount*lineh+1,0,1);
PutShadow(1,ccount*lineh+2,linew+1,1,0,1);
for (i=0; captions[i*2]!=0; i++)
{
DefineButton(1,i*lineh,linew,lineh-1,i+100+BT_HIDE,0xFFFFFF);
DrawBar(1,i*lineh+1,1,lineh,0xFFFfff);
DrawBar(2,i*lineh+1,linew-1,lineh,col_work);
WriteText(6,i*lineh+texty+1,0x80,0x000000,captions[i*2]);
WriteText(-strlen(captions[i*2+1])*6-7+linew,i*lineh+texty+1,0x80,0x999999,captions[i*2+1]);
}
}
}