Subversion Repositories Kolibri OS

Rev

Rev 5598 | 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
3225 leency 2
 
5640 pavelyakov 3
#include "../lib/io.h"
4
#include "../lib/draw.h"
5
 
3225 leency 6
void main()
7
{
8
	int id, key;
5640 pavelyakov 9
	mem_Init();
10
	io.set("/sys/RUN",ATR_HIDDEN);
3225 leency 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();
5598 pavelyakov 22
			if (key==013){ //Enter
3225 leency 23
				WriteText(50,90,0x80,0xFF00FF,"Pressed Enter");
24
			}
25
			break;
26
 
27
         case evReDraw:
28
			draw_window();
29
			break;
30
      }
31
   }
32
}
33
void draw_window()
34
{
3363 leency 35
	proc_info Form;
5640 pavelyakov 36
	dword pos;
37
	//float zz=0.944,ret;
3225 leency 38
	DefineAndDrawWindow(215,100,250,200,0x34,0xFFFFFF,"Window header");
5640 pavelyakov 39
	//draw.gradient(pos,10,10,0x0,20,20,0x0);
3363 leency 40
	GetProcessInfo(#Form, SelfInfo);
5640 pavelyakov 41
	draw.circle(60,60,5);
42
 
4718 leency 43
	WriteText(10,110,0x80,0,#param);
3225 leency 44
}
45
 
46
stop: