Форум: "Media";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];

Вниз

Не работает JPEG.Grayscale:=True;   Найти похожие ветки 

← →
Jimmy   (2007-09-23 14:58) [0]

Почему после вставки в код строки (*) получается jpeg файл размером 0 байт?
        JPEG := TJPEGImage.Create;
        JPEG.Assign(Image1.Picture.Bitmap);
        JPEG.Grayscale:=True; //(*)
        JPEG.SaveToFile("1.jpg");
        JPEG.Free;

---

← →
Lacmus ©   (2007-09-23 19:32) [1]



procedure TJPEGImage.SetGrayscale(Value: Boolean);
begin
 if FGrayscale <> Value then
 begin
   FreeBitmap;    
   FGrayscale := Value;
   PaletteModified := True;
   Changed(Self);
 end;
end;



---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c