Subversion Repositories Kolibri OS

Rev

Rev 5641 | Go to most recent revision | 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.         mem_Init();
  10.         io.dir_buffer("",DIR_ONLYREAL);
  11.         loop()
  12.    {
  13.       switch(WaitEvent())
  14.       {
  15.          case evButton:
  16.             id=GetButtonID();              
  17.             if (id==1) ExitProcess();
  18.                         break;
  19.      
  20.         case evKey:
  21.                         key = GetKey();
  22.                         if (key==013){ //Enter
  23.                                 draw_window();
  24.                                
  25.                         }
  26.                         break;
  27.          
  28.          case evReDraw:
  29.                         draw_window();
  30.                         break;
  31.       }
  32.    }
  33. }
  34. void draw_window()
  35. {
  36.         proc_info Form;
  37.         int i;
  38.         i=0;
  39.         DefineAndDrawWindow(215,100,250,200,0x34,0xFFFFFF,"Window header");
  40.         GetProcessInfo(#Form, SelfInfo);
  41.         while(i<io.dir.count)
  42.         {
  43.                 WriteText(5,i*8+3,0x80,0xFF00FF,io.dir.position(i));
  44.                 i++;
  45.         }
  46.         WriteText(10,110,0x80,0,#param);
  47. }
  48.  
  49. stop:
  50.