Subversion Repositories Kolibri OS

Rev

Rev 4870 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3363 leency 1
#define MEMSIZE 0x3E80
2
#include "..\lib\strings.h"
3225 leency 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();
5598 pavelyakov 19
			if (key==013){ //Enter
3225 leency 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
{
3363 leency 34
	proc_info Form;
3225 leency 35
	DefineAndDrawWindow(215,100,250,200,0x34,0xFFFFFF,"Window header");
3363 leency 36
	GetProcessInfo(#Form, SelfInfo);
3225 leency 37
	WriteText(50,80,0x80,0,"Press Enter");
4718 leency 38
	WriteText(10,110,0x80,0,#param);
3225 leency 39
}
40
 
41
 
42
stop: