TFPCustomImage

type TFPCustomImage = class(TPersistent)

protected

  procedure SetInternalColor(); virtual;

  function GetInternalColor(); virtual;

  procedure SetInternalPixel(); virtual; abstract;

  function GetInternalPixel(); virtual; abstract;

  procedure SetUsePalette(); virtual;

  procedure Progress(); virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Assign(); override;

  class function FindHandlerFromStream();

  class function FindReaderFromStream();

  class function FindHandlerFromExtension();

  class function FindReaderFromFileName();

  class function FindReaderFromExtension();

  class function FindWriterFromFileName();

  class function FindWriterFromExtension();

  procedure LoadFromStream();

  procedure LoadFromFile();

  procedure SaveToStream();

  procedure SaveToFile();

  procedure SetSize(); virtual;

  property Height: Integer; [rw]

  property Width: Integer; [rw]

  property Colors []: TFPColor; default; [rw]

  property UsePalette: Boolean; [rw]

  property Palette: TFPPalette; [r]

  property Pixels []: Integer; [rw]

  property Extra []: string; [rw]

  property ExtraValue []: string; [rw]

  property ExtraKey []: string; [rw]

  procedure RemoveExtra();

  function ExtraCount;

  property OnProgress: TFPImgProgressEvent; [rw]

end;

TFPCustomImage

TObject