Subversion Repositories Kolibri OS

Rev

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

  1. //Leency 2013
  2.  
  3. void OpenWith()
  4. {
  5.         ?define OPEN_LIST_W 300
  6.         ?define OPEN_LIST_H 300
  7.         mouse mm;
  8.         word key, slot, index, start_y;
  9.         llist app_list;
  10.         proc_info MenuForm;
  11.         int texty, newi;
  12.  
  13.         app_list.ClearList();
  14.         app_list.SetSizes(files.w-OPEN_LIST_W/2+files.x+Form.left+4,files.h-OPEN_LIST_H/2+files.y+Form.top+GetSkinHeight(),OPEN_LIST_W,OPEN_LIST_H,150,18);
  15.         SetEventMask(100111b);
  16.         goto _APP_LIST_DRAW;
  17.  
  18.         loop() switch(WaitEvent())
  19.         {
  20.                 case evMouse:
  21.                                 slot = GetProcessSlot(MenuForm.ID);
  22.                                 if (slot != GetActiveProcess()) ExitProcess();
  23.                                 mm.get();
  24.                                 if (m.lkm) ExitProcess();
  25.                                 break;
  26.                                
  27.                 case evKey:
  28.                                 key = GetKey();
  29.                                 if (key==27) ExitProcess();
  30.                                 break;
  31.                                
  32.                 case evReDraw: _APP_LIST_DRAW:
  33.                                 DefineAndDrawWindow(app_list.x, app_list.y,app_list.w+3,app_list.h+6,0x01, 0, 0, 0x01fffFFF);
  34.                                 GetProcessInfo(#MenuForm, SelfInfo);
  35.                                 DrawPopup(0,0,app_list.w,app_list.h,0, col_work,col_border);
  36.                                 WriteText(10,10, 0x80, 0, "Select application to open file"w);
  37.                                 WriteText(10,23, 0x80, 0, #file_name);
  38.                                 WriteTextB(app_list.w/2-25,app_list.h/2, 0x90, 0, "S O O N");
  39.  
  40.                                 _APP_LIST_ITEMS_DRAW:
  41.                                 break;
  42.         }
  43. }