Subversion Repositories Kolibri OS

Rev

Rev 5736 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
5730 pavelyakov 1
#define MEMSIZE 0x7E80
2
 
3
#include "../lib/font.h"
4
 
5
byte id,key;
6
 
7
FONT TimeNewRoman = 0;
8
FONT Verdana = 0;
9
void main()
10
{
11
 
12
	SetEventMask(1100111b);
13
 
14
	Verdana.load("font/Verdana 15px original");
15
	font.load("font/Georgia 45px original");
16
	TimeNewRoman.load("font/Times New Roman 30px original");
17
	loop()
18
   {
19
      switch(WaitEvent())
20
      {
21
		case evMouse:
22
			mouse.get();
23
 
24
 
25
		break;
26
         case evButton:
27
            id=GetButtonID();
28
            if (id==1) ExitProcess();
29
			break;
30
 
31
        case evKey:
32
			key = GetKey();
33
			if (key==013){ //Enter
34
				draw_window();
35
 
36
			}
37
			break;
38
 
39
         case evReDraw:
40
			draw_window();
41
 
42
			break;
43
      }
44
   }
45
}
46
void draw_window()
47
{
48
	proc_info Form;
49
 
50
	int i =0;
51
	DefineAndDrawWindow(215,100,450,500,0x33,0xFFFFFF,"Window header");
52
	GetProcessInfo(#Form, SelfInfo);
53
 
54
	font.text(0,0,"Georgia 45px original",0x5522DD);
55
	font.text(3,43,"Съешь еще этих мягких французких булок, да выпей чаю. 1234567890",0xDEDEDE);
56
	font.text(0,40,"Съешь еще этих мягких французких булок, да выпей чаю. 1234567890",0x0);
57
 
58
 
59
	font.text(0,80,"Times New Roman 30px original",0x993366);
60
	TimeNewRoman.text(3,113,"Съешь еще этих мягких французких булок, да выпей чаю. 1234567890",0xDEDEDE);
61
	TimeNewRoman.text(0,110,"Съешь еще этих мягких французких булок, да выпей чаю. 1234567890",0x0);
62
 
63
	Verdana.textarea(0,150,"Этот пример демонстрирует возможности шрифта, \rкоторый создан специально для колибриОС.\rВ ближайшее время активно добавляются шрифты.\rРедактировать шрифты можно на сайте: http://font.ga.\rДля редактирования шрифта, шрифт должен быть в несжатом виде,\rтакже соответствовать стандарту!\rВ планах сделать компактный файл,\rкоторый будет содержать разные размеры одного шрифта.\rОригинальный файл (т.е.) не сжатый файл много занимает места,\rпоэтому рекомендую сжимать kpack. Шрифты на заказ https://vk.com/pavelyakov39\rПрорисовка пока что медленная - временно.Кодировка шрифта ANSII.",0x5522DD);
64
	Verdana.text(30,350,"А теперь...",0xAA4444);
65
	font.text(60,370,"До встречи!!!",0xDD4444);
66
}