Subversion Repositories Kolibri OS

Rev

Rev 5959 | Rev 6887 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. #define MEMSIZE 4096*10
  2.  
  3. #include "../lib/io.h"
  4. #include "../lib/gui.h"
  5.  
  6. void main()
  7. {
  8.         word id;
  9.         dword file;
  10.         io.dir.load(0,DIR_ONLYREAL);
  11.         loop() switch(WaitEvent())
  12.         {
  13.                 case evButton:
  14.                         id=GetButtonID();              
  15.                         if (id==1) ExitProcess();
  16.                         break;
  17.          
  18.                 case evKey:
  19.                         GetKeys();
  20.                         if (key_scancode == SCAN_CODE_ESC ) ExitProcess();
  21.                         break;
  22.                  
  23.                 case evReDraw:
  24.                         draw_window();
  25.                         break;
  26.         }
  27. }
  28. void draw_window()
  29. {
  30.         proc_info Form;
  31.         int i;
  32.         DefineAndDrawWindow(215,100,350,300,0x34,0xFFFFFF,"Window header");
  33.         GetProcessInfo(#Form, SelfInfo);
  34.         for (i=0; i<io.dir.count; i++)
  35.         {
  36.                 WriteText(5,i*8+3,0x80,0xFF00FF,io.dir.position(i));
  37.         }
  38.         DrawCaptButton(100, 10, 100, 22, 22, 0xCCCccc, 0x000000, "Button");
  39.         WriteText(100,50,0x80,0,"Textline small");
  40.         WriteText(100,70,0x90,0,"Textline big");
  41.         DrawBar(100, 110, 100, 100, 0x66AF86);
  42. }