100分,怎么将文字转为gif图片啊??(100分)

  • 主题发起人 主题发起人 kmwap
  • 开始时间 开始时间
K

kmwap

Unregistered / Unconfirmed
GUEST, unregistred user!
转成72*14的gif图片???
 
先转为bmp再转为gif
 
要用gif 控件辅助!

procedure TForm1.Button1Click(Sender: TObject);
var
b:TBitmap;
begin
b:=TBitmap.Create ;
b.Width:=72;
b.height:=14;
b.Canvas.Font.Name:='宋体';
b.Canvas.Font.Size:=10;
b.Canvas.Font.Color:=$0000ff;
b.Canvas.TextOut(2,1,'这是字符串');
b.SaveToFile('d:/temp.bmp');
b.SaveToFile('d:/temp.gif'); //无效
b.free;
end;
 
你要编程实现?
 
有软件可以实现
 
后退
顶部