TDxFont和DXImageList往TDirectDrawSurface上画不上东西1.5没问题,1.6不行,不知道为什么,代码如下：
var HotNo1:TDirectDrawSurface;
begin
HotNo1:=TDirectDrawSurface.Create(DXDraw1.DDraw);
try
HotNo1.SetSize(300,600);
HotNo1.Fill(clFuchsia);
HotNo1.TransparentColor:=clFuchsia;
DXDraw1.Surface.Fill(0);
//Font_HotNO1为TDxFont
//或ImageList.items[0].Draw(HotNo1, 0, 0, 2);
Font_HotNO1.TextOut(HotNo1,0,0,'123456');
DXDraw1.Surface.Draw(0,70,HotNo1);
DXDraw1.Flip;
finally
HotNo1.Free;
end; |
