TFPBaseDitherer

type TFPBaseDitherer = class

protected

  FImage: TFPCustomImage;

  FHashMap: TFPColorHashTable;

  FSorted: Boolean;

  FUseHash: Boolean;

  FUseAlpha: Boolean;

  function ColorCompare();

  function GetColorDinst();

  function SubtractColorInt();

  function SubtractColor();

  procedure InternalDither(); virtual;

  function FindBestColor(); virtual;

  procedure Progress(); virtual;

  procedure SetUseHash(); virtual;

  procedure SetSorted(); virtual;

public

  property OnProgress: TFPDithererProgressEvent; [rw]

  property Palette: TFPPalette; [r]

  property PaletteSorted: Boolean; [rw]

  property UseHashMap: Boolean; [rw]

  property UseAlpha: Boolean; [rw]

  procedure Dither();

  procedure SortPalette; virtual;

  constructor Create(); virtual;

  destructor Destroy; override;

end;

TFPBaseDitherer

TObject