wwdatainspector.hpp

胜天进销存源码,国产优秀的进销存

	__property TwwInspectorCanCollapseEvent OnCanCollapse = {read=FOnCanCollapse, write=FOnCanCollapse};
	__property TwwInspectorExpandedEvent OnExpanded = {read=FOnExpanded, write=FOnExpanded};
	__property TwwInspectorCollapsedEvent OnCollapsed = {read=FOnCollapsed, write=FOnCollapsed};
	__property TwwInspectorItemChanged OnItemChanged = {read=FOnItemChanged, write=FOnItemChanged};
	__property TwwInspectorPaintTextEvent OnCalcDataPaintText = {read=FOnCalcDataPaintText, write=FOnCalcDataPaintText};
	__property TwwInspectorValidationError OnValidationErrorUsingMask = {read=FOnValidationErrorUsingMask, write=FOnValidationErrorUsingMask};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwDataInspector(HWND ParentWindow) : Grids::TCustomGrid(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TwwDataInspectorDataLink : public Db::TDataLink 
{
	typedef Db::TDataLink inherited;
	
private:
	TwwDataInspector* FObjectView;
	bool FInUpdateData;
	bool FModified;
	
protected:
	virtual void __fastcall ActiveChanged(void);
	virtual void __fastcall DataSetChanged(void);
	virtual void __fastcall DataSetScrolled(int Distance);
	virtual void __fastcall FocusControl(Db::TFieldRef Field);
	virtual void __fastcall EditingChanged(void);
	virtual void __fastcall LayoutChanged(void);
	virtual void __fastcall RecordChanged(Db::TField* Field);
	virtual void __fastcall UpdateData(void);
	
public:
	__fastcall TwwDataInspectorDataLink(TwwDataInspector* AObjectView);
	void __fastcall Modified(void);
	void __fastcall Reset(void);
	__property bool isFieldModified = {read=FModified, nodefault};
public:
	#pragma option push -w-inl
	/* TDataLink.Destroy */ inline __fastcall virtual ~TwwDataInspectorDataLink(void) { }
	#pragma option pop
	
};


class DELPHICLASS TwwInspectorPickList;
class PASCALIMPLEMENTATION TwwInspectorPickList : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TStrings* FItems;
	bool FMapped;
	bool FDisplayAsCheckbox;
	Stdctrls::TComboBoxStyle FStyle;
	bool FShowMatchText;
	bool FAllowClearKey;
	Wwframe::TwwComboButtonStyle FButtonStyle;
	Graphics::TBitmap* FButtonGlyph;
	int FButtonWidth;
	void __fastcall SetItems(Classes::TStrings* val);
	void __fastcall SetButtonGlyph(Graphics::TBitmap* Value);
	
protected:
	virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
	
public:
	__fastcall TwwInspectorPickList(void);
	__fastcall virtual ~TwwInspectorPickList(void);
	
__published:
	__property Classes::TStrings* Items = {read=FItems, write=SetItems};
	__property bool MapList = {read=FMapped, write=FMapped, default=0};
	__property Stdctrls::TComboBoxStyle Style = {read=FStyle, write=FStyle, default=0};
	__property bool ShowMatchText = {read=FShowMatchText, write=FShowMatchText, default=1};
	__property bool AllowClearKey = {read=FAllowClearKey, write=FAllowClearKey, default=0};
	__property Wwframe::TwwComboButtonStyle ButtonStyle = {read=FButtonStyle, write=FButtonStyle, default=1};
	__property bool DisplayAsCheckbox = {read=FDisplayAsCheckbox, write=FDisplayAsCheckbox, default=0};
	__property Graphics::TBitmap* ButtonGlyph = {read=FButtonGlyph, write=SetButtonGlyph};
	__property int ButtonWidth = {read=FButtonWidth, write=FButtonWidth, default=0};
};


#pragma option push -b-
enum TwwInspectorItemOption { iioAutoDateTimePicker, iioAutoLookupCombo };
#pragma option pop

typedef Set<TwwInspectorItemOption, iioAutoDateTimePicker, iioAutoLookupCombo>  TwwInspectorItemOptions;

typedef void __fastcall (__closure *TwwInspectorItemNotifyEvent)(TwwDataInspector* Sender, TwwInspectorItem* Item);

class PASCALIMPLEMENTATION TwwInspectorItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	AnsiString FEditText;
	TwwInspectorCollection* FItems;
	bool FReadOnly;
	Controls::TWinControl* FCustomControlName;
	bool FCustomControlAlwaysPaints;
	AnsiString FCaption;
	int FCellHeight;
	AnsiString FDataField;
	Dbctrls::TFieldDataLink* FDataLink;
	bool FExpanded;
	TwwInspectorPickList* FPickList;
	Wwdbedit::TwwDBPicture* FPicture;
	TwwInspectorItem* FParentItem;
	bool FResizeable;
	bool FVisible;
	int FTag;
	AnsiString FTagString;
	TwwInspectorItemOptions FOptions;
	bool FTabStop;
	TwwInspectorItemChanged FItemChanged;
	bool FWordWrap;
	bool FDisableDefaultEditor;
	bool FActiveRecord;
	TwwInspectorItemNotifyEvent FOnEditButtonClick;
	Classes::TAlignment FAlignment;
	bool FCustomControlHighlight;
	bool FEnabled;
	void __fastcall SetItems(TwwInspectorCollection* Value);
	Db::TDataSource* __fastcall GetDataSource(void);
	void __fastcall SetDataSource(Db::TDataSource* Value);
	AnsiString __fastcall GetDataField();
	void __fastcall SetDataField(const AnsiString Value);
	void __fastcall SetCaption(const AnsiString Value);
	Classes::TComponent* __fastcall GetControl(void);
	Db::TField* __fastcall GetField(void);
	void __fastcall SetCellHeight(const int Value);
	int __fastcall GetLevel(void);
	void __fastcall SetCustomControl(Controls::TWinControl* val);
	void __fastcall SetVisible(bool val);
	void __fastcall SetExpanded(bool val);
	bool __fastcall GetChecked(void);
	void __fastcall SetChecked(bool val);
	Db::TDataLink* __fastcall GetDataLink(void);
	AnsiString __fastcall GetDisplayText();
	void __fastcall SetDisplayText(AnsiString val);
	void __fastcall SetEditText(AnsiString val);
	
protected:
	#pragma pack(push,1)
	Types::TPoint ButtonPoint;
	#pragma pack(pop)
	__property Db::TDataLink* DataLink = {read=GetDataLink};
	virtual bool __fastcall HaveItems(void);
	Controls::TControl* __fastcall GetDesigner(void);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	virtual void __fastcall DoItemTextChanged(void);
	bool __fastcall UseDefaultComboBox(void);
	virtual AnsiString __fastcall GetMappedPaintText(AnsiString StoredValue);
	
public:
	__fastcall virtual TwwInspectorItem(Classes::TCollection* Collection);
	__fastcall virtual ~TwwInspectorItem(void);
	bool __fastcall HaveVisibleItem(void);
	virtual AnsiString __fastcall GetDisplayName();
	DYNAMIC AnsiString __fastcall GetNamePath();
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property bool ActiveRecord = {read=FActiveRecord, write=FActiveRecord, nodefault};
	__property Db::TField* Field = {read=GetField};
	__property Classes::TComponent* Control = {read=GetControl};
	__property int Level = {read=GetLevel, nodefault};
	__property TwwInspectorItem* ParentItem = {read=FParentItem, write=FParentItem};
	TwwInspectorItem* __fastcall GetFirstChild(bool VisibleItemsOnly = true, bool ExpandedOnly = false);
	TwwInspectorItem* __fastcall GetLastChild(bool VisibleItemsOnly = true, bool ExpandedOnly = false);
	TwwInspectorItem* __fastcall GetPrior(bool VisibleItemsOnly = true, bool ExpandedOnly = false);
	TwwInspectorItem* __fastcall GetNext(bool VisibleItemsOnly = true, bool ExpandedOnly = false);
	TwwInspectorItem* __fastcall GetNextSibling(bool VisibleItemsOnly = true);
	TwwInspectorItem* __fastcall GetPriorSibling(bool VisibleItemsOnly = true);
	__property bool Checked = {read=GetChecked, write=SetChecked, nodefault};
	__property AnsiString DisplayText = {read=GetDisplayText, write=SetDisplayText};
	
__published:
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__property AnsiString DataField = {read=GetDataField, write=SetDataField};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property int CellHeight = {read=FCellHeight, write=SetCellHeight, default=0};
	__property AnsiString EditText = {read=FEditText, write=SetEditText};
	__property Classes::TAlignment Alignment = {read=FAlignment, write=FAlignment, default=0};
	__property bool ReadOnly = {read=FReadOnly, write=FReadOnly, default=0};
	__property Controls::TWinControl* CustomControl = {read=FCustomControlName, write=SetCustomControl};
	__property bool CustomControlAlwaysPaints = {read=FCustomControlAlwaysPaints, write=FCustomControlAlwaysPaints, default=1};
	__property bool CustomControlHighlight = {read=FCustomControlHighlight, write=FCustomControlHighlight, default=0};
	__property bool Expanded = {read=FExpanded, write=SetExpanded, default=0};
	__property TwwInspectorPickList* PickList = {read=FPickList, write=FPickList};
	__property Wwdbedit::TwwDBPicture* Picture = {read=FPicture, write=FPicture};
	__property bool Resizeable = {read=FResizeable, write=FResizeable, default=0};
	__property TwwInspectorCollection* Items = {read=FItems, write=SetItems, stored=HaveItems};
	__property bool Visible = {read=FVisible, write=SetVisible, default=1};
	__property int Tag = {read=FTag, write=FTag, default=0};
	__property AnsiString TagString = {read=FTagString, write=FTagString};
	__property bool TabStop = {read=FTabStop, write=FTabStop, default=1};
	__property TwwInspectorItemOptions Options = {read=FOptions, write=FOptions, default=1};
	__property bool WordWrap = {read=FWordWrap, write=FWordWrap, nodefault};
	__property bool DisableDefaultEditor = {read=FDisableDefaultEditor, write=FDisableDefaultEditor, default=0};
	__property bool Enabled = {read=FEnabled, write=FEnabled, default=1};
	__property TwwInspectorItemChanged OnItemChanged = {read=FItemChanged, write=FItemChanged};
	__property TwwInspectorItemNotifyEvent OnEditButtonClick = {read=FOnEditButtonClick, write=FOnEditButtonClick};
};


class DELPHICLASS TwwDataInspectorEdit;
class PASCALIMPLEMENTATION TwwDataInspectorEdit : public Grids::TInplaceEdit 
{
	typedef Grids::TInplaceEdit inherited;
	
private:
	Wwdbedit::TwwDBPicture* FwwPicture;
	bool FWordWrap;
	TwwDataInspector* ParentGrid;
	bool FUsePictureMask;
	Controls::TControlCanvas* FCanvas;
	HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMPaste(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMExit(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
	HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
	
protected:
	virtual void __fastcall BoundsChanged(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyPress(char &Key);
	void __fastcall SetWordWrap(bool val);
	virtual void __fastcall UpdateContents(void);
	
public:
	__fastcall virtual TwwDataInspectorEdit(Classes::TComponent* AOwner, int dummy);
	__fastcall virtual ~TwwDataInspectorEdit(void);
	bool __fastcall IsValidPictureValue(AnsiString s);
	bool __fastcall HavePictureMask(void);
	__property Wwdbedit::TwwDBPicture* Picture = {read=FwwPicture, write=FwwPicture};
	__property bool WordWrap = {read=FWordWrap, write=SetWordWrap, nodefault};
	__property Color  = {default=-16777211};
	__property Font ;
public:
	#pragma option push -w-inl
	/* TInplaceEdit.Create */ inline __fastcall virtual TwwDataInspectorEdit(Classes::TComponent* AOwner) : Grids::TInplaceEdit(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwDataInspectorEdit(HWND ParentWindow) : Grids::TInplaceEdit(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TwwInspectorComboBox;
class PASCALIMPLEMENTATION TwwInspectorComboBox : public Wwdbcomb::TwwDBComboBox 
{
	typedef Wwdbcomb::TwwDBComboBox inherited;
	
private:
	TwwDataInspector* Inspector;
	
protected:
	int FClickTime;
	virtual void __fastcall CloseUp(bool Accept);
	DYNAMIC void __fastcall DblClick(void);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	
public:
	virtual void __fastcall DropDown(void);
	__fastcall virtual TwwInspectorComboBox(Classes::TComponent* AOwner);
public:
	#pragma option push -w-inl
	/* TwwDBCustomComboBox.Destroy */ inline __fastcall virtual ~TwwInspectorComboBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwInspectorComboBox(HWND ParentWindow) : Wwdbcomb::TwwDBComboBox(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE void __fastcall Register(void);

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

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