Subversion Repositories Kolibri OS

Rev

Rev 5676 | Blame | Last modification | View Log | Download | RSS feed

  1. #define MEMSIZE 0x3E80
  2.  
  3. #include "../lib/io.h"
  4.  
  5. void main()
  6. {  
  7.         int id, key, i;
  8.         dword file;
  9.         io.dir.load(0,DIR_ONLYREAL);
  10.         loop()
  11.    {
  12.       switch(WaitEvent())
  13.       {
  14.          case evButton:
  15.             id=GetButtonID();              
  16.             if (id==1) ExitProcess();
  17.                         break;
  18.      
  19.         case evKey:
  20.                         key = GetKey();
  21.                         if (key==013){ //Enter
  22.                                 draw_window();
  23.                                
  24.                         }
  25.                         break;
  26.          
  27.          case evReDraw:
  28.                         draw_window();
  29.                         break;
  30.       }
  31.    }
  32. }
  33. void draw_window()
  34. {
  35.         proc_info Form;
  36.         int i;
  37.         i=0;
  38.         DefineAndDrawWindow(215,100,250,200,0x34,0xFFFFFF,"Window header");
  39.         GetProcessInfo(#Form, SelfInfo);
  40.         while(i<io.dir.count)
  41.         {
  42.                 WriteText(5,i*8+3,0x80,0xFF00FF,io.dir.position(i));
  43.                 i++;
  44.         }
  45.         WriteText(10,110,0x80,0,#param);
  46. }