Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 5883 → Rev 5884

/programs/cmm/kolibri font viewer/kolibri font viewer.c
8,15 → 8,36
void main()
{
proc_info Form;
FONT font_title = 0;
FONT font_option = 0;
word i, y, btn;
char line[256], title[4196];
font.no_bg_copy = true;
font.color = 0;
font.bg_color = 0xFFFFFF;
font.left = 5;
font.top = SKIN.height+PANELH;
if (!param) strcpy(#param, "/sys/fonts/Tahoma.kf");
font.load(#param);
font_title.no_bg_copy = true;
font_title.load("/sys/fonts/Tahoma.kf");
font_title.size.text = 12;
font_title.color = 0x444444;
font_title.weight = 1;
font_title.use_smooth = 1;
font_title.bg_color = 0xE1E1E1;
font_option.no_bg_copy = true;
font_option.load("/sys/fonts/Tahoma.kf");
font_option.size.text = 13;
font_option.color = 0x222222;
font_option.use_smooth = 1;
font_option.bg_color = 0xDADADA;
strcpy(#title, "Kolibri font preview: ");
strcat(#title, #param);
font_title.prepare(5, 4, #title);
loop()
{
switch(WaitEvent())
29,27 → 50,45
if (btn==4) font.smooth ^=1;
goto _DRAW_WINDOW_CONTENT;
case evReDraw:
DefineAndDrawWindow(215,100,500,320,0x74,0xFFFFFF,#title);
DefineAndDrawWindow(215,100,500,320,0x04,0xFFFFFF,"");
font_title.show();
GetProcessInfo(#Form, SelfInfo);
_DRAW_WINDOW_CONTENT:
DrawBar(0, 0, Form.cwidth, PANELH, 0xCCCccc);
CheckBox2(10, 8, 2, "Bold", font.weight);
CheckBox2(70, 8, 3, "Italic", font.italic);
CheckBox2(140, 8, 4, "Smooth", font.smooth);
font.buffer_size = free(font.buffer);
DrawBar(5, SKIN.height, Form.cwidth, PANELH, 0xDADADA);
font_option.italic = font_option.smooth = 0;
font_option.weight = 1;
font_option.prepare(30, SKIN.height+7, "Bold");
CheckBox2(10, SKIN.height+8, 2, "", font.weight);
font_option.show();
font_option.weight = font_option.smooth = 0;
font_option.italic = 1;
font_option.prepare(90, SKIN.height+7, "Italic");
CheckBox2(70, SKIN.height+8, 3, "", font.italic);
font_option.show();
font_option.weight = font_option.italic = 0;
font_option.smooth = 1;
font_option.prepare(160, SKIN.height+7, "Smooth");
CheckBox2(140, SKIN.height+8, 4, "Smooth", font.smooth);
font_option.show();
IF(font.buffer)font.buffer_size = 0;
if (!font.data)
{
DrawBar(0, PANELH, Form.cwidth, Form.cheight - PANELH, 0xFFFfff);
WriteText(10, 50, 0x82, 0xFF00FF, "Font is not loaded.");
DrawBar(5, SKIN.height+PANELH, Form.cwidth, Form.cheight - PANELH, 0xFFFfff);
WriteText(15, 50, 0x82, 0xFF00FF, "Font is not loaded.");
}
else for (i=10, y=5; i<22; i++, y+=font.height;) //not flexible, need to calculate font count and max line length
{
font.size.text = i;
sprintf(#line," §¬¥à èà¨äâ /size font %d ¯¨ªá¥«¥©.",i);
font.prepare_buf(10,y,Form.cwidth,Form.cheight-PANELH, #line);
font.prepare_buf(15,SKIN.height+y,Form.cwidth,Form.cheight-PANELH, #line);
}
if (font.smooth) SmoothFont(font.buffer, font.size.width, font.size.height);
font.show(0, PANELH);
font.show();
}
}
}
/programs/cmm/lib/font.h
27,7 → 27,7
byte r,g,b,weight,italic, smooth;
byte width,height;
byte use_smooth;
word left,top;
int left,top;
byte encoding;
dword color;
dword file_size;
172,7 → 172,7
IF(s=='_') size.width--;
IF(size.offset.x<0)size.offset.x = X;
}
:dword FONT::prepare(word x,y;dword text1)
:dword FONT::prepare(int x,y;dword text1)
{
signed len=0;
proc_info Form_SELF_FONTS;
320,16 → 320,17
return true;
}
 
:void FONT::prepare_buf(dword x,y,w,h; dword text1)
:void FONT::prepare_buf(int x,y,w,h; dword text1)
{
dword c, new_buffer_size;
c = color;
//left = x;
IF(!text1)return;
IF(size.text)IF(!changeSIZE())return;
AX = c; r = AL; g = AH; c>>=16; AX = c; b = AL;
getsize(text1);
y -= size.offset.y;
//top = y;
size.width = w;
size.height = h;