Fixed bugs lib font.h

git-svn-id: svn://kolibrios.org@5742 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
pavelyakov 2015-08-18 10:43:23 +00:00
parent 386e384f8f
commit 2202752431

View File

@ -22,7 +22,9 @@
dword size_file;
byte load(...);
byte symbol(word x;byte s;dword c);
byte symbol_size(byte s);
dword text(word x,y;dword text,c;byte size);
dword text_width(dword text1;byte size);
dword textarea(word x,y;dword text,c;byte size);
byte changeSIZE(byte size);
void PixelRGB(word x,y);
@ -70,10 +72,52 @@ FONT font = 0;
}
:proc_info Form_SELF_FONTS;
:dword FONT::text(word x,y;dword text1,c;byte size)
:dword FONT::text_width(dword text1;byte size)
{
dword len=0;
IF(size)IF(!changeSIZE(size))return 0;
WHILE(DSBYTE[text1])
{
len += symbol_size(DSBYTE[text1]);
text1++;
}
return len;
}
:byte FONT::symbol_size(byte s)
{
dword xi,yi;
dword tmp,_;
dword iii;
byte rw=0;
IF(s==32)return width/4;
IF(s==9)return width;
yi = 0;
iii = 0;
tmp = 4*block*s;
tmp +=data;
WHILE(yi<height)
{
xi = 0;
WHILE(xi<width)
{
IF(iii%32) _ >>= 1;
ELSE
{
tmp += 4;
_ = DSDWORD[tmp];
}
IF(_&1) IF(xi>rw)rw=xi;
xi++;
iii++;
}
yi++;
}
return rw;
}
:dword FONT::text(word x,y;dword text1,c;byte size)
{
signed len=0;
IF(size)IF(!changeSIZE(size))return 0;
GetProcessInfo(#Form_SELF_FONTS, SelfInfo);
IF(y>Form_SELF_FONTS.cheight) return 0;
IF(x>Form_SELF_FONTS.cwidth) return 0;
@ -86,14 +130,14 @@ FONT font = 0;
b = AL;
width_buffer = width;
width_buffer *= strlen(text1);
IF(!buffer_size)buffer = malloc(width_buffer*height);
ELSE IF(buffer_size<width_buffer*height)buffer = realloc(width_buffer*height);
width_buffer /= 3;
IF(!buffer_size)buffer = malloc(width_buffer*height*3);
ELSE IF(buffer_size<width_buffer*height)buffer = realloc(width_buffer*height*3);
CopyScreen(buffer,x+Form_SELF_FONTS.left+5,y+Form_SELF_FONTS.top+GetSkinHeight(),width_buffer,height);
WHILE(DSBYTE[text1])
{
len += symbol(len,DSBYTE[text1],c);
symbol(len,DSBYTE[text1],c);
len+=EAX;
text1++;
}
_PutImage(x,y,width_buffer,height,buffer);
@ -103,6 +147,7 @@ FONT font = 0;
{
}
:byte FONT::symbol(signed x;byte s;dword c)
{
dword xi,yi;
@ -110,6 +155,7 @@ FONT font = 0;
dword iii;
dword ___x;
byte rw=0;
x -= 2;
IF(s==32)return width/4;
IF(s==9)return width;
yi = 0;
@ -131,7 +177,7 @@ FONT font = 0;
{
IF(xi>rw)rw=xi;
___x = x+xi;
IF(___x<Form_SELF_FONTS.cwidth)&&(tmp_y+yi<Form_SELF_FONTS.cheight)PixelRGB(x+xi,yi);
IF(___x<Form_SELF_FONTS.cwidth)&&(tmp_y+yi<Form_SELF_FONTS.cheight)PixelRGB(___x,yi);
}
xi++;
iii++;