wwrcdvw.hpp

来自「胜天进销存源码,国产优秀的进销存」· HPP 代码 · 共 533 行 · 第 1/2 页

// CodeGear C++Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Wwrcdvw.pas' rev: 11.00

#ifndef WwrcdvwHPP
#define WwrcdvwHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Dbtables.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Wwdbedit.hpp>	// Pascal unit
#include <Wwdatsrc.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Wwcommon.hpp>	// Pascal unit
#include <Dbctrls.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Wwstr.hpp>	// Pascal unit
#include <Wwtypes.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Wwintl.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Typinfo.hpp>	// Pascal unit
#include <Wwmemo.hpp>	// Pascal unit
#include <Wwdbnavigator.hpp>	// Pascal unit
#include <Wwriched.hpp>	// Pascal unit
#include <Wwdblook.hpp>	// Pascal unit
#include <Wwdbdatetimepicker.hpp>	// Pascal unit
#include <Wwdialog.hpp>	// Pascal unit
#include <Wwframe.hpp>	// Pascal unit
#include <Wwradiogroup.hpp>	// Pascal unit
#include <Mask.hpp>	// Pascal unit

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

namespace Wwrcdvw
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TwwRecordViewForm;
class PASCALIMPLEMENTATION TwwRecordViewForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	void __fastcall FormDeactivate(System::TObject* Sender);
	void __fastcall FormActivate(System::TObject* Sender);
	
private:
	bool Deactivated;
	
protected:
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	
public:
	Classes::TComponent* DlgComponent;
	Extctrls::TPanel* RecordPanel;
	Extctrls::TPanel* NavigatorPanel;
	Extctrls::TPanel* ButtonPanel;
	Wwdbnavigator::TwwDBNavigator* Navigator;
	Forms::TScrollBox* ScrollBox;
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TwwRecordViewForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TwwRecordViewForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TwwRecordViewForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwRecordViewForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TwwRecordViewStyle { rvsVertical, rvsHorizontal };
#pragma option pop

#pragma option push -b-
enum TwwRecordViewOption { rvoHideReadOnly, rvoHideCalculated, rvoHideNavigator, rvoUseCustomControls, rvoShortenEditBox, rvoModalForm, rvoStayOnTopForm, rvoConsistentEditWidth, rvoEnterToTab, rvoConfirmCancel, rvoCloseIsCancel, rvoMaximizeMemoWidth, rvoSetControlMinWidth, rvoUseDateTimePicker, rvoLabelsBeneathControl };
#pragma option pop

typedef Set<TwwRecordViewOption, rvoHideReadOnly, rvoLabelsBeneathControl>  TwwRecordViewOptions;

#pragma option push -b-
enum TwwRecordViewControlOption { rvcTransparentLabels, rvcTransparentButtons, rvcFlatButtons };
#pragma option pop

typedef Set<TwwRecordViewControlOption, rvcTransparentLabels, rvcFlatButtons>  TwwRecordViewControlOptions;

#pragma option push -b-
enum TwwRecordViewOKCancelOption { rvokShowOKCancel, rvokAutoPostRec, rvokAutoCancelRec };
#pragma option pop

typedef Set<TwwRecordViewOKCancelOption, rvokShowOKCancel, rvokAutoCancelRec>  TwwRecordViewOKCancelOptions;

#pragma option push -b-
enum TwwCloseAction { rvcOK, rvcCancel, rvcControlMenuClose };
#pragma option pop

typedef Set<TwwCloseAction, rvcOK, rvcControlMenuClose>  TwwCloseActions;

typedef void __fastcall (__closure *TwwCancelEvent)(Forms::TForm* Form, bool &CanClose);

typedef void __fastcall (__closure *TwwOnBeforeCreateControlEvent)(TwwRecordViewForm* Form, Db::TField* curField, bool &Accept);

typedef void __fastcall (__closure *TwwOnAfterCreateControlEvent)(TwwRecordViewForm* Form, Db::TField* curField, Controls::TControl* Control);

typedef void __fastcall (__closure *TwwOnSetControlEffectsEvent)(TwwRecordViewForm* Form, Db::TField* curField, Controls::TControl* Control, Wwframe::TwwEditFrame* Frame, Wwframe::TwwButtonEffects* ButtonEffects);

typedef void __fastcall (__closure *TwwOnInitFormEvent)(TwwRecordViewForm* Form);

typedef void __fastcall (__closure *TwwRecordCustomPaintEvent)(Forms::TScrollBox* Sender, Graphics::TCanvas* Canvas);

class DELPHICLASS TwwMargin;
class PASCALIMPLEMENTATION TwwMargin : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FBottomOffset;
	int FTopOffset;
	int FLeftOffset;
	int FRightOffset;
	void __fastcall SetLeftOffset(int val);
	void __fastcall SetRightOffset(int val);
	void __fastcall SetTopOffset(int val);
	void __fastcall SetBottomOffset(int val);
	
public:
	Classes::TComponent* Owner;
	
__published:
	__property int BottomOffset = {read=FBottomOffset, write=SetBottomOffset, default=5};
	__property int TopOffset = {read=FTopOffset, write=SetTopOffset, default=5};
	__property int LeftOffset = {read=FLeftOffset, write=SetLeftOffset, default=5};
	__property int RightOffset = {read=FRightOffset, write=SetRightOffset, default=5};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwMargin(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwMargin(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TwwVertEditSpacing;
class PASCALIMPLEMENTATION TwwVertEditSpacing : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FBetweenLabelEdit;
	int FBetweenRow;
	void __fastcall SetBetweenLabelEdit(int val);
	void __fastcall SetBetweenRow(int val);
	
public:
	Classes::TComponent* Owner;
	
__published:
	__property int BetweenLabelEdit = {read=FBetweenLabelEdit, write=SetBetweenLabelEdit, default=5};
	__property int BetweenRow = {read=FBetweenRow, write=SetBetweenRow, default=2};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwVertEditSpacing(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwVertEditSpacing(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TwwHorzEditSpacing;
class PASCALIMPLEMENTATION TwwHorzEditSpacing : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FBetweenLabelEdit;
	int FBetweenEditsInRow;
	int FBetweenRow;
	int FLabelIndent;
	void __fastcall SetBetweenEditsInRow(int val);
	void __fastcall SetBetweenLabelEdit(int val);
	void __fastcall SetBetweenRow(int val);
	void __fastcall SetLabelIndent(int val);
	
public:
	Classes::TComponent* Owner;
	
__published:
	__property int BetweenEditsInRow = {read=FBetweenEditsInRow, write=SetBetweenEditsInRow, default=5};
	__property int BetweenLabelEdit = {read=FBetweenLabelEdit, write=SetBetweenLabelEdit, default=1};
	__property int BetweenRow = {read=FBetweenRow, write=SetBetweenRow, default=2};
	__property int LabelIndent = {read=FLabelIndent, write=SetLabelIndent, default=1};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwHorzEditSpacing(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwHorzEditSpacing(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TwwEditSpacing;
class PASCALIMPLEMENTATION TwwEditSpacing : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TwwHorzEditSpacing* FHorizontalView;
	TwwVertEditSpacing* FVerticalView;
	
public:
	__fastcall virtual ~TwwEditSpacing(void);
	
__published:
	__property TwwHorzEditSpacing* HorizontalView = {read=FHorizontalView, write=FHorizontalView};
	__property TwwVertEditSpacing* VerticalView = {read=FVerticalView, write=FVerticalView};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwEditSpacing(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TwwRecordViewDialog;
class PASCALIMPLEMENTATION TwwRecordViewDialog : public Wwdialog::TwwCustomDialog 
{
	typedef Wwdialog::TwwCustomDialog inherited;
	
private:
	Wwintl::TwwController* FController;
	Controls::TWinControl* FOldNavParent;