源码如下:TImage显示正常,为淡淡的红色字. Image2.Picture.Bitmap.PixelFormat:=pf1bit;
Image2.Canvas.Brush.Style:=bsClear;
Image2.Canvas.Font.Name:='黑体';
Image2.Canvas.Font.Color:=clRed;
Image2.Canvas.Font.Height:=32;
Image2.Canvas.TextOut(0,0,'程序');TBitmap中无法显示,始终为黑色,为何?
var
pic:TBitmap; pic:=TBitmap.Create;
pic.PixelFormat:=pf1bit;
pic.Width:=100;
pic.Height:=100;
pic.Canvas.Brush.Style:=bsClear; pic.Canvas.Font.Name:='黑体';
pic.Canvas.Font.Color:=clRed;
pic.Canvas.Font.Height:=32;
pic.Canvas.TextOut(0,0,'程序');
pic.Free;只有将pic.PixelFormat:=pf24bit,才能正常显示.请问高手,如何解决?
Image2.Canvas.Brush.Style:=bsClear;
Image2.Canvas.Font.Name:='黑体';
Image2.Canvas.Font.Color:=clRed;
Image2.Canvas.Font.Height:=32;
Image2.Canvas.TextOut(0,0,'程序');TBitmap中无法显示,始终为黑色,为何?
var
pic:TBitmap; pic:=TBitmap.Create;
pic.PixelFormat:=pf1bit;
pic.Width:=100;
pic.Height:=100;
pic.Canvas.Brush.Style:=bsClear; pic.Canvas.Font.Name:='黑体';
pic.Canvas.Font.Color:=clRed;
pic.Canvas.Font.Height:=32;
pic.Canvas.TextOut(0,0,'程序');
pic.Free;只有将pic.PixelFormat:=pf24bit,才能正常显示.请问高手,如何解决?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货