sctrep.hpp

suite component ace report

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

// (DO NOT EDIT: machine generated header) 'SctRep.pas' rev: 3.00

#ifndef SctRepHPP
#define SctRepHPP
#include <Bde.hpp>
#include <DBTables.hpp>
#include <AceDS.hpp>
#include <Db.hpp>
#include <DsgnIntf.hpp>
#include <AceUtil.hpp>
#include <AcePage.hpp>
#include <AceFile.hpp>
#include <AceView.hpp>
#include <AceOut.hpp>
#include <SctUtil.hpp>
#include <SctRtf.hpp>
#include <PSetup.hpp>
#include <Buttons.hpp>
#include <CommDlg.hpp>
#include <Printers.hpp>
#include <SctCtrl.hpp>
#include <SctVar.hpp>
#include <Messages.hpp>
#include <StdCtrls.hpp>
#include <SysUtils.hpp>
#include <Controls.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <Forms.hpp>
#include <Windows.hpp>
#include <SysInit.hpp>
#include <System.hpp>

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

namespace Sctrep
{
//-- type declarations -------------------------------------------------------
typedef Messages::TWMNoParams  TSctUpdateForm;

typedef Messages::TWMNoParams  TSctSetDataLists;

typedef Messages::TWMNoParams  TSctCreatePage;

typedef Messages::TWMNoParams  TSctSelectGroupPage;

typedef Messages::TWMNoParams  TSctDataControl;

typedef Messages::TWMNoParams  TSctDataUpdateVars;

typedef Messages::TWMNoParams  TSctVarChanged;

typedef Messages::TWMNoParams  TGPUpdateVarList;

typedef Messages::TWMNoParams  TSctAddBands;

typedef Messages::TWMNoParams  TSctOverviewReport;

typedef Messages::TWMNoParams  TSctDiagReport;

struct TWMSCTLABEL
{
	Cardinal Msg;
	Word WParam;
	Sctctrl::TSctTextLabel* LB;
	Sctctrl::TSctTextLabel* LB2;
	int Result;
} ;

typedef TWMSCTLABEL  TSctModifyLabel;

typedef Messages::TWMNoParams  TSctCopyReport;

enum SctRep__1 { psArrangeBands, psUpdateVarList, psInsertBand };

typedef Set<SctRep__1, psArrangeBands, psInsertBand>  TSctPageState;

enum TSctOutputType { otNormal, otRichText };

enum TSctStatus { ssBegin, ssEnd, ssPrinting, ssNoWhere, ssGenerating };

class DELPHICLASS TSctPage;
typedef void __fastcall (__closure *TSctOnUpdateStatus)(TSctPage* Page, TSctStatus Stat);

typedef void __fastcall (__closure *TSctDataFilterEvent)(System::TObject* Sender, bool &Result);

enum TSctDataRange { drAllRecords, drSingleRecord };

enum SctRep__2 { gpsPrintHead, gpsPrintPageHead, gpsPrintDetail, gpsPrintPageFoot, gpsPrintFoot, gpsPrintRepeats, 
	gpsPrintGroupHead, gpsPrintGroupFoot, gpsPrintOverLays };

typedef Set<SctRep__2, gpsPrintHead, gpsPrintOverLays>  TSctGroupPageState;

class DELPHICLASS TSctReport;
typedef void __fastcall (__closure *TSctReportPrintEvent)(TSctReport* Report);

class DELPHICLASS TSctBand;
typedef void __fastcall (__closure *TSctBandPrintEvent)(TSctBand* Band);

typedef void __fastcall (__closure *TSctPrintWhenEvent)(TSctBand* Band, bool &Result);

typedef void __fastcall (__closure *TSctPromptPrintEvent)(TSctPage* Page, bool &Result);

enum SctRep__3 { bsPrinting };

typedef Set<SctRep__3, bsPrinting, bsPrinting>  TSctBandState;

class DELPHICLASS TSctGrouppage;
typedef void __fastcall (__closure *TSctOnNewPage)(TSctGrouppage* Page, System::TObject* AceOutput, 
	int PageNum);

typedef void __fastcall (__closure *TSctPageAfterSkipEvent)(TSctGrouppage* Page);

typedef void __fastcall (__closure *TSctOnBeforeNewPage)(TSctPage* Page, bool &DoNewPage);

class DELPHICLASS TSctReserveSpace;
class PASCALIMPLEMENTATION TSctReserveSpace : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Extctrls::TCustomPanel* FBand;
	int FBandCount;
	int FSpace;
	
protected:
	int __fastcall GetReserve(void);
	
public:
	__fastcall virtual TSctReserveSpace(void);
	__fastcall virtual ~TSctReserveSpace(void);
	__property int Reserve = {read=GetReserve, nodefault};
	
__published:
	__property Extctrls::TCustomPanel* Band = {read=FBand, write=FBand};
	__property int BandCount = {read=FBandCount, write=FBandCount, default=1};
	__property int Space = {read=FSpace, write=FSpace, default=0};
};

class PASCALIMPLEMENTATION TSctBand : public Extctrls::TCustomPanel 
{
	typedef Extctrls::TCustomPanel inherited;
	
private:
	Classes::TList* FLabels;
	bool FVisible;
	bool FStretch;
	System::AnsiString FBandName;
	bool FAllowDelete;
	TSctPage* FPage;
	Sctvar::TSctLevel* FUpdateLevel;
	bool FEndPrint;
	bool FFirstPass;
	int FPixelsPerInch;
	TSctPrintWhenEvent FOnPrintWhen;
	int FListPos;
	bool FNewPage;
	bool FNewPageRepeat;
	TSctBandState FBandState;
	bool FContinued;
	Graphics::TBrush* FBrush;
	Graphics::TPen* FPen;
	TSctBorderType FBorderType;
	TSctReserveSpace* FReserveSpace;
	TSctBandPrintEvent FOnBeforePrint;
	TSctBandPrintEvent FOnAfterPrint;
	int FOrder;
	TSctBand* FBand;
	bool FKeepTogether;
	bool FSaveNewPage;
	TAceDestination FSaveOutputDest;
	TAceShadePercent FShade;
	void __fastcall PushDest(void);
	void __fastcall PopDest(void);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	HIDESBASE MESSAGE void __fastcall WMMove(Messages::TWMMove &Message);
	MESSAGE void __fastcall ModifyLabel(TWMSCTLABEL &Message);
	void __fastcall BandDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState 
		State, bool &Accept);
	void __fastcall BandDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
	
protected:
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	int __fastcall GetPrintHeight(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall Paint(void);
	virtual void __fastcall Loaded(void);
	int __fastcall getppi(void);
	bool __fastcall GetPrintOk(void);
	HIDESBASE virtual void __fastcall SetVisible(bool value);
	virtual void __fastcall SetStretch(bool value);
	virtual void __fastcall SetNewPage(bool value);
	virtual void __fastcall SetNewPageRepeat(bool value);
	virtual TSctBand* __fastcall GetMainBand(void);
	virtual void __fastcall SetBorderType(Sctctrl::TSctBorderType bt);
	void __fastcall BeforePrint(void);
	void __fastcall AfterPrint(void);
	MESSAGE void __fastcall MouseMovement(Messages::TWMMouse &Message);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	bool __fastcall DoOnPrintWhen(void);
	virtual void __fastcall SetOrder(int n);
	virtual void __fastcall SetName(const System::AnsiString NewName);
	void __fastcall SetBandName(const System::AnsiString NewName);
	virtual void __fastcall SetShade(Aceutil::TAceShadePercent ShadePercent);
	
public:
	__fastcall virtual TSctBand(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctBand(void);
	void __fastcall InsertLabel(Sctctrl::TSctLabel* oLabel);
	void __fastcall RemoveLabel(Sctctrl::TSctLabel* oLabel);
	void __fastcall Print(TSctPage* oPage);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	void __fastcall SafeDelete(void);
	bool __fastcall GetAllowDelete(void);
	__property bool AllowDelete = {read=FAllowDelete, write=FAllowDelete, nodefault};
	__property bool OkDelete = {read=GetAllowDelete, nodefault};
	__property TSctPage* Page = {read=FPage, write=FPage};
	__property TSctBand* MainBand = {read=GetMainBand};
	__property Classes::TList* Labels = {read=FLabels, write=FLabels};
	__property bool EndPrint = {read=FEndPrint, write=FEndPrint, nodefault};
	__property bool FirstPass = {read=FFirstPass, write=FFirstPass, nodefault};
	void __fastcall StartPrint(void);
	void __fastcall FinishedPrint(void);
	virtual int __fastcall PrintHeight(TSctPage* oPage, int Space);
	__property bool PrintOk = {read=GetPrintOk, nodefault};
	__property TSctBandState BandState = {read=FBandState, write=FBandState, nodefault};
	__property bool Continued = {read=FContinued, write=FContinued, nodefault};
	int __fastcall SpendHeight(TSctPage* oPage, int Space);
	void __fastcall PrintRtf(TSctPage* oPage, Sctrtf::TSctRtfFile* rtf);
	__property Hint ;
	__property HelpContext ;
	__property Cursor ;
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnResize ;
	__property int PHeight = {read=GetPrintHeight, nodefault};
	__property int PixelsPerInch = {read=getppi, write=FPixelsPerInch, nodefault};
	__property int ListPos = {read=FListPos, write=FListPos, nodefault};
	__property Graphics::TBrush* Brush = {read=FBrush, write=FBrush};
	__property Graphics::TPen* Pen = {read=FPen, write=FPen};
	__property int Order = {read=FOrder, write=SetOrder, default=0};
	void __fastcall SetOrderDirect(int n);
	__property TSctBand* Band = {read=FBand, write=FBand};
	
__published:
	__property Color ;
	__property Font ;
	__property ParentColor ;
	__property ParentFont ;
	__property System::AnsiString BandName = {read=FBandName, write=SetBandName};
	__property TSctPrintWhenEvent OnPrintWhen = {read=FOnPrintWhen, write=FOnPrintWhen};
	__property Sctvar::TSctLevel* Updatelevel = {read=FUpdateLevel, write=FUpdateLevel};
	__property bool Visible = {read=FVisible, write=SetVisible, default=1};
	__property bool Stretch = {read=FStretch, write=SetStretch, default=0};
	__property bool NewPage = {read=FNewPage, write=SetNewPage, default=0};
	__property bool NewPageRepeat = {read=FNewPageRepeat, write=SetNewPageRepeat, default=0};
	__property Sctctrl::TSctBorderType BorderType = {read=FBorderType, write=SetBorderType, default=0};
		
	__property TSctReserveSpace* ReserveSpace = {read=FReserveSpace, write=FReserveSpace};
	__property bool KeepTogether = {read=FKeepTogether, write=FKeepTogether, default=0};
	__property TSctBandPrintEvent OnBeforePrint = {read=FOnBeforePrint, write=FOnBeforePrint};
	__property TSctBandPrintEvent OnAfterPrint = {read=FOnAfterPrint, write=FOnAfterPrint};
	__property Aceutil::TAceShadePercent Shade = {read=FShade, write=SetShade, default=0};
public:
	/* TWinControl.CreateParented */ __fastcall TSctBand(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow
		) { }
	
};

class DELPHICLASS TSctGroup;
class PASCALIMPLEMENTATION TSctGroup : public Controls::TControl 
{
	typedef Controls::TControl inherited;
	
private:
	Sctvar::TSctVar* FVariable;
	TSctBand* FHeader;
	TSctBand* FFooter;
	bool FShowHead;
	bool FShowFoot;
	Classes::TNotifyEvent FOnCheckBroken;
	bool FBroken;
	int FLevel;
	System::AnsiString FGroupName;
	bool FAllowDelete;
	Controls::TWinControl* FPage;
	
protected:
	bool __fastcall CheckBroken(void);
	Controls::TWinControl* __fastcall getpage(void);
	void __fastcall SetVariable(Sctvar::TSctVar* MyVar);
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	virtual void __fastcall SetName(const System::AnsiString NewName);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadLevel(Classes::TReader* Reader);
	void __fastcall WriteLevel(Classes::TWriter* Writer);
	
public:
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	__property Controls::TWinControl* Page = {read=getpage, write=FPage};
	__fastcall virtual TSctGroup(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctGroup(void);
	__property bool IsBroken = {read=CheckBroken, nodefault};
	void __fastcall PrintHead(TSctPage* oPage);
	void __fastcall PrintFoot(TSctPage* oPage);
	__property bool Broken = {read=FBroken, write=FBroken, nodefault};
	void __fastcall AddBands(Controls::TWinControl* BandParent);
	void __fastcall DeleteBands(void);
	virtual void __fastcall SetGroupName(System::AnsiString Name);
	virtual void __fastcall SetLevel(int Pos);
	__property System::AnsiString GroupName = {read=FGroupName, write=SetGroupName};
	void __fastcall SafeDelete(void);
	bool __fastcall GetAllowDelete(void);
	__property bool AllowDelete = {read=FAllowDelete, write=FAllowDelete, nodefault};
	__property bool OkDelete = {read=GetAllowDelete, nodefault};
	__property int Level = {read=FLevel, write=SetLevel, nodefault};
	
__published:
	__property Classes::TNotifyEvent OnCheckBroken = {read=FOnCheckBroken, write=FOnCheckBroken};
	__property TSctBand* Header = {read=FHeader, write=FHeader};
	__property TSctBand* Footer = {read=FFooter, write=FFooter};
	__property Sctvar::TSctVar* Variable = {read=FVariable, write=SetVariable};
};

class DELPHICLASS TSctBandHead;
class PASCALIMPLEMENTATION TSctBandHead : public Extctrls::TPanel 
{
	typedef Extctrls::TPanel inherited;
	
private:
	Stdctrls::TLabel* Fnamelabel;
	Extctrls::TPaintBox* FArrow;
	Stdctrls::TCheckBox* Fvisiblecheck;
	Stdctrls::TCheckBox* FNewPageCheck;
	Stdctrls::TCheckBox* FNewPageRepeatCheck;
	Stdctrls::TCheckBox* FStretchCheck;
	
protected:
	DYNAMIC void __fastcall ChangeScale(int M, int D);
	
public:
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	__property Stdctrls::TLabel* NameLabel = {read=Fnamelabel, write=Fnamelabel};
	__property Extctrls::TPaintBox* Arrow = {read=FArrow, write=FArrow};
	__property Stdctrls::TCheckBox* VisibleCheck = {read=Fvisiblecheck, write=Fvisiblecheck};