1,222
社区成员
发帖
与我相关
我的任务
分享如何设置字体或字体大小?
static HDC hDC;
hDC=GetDC(0) ;
SetBkMode (hDC,0);
SelectObject(hDC,GetStockObject(SYSTEM_FONT)) ;
SetTextColor(hDC,RGB(255,0,0)) ;
TextOut(hDC,10,100,"231231231231231231",18 ) ;
ReleaseDC(0,hDC) ;
但该如何设置字体和字体大小呢?
hDC=GetDC(0) ;
SetBkMode (hDC,0);
SelectObject(hDC,GetStockObject(SYSTEM_FONT)) ;
SetTextColor(hDC,RGB(255,0,0)) ;
TextOut(hDC,10,100,"231231231231231231",18 ) ;
ReleaseDC(0,hDC) ;
但该如何设置字体和字体大小呢?
...全文
请发表友善的回复…
发表回复
ccrun.com 2003-12-02
- 打赏
- 举报
用LOGFONT
void __fastcall TForm1::Button1Click(TObject *Sender)
{
LOGFONT fontRec;
memset(&fontRec, 0, sizeof(LOGFONT));
fontRec.lfHeight = 20; //字体的高度
fontRec.lfWeight = FW_BOLD; //粗体
lstrcpy(fontRec.lfFaceName, "Verdana"); //字体
HFONT hFont = CreateFontIndirect(&fontRec);
String strTemp = "输出文字";
::SelectObject(Canvas->Handle, hFont);
::SetTextColor(Canvas->Handle, clRed);
::SetBkMode(Canvas->Handle, TRANSPARENT);
::TextOut(Canvas->Handle, 10, 10, strTemp.c_str(), strTemp.Length());
::DeleteObject(hFont);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
LOGFONT fontRec;
memset(&fontRec, 0, sizeof(LOGFONT));
fontRec.lfHeight = 20; //字体的高度
fontRec.lfWeight = FW_BOLD; //粗体
lstrcpy(fontRec.lfFaceName, "Verdana"); //字体
HFONT hFont = CreateFontIndirect(&fontRec);
String strTemp = "输出文字";
::SelectObject(Canvas->Handle, hFont);
::SetTextColor(Canvas->Handle, clRed);
::SetBkMode(Canvas->Handle, TRANSPARENT);
::TextOut(Canvas->Handle, 10, 10, strTemp.c_str(), strTemp.Length());
::DeleteObject(hFont);
}
