Всем добрый день
- столкнулся с такой проблемой не понимаю почему так происходит и как это исправить
Значит так - на форме стоит компонент Image
когда в него из буфера ставишь картинку и свойство Stretch делаешь активным картинка получается безобразным
Нашел в сети другой компонент
Image32 у которого все ок с свойством Stretch но у него нашлась проблема когда мне понадобился изменение размера файла в зависимости от Image.width Image.height
Код:
bmp: TBitmap;
jpeg: TJPEGImage;
begin
image:= TJPEGImage.Create;
bmp:= TBitmap.Create;
jpeg:= TJPEGImage.Create;
BMP.Width:= Image321.Width;
BMP.Height:=Image321.Height;
with bmp.Canvas do
StretchDraw(ClipRect, ТGraphic); //Вот тут проблема так
jpeg.Assign(bmp); //как у компонента нету
jpeg.CompressionQuality:=80; //класса TGraphic
jpeg.Compress;
jpeg.SaveToFile('D:\111.jpg'); С cтандартным компонентом Delphi Image писали так
Код:
StretchDraw(ClipRect, image1.picture.graphic);
и все работало - а как быть тут??
Посоветуйте что нибудь