wwrcdvw.hpp

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

	Classes::TStrings* FSelected;
	bool FUseTFields;
	Classes::TList* FControlList;
	Classes::TList* FLabelList;
	TwwEditSpacing* FEditSpacing;
	TwwMargin* FMargin;
	Wwtypes::TwwFormPosition* FFormPosition;
	Forms::TFormBorderStyle FBorderStyle;
	Db::TDataLink* FDataLink;
	TwwRecordViewOptions FOptions;
	TwwRecordViewControlOptions FControlOptions;
	TwwRecordViewOKCancelOptions FOKCancelOptions;
	Graphics::TFont* FFont;
	Graphics::TFont* FLabelFont;
	TwwOnBeforeCreateControlEvent FOnBeforeCreateControl;
	TwwOnAfterCreateControlEvent FOnAfterCreateControl;
	TwwOnSetControlEffectsEvent FOnSetControlEffects;
	TwwOnInitFormEvent FOnInitDialog;
	TwwOnInitFormEvent FOnCloseDialog;
	TwwOnInitFormEvent FOnResizeDialog;
	AnsiString FCaption;
	Graphics::TColor FReadOnlyColor;
	TwwRecordViewStyle FStyle;
	Menus::TMainMenu* FMenu;
	Wwdbnavigator::TwwNavButtonNavStylesEx FNavigatorButtons;
	bool FNavigatorFlat;
	Wwdbnavigator::TwwDBNavigator* FNavigator;
	TwwCancelEvent FOnCancelWarning;
	int FLinesPerMemoControl;
	int EditStartOffset;
	int FormWidth;
	int FormHeight;
	TwwCloseAction CloseAction;
	Classes::TList* CustomControlList;
	Classes::TStrings* FControlType;
	bool FControlInfoInDataset;
	Classes::TStrings* FPictureMasks;
	bool FPictureMaskFromDataSet;
	Wwframe::TwwEditFrame* FDefaultEditFrame;
	int FixedEditWidthConst;
	Stdctrls::TLabel* CurLabel;
	void __fastcall SetController(Wwintl::TwwController* Value);
	void __fastcall SetNavParent(Controls::TWinControl* NewParent, bool SaveOld);
	void __fastcall SetDataSource(Db::TDataSource* value);
	Db::TDataSource* __fastcall GetDataSource(void);
	void __fastcall SetLabelFont(Graphics::TFont* val);
	void __fastcall SetFont(Graphics::TFont* val);
	void __fastcall SetNavigator(Wwdbnavigator::TwwDBNavigator* Value);
	bool __fastcall ShowField(Db::TField* field, bool curFieldReadOnly);
	void __fastcall FormShow(System::TObject* Sender);
	void __fastcall FormResize(System::TObject* Sender);
	void __fastcall CreateMainMenu(TwwRecordViewForm* Form, Menus::TMainMenu* mm);
	void __fastcall FormCloseQuery(System::TObject* Sender, bool &CanClose);
	void __fastcall FormClose(System::TObject* Sender, Forms::TCloseAction &Action);
	void __fastcall AddCustomControl(Controls::TWinControl* CustomEdit);
	bool __fastcall IsModified(void);
	bool __fastcall IsCheckBox(Db::TField* curField, AnsiString &checkboxOn, AnsiString &checkboxOff);
	void __fastcall SetPictureMasks(Classes::TStrings* val);
	void __fastcall SetControlType(Classes::TStrings* val);
	void __fastcall InitPictureMask(Controls::TWinControl* EditControl, Db::TField* curField);
	
protected:
	virtual bool __fastcall IsSingleLineEditControl(Controls::TWinControl* EditControl);
	virtual void __fastcall DoOnBeforeCreateControl(TwwRecordViewForm* form, Db::TField* curField, bool &accept);
	virtual void __fastcall DoOnAfterCreateControl(TwwRecordViewForm* form, Db::TField* curField, Controls::TControl* Control);
	virtual void __fastcall DoSetControlEffects(TwwRecordViewForm* form, Db::TField* curfield, Controls::TControl* control, Wwframe::TwwEditFrame* Frame, Wwframe::TwwButtonEffects* ButtonEffects);
	virtual void __fastcall DoInitDialog(TwwRecordViewForm* Form);
	virtual void __fastcall DoCloseDialog(TwwRecordViewForm* Form);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	void __fastcall DisplayVertical(void);
	void __fastcall DisplayHorizontal(void);
	virtual void __fastcall DoCancelWarning(bool &CanClose);
	void __fastcall SetNavigatorVisibleButtons(Dbctrls::TNavButtonSet Value);
	bool __fastcall HasFrame(Controls::TWinControl* Control);
	bool __fastcall HasButtonEffects(Controls::TWinControl* Control);
	bool __fastcall IsControlModified(Controls::TWinControl* Control);
	
public:
	Stdctrls::TButton* OKBtn;
	Stdctrls::TButton* CancelBtn;
	TwwRecordViewForm* RecordViewForm;
	Variant Patch;
	__fastcall virtual TwwRecordViewDialog(Classes::TComponent* AOwner);
	__fastcall virtual ~TwwRecordViewDialog(void);
	virtual Db::TDataSet* __fastcall GetPrimaryDataSet(void);
	virtual bool __fastcall Execute(void);
	virtual void __fastcall OKBtnClick(System::TObject* Sender);
	virtual void __fastcall CancelBtnClick(System::TObject* Sender);
	
__published:
	__property Wwintl::TwwController* Controller = {read=FController, write=SetController};
	__property Classes::TStrings* ControlType = {read=FControlType, write=SetControlType};
	__property bool ControlInfoInDataset = {read=FControlInfoInDataset, write=FControlInfoInDataset, default=1};
	__property bool PictureMaskFromDataSet = {read=FPictureMaskFromDataSet, write=FPictureMaskFromDataSet, default=1};
	__property Classes::TStrings* PictureMasks = {read=FPictureMasks, write=SetPictureMasks};
	__property Wwframe::TwwEditFrame* EditFrame = {read=FDefaultEditFrame, write=FDefaultEditFrame};
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__property TwwEditSpacing* EditSpacing = {read=FEditSpacing, write=FEditSpacing};
	__property TwwMargin* Margin = {read=FMargin, write=FMargin};
	__property Forms::TFormBorderStyle BorderStyle = {read=FBorderStyle, write=FBorderStyle, default=2};
	__property Wwtypes::TwwFormPosition* FormPosition = {read=FFormPosition, write=FFormPosition};
	__property Wwdbnavigator::TwwNavButtonNavStylesEx NavigatorButtons = {read=FNavigatorButtons, write=FNavigatorButtons, nodefault};
	__property Dbctrls::TNavButtonSet NavigatorVisibleButtons = {write=SetNavigatorVisibleButtons, stored=false, nodefault};
	__property TwwRecordViewStyle Style = {read=FStyle, write=FStyle, default=0};
	__property TwwRecordViewOptions Options = {read=FOptions, write=FOptions, default=11832};
	__property TwwRecordViewControlOptions ControlOptions = {read=FControlOptions, write=FControlOptions, nodefault};
	__property TwwRecordViewOKCancelOptions OKCancelOptions = {read=FOKCancelOptions, write=FOKCancelOptions, default=7};
	__property Graphics::TFont* LabelFont = {read=FLabelFont, write=SetLabelFont};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property TwwOnBeforeCreateControlEvent OnBeforeCreateControl = {read=FOnBeforeCreateControl, write=FOnBeforeCreateControl};
	__property TwwOnAfterCreateControlEvent OnAfterCreateControl = {read=FOnAfterCreateControl, write=FOnAfterCreateControl};
	__property TwwOnSetControlEffectsEvent OnSetControlEffects = {read=FOnSetControlEffects, write=FOnSetControlEffects};
	__property TwwOnInitFormEvent OnInitDialog = {read=FOnInitDialog, write=FOnInitDialog};
	__property TwwOnInitFormEvent OnCloseDialog = {read=FOnCloseDialog, write=FOnCloseDialog};
	__property TwwOnInitFormEvent OnResizeDialog = {read=FOnResizeDialog, write=FOnResizeDialog};
	__property AnsiString Caption = {read=FCaption, write=FCaption};
	__property Graphics::TColor ReadOnlyColor = {read=FReadOnlyColor, write=FReadOnlyColor, default=-16777197};
	__property Menus::TMainMenu* Menu = {read=FMenu, write=FMenu};
	__property Classes::TStrings* Selected = {read=FSelected, write=FSelected};
	__property bool NavigatorFlat = {read=FNavigatorFlat, write=FNavigatorFlat, default=0};
	__property Wwdbnavigator::TwwDBNavigator* Navigator = {read=FNavigator, write=SetNavigator};
	__property TwwCancelEvent OnCancelWarning = {read=FOnCancelWarning, write=FOnCancelWarning};
	__property int LinesPerMemoControl = {read=FLinesPerMemoControl, write=FLinesPerMemoControl, default=2};
	
protected:
	virtual Stdctrls::TCustomEdit* __fastcall CreateDefaultEditControl(Classes::TComponent* AOwner);
};


class DELPHICLASS TwwDBCheckBox;
class PASCALIMPLEMENTATION TwwDBCheckBox : public Dbctrls::TDBCheckBox 
{
	typedef Dbctrls::TDBCheckBox inherited;
	
protected:
	DYNAMIC void __fastcall DoEnter(void);
	DYNAMIC void __fastcall DoExit(void);
	
public:
	Stdctrls::TLabel* LabelControl;
public:
	#pragma option push -w-inl
	/* TDBCheckBox.Create */ inline __fastcall virtual TwwDBCheckBox(Classes::TComponent* AOwner) : Dbctrls::TDBCheckBox(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDBCheckBox.Destroy */ inline __fastcall virtual ~TwwDBCheckBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwDBCheckBox(HWND ParentWindow) : Dbctrls::TDBCheckBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TwwLabel;
class PASCALIMPLEMENTATION TwwLabel : public Stdctrls::TLabel 
{
	typedef Stdctrls::TLabel inherited;
	
protected:
	HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
public:
	#pragma option push -w-inl
	/* TCustomLabel.Create */ inline __fastcall virtual TwwLabel(Classes::TComponent* AOwner) : Stdctrls::TLabel(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TGraphicControl.Destroy */ inline __fastcall virtual ~TwwLabel(void) { }
	#pragma option pop
	
};


class DELPHICLASS TwwDBMemo;
class PASCALIMPLEMENTATION TwwDBMemo : public Dbctrls::TDBMemo 
{
	typedef Dbctrls::TDBMemo inherited;
	
protected:
	DYNAMIC void __fastcall KeyDown(Word &key, Classes::TShiftState shift);
public:
	#pragma option push -w-inl
	/* TDBMemo.Create */ inline __fastcall virtual TwwDBMemo(Classes::TComponent* AOwner) : Dbctrls::TDBMemo(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDBMemo.Destroy */ inline __fastcall virtual ~TwwDBMemo(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwDBMemo(HWND ParentWindow) : Dbctrls::TDBMemo(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TwwDBEditMemo;
class PASCALIMPLEMENTATION TwwDBEditMemo : public Wwdbedit::TwwDBCustomEdit 
{
	typedef Wwdbedit::TwwDBCustomEdit inherited;
	
public:
	__fastcall virtual TwwDBEditMemo(Classes::TComponent* AOwner);
	DYNAMIC void __fastcall KeyDown(Word &key, Classes::TShiftState shift);
	
__published:
	__property AutoSize  = {default=1};
	__property BorderStyle  = {default=1};
	__property DataField ;
	__property DataSource ;
	__property Frame ;
public:
	#pragma option push -w-inl
	/* TwwDBCustomEdit.Destroy */ inline __fastcall virtual ~TwwDBEditMemo(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwDBEditMemo(HWND ParentWindow) : Wwdbedit::TwwDBCustomEdit(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TwwCustomControlItem;
class PASCALIMPLEMENTATION TwwCustomControlItem : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	Controls::TWinControl* control;
	int Left;
	int Top;
	int Width;
	int Height;
	Controls::TWinControl* OldParent;
	bool OldVisible;
	bool ButtonFlat;
	bool ButtonTransparent;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwCustomControlItem(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TwwCustomControlItem(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TwwRecordViewForm* wwRecordViewForm;
extern PACKAGE bool __fastcall wwIsCheckBox(Classes::TComponent* Component, Db::TField* curField, AnsiString &checkboxOn, AnsiString &checkboxOff);

}	/* namespace Wwrcdvw */
using namespace Wwrcdvw;
#pragma pack(pop)
#pragma option pop

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