1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

type
  TWriter = class(TObject)
  private
    WOwner : TComponent;
    WDXDraw : TDXDraw;
    WFont : string;
    WSize : integer;
    WFontTable : integer;
    WPatternSkip : integer;
    WWriterImages : TDXImageList;
    WWriterImagePath : string;
    procedure SetFont(sFont : string);
    procedure SetSize(iSize : integer);
    function XDiff(CIdx : integer; Size : integer = 25) : integer;
    function YDiff(CIdx : integer; Size : integer = 25) : integer;
  protected
  public
    procedure Write(text : string; PosX, PosY : integer);
    constructor Create(aForm: TComponent; aDXDraw: TDXDraw);
    procedure SetWriterStyle(sFont : string; iSize : integer);
    property Font : string read WFont write SetFont;
    property Size : integer read WSize write SetSize;
    destructor Destroy;
  end;