| Цитата |
Image := TBitmap.Create; try jpg := TJpegImage.Create; try if ExtractFileExt(LowerCase(FilePath))='.jpg' then begin jpg.LoadFromFile(FilePath); // загружаем изображение из файла Image.Assign(jpg); //тут происходит лёгкая блокировка UI из-за реализации Bitmap.Assign с критическими секциями end; if ExtractFileExt(LowerCase(FilePath))='.bmp' then Image.LoadFromFile(FilePath); //а если расширение .Bmp или .jpEg ? упс - чистая картинка будет // создаем миниатюру FNewImage := TBitmap.Create; try FNewImage.width := 128;//надо SetSize - быстрее FNewImage.Height := 128; FNewImage.pixelFormat:=pf32bit; //перед изменением размера указывайте, быстрее //SetStretchBltMode(FNewImage.canvas.handle, 4);// мягкое растягивание // изменяем размер SetSize(Image.Width, Image.Height, NewWidth, NewHeight); FMask := TBitmap.Create; try FMask.Width := NewWidth; FMask.Height := NewHeight;//надо SetSize - быстрее FMask.Mask(clWhite);//внутри странная реализация, не нравится мне оно в потоке, пробывали выносить? // растягиваем Synchronize(AddToListView1); finally FMask.Free; end; finally FNewImage.Free; end; finally Jpg.Free; end; finally Image.Free; end; end; |
Да и способ на 100% - постепенно выносить из потока в Synchronize фугкция за функцию и вы найдёте то, что ищете
