pageman.hpp

suite component ace report

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

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

#ifndef PageManHPP
#define PageManHPP

#pragma delphiheader begin
#pragma option push -w-
#include <DBTables.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <DsgnIntf.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Grids.hpp>	// Pascal unit
#include <SctRep.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Pageman
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TSctPageManager;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctPageManager : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Extctrls::TPanel* BandPanel;
	Extctrls::TPanel* GroupPanel;
	Extctrls::TPanel* Panel5;
	Stdctrls::TListBox* grouplist;
	Menus::TPopupMenu* GroupListPopup;
	Menus::TMenuItem* GroupDelete;
	Menus::TMenuItem* GroupAdd;
	Menus::TMenuItem* MoveUp;
	Menus::TMenuItem* MoveDown;
	Extctrls::TPanel* Panel1;
	Stdctrls::TLabel* GroupLabel;
	Stdctrls::TLabel* VariableLabel;
	Stdctrls::TLabel* EventLabel;
	Menus::TPopupMenu* BandListPopup;
	Menus::TMenuItem* MoveUp1;
	Menus::TMenuItem* MoveDown1;
	Stdctrls::TListBox* BandList;
	Menus::TMenuItem* AddSubBand1;
	Menus::TMenuItem* AddDataBand1;
	Menus::TMenuItem* AddHeadFoot1;
	Menus::TMenuItem* AddOverlay1;
	Menus::TMenuItem* Delete1;
	Menus::TMenuItem* DataHeader1;
	Menus::TMenuItem* DataFooter1;
	Menus::TMenuItem* PrintFirst1;
	Menus::TMenuItem* PrintLast1;
	Menus::TMenuItem* N1;
	Menus::TMenuItem* N2;
	Extctrls::TPanel* Panel2;
	Stdctrls::TLabel* Label1;
	Stdctrls::TLabel* dslabel;
	Menus::TMenuItem* Above1;
	Menus::TMenuItem* Below1;
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall Button2Click(System::TObject* Sender);
	void __fastcall FormDestroy(System::TObject* Sender);
	void __fastcall grouplistClick(System::TObject* Sender);
	void __fastcall FormShow(System::TObject* Sender);
	void __fastcall addbandClick(System::TObject* Sender);
	void __fastcall subdataaddClick(System::TObject* Sender);
	void __fastcall btnDeleteClick(System::TObject* Sender);
	void __fastcall addheadfootbandClick(System::TObject* Sender);
	void __fastcall AddOverLayClick(System::TObject* Sender);
	void __fastcall GroupAddClick(System::TObject* Sender);
	void __fastcall GroupDeleteClick(System::TObject* Sender);
	void __fastcall MoveUpClick(System::TObject* Sender);
	void __fastcall MoveDownClick(System::TObject* Sender);
	void __fastcall GroupListPopupPopup(System::TObject* Sender);
	void __fastcall grouplistDrawItem(Controls::TWinControl* Control, int Index, const Windows::TRect &
		Rect, Stdctrls::TOwnerDrawState State);
	void __fastcall MoveUp1Click(System::TObject* Sender);
	void __fastcall BandListClick(System::TObject* Sender);
	void __fastcall BandListDrawItem(Controls::TWinControl* Control, int Index, const Windows::TRect &Rect
		, Stdctrls::TOwnerDrawState State);
	void __fastcall BandListDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
	void __fastcall BandListDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState 
		State, bool &Accept);
	void __fastcall BandListPopupPopup(System::TObject* Sender);
	
private:
	Classes::TComponent* FPage;
	Classes::TList* FGroupPosList;
	Dsgnintf::_di_IFormDesigner FPageDesigner;
	Forms::TForm* DataControl;
	bool InDataControl;
	bool InUpdateLists;
	bool InUpdateOutline;
	MESSAGE void __fastcall UpdateForm(Messages::TWMNoParams &Message);
	MESSAGE void __fastcall SelectGroupPage(Messages::TWMNoParams &Message);
	MESSAGE void __fastcall DoDataControl(Messages::TWMNoParams &Message);
	MESSAGE void __fastcall DataUpdateVars(Messages::TWMNoParams &Message);
	MESSAGE void __fastcall VarChanged(Messages::TWMNoParams &Message);
	MESSAGE void __fastcall RunOverReport(Messages::TWMNoParams &Message);
	MESSAGE void __fastcall RunDiagReport(Messages::TWMNoParams &Message);
	void __fastcall RefreshVars(void);
	bool __fastcall ValidMove(Sctrep::TSctBand* BandFrom, Sctrep::TSctBand* BandTo);
	MESSAGE void __fastcall SetDataLists(Messages::TWMNoParams &Message);
	bool __fastcall IsSameLevel(Db::TDataSource* ds, Sctrep::TSctBand* bd);
	int __fastcall GroupIndex(void);
	int __fastcall BandIndex(void);
	
public:
	__property Classes::TComponent* Page = {read=FPage, write=FPage};
	__property Classes::TList* GroupPosList = {read=FGroupPosList, write=FGroupPosList};
	__property Dsgnintf::_di_IFormDesigner PageDesigner = {read=FPageDesigner, write=FPageDesigner};
	void __fastcall DeleteSubDataBandsOf(Sctrep::TSctBand* bd);
	void __fastcall DeleteSubBandsOf(Sctrep::TSctBand* bd);
	void __fastcall UpdateLists(void);
	void __fastcall UpdateOutline(void);
	void __fastcall SubdataDelete(System::TObject* bd);
	void __fastcall SubbandDelete(System::TObject* bd);
	void __fastcall OverlayDelete(System::TObject* bd);
	void __fastcall DataHFDelete(System::TObject* bd);
	void __fastcall DeleteHFBandsOf(System::TObject* bd);
	void __fastcall AddDataLists(const AnsiString S);
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TSctPageManager(Classes::TComponent* AOwner) : Forms::TForm(
		AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TSctPageManager(Classes::TComponent* AOwner, 
		int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TSctPageManager(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctPageManager(HWND ParentWindow) : Forms::TForm(
		ParentWindow) { }
	#pragma option pop
	
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TSctPageManager* SctPageManager;
extern PACKAGE void __fastcall ComponentSelect(Dsgnintf::_di_IFormDesigner fd, Classes::TComponent* 
	comp);
extern PACKAGE AnsiString __fastcall AceGetMethodValue(Classes::TPersistent* Instance, AnsiString MethodName
	, Forms::_di_IDesigner Designer);
extern PACKAGE void __fastcall AceRevertToAncestor(Classes::TPersistent* Instance, Forms::_di_IDesigner 
	Designer);

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

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