delphi - TImage在D7(免费版)中似乎不支持Jpeg？

Question

procedure TmainForm.FormCreate(Sender: TObject);
  var img : TImage;
      pic:TPicture;

begin
  pic := TPicture.create();
  pic.LoadFromFile('my_picture.jpg');
  img :=  Timage.create(Self);
  img.Picture := pic;
end;

...

"Project MyProect.exe raised exception class EInvalidGraphic 
with message 'Unknown picture extension (.jpg)'" 

果然，在函数 TPicturePropertyEditor.Execute() 中，它只处理 .ICO 和 .BMP 文件!

奇怪的是，如果我在设计时将 TImage 放置在表单上并单击其 Picture 属性，则文件加载对话框会显示 .JPG 文件(如果加载一个就会崩溃) - _NOTE_ 这是多年前随计算机杂志赠送的 D7 的“免费供个人使用”版本。

该怎么办？编写我自己的 VCL 组件？或者也许有人已经发明了那个(FOSS)轮子？

Answer 1

新建一个项目，并写入(例如)

procedure TForm1.FormCreate(Sender: TObject);
var
  img: TPicture;
begin
  img := TPicture.Create;
  img.LoadFromFile('C:\Users\Andreas Rejbrand\...\tiles55.jpg');
end;

这将生成“未知的图片文件扩展名 (.jpg)”错误。但是，如果将“Jpeg”添加到 uses 子句中，那么它将起作用。