Как подгружать JPG-картинки, но чтобы они быстро отображались
procedure TForm1.FormCreate(Sender: TObject);
begin
if Image1.Picture.Graphic is TJPEGImage then
begin
TJPEGImage(Image1.Picture.Graphic).DIBNeeded;
end;
end;
|
Данный код заставляет явно и сразу декодировать jpeg, вместо того, чтобы делать это при отображении
картинки
|