Как подгружать JPG-картинки, но чтобы они быстро отображались

Материал из DRKB


procedure TForm1.FormCreate(Sender: TObject);
begin
  if Image1.Picture.Graphic is TJPEGImage then
  begin
    TJPEGImage(Image1.Picture.Graphic).DIBNeeded;
  end;
end;


Данный код заставляет явно и сразу декодировать jpeg, вместо того, чтобы делать это при отображении картинки


Source: http://delphiworld.narod.ru/
ID: 03796