Изменение размера изображений в TImageList с помощью сглаживания - PullRequest
Новая
       34

Изменение размера изображений в TImageList с помощью сглаживания

0 голосов
/ 13 марта 2019

Я загружаю изображения, изменяю их размер и вставляю их с помощью следующего кода, найденного в StackOverFlow: 

Navigator.Get(Image, MImage);
MImage.Position := 0;
si := HeaderFooterWithNavigation.ArticlesImages.Source.Add;
si.Name := 'Source' + IntToStr(A);
si.MultiResBitmap.LoadItemFromStream(MImage, 1);
d:=HeaderFooterWithNavigation.ArticlesImages.Destination.Add;
Layer := d.Layers.Add;
Layer.SourceRect.Rect := TRectF.Create(0, 0,
si.MultiResBitmap.Bitmaps[1].Width, si.MultiResBitmap.Bitmaps[1].Height); 
Layer.Name := si.name;

Пока это работает, изображения в моем ListView заканчиваются пикселизацией.Как они могут появиться с антиалиасом?Я использую Delphi 10.2 Rio и работаю с FMX.

...