|
发表于 2008-4-10 13:36:24
|
显示全部楼层
TO 10楼
用VB取WINDOWS的字模我不会,不过用BCB的我会
unsigned int i,j,ledwidth;
unsigned char leddate[32000];
MainImage->Canvas->FillRect(MainImage->Canvas->ClipRect);
MainImage->Canvas->Font->Name = "黑体";
MainImage->Canvas->Font->Charset = GB2312_CHARSET;
MainImage->Canvas->Font->Height = -16;
MainImage->Canvas->TextOut(0, 0, MainMemo->Text);
ledwidth=MainImage->Canvas->TextWidth(MainMemo->Text); //图形宽度
for(i=0;i<ledwidth;i++)
{
leddate[i*2]=0;
leddate[i*2+1]=0;
for(j=0;j<16;j++)
{
if(MainImage->Canvas->Pixels[j]==clBlack)
{
if(j<8)
leddate[i*2]|=0x80>>j;
else
leddate[i*2+1]|=0x80>>(j-8);
}
}
} |
|