Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
5776 leency 1
#define MEMSIZE 0xEE80
5730 pavelyakov 2
 
3
#include "../lib/font.h"
5776 leency 4
#include "../lib/gui.h"
5730 pavelyakov 5
 
6
void main()
7
{
5776 leency 8
	word i, y, btn;
9
	char line[256], title[4196];
10
	font.no_bg_copy = true;
11
	font.color = 0;
12
	font.bg_color = 0xFFFFFF;
13
	if (!param) strcpy(#param, "/sys/fonts/Tahoma.kf");
14
	font.load(#param);
15
	strcpy(#title, "Kolibri font preview: ");
16
	strcat(#title, #param);
5730 pavelyakov 17
	loop()
5776 leency 18
	{
19
	  switch(WaitEvent())
5730 pavelyakov 20
      {
5776 leency 21
		case evButton:
22
			btn = GetButtonID();
23
			if (btn==1) ExitProcess();
24
			if (btn==2) font.weight ^=1;
25
			if (btn==3) font.italic ^=1;
26
			if (btn==4) font.no_bg_copy ^=1;
27
		case evReDraw:
28
			DefineAndDrawWindow(215,100,500,320,0x33,0xFFFFFF,#title);
29
			DrawBar(0, 0, 500-9, 30, 0xCCCccc);
30
			CheckBox2(10, 8, 2, "Bold",  font.weight);
31
			CheckBox2(70, 8, 3, "Italic",  font.italic);
32
			CheckBox2(140, 8, 4, "Smooth",  font.no_bg_copy);
33
			if (!font.data)
34
			{
35
				WriteText(10, 50, 0x82, 0xFF00FF, "Font is not loaded.");
36
			}
37
			else for (i=10, y=40; i<22; i++, y+=font.height;)
38
			{
39
				font.size.text = i;
40
				sprintf(#line,"Размер шрифта/size font %d пикселей.",i);
41
				font.prepare(10,y,#line);
42
				font.show(10, y);
5730 pavelyakov 43
			}
5776 leency 44
	  }
45
	}
46
}
5730 pavelyakov 47
 
5776 leency 48
void CheckBox2(dword x, y, id, text, byte value) {
49
	CheckBox(x, y, 14, 14, id, text, system.color.work_graph, system.color.work_text, value);
5730 pavelyakov 50
}