wwdbigrd.hpp

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

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

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

#ifndef WwdbigrdHPP
#define WwdbigrdHPP

#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 <Sysutils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Dbtables.hpp>	// Pascal unit
#include <Grids.hpp>	// Pascal unit
#include <Dbctrls.hpp>	// Pascal unit
#include <Wwtable.hpp>	// Pascal unit
#include <Wwstr.hpp>	// Pascal unit
#include <Wwdbedit.hpp>	// Pascal unit
#include <Wwtypes.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Wwlocate.hpp>	// Pascal unit
#include <Wwsystem.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Wwriched.hpp>	// Pascal unit
#include <Wwdbdatetimepicker.hpp>	// Pascal unit
#include <Wwpaintoptions.hpp>	// Pascal unit
#include <Mask.hpp>	// Pascal unit

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

namespace Wwdbigrd
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TwwEditControlOption { ecoCheckboxSingleClick, ecoSearchOwnerForm, ecoDisableCustomControls, ecoDisableDateTimePicker, ecoDisableEditorIfReadOnly };
#pragma option pop

typedef Set<TwwEditControlOption, ecoCheckboxSingleClick, ecoDisableEditorIfReadOnly>  TwwEditControlOptions;

#pragma option push -b-
enum TwwDittoDirection { wwDittoPrior, wwDittoNext, wwDittoPriorOrNext };
#pragma option pop

#pragma option push -b-
enum TwwDittoOption { wwdoSkipBlobFields, wwdoSkipReadOnlyFields, wwdoSkipHiddenFields };
#pragma option pop

typedef Set<TwwDittoOption, wwdoSkipBlobFields, wwdoSkipHiddenFields>  TwwDittoOptions;

class DELPHICLASS TwwDittoAttributes;
class PASCALIMPLEMENTATION TwwDittoAttributes : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TwwDittoDirection FDittoDirection;
	Classes::TShortCut FShortCutDittoField;
	Classes::TShortCut FShortCutDittoRecord;
	TwwDittoOptions FOptions;
	
__published:
	__property TwwDittoDirection DittoDirection = {read=FDittoDirection, write=FDittoDirection, default=0};
	__property Classes::TShortCut ShortCutDittoField = {read=FShortCutDittoField, write=FShortCutDittoField, default=0};
	__property Classes::TShortCut ShortCutDittoRecord = {read=FShortCutDittoRecord, write=FShortCutDittoRecord, default=0};
	__property TwwDittoOptions Options = {read=FOptions, write=FOptions, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwDittoAttributes(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwDittoAttributes(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TwwGridHintWindow;
class PASCALIMPLEMENTATION TwwGridHintWindow : public Controls::THintWindow 
{
	typedef Controls::THintWindow inherited;
	
protected:
	virtual void __fastcall Paint(void);
	
public:
	Db::TField* Field;
	bool WordWrap;
	Classes::TAlignment Alignment;
public:
	#pragma option push -w-inl
	/* THintWindow.Create */ inline __fastcall virtual TwwGridHintWindow(Classes::TComponent* AOwner) : Controls::THintWindow(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TwwGridHintWindow(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwGridHintWindow(HWND ParentWindow) : Controls::THintWindow(ParentWindow) { }
	#pragma option pop
	
};


struct TwwTitleImageAttributes
{
	
public:
	int ImageIndex;
	Classes::TAlignment Alignment;
	int Margin;
	bool IsGroupHeader;
} ;

typedef void __fastcall (__closure *TTitleButtonClickEvent)(System::TObject* Sender, AnsiString AFieldName);

typedef void __fastcall (__closure *TCalcCellColorsEvent)(System::TObject* Sender, Db::TField* Field, Grids::TGridDrawState State, bool Highlight, Graphics::TFont* AFont, Graphics::TBrush* ABrush);

typedef void __fastcall (__closure *TCalcTitleAttributesEvent)(System::TObject* Sender, AnsiString AFieldName, Graphics::TFont* AFont, Graphics::TBrush* ABrush, Classes::TAlignment &ATitleAlignment);

typedef void __fastcall (__closure *TwwDrawTitleCellEvent)(System::TObject* Sender, Graphics::TCanvas* Canvas, Db::TField* Field, const Types::TRect &Rect, bool &DefaultDrawing);

typedef void __fastcall (__closure *TwwDrawGroupHeaderCellEvent)(System::TObject* Sender, Graphics::TCanvas* Canvas, AnsiString GroupHeaderName, const Types::TRect &Rect, bool &DefaultDrawing);

typedef void __fastcall (__closure *TwwCalcTitleImageEvent)(System::TObject* Sender, Db::TField* Field, TwwTitleImageAttributes &TitleImageAttributes);

typedef void __fastcall (__closure *TDrawFooterCellEvent)(System::TObject* Sender, Graphics::TCanvas* Canvas, const Types::TRect &FooterCellRect, Db::TField* Field, AnsiString FooterText, bool &DefaultDrawing);

typedef void __fastcall (__closure *TColWidthChangedEvent)(System::TObject* Sender, int Column);

typedef void __fastcall (__closure *TAllowColResizeEvent)(System::TObject* Sender, int Column, bool &Accept);

typedef void __fastcall (__closure *TwwLeftColChangedEvent)(System::TObject* Sender, int NewLeftCol);

typedef void __fastcall (__closure *TwwCreateGridHintWindowEvent)(System::TObject* Sender, TwwGridHintWindow* HintWindow, Db::TField* AField, const Types::TRect &R, bool &WordWrap, int &MaxWidth, int &MaxHeight, bool &DoDefault);

#pragma option push -b-
enum TwwMultiSelectOption { msoAutoUnselect, msoShiftSelect };
#pragma option pop

typedef Set<TwwMultiSelectOption, msoAutoUnselect, msoShiftSelect>  TwwMultiSelectOptions;

typedef void __fastcall (__closure *TwwFieldChangedEvent)(System::TObject* Sender, Db::TField* Field);

class DELPHICLASS TwwGridDataLink;
class DELPHICLASS TwwCustomDBGrid;
typedef void __fastcall (__closure *TwwDittoEvent)(System::TObject* Sender, Db::TDataSet* DataSet, Db::TField* Field, AnsiString &DittoValue, bool &AllowDitto);

class DELPHICLASS TwwGridLineColors;
class PASCALIMPLEMENTATION TwwGridLineColors : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TColor FDataColor;
	Graphics::TColor FHighlightColor;
	Graphics::TColor FShadowColor;
	Graphics::TColor FFixedColor;
	
__published:
	__property Graphics::TColor DataColor = {read=FDataColor, write=FDataColor, default=12632256};
	__property Graphics::TColor HighlightColor = {read=FHighlightColor, write=FHighlightColor, default=-16777196};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=FShadowColor, default=-16777200};
	__property Graphics::TColor FixedColor = {read=FFixedColor, write=FFixedColor, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwGridLineColors(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwGridLineColors(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


#pragma option push -b-
enum TwwDBGridOption { dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgMultiSelect, dgShowFooter, dgFooter3DCells, dgNoLimitColSize, dgTrailingEllipsis, dgShowCellHint, dgTabExitsOnLastCol, dgFixedResizable, dgFixedEditable, dgProportionalColResize, dgRowResize, dgRowLinesDisableFixed, dgColLinesDisableFixed, dgFixedProportionalResize, dgHideBottomDataLine, dgDblClickColSizing };
#pragma option pop

typedef Set<TwwDBGridOption, dgEditing, dgDblClickColSizing>  TwwDBGridOptions;

#pragma option push -b-
enum TwwDBGridKeyOption { dgEnterToTab, dgAllowDelete, dgAllowInsert };
#pragma option pop

typedef Set<TwwDBGridKeyOption, dgEnterToTab, dgAllowInsert>  TwwDBGridKeyOptions;

typedef void __fastcall (__closure *TwwDrawDataCellEvent)(System::TObject* Sender, const Types::TRect &Rect, Db::TField* Field, Grids::TGridDrawState State);

#pragma option push -b-
enum TIndicatorColorType { icBlack, icYellow };
#pragma option pop

class DELPHICLASS TwwIButton;
class PASCALIMPLEMENTATION TwwIButton : public Buttons::TSpeedButton 
{
	typedef Buttons::TSpeedButton inherited;
	
public:
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall Paint(void);
public:
	#pragma option push -w-inl
	/* TSpeedButton.Create */ inline __fastcall virtual TwwIButton(Classes::TComponent* AOwner) : Buttons::TSpeedButton(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSpeedButton.Destroy */ inline __fastcall virtual ~TwwIButton(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TwwGridURLOpenEvent)(System::TObject* Sender, AnsiString &URLLink, Db::TField* Field, bool &UseDefault);

class DELPHICLASS TwwColumn;
class PASCALIMPLEMENTATION TwwColumn : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString FFieldName;
	TwwCustomDBGrid* Grid;
	AnsiString FFooterValue;
	AnsiString FGroupName;
	bool FDisableSizing;
	bool __fastcall GetReadOnly(void);
	AnsiString __fastcall GetDisplayLabel();
	int __fastcall GetDisplayWidth(void);
	AnsiString __fastcall GetGroupName();
	void __fastcall SetReadOnly(bool val);
	void __fastcall SetDisplayLabel(AnsiString val);
	void __fastcall SetDisplayWidth(int val);
	void __fastcall SetFooterValue(AnsiString val);
	void __fastcall SetGroupName(AnsiString val);
	
public:
	Sysutils::TByteArray *ColumnFlags;
	__property AnsiString FieldName = {read=FFieldName};
	__property bool ReadOnly = {read=GetReadOnly, write=SetReadOnly, nodefault};
	__property AnsiString DisplayLabel = {read=GetDisplayLabel, write=SetDisplayLabel};
	__property int DisplayWidth = {read=GetDisplayWidth, write=SetDisplayWidth, nodefault};
	__property AnsiString FooterValue = {read=FFooterValue, write=SetFooterValue};
	__property AnsiString GroupName = {read=GetGroupName, write=SetGroupName};
	__property bool DisableSizing = {read=FDisableSizing, write=FDisableSizing, nodefault};
	__fastcall TwwColumn(Classes::TComponent* AOwner, AnsiString AFieldName);
	__fastcall virtual ~TwwColumn(void);
};


#pragma option push -b-
enum TwwPadColumnStyle { pcsPlain, pcsPadHeader, pcsPadHeaderAndData };
#pragma option pop

#pragma option push -b-
enum TwwGridLineStyle { glsSingle, gls3D, glsDynamic };
#pragma option pop

class DELPHICLASS TwwCustomDrawGridCellInfo;
typedef void __fastcall (__closure *TwwCustomDrawCellEvent)(TwwCustomDBGrid* Sender, TwwCustomDrawGridCellInfo* DrawCellInfo);

class PASCALIMPLEMENTATION TwwCustomDBGrid : public Grids::TCustomGrid 
{
	typedef Grids::TCustomGrid inherited;
	
private:
	AnsiString FGroupFieldName;
	TwwDittoEvent FOnDitto;
	TwwDittoAttributes* FDittoAttributes;
	bool FShowHorzScrollBar;
	Classes::TNotifyEvent FOnBeforePaint;
	Classes::TStrings* FSelected;
	TwwGridLineColors* FLineColors;
	Graphics::TFont* FTitleFont;
	Graphics::TColor FTitleColor;
	Graphics::TColor FFooterColor;
	Graphics::TColor FFooterCellColor;
	int FFooterHeight;
	bool FReadOnly;
	bool FUserChange;
	int FUpdatingColWidths;
	TwwDBGridOptions FOptions;
	TwwDBGridKeyOptions FKeyOptions;
	Byte FTitleOffset;
	Byte FUpdateLock;
	bool FInColExit;
	bool FDefaultDrawing;