Coach = class;

Recognion_Coach

TCharacterData = class private fCharData: CharacterData; fCharacter: WideChar; function GetWidth: integer; function GetHeight: integer; public constructor Create(aCharData: CharacterData); overload; constructor Create(ms: TStream); overload; procedure Save(ms: TStream); function ToImage: TBitmap; overload; class function ToImage(data: TByteMatrix): TBitmap; overload; class procedure ToImage(data: TByteMatrix; fileName: string); overload; published property Character: WideChar read fCharacter write fCharacter; property Width: integer read GetWidth; property Height: integer read GetHeight; end;

Recognion_Coach.Coach