问题描述
当一个进程在后台运行时,我会在屏幕上显示一个加载动画。但是 GIF 看起来质量很差。我该如何解决这个问题?
unit Unit3;
interface
uses
Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.Imaging.GIFImg,Vcl.ExtCtrls,Vcl.StdCtrls;
type
TForm3 = class(TForm)
Image1: TImage;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
var
sFile: string;
end;
var
Form3: TForm3;
aGIF: TGIFImage;
bmp:TBitmap;
implementation
{$R *.dfm}
procedure TForm3.FormShow(Sender: TObject);
begin
aGIF := TGIFImage.Create;
aGIF.LoadFromFile(sFile);
aGIF.Animate := True;
Image1.Picture.Assign(aGIF);
aGIF.Free;
end;
end.
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)