sctrtf.hpp

suite component ace report

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'SctRtf.pas' rev: 4.00

#ifndef SctRtfHPP
#define SctRtfHPP

#pragma delphiheader begin
#pragma option push -w-
#include <PSetup.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Sctrtf
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TSctRtfBorderType { rbtBox, rbtBottom };
#pragma option pop

class DELPHICLASS TSctRtfFont;
class DELPHICLASS TSctRtfFile;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctRtfFont : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FNumber;
	Byte FPitchAndFamily;
	Byte FCharSet;
	AnsiString FName;
	Graphics::TFont* FFont;
	
protected:
	virtual void __fastcall SetFont(Graphics::TFont* f);
	
public:
	__fastcall virtual TSctRtfFont(void);
	__fastcall virtual ~TSctRtfFont(void);
	virtual void __fastcall Assign(System::TObject* f);
	__property int Number = {read=FNumber, write=FNumber, nodefault};
	__property Byte PitchAndFamily = {read=FPitchAndFamily, write=FPitchAndFamily, nodefault};
	__property Byte CharSet = {read=FCharSet, write=FCharSet, nodefault};
	__property AnsiString Name = {read=FName, write=FName};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	void __fastcall WriteFont(TSctRtfFile* RtfFile);
	virtual bool __fastcall FontSame(Graphics::TFont* f);
	virtual bool __fastcall DefinitionSame(Graphics::TFont* f);
	virtual void __fastcall WriteHeader(Classes::TStream* Stream);
};

#pragma pack(pop)

#pragma option push -b-
enum TSctTabAlignment { taLeft, taCenter, taRight };
#pragma option pop

#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctRtfFile : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Classes::TStream* FWriteStream;
	Classes::TStream* FStream;
	Graphics::TFont* FFont;
	TSctRtfFont* FRtfFont;
	Classes::TList* FFontList;
	int FBraceCount;
	Psetup::TSctPageSetup* FPageSetup;
	bool FBorder;
	TSctRtfBorderType FBorderType;
	bool FPageBreak;
	
protected:
	virtual void __fastcall SetRtfFont(TSctRtfFont* f);
	void __fastcall SetFont(Graphics::TFont* f);
	void __fastcall SetPageSetup(Psetup::TSctPageSetup* ps);
	
public:
	__fastcall virtual TSctRtfFile(AnsiString FileName);
	__fastcall virtual ~TSctRtfFile(void);
	virtual void __fastcall AddFont(TSctRtfFont* f);
	virtual void __fastcall StartBorder(void);
	virtual void __fastcall EndBorder(void);
	virtual void __fastcall TextOut(AnsiString Text);
	virtual void __fastcall TextOutStream(Classes::TStream* s);
	__property Classes::TStream* Stream = {read=FStream, write=FStream};
	__property Classes::TStream* WriteStream = {read=FWriteStream, write=FWriteStream};
	virtual void __fastcall WriteFile(void);
	void __fastcall Write(AnsiString Text);
	virtual void __fastcall NewParagraph(void);
	__property Classes::TList* FontList = {read=FFontList, write=FFontList};
	__property TSctRtfFont* RtfFont = {read=FRtfFont, write=SetRtfFont};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	void __fastcall StartFrame(int x, int y, int w, int h);
	void __fastcall EndFrame(void);
	void __fastcall ParagraphDefault(void);
	virtual void __fastcall PushBrace(void);
	virtual void __fastcall PopBrace(void);
	__property int BraceCount = {read=FBraceCount, write=FBraceCount, nodefault};
	virtual void __fastcall DefineTab(int xPos, TSctTabAlignment t);
	virtual void __fastcall Tab(void);
	__property Psetup::TSctPageSetup* PageSetup = {read=FPageSetup, write=SetPageSetup};
	__property bool Border = {read=FBorder, write=FBorder, nodefault};
	__property TSctRtfBorderType BorderType = {read=FBorderType, write=FBorderType, nodefault};
	__property bool PageBreak = {read=FPageBreak, write=FPageBreak, nodefault};
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------

}	/* namespace Sctrtf */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Sctrtf;
#endif
#pragma option pop	// -w-

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// SctRtf