!=====================================================================================
! Класс для сохранения wmf-файлов в rtf.
! Вячеслав Черников, г.Рязань, 2013г.
!=====================================================================================

FsWmfToRtf   CLASS,TYPE,MODULE('FsWmfToRtf.CLW'),LINK('FsWmfToRtf.CLW')
Active        BYTE,       PRIVATE          !флаг активности

UserPath      STRING(128)   !рабочий каталог пользователя
FileNameRTF   STRING(128)   !имя файла для вывода в RTF
FlagLand      BYTE          !признак печати в ландшафте 

PictRTF         &MyPictRTF   ,PROTECTED    !список картинок для вывода в rtf
PictDetRTF      &MyPictDetRTF,PROTECTED    !образы картинок для вывода в rtf

Init            PROCEDURE              !инициализация класса
Kill            PROCEDURE              !отключение класса
Construct       PROCEDURE              !конструктор
Destruct        PROCEDURE              !деструктор

MakePictRTF     PROCEDURE  (STRING Pict)           !сформировать образ картинки для вывода в RTF
ByteToHex       FUNCTION   (BYTE, BYTE), STRING    !байт в hex 
Save            FUNCTION   (), STRING, PROC        !сохранить в файле
             END