Subversion Repositories Kolibri OS

Rev

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

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