diff options
Diffstat (limited to 'Game/Code/MacOSX/Wrapper/JPEG.pas')
-rw-r--r--[-rwxr-xr-x] | Game/Code/MacOSX/Wrapper/JPEG.pas | 68 |
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. + |