aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/MacOSX/Wrapper/JPEG.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/MacOSX/Wrapper/JPEG.pas')
-rw-r--r--[-rwxr-xr-x]Game/Code/MacOSX/Wrapper/JPEG.pas68
1 files changed, 34 insertions, 34 deletions
diff --git a/Game/Code/MacOSX/Wrapper/JPEG.pas b/Game/Code/MacOSX/Wrapper/JPEG.pas
index 7419908b..e25c193e 100755..100644
--- a/Game/Code/MacOSX/Wrapper/JPEG.pas
+++ b/Game/Code/MacOSX/Wrapper/JPEG.pas
@@ -1,34 +1,34 @@
-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.
-
+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.
+