1,183
社区成员
发帖
与我相关
我的任务
分享
unit TestFun;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, dateutils, ExtCtrls;
var
img1: TImage;
procedure Test; stdcall
implementation
procedure Test; stdcall
var i: integer;
begin
img1.Width := 200;
img1.Height := 200;
img1.Picture.Graphic := nil; // 消除原有的图形 或者 image.picture:=nil;都可以
img1.Canvas.Pen.Style := TPenStyle(0); // 设置画笔类型
img1.Canvas.MoveTo(0, 0); // 将当前画笔位置移到(0,0)
img1.Canvas.Font.Color := clBlack;
img1.Canvas.Font.Name := '宋体';
// img1.Canvas.Font.Style := [fsBold, fsItalic, fsUnderline, fsStrikeOut];
img1.Canvas.Font.Size := 11;
for i := 0 to 5 do
img1.Canvas.TextOut(0, i * 18, inttostr(i));
img1.savetofile('C:\己阅.jpg');
end;
end.