wwdbedit.hpp

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

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

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

#ifndef WwdbeditHPP
#define WwdbeditHPP

#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 <Windows.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Wwintl.hpp>	// Pascal unit
#include <Dbctrls.hpp>	// Pascal unit
#include <Mask.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Dbtables.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Wwdatsrc.hpp>	// Pascal unit
#include <Grids.hpp>	// Pascal unit
#include <Wwframe.hpp>	// Pascal unit
#include <Wwtypes.hpp>	// Pascal unit
#include <Clipbrd.hpp>	// Pascal unit

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

namespace Wwdbedit
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TwwValidateEvent)(System::TObject* Sender, bool PassesPictureTest);

#pragma option push -b-
enum TwwEditDataType { wwDefault, wwEdtDate, wwEdtTime, wwEdtDateTime };
#pragma option pop

class DELPHICLASS TwwRegexMask;
class PASCALIMPLEMENTATION TwwRegexMask : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FMask;
	bool FCaseSensitive;
	bool FAllowInvalidExit;
	AnsiString FErrorMessage;
	Classes::TComponent* RelatedComponent;
	void __fastcall SetMask(AnsiString value);
	
public:
	__fastcall TwwRegexMask(Classes::TComponent* Owner);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property AnsiString Mask = {read=FMask, write=SetMask};
	__property bool CaseSensitive = {read=FCaseSensitive, write=FCaseSensitive, default=1};
	__property bool AllowInvalidExit = {read=FAllowInvalidExit, write=FAllowInvalidExit, default=0};
	__property AnsiString ErrorMessage = {read=FErrorMessage, write=FErrorMessage};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwRegexMask(void) { }
	#pragma option pop
	
};


class DELPHICLASS TwwDBPicture;
class PASCALIMPLEMENTATION TwwDBPicture : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FPictureMaskFromDataSet;
	AnsiString FPictureMask;
	bool FAutoFill;
	bool FAllowInvalidExit;
	Classes::TComponent* RelatedComponent;
	void __fastcall FlushToDataset(bool SetMask, bool SetAutoFill, bool SetUsePictureMask);
	void __fastcall SetPictureMask(AnsiString val);
	void __fastcall SetAutoFill(bool val);
	void __fastcall SetAllowInvalidExit(bool val);
	AnsiString __fastcall GetPictureMask();
	bool __fastcall GetAutoFill(void);
	bool __fastcall GetAllowInvalidExit(void);
	
public:
	__fastcall TwwDBPicture(Classes::TComponent* Owner);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	bool __fastcall IsDatasetMask(void);
	
__published:
	__property bool PictureMaskFromDataSet = {read=FPictureMaskFromDataSet, write=FPictureMaskFromDataSet, default=1};
	__property AnsiString PictureMask = {read=GetPictureMask, write=SetPictureMask};
	__property bool AutoFill = {read=GetAutoFill, write=SetAutoFill, default=1};
	__property bool AllowInvalidExit = {read=GetAllowInvalidExit, write=SetAllowInvalidExit, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwDBPicture(void) { }
	#pragma option pop
	
};


class DELPHICLASS TwwCustomMaskEdit;
class PASCALIMPLEMENTATION TwwCustomMaskEdit : public Mask::TCustomMaskEdit 
{
	typedef Mask::TCustomMaskEdit inherited;
	
private:
	TwwDBPicture* FwwPicture;
	TwwRegexMask* FRegexMask;
	bool FWordWrap;
	TwwValidateEvent FOnCheckValue;
	bool FUsePictureMask;
	bool FWantReturns;
	bool FShowVertScrollBar;
	bool DoExitPictureError;
	Wwframe::TwwEditFrame* FFrame;
	bool FMaskStoreLiteralTemplate;
	Wwintl::TwwController* FController;
	Graphics::TColor OrigForeColor;
	Graphics::TColor OrigBackColor;
	HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);
	void __fastcall SetController(Wwintl::TwwController* Value);
	
protected:
	bool ModifiedInKeyPress;
	bool SetModifiedInChangeEvent;
	char __fastcall GetMaskBlank(void);
	virtual bool __fastcall OwnerDraw(void);
	virtual bool __fastcall CustomDraw(void);
	DYNAMIC void __fastcall KeyPress(char &Key);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall EnableEdit(void);
	void __fastcall SetWordWrap(bool val);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	DYNAMIC void __fastcall DoExit(void);
	virtual void __fastcall SetEditRect(void);
	virtual void __fastcall CreateWnd(void);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	bool __fastcall HavePictureMask(void);
	HIDESBASE AnsiString __fastcall RemoveEditFormat(const AnsiString Value);
	virtual void __fastcall DoOnCheckValue(bool Valid);
	void __fastcall SetShowVertScrollBar(bool Value);
	virtual void __fastcall ValidationErrorUsingMask(AnsiString msg);
	
public:
	Variant Patch;
	virtual void __fastcall ApplyValidationColors(bool valid);
	virtual void __fastcall ResetValidationColors(Graphics::TColor ForeColor = (Graphics::TColor)(0x1fffffff), Graphics::TColor BackColor = (Graphics::TColor)(0x1fffffff));
	virtual void __fastcall DoRefreshValidationDisplay(bool valid)/* overload */;
	virtual void __fastcall DoRefreshValidationDisplay(AnsiString input = "")/* overload */;
	bool __fastcall IsValidPictureValue(AnsiString s);
	bool __fastcall IsValidRegexValue(AnsiString s);
	bool __fastcall IsValidPictureMask(AnsiString s);
	bool __fastcall IsValidRegexMask(AnsiString s);
	__fastcall virtual TwwCustomMaskEdit(Classes::TComponent* AOwner);
	__fastcall virtual ~TwwCustomMaskEdit(void);
	void __fastcall ApplyMask(void);
	bool __fastcall Is3DBorder(void);
	bool __fastcall JustHaveLiteralTemplate(void);
	__property bool MaskStoreLiteralTemplate = {read=FMaskStoreLiteralTemplate, write=FMaskStoreLiteralTemplate, default=0};
	__property Wwframe::TwwEditFrame* Frame = {read=FFrame, write=FFrame};
	__property Wwintl::TwwController* Controller = {read=FController, write=SetController};
	__property TwwDBPicture* Picture = {read=FwwPicture, write=FwwPicture};
	__property TwwRegexMask* RegexMask = {read=FRegexMask, write=FRegexMask};
	__property bool WordWrap = {read=FWordWrap, write=SetWordWrap, nodefault};
	__property TwwValidateEvent OnCheckValue = {read=FOnCheckValue, write=FOnCheckValue};
	__property bool UsePictureMask = {read=FUsePictureMask, write=FUsePictureMask, default=1};
	__property bool WantReturns = {read=FWantReturns, write=FWantReturns, nodefault};
	__property bool ShowVertScrollBar = {read=FShowVertScrollBar, write=SetShowVertScrollBar, default=0};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwCustomMaskEdit(HWND ParentWindow) : Mask::TCustomMaskEdit(ParentWindow) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TwwPictureValidationError)(System::TObject* Sender, Db::TField* Field, AnsiString &Msg, bool &DoDefault);

class DELPHICLASS TwwDBCustomEdit;
class PASCALIMPLEMENTATION TwwDBCustomEdit : public TwwCustomMaskEdit 
{
	typedef TwwCustomMaskEdit inherited;
	
private:
	Dbctrls::TFieldDataLink* FDataLink;
	Controls::TControlCanvas* FCanvas;
	Classes::TAlignment FAlignment;
	Classes::TAlignment FUnboundAlignment;
	int FTextMargin;
	AnsiString StartValue;
	bool FAutoFillDate;
	TwwEditDataType FDataType;
	int FEpochYear;
	Wwtypes::TwwEditAlignment FEditAlignment;
	Classes::TNotifyEvent FOnMouseEnter;
	Classes::TNotifyEvent FOnMouseLeave;
	AnsiString FDisplayFormat;
	bool FDisableThemes;
	bool FMouseInControl;
	void __fastcall SetPicture(TwwDBPicture* val);