mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
35 lines
594 B
ObjectPascal
35 lines
594 B
ObjectPascal
unit uDCTiffImage;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Graphics, FPImage;
|
|
|
|
type
|
|
|
|
{ TTiffImage }
|
|
|
|
TTiffImage = class(Graphics.TTiffImage)
|
|
protected
|
|
class function GetReaderClass: TFPCustomImageReaderClass; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uFPReadTiff;
|
|
|
|
{ TTiffImage }
|
|
|
|
class function TTiffImage.GetReaderClass: TFPCustomImageReaderClass;
|
|
begin
|
|
Result:= TFPReaderTiff;
|
|
end;
|
|
|
|
initialization
|
|
TPicture.UnregisterGraphicClass(Graphics.TTiffImage);
|
|
TPicture.RegisterFileFormat(TTiffImage.GetFileExtensions, 'Tagged Image File Format', TTiffImage);
|
|
end.
|
|
|