[Glxtreem-commits] GLXtreem/Source/GraphicEx GraphicColor.pas,NONE,1.1 GraphicCompression.pas,NONE,1

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/glxtreem/GLXtreem/Source/GraphicEx
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7700/Source/GraphicEx

Added Files:
	GraphicColor.pas GraphicCompression.pas 
	GraphicConfiguration.inc GraphicEx.pas GraphicStrings.pas 
	GraphicStringsDE.pas GraphicStringsFR.pas GraphicStringsRU.pas 
	JPG.pas MZLib.pas 
Log Message:

--- NEW FILE: GraphicColor.pas ---
unit GraphicColor;

// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in compliance
// with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the
// specific language governing rights and limitations under the License.
//
// The original code is GraphicColor.pas, released November 1, 1999.
//
// The initial developer of the original code is Dipl. Ing. Mike Lischke (Pleißa, Germany, www.delphi-gems.com),
//
// Portions created by Dipl. Ing. Mike Lischke are Copyright
// (C) 1999-2003 Dipl. Ing. Mike Lischke. All Rights Reserved.
//----------------------------------------------------------------------------------------------------------------------
// This file is part of the image library GraphicEx.
//
[...4467 lines suppressed...]
begin
  // there must always be at least one value in an open array
  FYCbCrCoefficients[0] := Values[0];
  if High(Values) > 0 then
  begin
    FYCbCrCoefficients[1] := Values[1];
    if High(Values) > 1 then FYCbCrCoefficients[2] := Values[2];
  end;

  // subsampling can be 1, 2 or 4 and vertical subsampling must always be <= horizontal subsampling
  if not (HSubSampling in [1, 2, 4]) then Error(gesInvalidSubSampling);
  if not (VSubSampling in [1, 2, 4]) then Error(gesInvalidSubSampling);
  if VSubSampling > HSubSampling then Error(gesVerticalSubSamplingError);
  FHSubSampling := HSubSampling;
  FVSubSampling := VSubSampling;
end;

//----------------------------------------------------------------------------------------------------------------------

end.

--- NEW FILE: GraphicCompression.pas ---
unit GraphicCompression;

// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in compliance
// with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the
// specific language governing rights and limitations under the License.
//
// The original code is GraphicColor.pas, released November 1, 1999.
//
// The initial developer of the original code is Dipl. Ing. Mike Lischke (Pleißa, Germany, www.delphi-gems.com),
//
// Portions created by Dipl. Ing. Mike Lischke are Copyright
// (C) 1999-2003 Dipl. Ing. Mike Lischke. All Rights Reserved.
//----------------------------------------------------------------------------------------------------------------------
// This file is part of the image library GraphicEx.
//
[...2713 lines suppressed...]
        if Assigned(PCDTable[I]) then FreeMem(PCDTable[I]);
      Dec(PByte(RangeLimit), 255);
      if Assigned(RangeLimit) then FreeMem(RangeLimit);
    end;
  finally
    if Assigned(Buffer) then FreeMem(Buffer);
  end;
end;

//----------------------------------------------------------------------------------------------------------------------

procedure TPCDDecoder.Encode(Source, Dest: Pointer; Count: Cardinal; var BytesStored: Cardinal);

begin
end;

//----------------------------------------------------------------------------------------------------------------------

end.

--- NEW FILE: GraphicConfiguration.inc ---
// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in compliance
// with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the
// specific language governing rights and limitations under the License.
//
// The original code is GraphicColor.pas, released November 1, 1999.
//
// The initial developer of the original code is Dipl. Ing. Mike Lischke (Pleißa, Germany, www.delphi-gems.com),
//
// Portions created by Dipl. Ing. Mike Lischke are Copyright
// (C) 1999-2003 Dipl. Ing. Mike Lischke. All Rights Reserved.
//----------------------------------------------------------------------------------------------------------------------
// This file is part of the image library GraphicEx.
//
// In this configuratin file you can determine which parts of the library are to be compiled.
// This is in particular important for LZW compression code for which Unisys owns a patent.
// If you want to use LZW decoding then you have to make a deal with Unisys. Don't make me
// responsible for using the code.
// Other configuration options include to limit the number of available image formats to
// save memory, if necessary.
//
//----------------------------------------------------------------------------------------------------------------------

{.$define UseLZW} // if this is not defined (default) then neither the GIF format nor the
                  // LZW compression decoder (e.g. for TIFF LZW compression) is available

// Pick your preferred image formats here or leave them all enabled. By disabling
// certain formats which are not of interest you can save some memory.
{$define SGIGraphic}             // *.bw, *.rgb, *.rgba, *.sgi images are supported
{$define AutodeskGraphic}        // *.cel, *.pic images
{$define TIFFGraphic}            // *.tif, *.tiff images
{$define TargaGraphic}           // *.tga, *.vst, *.icb, *.vda, *.win images
{$define PCXGraphic}             // *.pcx, *.pcc, *.scr images
{$define PCDGraphic}             // *.pcd images
{$define PortableMapGraphic}     // *.ppm, *.pgm, *.pbm images
{$define CUTGraphic}             // *.cut (+ *.pal) images
{$define GIFGraphic}             // *.gif images
{$define RLAGraphic}             // *.rla, *.rpf images
{$define PhotoshopGraphic}       // *.psd, *.pdd images
{$define PaintshopProGraphic}    // *.psp images
{$define PortableNetworkGraphic} // *.png images
{$define EPSGraphic}             // *.eps images

// adjust dependent definitions
{$ifndef UseLZW} {$undef GIFGraphic} {$endif}
{$ifndef TIFFGraphic} {$undef EPSGraphic} {$endif}

--- NEW FILE: GraphicEx.pas ---
unit GraphicEx;

// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in compliance
// with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the
// specific language governing rights and limitations under the License.
//
// The original code is GraphicColor.pas, released November 1, 1999.
//
// The initial developer of the original code is Dipl. Ing. Mike Lischke (Pleißa, Germany, www.delphi-gems.com),
//
// Portions created by Dipl. Ing. Mike Lischke are Copyright
// (C) 1999-2003 Dipl. Ing. Mike Lischke. All Rights Reserved.
//----------------------------------------------------------------------------------------------------------------------
//
// GraphicEx -
[...8106 lines suppressed...]
    {$ifdef PaintshopProGraphic} UnregisterFileFormat('', TPSPGraphic); {$endif}
    {$ifdef PhotoshopGraphic} UnregisterFileFormat('', TPSDGraphic); {$endif}
    {$ifdef TargaGraphic} UnregisterFileFormat('', TTargaGraphic); {$endif}
    {$ifdef TIFFGraphic} UnregisterFileFormat('', TTIFFGraphic); {$endif}
    {$ifdef SGIGraphic} UnregisterFileFormat('', TSGIGraphic); {$endif}
    {$ifdef PCXGraphic} UnregisterFileFormat('', TPCXGraphic); {$endif}
    {$ifdef AutodeskGraphic} UnregisterFileFormat('', TAutodeskGraphic); {$endif}
    {$ifdef PCDGraphic} UnregisterFileFormat('', TPCDGraphic); {$endif}
    {$ifdef PortableMapGraphic} UnregisterFileFormat('', TPPMGraphic); {$endif}
    {$ifdef CUTGraphic} UnregisterFileFormat('', TCUTGraphic); {$endif}
    {$ifdef GIFGraphic} UnregisterFileFormat('', TGIFGraphic); {$endif}
    {$ifdef RLAGraphic} UnregisterFileFormat('', TRLAGraphic); {$endif}
    UnregisterFileFormat('rle', TBitmap);
    UnregisterFileFormat('dib', TBitmap);
    {$ifdef PortableNetworkGraphic} UnregisterFileFormat('', TPNGGraphic); {$endif}

    Free;
  end;
end.

--- NEW FILE: GraphicStrings.pas ---
unit GraphicStrings;

// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in compliance
// with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the
// specific language governing rights and limitations under the License.
//
// The original code is GraphicColor.pas, released November 1, 1999.
//
// The initial developer of the original code is Dipl. Ing. Mike Lischke (Pleißa, Germany, www.delphi-gems.com),
//
// Portions created by Dipl. Ing. Mike Lischke are Copyright
// (C) 1999-2003 Dipl. Ing. Mike Lischke. All Rights Reserved.
//----------------------------------------------------------------------------------------------------------------------
// This file is part of the image library GraphicEx.
//
// GraphicStrings contains the strings used in GraphicEx, which could be localized.
//
//----------------------------------------------------------------------------------------------------------------------

interface

{$I GraphicConfiguration.inc}

resourcestring
  // image file descriptions
  gesAllImages = 'All images';
  gesRegistration = 'Attempt to register %s twice.';

  gesBitmaps = 'Windows bitmaps';
  gesRLEBitmaps = 'Run length encoded Windows bitmaps';
  gesDIBs = 'Device independant Windows bitmaps';
  gesEPS = 'Encapsulated Postscript images';
  gesIcons = 'Windows icons';
  gesMetaFiles = 'Windows metafiles';
  gesEnhancedMetaFiles = 'Windows enhanced meta files';
  gesJPGImages = 'JPG images';
  gesJPEGImages = 'JPEG images';
  gesJPEImages = 'JPE images';
  gesJFIFImages = 'JFIF images';
  gesTruevision = 'Truevision images';
  gesTIFF = 'Tagged image file format images';
  gesMacTIFF =  'Macintosh TIFF images';
  gesPCTIF = 'PC TIF images';
  gesGFIFax = 'GFI fax images';
  gesSGI = 'SGI images';
  gesSGITrueColor = 'SGI true color images';
  gesZSoft = 'ZSoft Paintbrush images';
  gesZSoftWord = 'Word 5.x screen capture images';
  gesAliasWaveFront = 'Alias/Wavefront images';
  gesSGITrueColorAlpha = 'SGI true color images with alpha';
  gesSGIMono = 'SGI black/white images';
  gesPhotoshop = 'Photoshop images';
  gesPortable = 'Portable map images';
  gesPortablePixel = 'Portable pixel map images';
  gesPortableGray = 'Portable gray map images';
  gesPortableMono = 'Portable bitmap images';
  gesAutoDesk = 'Autodesk images';
  gesKodakPhotoCD = 'Kodak Photo-CD images';
  gesCompuserve = 'CompuServe images';
  gesHalo = 'Dr. Halo images';
  gesPaintShopPro = 'Paintshop Pro images';
  gesPortableNetworkGraphic = 'Portable network graphic images';

  // image specific error messages
  gesInvalidImage = 'Cannot load image. Invalid or unexpected %s image format.';
  gesInvalidColorFormat = 'Invalid color format in %s file.';
  gesStreamReadError = 'Stream read error in %s file.';
  gesUnsupportedImage = 'Cannot load image. Unsupported %s image format.';
  gesUnsupportedFeature = 'Cannot load image. %s not supported for %s files.';
  gesInvalidCRC = 'Cannot load image. CRC error found in %s file.';
  gesCompression = 'Cannot load image. Compression error found in %s file.';
  gesExtraCompressedData = 'Cannot load image. Extra compressed data found in %s file.';
  gesInvalidPalette = 'Cannot load image. Palette in %s file is invalid.';
  gesUnknownCriticalChunk = 'Cannot load PNG image. Unexpected but critical chunk detected.';

  // features (usually used together with unsupported feature string)
  gesCompressionScheme = 'The compression scheme is';
  gesRLAPixelFormat = 'Image formats other than RGB and RGBA are';
  gesPSPFileType = 'File versions other than 3 or 4 are';

  // color manager error messages
  gesIndexedNotSupported = 'Conversion between indexed and non-indexed pixel formats is not supported.';
  gesConversionUnsupported = 'Color conversion failed. Could not find a proper method.';
  gesInvalidSampleDepth = 'Color depth is invalid. Bits per sample must be 1, 2, 4, 8 or 16.';
  gesInvalidPixelDepth = 'Sample count per pixel does not correspond to the given color scheme.';
  gesInvalidSubSampling = 'Subsampling value is invalid. Allowed are 1, 2 and 4.';
  gesVerticalSubSamplingError = 'Vertical subsampling value must be <= horizontal subsampling value.';

  // progress strings
  gesPreparing = 'Preparing...';
  gesLoadingData = 'Loading data...';
  gesUpsampling = 'Upsampling...';
  gesTransfering = 'Transfering...';

  // compression errors
  gesLZ77Error = 'LZ77 decompression error.';
  gesJPEGEOI = 'JPEG decompression error. Unexpected end of input.';
  gesJPEGStripSize = 'Improper JPEG strip/tile size.';
  gesJPEGComponentCount = 'Improper JPEG component count.';
  gesJPEGDataPrecision = 'Improper JPEG data precision.';
  gesJPEGSamplingFactors = 'Improper JPEG sampling factors.';
  gesJPEGBogusTableField = 'Bogus JPEG tables field.';
  gesJPEGFractionalLine = 'Fractional JPEG scanline unsupported.';

  // miscellaneous
  gesWarning = 'Warning';

//----------------------------------------------------------------------------------------------------------------------

implementation

//----------------------------------------------------------------------------------------------------------------------

end.

--- NEW FILE: GraphicStringsDE.pas ---
unit GraphicStrings;

// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in compliance
// with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the
// specific language governing rights and limitations under the License.
//
// The original code is GraphicColor.pas, released November 1, 1999.
//
// The initial developer of the original code is Dipl. Ing. Mike Lischke (Pleißa, Germany, www.delphi-gems.com),
//
// Portions created by Dipl. Ing. Mike Lischke are Copyright
// (C) 1999-2003 Dipl. Ing. Mike Lischke. All Rights Reserved.
//----------------------------------------------------------------------------------------------------------------------
// This file is part of the image library GraphicEx.
//
// GraphicStrings contains the strings used in GraphicEx which could be localized.
// Rename the file to GraphicStrings.pas to use it as your favourite language file.
//
// This is the german version of GraphicStrings.
//
//----------------------------------------------------------------------------------------------------------------------

interface

{$I GraphicConfiguration.inc}

resourcestring
  // image file descriptions
  gesAllImages = 'Alle Bilder';
  gesRegistration = 'Das Format %s ist schon registriert.';

  gesBitmaps = 'Windows bitmaps';
  gesRLEBitmaps = 'Run length encoded Windows bitmaps';
  gesDIBs = 'Geräteunabhängige Windows bitmaps';
  gesEPS = 'Encapsulated Postscript Bilder';
  gesIcons = 'Windows icons';
  gesMetaFiles = 'Windows metafiles';
  gesEnhancedMetaFiles = 'Windows erweiterte metafiles';
  gesJPGImages = 'JPG Bilder';
  gesJPEGImages = 'JPEG Bilder';
  gesJPEImages = 'JPE Bilder';
  gesJFIFImages = 'JFIF Bilder';
  gesTruevision = 'Truevision Bilder';
  gesTIFF = 'Tagged image file format';
  gesMacTIFF =  'Macintosh TIFF Bilder';
  gesPCTIF = 'PC TIF Bilder';
  gesGFIFax = 'GFI FAX Dateien';
  gesSGI = 'SGI Bilder';
  gesSGITrueColor = 'SGI True Color Bilder';
  gesZSoft = 'ZSoft Paintbrush Bilder';
  gesZSoftWord = 'Word 5.x Snapschuss Bilder';
  gesAliasWaveFront = 'Alias/Wavefront Bilder';
  gesSGITrueColorAlpha = 'SGI True Color Bilder mit Transparenz';
  gesSGIMono = 'SGI schwarz/weiss Bilder';
  gesPhotoshop = 'Photoshop Bilder';
  gesPortable = 'Portable map Bilder';
  gesPortablePixel = 'Portable pixel map Bilder';
  gesPortableGray = 'Portable gray map Bilder';
  gesPortableMono = 'Portable bitmap Bilder';
  gesAutoDesk = 'Autodesk Bilder';
  gesKodakPhotoCD = 'Kodak Photo-CD Bilder';
  gesCompuserve = 'CompuServe Bilder';
  gesHalo = 'Dr. Halo Bilder';
  gesPaintShopPro = 'Paintshop Pro Bilder';
  gesPortableNetworkGraphic = 'Portable network graphic Bilder';

  // image specific error messages
  gesInvalidImage = 'Bild konnte nicht geladen werden. Ungültiges oder unerwartetes %s Bildformat.';
  gesInvalidColorFormat = 'Ungültiges Farbformat in %s Bild.';
  gesStreamReadError = 'Stream Lesefehler in %s Datei.';
  gesUnsupportedImage = 'Bild konnte nicht geladen werden. Nicht unterstütztes %s Bildformat.';
  gesUnsupportedFeature = 'Bild konnte nicht geladen werden. %s nicht unterstützt für %s Dateien.';
  gesInvalidCRC = 'Bild konnte nicht geladen werden. Ein CRC Fehler ist in der %s Datei aufgetreten.';
  gesCompression = 'Bild konnte nicht geladen werden. Kompressionsfehler in %s Datei gefunden.';
  gesExtraCompressedData = 'Bild konnte nicht geladen werden. Zuviele komprimierte Daten in %s Datei gefunden.';
  gesInvalidPalette = 'Bild konnte nicht geladen werden. Palette in %s Datei ist ungültig.';
  gesUnknownCriticalChunk = 'PNG Bild konnte nicht geladen werden. Unerwarteter, aber als kritisch markierter Chunk gefunden.';

  // features (usually used together with unsupported feature string)
  gesCompressionScheme = 'Das Kompressionsformat ist';
  gesRLAPixelFormat = 'Andere Bildformat, als RGB und RGBA werden';
  gesPSPFileType = 'Andere Dateiversionen als 3 or 4 werden';

  // color manager error messages
  gesIndexedNotSupported = 'Konvertierung zwischen indizierten und nicht-indizierten Formaten wird nicht unterstützt.';
  gesConversionUnsupported = 'Farbkonvertierung schlug fehl. Es konnte keine passende Konvertierungsmethode gefunden werden.';
  gesInvalidSampleDepth = 'Farbtiefe ist nicht gültig. Bits pro Sample muss 1, 2, 4, 8 oder 16 sein.';
  gesInvalidPixelDepth = 'Sampleanzahl pro Pixel korrespondiert nicht zum angegebenen Farbschema.';
  gesInvalidSubSampling = 'Subsampling Wert ist ungültig. Erlaubt sind 1, 2 und 4.';
  gesVerticalSubSamplingError = 'Der vertikale Subsampling Wert muss kleiner oder gleich dem horizontalen Wert sein.';

  // progress strings
  gesPreparing = 'Vorbereitung...';
  gesLoadingData = 'Daten werden geladen...';
  gesUpsampling = 'Upsampling...';
  gesTransfering = 'Übertragung...';

  // compression errors
  gesLZ77Error = 'LZ77 Dekompressionsfehler.';
  gesJPEGEOI = 'JPEG Dekompressionsfehler. Unerwartetes Ende der Eingabedaten.';
  gesJPEGStripSize = 'Unpassende JPEG Strip oder Tile Größe.';
  gesJPEGComponentCount = 'Unpassende JPEG Komponentenanzahl';
  gesJPEGDataPrecision = 'Unpassende JPEG Datengenauigkeit.';
  gesJPEGSamplingFactors = 'Unpassende JPEG Samplingfaktoren.';
  gesJPEGBogusTableField = 'Falsches JPEG Tabellenfeld gefunden.';
  gesJPEGFractionalLine = 'Unvollständige JPEG Bildzeilen werden nicht understützt.';

  // miscellaneous
  gesWarning = 'Warnung';

//----------------------------------------------------------------------------------------------------------------------

implementation

//----------------------------------------------------------------------------------------------------------------------

end.

--- NEW FILE: GraphicStringsFR.pas ---
unit GraphicStrings;

// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in compliance
// with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the
// specific language governing rights and limitations under the License.
//
// The original code is GraphicColor.pas, released November 1, 1999.
//
// The initial developer of the original code is Dipl. Ing. Mike Lischke (Pleißa, Germany, www.delphi-gems.com),
//
// Portions created by Dipl. Ing. Mike Lischke are Copyright
// (C) 1999-2003 Dipl. Ing. Mike Lischke. All Rights Reserved.
//----------------------------------------------------------------------------------------------------------------------
// This file is part of the image library GraphicEx.
//
// GraphicStrings contains the strings used in GraphicEx which could be localized.
// Rename the file to GraphicStrings.pas to use it as your favourite language file.
//
// This is the french version of GraphicStrings.
//
//----------------------------------------------------------------------------------------------------------------------

interface

{$I GraphicConfiguration.inc}

resourcestring
  // image file descriptions
  gesAllImages = 'Toutes les images';
  gesRegistration = 'Tentative de re-enregistrement des fichiers %s.';

  gesBitmaps = 'Bitmaps Windows';
  gesRLEBitmaps = 'Bitmaps Windows (Run length encoded)';
  gesDIBs = 'Bitmaps Windows (Device independant)';
  gesEPS = 'Images Postscript Encapsulées';
  gesIcons = 'Icone Windows';
  gesMetaFiles = 'Metafiles Windows';
  gesEnhancedMetaFiles = 'Metafiles Windows améliorés';
  gesJPGImages = 'Images JPG';
  gesJPEGImages = 'Images JPEG';
  gesJPEImages = 'Images JPE images';
  gesJFIFImages = 'Images JFIF images';
  gesTruevision = 'Images Truevision';
  gesTIFF = 'Images Tagged image file format';
  gesMacTIFF =  'Images TIFF Macintosh';
  gesPCTIF = 'Images PC TIF';
  gesGFIFax = 'Images GFI fax';
  gesSGI = 'Images SGI';
  gesSGITrueColor = 'Images SGI true color';
  gesZSoft = 'Images ZSoft Paintbrush';
  gesZSoftWord = 'Capture d''ecrant Word 5.x';
  gesAliasWaveFront = 'Images Alias/Wavefront';
  gesSGITrueColorAlpha = 'Images SGI true color avec canal alpha';
  gesSGIMono = 'Images SGI noir/blanc';
  gesPhotoshop = 'Images Photoshop';
  gesPortable = 'Images Portable map';
  gesPortablePixel = 'Images Portable pixel map';
  gesPortableGray = 'Images Portable gray map';
  gesPortableMono = 'Images Portable bitmap';
  gesAutoDesk = 'Images Autodesk';
  gesKodakPhotoCD = 'Images Kodak Photo-CD';
  gesCompuserve = 'Images CompuServe';
  gesHalo = 'Images Dr. Halo';
  gesPaintShopPro = 'Images Paintshop Pro';
  gesPortableNetworkGraphic = 'Images Portable network graphic';

  // image specific error messages
  gesInvalidImage = 'Ne peux pas charger l''image. Format de fichier %s invalide ou inattendue.';
  gesInvalidColorFormat = 'Format de couleur invalide dans le fichier %s.';
  gesStreamReadError = 'Erreur de lecture de flux dans le fichier %s.';
  gesUnsupportedImage = 'Ne peux pas charger l''image. Format de fichier %s non supporté.';
  gesUnsupportedFeature = 'Ne peux pas charger l''image. %s pas supporté par les fichiers %s.';
  gesInvalidCRC = 'Ne peux pas charger l''image. Erreur de CRC dans le fichier %s.';
  gesCompression = 'Ne peux pas charger l''image. Erreur de compression dans le fichier %s.';
  gesExtraCompressedData = 'Ne peux pas charger l''image. Surplus de données compressé trouvé dans le fichier %s.';
  gesInvalidPalette = 'Ne peux pas charger l''image. La palette du fichier %s est invalide.';
  gesUnknownCriticalChunk = 'Ne peux pas charger l''image PNG. Morceau inattendue, mais critique détecté.';

  // features (usually used together with unsupported feature string)
  gesCompressionScheme = 'Le procédé de compression n''est';
  gesRLAPixelFormat = 'Les format d''images différents de RGB ou RGBA ne sont';
  gesPSPFileType = 'Les fichiers de version différents de 3 ou 4 ne sont';

  // color manager error messages
  gesIndexedNotSupported = 'La conversion entre les formats de pixels indexé et non-indexé n''est pas supportée.';
  gesConversionUnsupported = 'la conversion des couleurs a échoué. Méthode approprié non trouvé.';
  gesInvalidSampleDepth = 'Profondeur des couleurs invalide. Elle doit être de 1, 2, 4, 8, or 16 bits par échantillon.';
  gesInvalidPixelDepth = 'La profondeur des pixels de l''échantillon ne correspond pas au format des couleurs.';
  gesInvalidSubSampling = 'Valeur du sous échantillon est invalide. Les valeurs correctes sont 1, 2 et 4.';
  gesVerticalSubSamplingError = 'La valeur du sous échantillon vertical doit être <= à la valeur du sous échantillon horizontal.';

  // progress strings
  gesPreparing = 'Préparation...';
  gesLoadingData = 'Chargement des données...';
  gesUpsampling = 'Upsampling...';
  gesTransfering = 'Transfert...';

  // compression errors
  gesLZ77Error = 'Erreur de décompressionLZ77.';
  gesJPEGEOI = 'Erreur de décompression JPEG. Fin inattendue des entrées.';
  gesJPEGStripSize = 'Traille strip/tile incorrecte.';
  gesJPEGComponentCount = 'Nombre d''élément JPEG incorrecte.';
  gesJPEGDataPrecision = 'Précision des données JPEG incorrecte.';
  gesJPEGSamplingFactors = 'Echantillon JPEG invalides.';
  gesJPEGBogusTableField = 'Champs de la table JPEG fantôme.';
  gesJPEGFractionalLine = 'Fractional JPEG scanline non supportée.';

  // miscellaneous
  gesWarning = 'Attention';

//----------------------------------------------------------------------------------------------------------------------

implementation

//----------------------------------------------------------------------------------------------------------------------

end.

--- NEW FILE: GraphicStringsRU.pas ---
unit GraphicStrings;

// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in compliance
// with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS" basis,
// WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the
// specific language governing rights and limitations under the License.
//
// The original code is GraphicColor.pas, released November 1, 1999.
//
// The initial developer of the original code is Dipl. Ing. Mike Lischke (Pleißa, Germany, www.delphi-gems.com),
//
// Portions created by Dipl. Ing. Mike Lischke are Copyright
// (C) 1999-2003 Dipl. Ing. Mike Lischke. All Rights Reserved.
//----------------------------------------------------------------------------------------------------------------------
// This file is part of the image library GraphicEx.
//
// GraphicStrings contains the strings used in GraphicEx which could be localized.
// Rename the file to GraphicStrings.pas to use it as your favourite language file.
//
// This is the russian version of GraphicStrings.
//
//----------------------------------------------------------------------------------------------------------------------

interface

{$I GraphicConfiguration.inc}

resourcestring
  // image file descriptions
  gesAllImages = 'Âñå èçîáðàæåíèÿ';
  gesRegistration = 'Ïîïûòêà õàðåãèñòðèðîâàòü %s ôàéëû (äâàæäû).';

  gesBitmaps = 'Windows áèòîâûå êàðòû';
  gesRLEBitmaps = 'Run length çàêîäèðîâàííûå áèòîâûå êàðòû Windows';
  gesDIBs = 'Áèòîâûå êàðòû Windows, íåçàâèñèìûå îò óñòðîéñòâà';
  gesIcons = 'Ïèêòîãðàììû Windows';
  gesMetaFiles = 'Ìåòàôàéëû Windows';
  gesEnhancedMetaFiles = 'Ðàñøèðåííûå ìåòàôàéëû Windows';
  gesJPGImages = 'Èçîáðàæåíèÿ JPG';
  gesJPEGImages = 'Èçîáðàæåíèÿ JPEG';
  gesTruevision = 'Èçîáðàæåíèÿ Truevision';
  gesTIFF = 'Èçîáðàæåíèÿ ôîðìàòà TIFF';
  gesMacTIFF =  'Èçîáðàæåíèÿ TIFF äëÿ Macintosh';
  gesPCTIF = 'PC TIF èçîáðàæåíèÿ';
  gesGFIFax = 'GFI fax images';
  gesSGI = 'Èçîáðàæåíèÿ SGI';
  gesSGITrueColor = 'Ïîëíîöâåòíûå èçîáðàæåíèÿ SGI';
  gesZSoft = 'Èçîáðàæåíèÿ ZSoft Paintbrush';
  gesZSoftWord = 'Ñíèìêè ýêðàíà Word 5.x';
  gesAliasWaveFront = 'Èçîáðàæåíèÿ Alias/Wavefront';
  gesSGITrueColorAlpha = 'Ïîëíîöâåòíûå èçîáðàæåíèÿ SGI ñ àëüôà-êàíàëîì';
  gesSGIMono = '×¸ðíî-áåëûå èçîáðàæåíèÿ SGI';
  gesPhotoshop = 'Èçîáðàæåíèÿ Photoshop';
  gesPortable = 'Èçîáðàæåíèÿ Portable map';
  gesPortablePixel = 'Èçîáðàæåíèÿ Portable pixel map';
  gesPortableGray = 'Èçîáðàæåíèÿ Portable gray map';
  gesPortableMono = 'Èçîáðàæåíèÿ Portable bitmap';
  gesAutoDesk = 'Èçîáðàæåíèÿ Autodesk';
  gesKodakPhotoCD = 'Èçîáðàæåíèÿ Kodak Photo-CD';
  gesCompuserve = 'Èçîáðàæåíèÿ CompuServe';
  gesHalo = 'Èçîáðàæåíèÿ Dr. Halo';
  gesPaintShopPro = 'Èçîáðàæåíèÿ Paintshop Pro';
  gesPortableNetworkGraphic = 'Èçîáðàæåíèÿ Portable network graphic (PNG)';

  // image specific error messages
  gesInvalidImage = 'Íåâîçìîæíî çàãðóæèòü èçîáðàæåíèå. Íåïðàâèëüíûé èëè íåïîääåðæèâàåìûé ôîðìàò èçîáðàæåíèÿ %s.';
  gesInvalidColorFormat = 'Íåïðàâèëüíûé ôîðìàò öâåòà â ôàéëå %s.';
  gesStreamReadError = 'Îøèáêà ÷òåíèÿ èç ïîòîêà â ôàéëå %s.';
  gesUnsupportedImage = 'Íåâîçìîæíî çàãðóæèòü èçîáðàæåíèå. Íåïîääåðæèâàåìûé ôîðìàò èçîáðàæåíèÿ %s.';
  gesUnsupportedFeature = 'Íåâîçìîæíî çàãðóæèòü èçîáðàæåíèå. %s íå ïîääåðæèâàåòñÿ äëÿ ôàéëîâ %s.';
  gesInvalidCRC = 'Íåâîçìîæíî çàãðóæèòü èçîáðàæåíèå. Îøèáêà CRC íàéäåíà â ôàéëû %s.';
  gesCompression = 'Íåâîçìîæíî çàãðóæèòü èçîáðàæåíèå. Îøèáêà ñæàòèÿ â ôàéëå %s.';
  gesExtraCompressedData = 'Íåâîçìîæíî çàãðóæèòü èçîáðàæåíèå. Äîïîëíèòåëüíûå äàííûå íàéäåíû â ôàéëå %s.';
  gesInvalidPalette = 'Íåâîçìîæíî çàãðóæèòü èçîáðàæåíèå. Íåïðàâèëüíàÿ ïàëèòðà â ôàéëå %s.';

  // features (usually used together with unsupported feature string)
  gesCompressionScheme = 'Ñõåìà ñæàòèÿ ';
  gesPCDImageSize = 'Ðàçìåðû èçîáðàæåíèÿ, îòëè÷íûå îò Base16, Base4 or Base ';
  gesRLAPixelFormat = 'Ôîðìàòû èçîáðàæåíèé, îòëè÷íûå îò RGB and RGBA ';
  gesPSPFileType = 'Âåðñèè ôîðìàòà ôàéëà, îòëè÷íûå îò 3é èëè 4é ';

  // errors which apply only to specific image types
  gesUnknownCriticalChunk = 'Íåâîçìîæíî çàãðóçèòü èçîáðàæåíèå PNG. Îáíàðóæåíà íåîæèäàííàÿ, íî êðèòè÷åñêàÿ îøèáêà.';

  // color manager error messages
  gesIndexedNotSupported = 'Êîíâåðñèÿ ìåæäó èíäåêñèðîâàííûìè è íå-èíäåêñèðîâàííûìè ôîðìàòàìè èçîáðàæåíèé íå ïîääåðæèâàåòñÿ.';
  gesConversionUnsupported = 'Öâåòîâàÿ êîíâåðñèÿ íå ïîääåðæèâàåòñÿ. Íå âîçìîæíî íàéòè ïðàâèëüíûé ìåòîä.';
  gesInvalidSampleDepth = 'Íåïðàâèëüíàÿ öâåòîâàÿ ãëóáèíà. Ïîääåðæèâàåòñÿ ãëóáèíà â áèòàõ: 1, 2, 4, 8, or 16.';
  gesInvalidPixelDepth = 'Ãëóáèíà èçîáðàæåíèÿ â áèòàõ íå ïîäõîäèò ê òåêóùåé öâåòîâîé ñõåìå.';

//----------------------------------------------------------------------------------------------------------------------

implementation

//----------------------------------------------------------------------------------------------------------------------

end.

--- NEW FILE: JPG.pas ---
unit JPG;

interface

{$Z4}  // Minimum enum size = dword

uses
  Windows, SysUtils, Classes, Graphics;

type
  TJPGColorDepth = (jpgAuto, jpgGray, jpg8Bit, jpg24Bit);
  TJPEGPixelFormat = (jf24Bit, jf8Bit);

//----------------------------------------------------------------------------------------------------------------------

initialization
  with jpeg_std_error do
  begin
    error_exit := @JpegError;
    emit_message := @EmitMessage;
    output_message := @OutputMessage;
    format_message := @FormatMessage;
    reset_error_mgr := @ResetErrorMgr;
  end;
end.

--- NEW FILE: MZLib.pas ---
unit MZLib;

// Original copyright of the creators:
//
// zlib.H -- interface of the 'zlib' general purpose compression library version 1.1.0, Feb 24th, 1998
//
// Copyright (C) 1995-1998 Jean-loup Gailly and Mark Adler
//
// This software is provided 'as-is', without any express or implied warranty.  In no event will the authors be held
// liable for any damages arising from the use of this software.
//
// Permission is granted to anyone to use this software for any purpose, including commercial applications, and to alter
// it and redistribute it freely, subject to the following restrictions:
// 1. The origin of this software must not be misrepresented; you must not claim that you wrote the original software.
//    If you use this software in a product, an acknowledgment in the product documentation would be appreciated but is
//    not required.
// 2. Altered source versions must be plainly marked as such, and must not be misrepresented as being the original software.
// 3. This notice may not be removed or altered from any Source distribution.
//
[...5705 lines suppressed...]
end;

//----------------------------------------------------------------------------------------------------------------------

function IsInflateSyncPoint(var Z: TZState): Integer;

// Returns 1 if Inflate is currently at the end of a block generated by Z_SYNC_FLUSH or Z_FULL_FLUSH.
// This function is used by one PPP implementation to provide an additional safety Check. PPP uses Z_SYNC_FLUSH but
// removes the length bytes of the resulting empty stored block. When decompressing, PPP checks that at the end of input
// packet, Inflate is waiting for these length bytes.

begin
  if (Z.State = nil) or (Z.State.blocks = nil) then Result := Z_STREAM_ERROR
                                               else Result := Ord(IsInflateBlocksSynchPoint(Z.State.blocks^));
end;

//----------------------------------------------------------------------------------------------------------------------

end.