Subversion Repositories Kolibri OS

Rev

Rev 2764 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. //Leency - 2012
  2.  
  3. #define ITEM_HEIGHT 18
  4. #define ITEM_WIDTH  138
  5.  
  6. char *ITEMS_LIST[]={
  7. "View in Tinypad   F3",
  8. "View in TextEdit  F4",
  9. "--------------------", //ñäåëàòü îïðåäåëåíèå òàêèõ ëèíèé è ðèñîâàòü èõ
  10. "KOI-8         Ctrl+K",
  11. "UTF           Ctrl+U",
  12. 0};
  13.  
  14. proc_info MenuForm;
  15.  
  16.        
  17. void menu_rmb()
  18. {
  19.  
  20.         mouse mm;
  21.         int items_num, items_cur;
  22.         byte id, key;
  23.        
  24.         SetEventMask(100111b);
  25.        
  26.         loop() switch(CheckEvent())
  27.         {
  28.                 case evMouse:
  29.                                 mm.get();
  30.                                 id=mm.y/ITEM_HEIGHT;
  31.                                 if (id<0) || (id+1>items_num) break;
  32.                                 if (items_cur<>id)
  33.                                 {
  34.                                         items_cur=id;
  35.                                         goto _ITEMS_DRAW;
  36.                                 }
  37.                                
  38.                                 break;
  39.                                
  40.                 case evButton:
  41.                                 id=GetButtonID();
  42.                                 if (id==1) ExitProcess();
  43.                                 _BUTTON_MARK:
  44.                                 if (id==10) WB1.Scan(52); //View html code
  45.                                 if (id==11) WB1.Scan(53); //View html code
  46.                                 if (id==12) break;
  47.                                 if (id==13) WB1.Scan(11); //KOI
  48.                                 if (id==14) WB1.Scan(21); //UTF
  49.                                
  50.                                 ExitProcess();
  51.                                 break;
  52.                                
  53.                 case evKey:
  54.                                 key = GetKey();
  55.                                 if (key==27) ExitProcess();
  56.                                 if (key==178) && (items_cur)
  57.                                 {
  58.                                         items_cur--;
  59.                                         goto _ITEMS_DRAW;
  60.                                 }
  61.                                 if (key==177) && (items_cur+1<items_num)
  62.                                 {
  63.                                         items_cur++;
  64.                                         goto _ITEMS_DRAW;
  65.                                 }
  66.                                 if (key==13)
  67.                                 {
  68.                                         id=items_cur+10;
  69.                                         //WriteDebug(IntToStr(id));
  70.                                         goto _BUTTON_MARK;
  71.                                 }
  72.                                 break;
  73.                                
  74.                 case evReDraw:
  75.                                 for (items_num=0; ITEMS_LIST[items_num]<>0; items_num++;) {};
  76.                                 DefineAndDrawWindow(Form.left+m.x,Form.top+m.y+GetSkinWidth()+3,ITEM_WIDTH,items_num*ITEM_HEIGHT+1,0x01,0x10FFFFFF,0,0,0);
  77.  
  78.                                 DrawRegion(0,0,ITEM_WIDTH,items_num*ITEM_HEIGHT+1,0x777777); //îáîäîê
  79.                                 _ITEMS_DRAW:
  80.                                 for (i=0; i<items_num; i++;)
  81.                                 {
  82.                                         DefineButton(0, i*ITEM_HEIGHT, ITEM_WIDTH, ITEM_HEIGHT, i+10+BT_HIDE, 0xFFFFFF);
  83.                                         if (i<>items_cur) EDX=0xFFFFFF; else EDX=0x94AECE;
  84.                                         DrawBar(1, i*ITEM_HEIGHT+1, ITEM_WIDTH-1, ITEM_HEIGHT, EDX);
  85.                                         WriteText(8,i*ITEM_HEIGHT+6,0x80,0x000000,ITEMS_LIST[i],0);
  86.                                 }
  87.                 default:
  88.                                 GetProcessInfo(#MenuForm, SelfInfo);
  89.                                 id=GetSlot(MenuForm.ID);
  90.                                 if (id<>ActiveProcess()) ExitProcess();                
  91.         }
  92. }