fcimager.hpp

一套及时通讯的原码

	__property Align ;
	__property bool AutoSize = {read=FAutoSize, write=SetAutoSize, nodefault};
	__property TfcBitmapOptions* BitmapOptions = {read=FBitmapOptions, write=FBitmapOptions};
	__property TfcImagerDrawStyle DrawStyle = {read=FDrawStyle, write=SetDrawStyle, nodefault};
	__property bool PreProcess = {read=FPreProcess, write=SetPreProcess, nodefault};
	__property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
	__property bool RespectPalette = {read=GetRespectPalette, write=SetRespectPalette, default=1};
	__property bool ShowFocusRect = {read=FShowFocusRect, write=SetShowFocusRect, default=0};
	__property bool SmoothStretching = {read=GetSmoothStretching, write=SetSmoothStretching, nodefault}
		;
	__property bool Transparent = {read=GetTransparent, write=SetTransparent, nodefault};
	__property Graphics::TColor TransparentColor = {read=GetTransparentColor, write=SetTransparentColor
		, nodefault};
	__property Fcbitmap::TfcBitmap* WorkBitmap = {read=FWorkBitmap};
	__property bool Focusable = {read=FFocusable, write=SetFocusable, default=0};
	__property int TabOrder = {read=FTabOrder, write=SetTabOrder, nodefault};
	__property bool TabStop = {read=FTabStop, write=SetTabStop, default=0};
	__property Controls::TKeyPressEvent OnKeyPress = {read=FOnKeyPress, write=FOnKeyPress};
	__property Controls::TKeyEvent OnKeyDown = {read=FOnKeyDown, write=FOnKeyDown};
	__property Controls::TKeyEvent OnKeyUp = {read=FOnKeyUp, write=FOnKeyUp};
	__property Classes::TNotifyEvent OnEnter = {read=FOnEnter, write=FOnEnter};
	__property Classes::TNotifyEvent OnExit = {read=FOnExit, write=FOnExit};
};


class DELPHICLASS TfcImager;
class PASCALIMPLEMENTATION TfcImager : public TfcCustomImager 
{
	typedef TfcCustomImager inherited;
	
__published:
	__property Align ;
	__property AutoSize ;
	__property BitmapOptions ;
	__property DrawStyle ;
	__property Picture ;
	__property PreProcess ;
	__property RespectPalette ;
	__property SmoothStretching ;
	__property Transparent ;
	__property TransparentColor ;
	__property Visible ;
	__property Focusable ;
	__property Anchors ;
	__property Constraints ;
	__property OnEndDock ;
	__property OnStartDock ;
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnStartDrag ;
	__property TabOrder ;
	__property TabStop ;
	__property OnKeyPress ;
	__property OnKeyDown ;
	__property OnKeyUp ;
public:
	#pragma option push -w-inl
	/* TfcCustomImager.Create */ inline __fastcall virtual TfcImager(Classes::TComponent* AOwner) : TfcCustomImager(
		AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TfcCustomImager.Destroy */ inline __fastcall virtual ~TfcImager(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfcDBCustomImager;
class PASCALIMPLEMENTATION TfcDBCustomImager : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	bool FAutoSize;
	TfcBitmapOptions* FBitmapOptions;
	TfcImagerDrawStyle FDrawStyle;
	bool FPreProcess;
	Fcbitmap::TfcBitmap* FWorkBitmap;
	Graphics::TPicture* FPicture;
	Classes::TList* FChangeLinks;
	bool FRespectPalette;
	bool FTransparent;
	bool FInResized;
	bool __fastcall GetRespectPalette(void);
	bool __fastcall GetSmoothStretching(void);
	bool __fastcall GetTransparent(void);
	Graphics::TColor __fastcall GetTransparentColor(void);
	HIDESBASE void __fastcall SetAutoSize(bool Value);
	void __fastcall SetDrawStyle(TfcImagerDrawStyle Value);
	void __fastcall SetPreProcess(bool Value);
	void __fastcall SetPicture(Graphics::TPicture* Value);
	void __fastcall SetRespectPalette(bool Value);
	void __fastcall SetSmoothStretching(bool Value);
	void __fastcall SetTransparent(bool Value);
	void __fastcall SetTransparentColor(Graphics::TColor Value);
	Windows::TRect __fastcall GetDrawRect(void);
	void __fastcall NotifyChanges(void);
	HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
	
protected:
	virtual void __fastcall BitmapOptionsChange(System::TObject* Sender);
	virtual void __fastcall BitmapChange(System::TObject* Sender);
	virtual void __fastcall UpdateAutoSize(void);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall Paint(void);
	HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
	HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
	virtual void __fastcall CreateWnd(void);
	
public:
	bool UpdatingAutoSize;
	bool InSetBounds;
	Variant Patch;
	__fastcall virtual TfcDBCustomImager(Classes::TComponent* AOwner);
	__fastcall virtual ~TfcDBCustomImager(void);
	virtual bool __fastcall PictureEmpty(void);
	Graphics::TColor __fastcall GetColorAtPoint(int X, int Y);
	virtual void __fastcall Invalidate(void);
	virtual void __fastcall RegisterChanges(Fcchangelink::TfcChangeLink* ChangeLink);
	virtual void __fastcall Resized(void);
	virtual void __fastcall UpdateWorkBitmap(void);
	virtual void __fastcall UnRegisterChanges(Fcchangelink::TfcChangeLink* ChangeLink);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	__property Align ;
	__property bool AutoSize = {read=FAutoSize, write=SetAutoSize, nodefault};
	__property TfcBitmapOptions* BitmapOptions = {read=FBitmapOptions, write=FBitmapOptions};
	__property TfcImagerDrawStyle DrawStyle = {read=FDrawStyle, write=SetDrawStyle, nodefault};
	__property bool PreProcess = {read=FPreProcess, write=SetPreProcess, nodefault};
	__property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
	__property bool RespectPalette = {read=GetRespectPalette, write=SetRespectPalette, default=1};
	__property bool SmoothStretching = {read=GetSmoothStretching, write=SetSmoothStretching, nodefault}
		;
	__property bool Transparent = {read=GetTransparent, write=SetTransparent, nodefault};
	__property Graphics::TColor TransparentColor = {read=GetTransparentColor, write=SetTransparentColor
		, nodefault};
	__property Fcbitmap::TfcBitmap* WorkBitmap = {read=FWorkBitmap};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfcDBCustomImager(HWND ParentWindow) : Controls::TCustomControl(
		ParentWindow) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TfcImagerPictureType { fcptBitmap, fcptJpg, fcptMetafile, fcptIcon };
#pragma option pop

class DELPHICLASS TfcDBImager;
typedef void __fastcall (__closure *TfcCalcPictureTypeEvent)(TfcDBImager* ImageControl, TfcImagerPictureType 
	&PictureType, AnsiString &GraphicClassName);

class PASCALIMPLEMENTATION TfcDBImager : public TfcDBCustomImager 
{
	typedef TfcDBCustomImager inherited;
	
private:
	Dbctrls::TFieldDataLink* FDataLink;
	bool FPictureLoaded;
	bool FAutoDisplay;
	Forms::TFormBorderStyle FBorderStyle;
	TfcImagerPictureType FPictureType;
	TfcCalcPictureTypeEvent FOnCalcPictureType;
	void __fastcall SetPictureType(TfcImagerPictureType Value);
	void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
	MESSAGE void __fastcall CMGetDataLink(Messages::TMessage &Message);
	void __fastcall DataChange(System::TObject* Sender);
	AnsiString __fastcall GetDataField(void);
	Db::TDataSource* __fastcall GetDataSource(void);
	Db::TField* __fastcall GetField(void);
	bool __fastcall GetReadOnly(void);
	void __fastcall SetReadOnly(bool Value);
	void __fastcall UpdateData(System::TObject* Sender);
	void __fastcall SetDataField(const AnsiString Value);
	void __fastcall SetDataSource(Db::TDataSource* Value);
	void __fastcall SetAutoDisplay(bool Value);
	HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
	HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall LoadPicture(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyPress(char &Key);
	DYNAMIC void __fastcall DoExit(void);
	virtual void __fastcall Paint(void);
	virtual void __fastcall BitmapChange(System::TObject* Sender);
	DYNAMIC HPALETTE __fastcall GetPalette(void);
	DYNAMIC bool __fastcall PaletteChanged(bool Foreground);
	
public:
	__fastcall virtual TfcDBImager(Classes::TComponent* AOwner);
	__fastcall virtual ~TfcDBImager(void);
	virtual void __fastcall CopyToClipboard(void);
	virtual void __fastcall PasteFromClipboard(void);
	virtual void __fastcall CutToClipboard(void);
	virtual void __fastcall DoCalcPictureType(TfcImagerPictureType &PictureType, AnsiString &GraphicClassName
		);
	DYNAMIC bool __fastcall ExecuteAction(Classes::TBasicAction* Action);
	DYNAMIC bool __fastcall UpdateAction(Classes::TBasicAction* Action);
	__property Db::TField* Field = {read=GetField};
	
__published:
	__property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
	__property AnsiString DataField = {read=GetDataField, write=SetDataField};
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__property bool AutoDisplay = {read=FAutoDisplay, write=SetAutoDisplay, default=1};
	__property Ctl3D ;
	__property Color ;
	__property ParentCtl3D ;
	__property ParentColor ;
	__property TfcImagerPictureType PictureType = {read=FPictureType, write=SetPictureType, default=0};
		
	__property bool ReadOnly = {read=GetReadOnly, write=SetReadOnly, default=0};
	__property Align ;
	__property AutoSize ;
	__property BitmapOptions ;
	__property DrawStyle ;
	__property PreProcess ;
	__property RespectPalette ;
	__property SmoothStretching ;
	__property Transparent ;
	__property TransparentColor ;
	__property Visible ;
	__property Anchors ;
	__property Constraints ;
	__property OnEndDock ;
	__property OnStartDock ;
	__property OnClick ;
	__property TfcCalcPictureTypeEvent OnCalcPictureType = {read=FOnCalcPictureType, write=FOnCalcPictureType
		};
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnStartDrag ;
	__property TabOrder ;
	__property TabStop ;
	__property OnKeyPress ;
	__property OnKeyDown ;
	__property OnKeyUp ;
	__property OnEnter ;
	__property OnExit ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfcDBImager(HWND ParentWindow) : TfcDBCustomImager(
		ParentWindow) { }
	#pragma option pop
	
};


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

}	/* namespace Fcimager */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Fcimager;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

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