PHP DM Gate v0.9 » Не работает JPEG.Grayscale:=True; <span class="vd">[D6, WinXP]</span>

Jimmy (23.09.07 14:58) [0]

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

<Цитата>
Lacmus © (23.09.07 19:32) [1]

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

<Цитата>