Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
6050 leency 1
#define MEMSIZE 4096*10
3225 leency 2
 
5640 pavelyakov 3
#include "../lib/io.h"
6050 leency 4
#include "../lib/gui.h"
5640 pavelyakov 5
 
3225 leency 6
void main()
6050 leency 7
{
8
	word id;
5641 pavelyakov 9
	dword file;
5648 pavelyakov 10
	io.dir.load(0,DIR_ONLYREAL);
6050 leency 11
	loop() switch(WaitEvent())
12
	{
13
		case evButton:
14
			id=GetButtonID();
15
			if (id==1) ExitProcess();
3225 leency 16
			break;
6050 leency 17
 
18
		case evKey:
19
			GetKeys();
20
			if (key_scancode == SCAN_CODE_ESC ) ExitProcess();
3225 leency 21
			break;
6050 leency 22
 
23
		case evReDraw:
3225 leency 24
			draw_window();
25
			break;
6050 leency 26
	}
3225 leency 27
}
28
void draw_window()
29
{
3363 leency 30
	proc_info Form;
5646 pavelyakov 31
	int i;
6746 leency 32
	DefineAndDrawWindow(215,100,350,300,0x34,0xFFFFFF,"Window header",0);
3363 leency 33
	GetProcessInfo(#Form, SelfInfo);
6050 leency 34
	for (i=0; i
5646 pavelyakov 35
	{
36
		WriteText(5,i*8+3,0x80,0xFF00FF,io.dir.position(i));
37
	}
6050 leency 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);
5648 pavelyakov 42
}