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

Previous  Top  Next

    
 

 

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

if Image1.Picture.Graphic is TJPEGImage then

begin

   TJPEGImage(Image1.Picture.Graphic).DIBNeeded;

end;

end;

 

 

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

 

©Drkb::03796

http://delphiworld.narod.ru/

DelphiWorld 6.0