在你的窗体中添加一个Timage和一个Button,Button用于调用过程,此过程把文本和gif文件的名字作为参数。
procedure TxtToGif(txt, FileName: String);
var
temp: TBitmap;
GIF : TGIFImage;
begin
temp:=TBitmap.Create;
try
temp.Height :=400;
temp.Width :=60;
temp.Transparent:=True;
temp.Canvas.Brush.Color:=colFondo.ColorValue;
temp.Canvas.Font.Name:=Fuente.FontName;
temp.Canvas.Font.Color:=colFuente.ColorValue;
temp.Canvas.TextOut (10,10,txt);
Imagen.Picture.Assign(nil);
GIF := TGIFImage.Create;
try
// 转换位图为GIF
GIF.Assign(Temp);
// 保存GIF
GIF.SaveToFile(FileName);
// 显示GIF
Imagen.Picture.Assign (GIF);
finally
GIF.Free;
end;
Finally
temp.Destroy;
End;
end;
如果你不想在你的窗体中显示图片,除去Timage和有关的代码。
procedure TxtToGif(txt, FileName: String);
var
temp: TBitmap;
GIF : TGIFImage;
begin
temp:=TBitmap.Create;
try
temp.Height :=400;
temp.Width :=60;
temp.Transparent:=True;
temp.Canvas.Brush.Color:=colFondo.ColorValue;
temp.Canvas.Font.Name:=Fuente.FontName;
temp.Canvas.Font.Color:=colFuente.ColorValue;
temp.Canvas.TextOut (10,10,txt);
Imagen.Picture.Assign(nil);
GIF := TGIFImage.Create;
try
// 转换位图为GIF
GIF.Assign(Temp);
// 保存GIF
GIF.SaveToFile(FileName);
// 显示GIF
Imagen.Picture.Assign (GIF);
finally
GIF.Free;
end;
Finally
temp.Destroy;
End;
end;
如果你不想在你的窗体中显示图片,除去Timage和有关的代码。