From 52eeec05d021df5334934f50dfafff981cbca33b Mon Sep 17 00:00:00 2001
From: eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 29 Oct 2007 21:40:14 +0000
Subject: Just adding first  MacOSX version. This does not compile yet.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@540 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/MacOSX/Wrapper/JPEG.pas | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100755 Game/Code/MacOSX/Wrapper/JPEG.pas

(limited to 'Game/Code/MacOSX/Wrapper/JPEG.pas')

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.
+ 
-- 
cgit v1.2.3