Лидеры

Господа, спасибо за участие! zairkz, упростил и немного подправил ваш код, вот что получилось: procedure TSiteExchangerThread.RescalePhoto(const FileName: string); const DefaultHeight = 300; var Bitmap: TBitmap; Thumb: TBitmap; BSS: TBitmapCodecSaveParams; xScale: Double; newWidth, newHeight: integer; begin Bitmap := TBitmap.Create; try try Bitmap.LoadFromFile(FileName); if Bitmap.Height <> DefaultHeight then begin xScale := Bitmap.Height / DefaultHeight; newHeight := DefaultHeight; newWidth := Round(Bitmap.Width / xScale); Thumb := Bitmap.CreateThumbnail(newWidth, newHeight); // далее работаем с Thumb, а не с Bitmap try BSS.Quality := 90; Thumb.SaveToFile(FileName, @BSS); // все менеджеры и surface не нужны, они есть внутри Save-метода finally Thumb.Free; end; end; except DeleteFile(FileName); raise; end; finally Bitmap.Free; end; end; Кстати, весьма удивился, что результат получился нужный: TBitmap.Resize использует тот же самый CreateThumbnail. Единственное отличие - в Resize-методе используется Assign получившегося thumb-а в себя же. А вот в самом assign какие-то непонятные манипуляции со счетчиками ссылок FImage. Имхо, именно здесь и возникает проблема с белым прямоугольником, ибо все остальное - 1:1 уже используемое в методах TBitmap

Знаете! Я снял галки в Multi-Device Preview с Айфон 4 и Айфон5 ни чего не закрывал и проблема пока не появляется))) Если появится я попробую ваш совет

Тема: Новый подход к разработке компонентов FireMonkey в RAD Studio XE8. Часть 2 Дата и время: 10 июня 2015 года в 12:00 Участники: Денис Васильев и Бровин Ярослав Регистрация: ссылка Участие бесплатное Запись вебинара будет доступна здесь: http://www.youtube.com/playlist?list=PLNexYoB7XRWZv-6QviwJzdRKthKuBR_dG В рамках вебинара продолжим знакомство с новым подходом разработки компонентов FireMonkey "Контрол – Модель – Презентация". Создание нативных представлений для iOS. Разберем несколько примеров. В вебинаре примет участие Ярослав Бровин, ведущий разработчик Embarcadero.