TFPImageFreeTypeDrawer

type TFPImageFreeTypeDrawer = class(TFreeTypeDrawer)

protected

  FImage: TFPCustomImage;

  procedure MoveToPixel(); virtual;

  function GetCurrentColor; virtual;

  procedure SetCurrentColorAndMoveRight(); virtual;

  procedure MoveRight; virtual;

  function GetClipRect; virtual;

  procedure RenderDirectly();

  procedure RenderDirectlyClearType();

  procedure InternalMergeColorOver();

  procedure MergeColorOver();

  procedure DrawPixelAndMoveRight();

  procedure ClearTypePixelAndMoveRight();

  procedure UnclippedDrawPixel();

public

  ClearTypeRGBOrder: Boolean;

  constructor Create(); virtual;

  procedure DrawPixel();

  procedure ClearTypePixel();

  procedure SetVertLine();

  procedure DrawVertLine();

  procedure SetHorizLine();

  procedure DrawHorizLine();

  procedure FillPixels();

  procedure DrawText(); override;

  procedure DrawGlyph(); override;

  destructor Destroy; override;

  property Image: TFPCustomImage; [r]

end;

TFPImageFreeTypeDrawer

TFreeTypeDrawer

TObject