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

Советы » GIF, JPEG, MetaFile » Как подгружать JPG-картинки, но чтобы они быстро отображались

procedure

TForm1.FormCreate(Sender: TObject); begin

if

Image1.Picture.Graphic is

TJPEGImage then

begin

TJPEGImage(Image1.Picture.Graphic).DIBNeeded; end

; end

;

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

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com