frxdesgnctrls.hpp

编译好的FastReport4.3 只适用于bc6

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'frxDesgnCtrls.pas' rev: 6.00

#ifndef frxDesgnCtrlsHPP
#define frxDesgnCtrlsHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Variants.hpp>	// Pascal unit
#include <frxPictureCache.hpp>	// Pascal unit
#include <frxClass.hpp>	// Pascal unit
#include <ImgList.hpp>	// Pascal unit
#include <ToolWin.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <ExtCtrls.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 <Windows.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Frxdesgnctrls
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TfrxRulerUnits { ruCM, ruInches, ruPixels, ruChars };
#pragma option pop

class DELPHICLASS TfrxRuler;
class PASCALIMPLEMENTATION TfrxRuler : public Extctrls::TPanel 
{
	typedef Extctrls::TPanel inherited;
	
private:
	int FOffset;
	Extended FScale;
	int FStart;
	TfrxRulerUnits FUnits;
	Extended FPosition;
	int FSize;
	void __fastcall SetOffset(const int Value);
	void __fastcall SetScale(const Extended Value);
	void __fastcall SetStart(const int Value);
	void __fastcall SetUnits(const TfrxRulerUnits Value);
	void __fastcall SetPosition(const Extended Value);
	MESSAGE void __fastcall WMEraseBackground(Messages::TMessage &Message);
	void __fastcall SetSize(const int Value);
	
public:
	__fastcall virtual TfrxRuler(Classes::TComponent* AOwner);
	virtual void __fastcall Paint(void);
	
__published:
	__property int Offset = {read=FOffset, write=SetOffset, nodefault};
	__property Extended Scale = {read=FScale, write=SetScale};
	__property int Start = {read=FStart, write=SetStart, nodefault};
	__property TfrxRulerUnits Units = {read=FUnits, write=SetUnits, default=2};
	__property Extended Position = {read=FPosition, write=SetPosition};
	__property int Size = {read=FSize, write=SetSize, nodefault};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TfrxRuler(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfrxRuler(HWND ParentWindow) : Extctrls::TPanel(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxScrollBox;
class PASCALIMPLEMENTATION TfrxScrollBox : public Forms::TScrollBox 
{
	typedef Forms::TScrollBox inherited;
	
protected:
	MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyPress(char &Key);
public:
	#pragma option push -w-inl
	/* TScrollBox.Create */ inline __fastcall virtual TfrxScrollBox(Classes::TComponent* AOwner) : Forms::TScrollBox(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TScrollingWinControl.Destroy */ inline __fastcall virtual ~TfrxScrollBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfrxScrollBox(HWND ParentWindow) : Forms::TScrollBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxCustomSelector;
class PASCALIMPLEMENTATION TfrxCustomSelector : public Extctrls::TPanel 
{
	typedef Extctrls::TPanel inherited;
	
private:
	MESSAGE void __fastcall WMEraseBackground(Messages::TMessage &Message);
	
protected:
	virtual void __fastcall DrawEdge(int X, int Y, bool IsDown) = 0 ;
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	
public:
	virtual void __fastcall Paint(void);
	__fastcall virtual TfrxCustomSelector(Classes::TComponent* AOwner);
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TfrxCustomSelector(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfrxCustomSelector(HWND ParentWindow) : Extctrls::TPanel(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxColorSelector;
class PASCALIMPLEMENTATION TfrxColorSelector : public TfrxCustomSelector 
{
	typedef TfrxCustomSelector inherited;
	
private:
	Graphics::TColor FColor;
	Classes::TNotifyEvent FOnColorChanged;
	
protected:
	virtual void __fastcall DrawEdge(int X, int Y, bool IsDown);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	
public:
	__fastcall virtual TfrxColorSelector(Classes::TComponent* AOwner);
	virtual void __fastcall Paint(void);
	__property Graphics::TColor Color = {read=FColor, write=FColor, nodefault};
	__property Classes::TNotifyEvent OnColorChanged = {read=FOnColorChanged, write=FOnColorChanged};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TfrxColorSelector(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfrxColorSelector(HWND ParentWindow) : TfrxCustomSelector(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxLineSelector;
class PASCALIMPLEMENTATION TfrxLineSelector : public TfrxCustomSelector 
{
	typedef TfrxCustomSelector inherited;
	
private:
	Byte FStyle;
	Classes::TNotifyEvent FOnStyleChanged;
	
protected:
	virtual void __fastcall DrawEdge(int X, int Y, bool IsDown);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	
public:
	__fastcall virtual TfrxLineSelector(Classes::TComponent* AOwner);
	virtual void __fastcall Paint(void);
	__property Byte Style = {read=FStyle, nodefault};
	__property Classes::TNotifyEvent OnStyleChanged = {read=FOnStyleChanged, write=FOnStyleChanged};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TfrxLineSelector(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfrxLineSelector(HWND ParentWindow) : TfrxCustomSelector(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxUndoBuffer;
class PASCALIMPLEMENTATION TfrxUndoBuffer : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Frxpicturecache::TfrxPictureCache* FPictureCache;
	Classes::TList* FRedo;
	Classes::TList* FUndo;
	int __fastcall GetRedoCount(void);
	int __fastcall GetUndoCount(void);
	void __fastcall SetPictureFlag(Frxclass::TfrxReport* Report, bool Flag);
	void __fastcall SetPictures(Frxclass::TfrxReport* Report);
	
public:
	__fastcall TfrxUndoBuffer(void);
	__fastcall virtual ~TfrxUndoBuffer(void);
	void __fastcall AddUndo(Frxclass::TfrxReport* Report);
	void __fastcall AddRedo(Frxclass::TfrxReport* Report);
	void __fastcall GetUndo(Frxclass::TfrxReport* Report);
	void __fastcall GetRedo(Frxclass::TfrxReport* Report);
	void __fastcall ClearUndo(void);
	void __fastcall ClearRedo(void);
	__property int UndoCount = {read=GetUndoCount, nodefault};
	__property int RedoCount = {read=GetRedoCount, nodefault};
	__property Frxpicturecache::TfrxPictureCache* PictureCache = {read=FPictureCache, write=FPictureCache};
};


class DELPHICLASS TfrxClipboard;
class PASCALIMPLEMENTATION TfrxClipboard : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Frxclass::TfrxCustomDesigner* FDesigner;
	Frxpicturecache::TfrxPictureCache* FPictureCache;
	bool __fastcall GetPasteAvailable(void);
	
public:
	__fastcall TfrxClipboard(Frxclass::TfrxCustomDesigner* ADesigner);
	void __fastcall Copy(void);
	void __fastcall Paste(void);
	__property bool PasteAvailable = {read=GetPasteAvailable, nodefault};
	__property Frxpicturecache::TfrxPictureCache* PictureCache = {read=FPictureCache, write=FPictureCache};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TfrxClipboard(void) { }
	#pragma option pop
	
};


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

}	/* namespace Frxdesgnctrls */
using namespace Frxdesgnctrls;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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