sctbtn.hpp

suite component ace report

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

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

#ifndef SctBtnHPP
#define SctBtnHPP
#include <PSetup.hpp>
#include <SctRep.hpp>
#include <Buttons.hpp>
#include <StdCtrls.hpp>
#include <Dialogs.hpp>
#include <Forms.hpp>
#include <Controls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <Messages.hpp>
#include <SysUtils.hpp>
#include <Windows.hpp>
#include <SysInit.hpp>
#include <System.hpp>

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

namespace Sctbtn
{
//-- type declarations -------------------------------------------------------
enum TSctBtnDest { bdPrinter, bdScreen, bdDefault };

enum TSctBtnPrompt { bpPrompt, bpNoPrompt, bpDefault };

enum TSctBtnDataRange { brAllRecords, brSingleRecord, brDefault };

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

class DELPHICLASS TSctReportButton;
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:
	/* TBitBtn.Destroy */ __fastcall virtual ~TSctReportButton(void) { }
	
public:
	/* TWinControl.CreateParented */ __fastcall TSctReportButton(HWND ParentWindow) : Buttons::TBitBtn(
		ParentWindow) { }
	
};

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

}	/* namespace Sctbtn */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Sctbtn;
#endif
//-- end unit ----------------------------------------------------------------
#endif	// SctBtn