aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/MacOSX/Wrapper/JPEG.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/MacOSX/Wrapper/JPEG.pas34
1 files changed, 0 insertions, 34 deletions
diff --git a/Game/Code/MacOSX/Wrapper/JPEG.pas b/Game/Code/MacOSX/Wrapper/JPEG.pas
deleted file mode 100644
index e25c193e..00000000
--- a/Game/Code/MacOSX/Wrapper/JPEG.pas
+++ /dev/null
@@ -1,34 +0,0 @@
-unit JPEG;
-
-{$I switches.inc}
-
-interface
-
-uses Graphics;
-
-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.
-