TKMemoRTFFiler

type TKMemoRTFFiler = class(TObject)

protected

  FMemo: TKCustomMemo;

  FStream: TStream;

  FTwipsPerPixelX: Double;

  FTwipsPerPixelY: Double;

public

  constructor Create(); virtual;

  function EMUToPoints(); virtual;

  function PointsToEMU(); virtual;

  function PixelsToTwipsX(); virtual;

  function PixelsToTwipsY(); virtual;

  function TwipsToPixelsX(); virtual;

  function TwipsToPixelsY(); virtual;

end;

TKMemoRTFFiler

TObject