Как подгружать 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
DelphiWorld 6.0