minior bug fix

Source/ksBitmapHelper.pas

@@ -2412,6 +2412,7 @@ begin
     bp.Rotate(Angle);
     AStream.Size := 0;
     bp.SaveToStream(AStream, DataType);
+    Result := True;
   finally
     bp.Free;
   end;
@@ -2607,8 +2608,9 @@ function TBitmapCodecMacOS.Rotate(const Extension: string; const Angle: Single;
 //  ColorSpace: CGColorSpaceRef;
 //  bp: TBitmap;
 begin
-//  Result := False;
-  Result := inherited;
+  //未完成
+  Result := False;
+//  inherited;
 
 //  bp := UIImageToBitmap(BitmapSurfaceToMacImage(Bitmap), Angle, TSize.Create(Bitmap.Width, Bitmap.Height));
 //  try
@@ -2654,13 +2656,13 @@ begin
     bp.Rotate(Angle);
     AStream.Size := 0;
     bp.SaveToStream(AStream, DataType);
+    Result := True;
   finally
     bp.Free;
   end;
 end;
 {$ENDIF}
 
-
 {$IFDEF MACOS}
 initialization