这两句C++ builder代码怎么转换成delphi

xjlan 2003-08-20 07:18:20

HFONT hFont=CreateFontIndirect(&fontRec);
::SelectObject(tmpBitmap->Canvas->Handle,hFont);
::SetTextColor(tmpBitmap->Canvas->Handle,RGB(255,255,255));
::TextOut(tmpBitmap->Canvas->Handle,18,22,msg,lstrlen(msg));
::DeleteObject(hFont);

...全文

31 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

sunmedia 2003-08-21

打赏
举报

还是来晚了，同意 halibut(乡下人) 的写法！

windlyzhang 2003-08-21

打赏
举报

一会回家俺也给自己画星星去
呵呵。。。。

：）

sun_wyz 2003-08-20

打赏
举报

楼上比较强，自己画星星^_^

chameleon 2003-08-20

打赏
举报

来晚了

chameleon 2003-08-20

打赏
举报

来晚了

warton 2003-08-20

打赏
举报

同上！

halibut 2003-08-20

打赏
举报

var
hFont:HFONT;
begin
hFont:=CreateFontIndirect(fontRec);
SelectObject(tmpBitmap.Canvas.Handle,hFont);
SetTextColor(tmpBitmap.Canvas.Handle,RGB(255,255,255));
TextOut(tmpBitmap.Canvas.Handle,18,22,msg,Length(msg));
DeleteObject(hFont);
end;

tccsdn 2003-08-20

打赏
举报

hFont:HFONT;
hFont=CreateFontIndirect(fontRec);
SelectObject(tmpBitmap.Canvas.Handle,hFont);
SetTextColor(tmpBitmap.Canvas.Handle,RGB(255,255,255));
TextOut(tmpBitmap.Canvas.Handle,18,22,msg,Length(msg));
DeleteObject(hFont);

这样试试看，