sctbtn.hpp

suite component ace report

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

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

#ifndef SctBtnHPP
#define SctBtnHPP

#pragma delphiheader begin
#pragma option push -w-
#include <PSetup.hpp>	// Pascal unit
#include <SctRep.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Sctbtn
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TSctBtnDest { bdPrinter, bdScreen, bdDefault };
#pragma option pop

#pragma option push -b-
enum TSctBtnPrompt { bpPrompt, bpNoPrompt, bpDefault };
#pragma option pop

#pragma option push -b-
enum TSctBtnDataRange { brAllRecords, brSingleRecord, brDefault };
#pragma option pop

typedef void __fastcall (__closure *TSctOnBeforeRunEvent)(System::TObject* PageSetup);

class DELPHICLASS TSctReportButton;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctReportButton : public Buttons::TBitBtn 
{
	typedef Buttons::TBitBtn inherited;
	
private:
	Sctrep::TSctReport* FReport;
	TSctBtnDest FDestination;
	TSctBtnPrompt FPrompt;
	TSctOnBeforeRunEvent FOnBeforeRun;
	TSctBtnDataRange FDataRange;
	
protected:
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	
public:
	__fastcall virtual TSctReportButton(Classes::TComponent* AOwner);
	DYNAMIC void __fastcall Click(void);
	
__published:
	__property Sctrep::TSctReport* Report = {read=FReport, write=FReport};
	__property TSctBtnDest Destination = {read=FDestination, write=FDestination, nodefault};
	__property TSctBtnPrompt Prompt = {read=FPrompt, write=FPrompt, nodefault};
	__property TSctOnBeforeRunEvent OnBeforeRun = {read=FOnBeforeRun, write=FOnBeforeRun};
	__property TSctBtnDataRange DataRange = {read=FDataRange, write=FDataRange, nodefault};
public:
	#pragma option push -w-inl
	/* TBitBtn.Destroy */ inline __fastcall virtual ~TSctReportButton(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctReportButton(HWND ParentWindow) : Buttons::TBitBtn(
		ParentWindow) { }
	#pragma option pop
	
};

#pragma pack(pop)

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

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

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