aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/MacOSX/Wrapper/JPEG.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xGame/Code/MacOSX/Wrapper/JPEG.pas34
1 files changed, 34 insertions, 0 deletions
diff --git a/Game/Code/MacOSX/Wrapper/JPEG.pas b/Game/Code/MacOSX/Wrapper/JPEG.pas
new file mode 100755
index 00000000..b6a90f00
--- /dev/null
+++ b/Game/Code/MacOSX/Wrapper/JPEG.pas
@@ -0,0 +1,34 @@
+unit JPEG;
+
+{$INCLUDE ../Platform.inc}
+
+interface
+
+uses GlueGraphics;
+
+type
+ TJPEGImage = class(TBitmap)
+ private
+ FCompressionQuality : Integer;
+ public
+ Procedure SaveToFile(const f : String); override;
+ property CompressionQuality : Integer read FCompressionQuality write FCompressionQuality;
+ end;
+
+implementation
+
+uses FreeImage;
+
+{ TJPEGImage }
+
+procedure TJPEGImage.SaveToFile(const f: String);
+begin
+ if CompressionQuality = 0 then begin
+ CompressionQuality := 95;
+ end;
+
+ FImage.Save( f, CompressionQuality);
+end;
+
+end.
+