2
A
回答
7
检查此过程
procedure GenerateImageFromNumber(ANumber:Integer;Const FileName:string);
Var
Bmp : TBitmap;
begin
Bmp:=TBitmap.Create;
try
Bmp.PixelFormat:=pf24bit;
Bmp.Canvas.Font.Name :='Arial';// set the font to use
Bmp.Canvas.Font.Size :=20;//set the size of the font
Bmp.Canvas.Font.Color:=clWhite;//set the color of the text
Bmp.Width :=Bmp.Canvas.TextWidth(IntToStr(ANumber));//calculate the width of the image
Bmp.Height :=Bmp.Canvas.TextHeight(IntToStr(ANumber));//calculate the height of the image
Bmp.Canvas.Brush.Color := clBlue;//set the background
Bmp.Canvas.FillRect(Rect(0,0, Bmp.Width, Bmp.Height));//paint the background
Bmp.Canvas.TextOut(0, 0, IntToStr(ANumber));//draw the number
Bmp.SaveToFile(FileName);//save to a file
finally
Bmp.Free;
end;
end;
而且使用这样
procedure TForm1.Button1Click(Sender: TObject);
begin
GenerateImageFromNumber(10000,'Foo.bmp');
Image1.Picture.LoadFromFile('Foo.Bmp');//Image1 is a TImage component
end;
相关问题
- 1. 德尔福OpenGL绘图
- 2. 在德尔福绘制流程图
- 3. 在德尔福7
- 4. 德尔福7 __ArrayList
- 5. 我如何加载图像到德尔福XE8的一个apk
- 6. 加载图片到图像德尔福
- 7. 德尔福v.Word - 如何从德尔福
- 8. 德尔福 - 如何制作图表?
- 9. 德尔福7和Windows Vista
- 10. 德尔福7继承
- 11. 德尔福7 TAdoQuery太慢
- 12. 德尔福7和事件
- 13. 更改德尔福7中的字符
- 14. 德尔福7 - 字符集REST JSON
- 15. 德尔福7德尔福XE2 res文件问题
- 16. 转换德尔福7代码与德尔福2009年工作
- 17. AggPas德尔福绘图胶片
- 18. 德尔福7 - 如何将整数转换为字符串
- 19. 德尔福7:如何将一个字符串拆分成一个TStringList
- 20. 德尔福绘制一个光滑的饼
- 21. 德尔福7:将TStrings存储到SQLite3数据库字段
- 22. 德尔福:一个线程
- 23. 德尔福:一个TByteDynArray
- 24. 德尔福/帕斯卡尔解析字符串到一个ComboBox
- 25. 德尔福HID Delphi7和德尔福XE2
- 26. 德尔福 - 素数
- 27. 德尔福DBGRID绘制细胞图像的黑色背景使用图像从一个的TImage列表
- 28. 德尔福,复制字符串到字节数组
- 29. 德尔福的丝带瑕疵图像
- 30. 德尔福图像运动故障
我会GenerateImageFromNumber( )返回一个可以分配给TImage的TBitmap,或者直接将其绘制到TImage,而不使用临时文件。 –
谢谢大家......! – rakesh
@rakesh,如果这解决了你的问题,那么你应该接受RRUZ的答案。 –