wwdbigrd.hpp

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

	bool AlwaysShowControls;
	int MinRowHeightPercent;
	bool __fastcall IsAlternatingRow(int DBRow);
	__property AnsiString GroupFieldName = {read=FGroupFieldName, write=SetGroupFieldName};
	__property int RowOffset = {read=FRowOffset, write=SetRowOffset, nodefault};
	__property Byte TitleOffset = {read=FTitleOffset, nodefault};
	__property bool CompareBookmarksAltMethod = {read=FCompareBookmarksAltMethod, write=FCompareBookmarksAltMethod, default=0};
	virtual void __fastcall FillWithBlendBitmap(const Types::TRect &TempRect, int CurRelRow, Graphics::TColor FillColor = (Graphics::TColor)(0x1fffffff));
	virtual void __fastcall FillWithFixedBitmap(const Types::TRect &TempRect, int CurRelRow, Graphics::TColor FillColor = (Graphics::TColor)(0x1fffffff));
	void __fastcall UpdateCustomEdit(void);
	void __fastcall ResetProportionalWidths(void);
	bool __fastcall ShouldShowCustomControls(void);
	virtual bool __fastcall CanEditGrid(void);
	void __fastcall ClearURLPaint(void);
	Controls::TWinControl* __fastcall ActiveExpandButton(void);
	HIDESBASE virtual void __fastcall CalcDrawInfo(Grids::TGridDrawInfo &DrawInfo);
	bool __fastcall HasFocus(void);
	bool __fastcall IsActiveRowAlternatingColor(void);
	void __fastcall CollapseChildGrid(void);
	void __fastcall AddField(AnsiString FieldName, int Position = 0xffffffff, bool Redraw = true);
	void __fastcall RemoveField(AnsiString FieldName, bool Redraw = true);
	bool __fastcall HaveAnyRowLines(void);
	DYNAMIC bool __fastcall ExecuteAction(Classes::TBasicAction* Action);
	DYNAMIC bool __fastcall UpdateAction(Classes::TBasicAction* Action);
	virtual void __fastcall GetURLLink(AnsiString Value, AnsiString &URLDisplayString, AnsiString &URLLinkAddress);
	void __fastcall InvalidateCurrentRow(void);
	void __fastcall InvalidateFooter(void);
	virtual void __fastcall FlushChanges(void);
	void __fastcall UpdateRowCount(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	void __fastcall SizeLastColumn(void);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(bool Repaint = false);
	bool __fastcall IsCustomEditCell(int col, int row, Controls::TWinControl* &customEdit);
	virtual Types::TRect __fastcall TitleCellRect(int ACol, int ARow);
	virtual Types::TRect __fastcall GroupNameCellRect(int ACol, int ARow, int &StartCol, int &EndCol, bool VisibleOnly = true);
	virtual Types::TRect __fastcall DragTitleCellRect(int ACol, int x, int y);
	HIDESBASE virtual Types::TRect __fastcall CellRect(int ACol, int ARow);
	void __fastcall RestoreRowHeights(void);
	virtual void __fastcall ApplySelected(void);
	void __fastcall PaintActiveRowBackground(Graphics::TCanvas* ACanvas, const Types::TRect &ARect);
	__fastcall virtual TwwCustomDBGrid(Classes::TComponent* AOwner);
	__fastcall virtual ~TwwCustomDBGrid(void);
	bool __fastcall IsCheckBox(int col, int row, AnsiString &checkboxon, AnsiString &checkboxoff);
	virtual bool __fastcall IsMemoField(int Acol, int Arow);
	DYNAMIC bool __fastcall IsSelected(void);
	bool __fastcall AllowPerfectFit(void);
	bool __fastcall DoPerfectFit(void);
	bool __fastcall DoShrinkToFit(void);
	virtual void __fastcall SelectRecord(void);
	virtual void __fastcall UnselectRecord(void);
	void __fastcall SetPictureMask(AnsiString FieldName, AnsiString Mask);
	void __fastcall SetPictureAutoFill(AnsiString FieldName, bool AutoFill);
	void __fastcall SetRegex(AnsiString FieldName, AnsiString Mask, bool CaseSensitive, AnsiString ErrorMsg);
	void __fastcall ClearLastBookmarks(void);
	AnsiString __fastcall FieldName(int Acol);
	Graphics::TColor __fastcall GetHighlightColor(void);
	virtual bool __fastcall DittoField(Db::TField* SelectedField, TwwDittoDirection Direction = (TwwDittoDirection)(0x0));
	void __fastcall DefaultDrawDataCell(const Types::TRect &Rect, Db::TField* Field, Grids::TGridDrawState State);
	virtual void __fastcall DoCalcTitleAttributes(AnsiString AFieldName, Graphics::TFont* AFont, Graphics::TBrush* ABrush, Classes::TAlignment &FTitleAlignment);
	virtual void __fastcall DoCalcCellColors(Db::TField* Field, Grids::TGridDrawState State, bool highlight, Graphics::TFont* AFont, Graphics::TBrush* ABrush);
	virtual void __fastcall DoCalcCellColorsDetect(Db::TField* Field, Grids::TGridDrawState State, bool highlight, Graphics::TFont* AFont, Graphics::TBrush* ABrush);
	int __fastcall XIndicatorOffset(void);
	HIDESBASE Controls::TWinControl* __fastcall GetComponent(AnsiString thisName);
	int __fastcall GetEffectiveFooterHeight(void);
	HIDESBASE Grids::TGridCoord __fastcall MouseCoord(int X, int Y);
	void __fastcall AutoSizeColumn(int ACol);
	bool __fastcall GetPriorRecordText(AnsiString AFieldname, AnsiString &AText);
	bool __fastcall GetNextRecordText(AnsiString AFieldname, AnsiString &AText);
	__property TwwGridDataLink* DataLink = {read=FDataLink};
	__property RowHeights ;
	__property int ColWidthsPixels[int Index] = {read=GetColWidthsPixels, write=SetColWidthsPixels};
	__property EditorMode ;
	__property int FieldCount = {read=GetFieldCount, nodefault};
	__property Db::TField* Fields[int Index] = {read=GetFields};
	__property Db::TField* SelectedField = {read=GetSelectedField, write=SetSelectedField};
	__property int SelectedIndex = {read=GetSelectedIndex, write=SetSelectedIndex, nodefault};
	__property TIndicatorColorType IndicatorColor = {read=FIndicatorColor, write=SetIndicatorColor, nodefault};
	__property Graphics::TColor IndicatorIconColor = {read=FIndicatorIconColor, write=SetIndicatorIconColor, default=0};
	__property TwwDBGridOptions Options = {read=FOptions, write=SetOptions, default=7421};
	__property TwwDBGridKeyOptions KeyOptions = {read=FKeyOptions, write=FKeyOptions, default=6};
	__property Classes::TAlignment TitleAlignment = {read=FTitleAlignment, write=SetTitleAlignment, nodefault};
	__property int TitleLines = {read=FTitleLines, write=SetTitleLines, nodefault};
	__property TCalcCellColorsEvent OnCalcCellColors = {read=FOnCalcCellColors, write=FOnCalcCellColors};
	__property TCalcTitleAttributesEvent OnCalcTitleAttributes = {read=FOnCalcTitleAttributes, write=FOnCalcTitleAttributes};
	__property TwwDrawTitleCellEvent OnDrawTitleCell = {read=FOnDrawTitleCell, write=FOnDrawTitleCell};
	__property TwwDrawGroupHeaderCellEvent OnDrawGroupHeaderCell = {read=FOnDrawGroupHeaderCell, write=FOnDrawGroupHeaderCell};
	__property TwwCalcTitleImageEvent OnCalcTitleImage = {read=FOnCalcTitleImage, write=FOnCalcTitleImage};
	__property TTitleButtonClickEvent OnTitleButtonClick = {read=FOnTitleButtonClick, write=FOnTitleButtonClick};
	__property int RowHeightPercent = {read=FRowHeightPercent, write=SetRowHeightPercent, default=100};
	__property bool ShowVertScrollBar = {read=FShowVertScrollBar, write=SetShowVertScrollBar, default=1};
	__property bool ShowHorzScrollBar = {read=GetShowHorzScrollBar, write=SetShowHorzScrollBar, nodefault};
	__property Wwdbedit::TwwValidateEvent OnCheckValue = {read=FOnCheckValue, write=FOnCheckValue};
	__property Classes::TNotifyEvent OnTopRowChanged = {read=FOnTopRowChanged, write=FOnTopRowChanged};
	__property Classes::TNotifyEvent OnRowChanged = {read=FOnRowChanged, write=FOnRowChanged};
	__property Classes::TNotifyEvent OnCellChanged = {read=FOnCellChanged, write=FOnCellChanged};
	__property TwwLeftColChangedEvent OnLeftColChanged = {read=FOnLeftColChanged, write=FOnLeftColChanged};
	__property TwwFieldChangedEvent OnFieldChanged = {read=FOnFieldChanged, write=FOnFieldChanged};
	__property Classes::TNotifyEvent OnUpdateFooter = {read=FOnUpdateFooter, write=FOnUpdateFooter};
	__property int CalcCellRow = {read=GetCalcCellRow, nodefault};
	__property int CalcCellCol = {read=FCalcCellCol, nodefault};
	__property bool TitleButtons = {read=FTitleButtons, write=SetTitleButtons, nodefault};
	__property bool EditCalculated = {read=FEditCalculated, write=FEditCalculated, default=0};
	__property TwwMultiSelectOptions MultiSelectOptions = {read=FMultiSelectOptions, write=FMultiSelectOptions, default=0};
	__property Classes::TStrings* Selected = {read=GetSelectedFields, write=SetSelectedFields};
	__property bool UseTFields = {read=FUseTFields, write=SetUseTFields, default=1};
	__property TwwIButton* IndicatorButton = {read=FIndicatorButton, write=FIndicatorButton, stored=false};
	__property Controls::TImageList* ImageList = {read=FImageList, write=FImageList};
	__property Controls::TImageList* TitleImageList = {read=FTitleImageList, write=FTitleImageList};
	__property TwwGridLineColors* LineColors = {read=FLineColors, write=FLineColors};
	__property TwwColumn* Columns[int Index] = {read=GetColumn};
	__property TwwColumn* FastColumns[int Index] = {read=GetFastColumn};
	TwwColumn* __fastcall ColumnByName(AnsiString Index);
	__property TDrawFooterCellEvent OnDrawFooterCell = {read=FOnDrawFooterCell, write=FOnDrawFooterCell};
	__property TwwCreateGridHintWindowEvent OnCreateHintWindow = {read=FOnCreateHintWindow, write=FOnCreateHintWindow};
	__property Classes::TNotifyEvent OnBeforePaint = {read=FOnBeforePaint, write=FOnBeforePaint};
	__property TwwGridURLOpenEvent OnURLOpen = {read=FOnURLOpen, write=FOnURLOpen};
	__property Graphics::TCanvas* Canvas = {read=GetCanvas};
	__property int DragVertOffset = {read=FDragVertOffset, write=FDragVertOffset, default=15};
	__property bool ControlInfoInDataset = {read=FControlInfoInDataset, write=FControlInfoInDataset, default=1};
	__property Classes::TStrings* ControlType = {read=FControlType, write=SetControlType};
	__property bool PictureMaskFromDataSet = {read=FPictureMaskFromDataSet, write=FPictureMaskFromDataSet, default=1};
	__property Classes::TStrings* PictureMasks = {read=FPictureMasks, write=SetPictureMasks};
	__property Classes::TStrings* RegexMasks = {read=FRegexMasks, write=SetRegexMasks};
	__property LeftCol ;
	__property TwwPadColumnStyle PadColumnStyle = {read=FPadColumnStyle, write=FPadColumnStyle, default=2};
	__property TwwEditControlOptions EditControlOptions = {read=FEditControlOptions, write=FEditControlOptions, default=2};
	__property Wwpaintoptions::TwwGridPaintOptions* PaintOptions = {read=FPaintOptions, write=FPaintOptions};
	__property TwwGridLineStyle LineStyle = {read=FLineStyle, write=FLineStyle, default=2};
	__property bool HideAllLines = {read=FHideAllLines, write=FHideAllLines, default=0};
	__property TwwCustomDrawCellEvent OnBeforeDrawCell = {read=FOnBeforeDrawCell, write=FOnBeforeDrawCell};
	__property TwwCustomDrawCellEvent OnAfterDrawCell = {read=FOnAfterDrawCell, write=FOnAfterDrawCell};
	__property TwwDittoEvent OnDitto = {read=FOnDitto, write=FOnDitto};
	__property VisibleRowCount ;
	__property TwwDittoAttributes* DittoAttributes = {read=FDittoAttributes, write=FDittoAttributes};
	__property bool DisableThemesInTitle = {read=FDisableThemesInTitle, write=FDisableThemesInTitle, default=0};
	
protected:
	virtual void __fastcall GridUpdateData(void);
	virtual void __fastcall WriteTextLines(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, int DX, int DY, WideChar * S, Classes::TAlignment Alignment, Wwtypes::TwwWriteTextOptions WriteOptions);
	virtual void __fastcall DoOnAfterDrawCell(TwwCustomDrawGridCellInfo* &DrawCellInfo);
	virtual void __fastcall DoOnBeforeDrawCell(WideString ATextWide, TwwCustomDrawGridCellInfo* &DrawCellInfo);
	DYNAMIC WideString __fastcall WideGetFieldValue(int ACol);
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwCustomDBGrid(HWND ParentWindow) : Grids::TCustomGrid(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TwwGridDataLink : public Db::TDataLink 
{
	typedef Db::TDataLink inherited;
	
private:
	TwwCustomDBGrid* FGrid;
	int FFieldCount;
	int FFieldMapSize;
	bool FModified;
	bool FInUpdateData;
	void *FFieldMap;
	bool __fastcall GetDefaultFields(void);
	Db::TField* __fastcall GetFields(int I);
	
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 TwwGridDataLink(TwwCustomDBGrid* AGrid);
	__fastcall virtual ~TwwGridDataLink(void);
	bool __fastcall AddMapping(const AnsiString FieldName);
	void __fastcall ClearMapping(void);
	void __fastcall Modified(void);
	void __fastcall Reset(void);
	__property bool DefaultFields = {read=GetDefaultFields, nodefault};
	__property int FieldCount = {read=FFieldCount, nodefault};
	__property Db::TField* Fields[int I] = {read=GetFields};
	__property bool isFieldModified = {read=FModified, nodefault};
};


class PASCALIMPLEMENTATION TwwCustomDrawGridCellInfo : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	#pragma pack(push,1)
	Types::TRect Rect;
	#pragma pack(pop)
	Db::TField* Field;
	Grids::TGridDrawState State;
	int DataCol;
	int DataRow;
	bool DefaultDrawBackground;
	bool DefaultDrawHorzTopLine;
	bool DefaultDrawHorzBottomLine;
	bool DefaultDrawContents;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwCustomDrawGridCellInfo(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TwwCustomDrawGridCellInfo(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TwwBitmapSizeType { bsOriginalSize, bsStretchToFit, bsFitHeight, bsFitWidth };
#pragma option pop

class DELPHICLASS TwwInplaceEdit;
class PASCALIMPLEMENTATION TwwInplaceEdit : public Grids::TInplaceEdit 
{
	typedef Grids::TInplaceEdit inherited;
	
private:
	Wwdbedit::TwwDBPicture* FwwPicture;
	bool FWordWrap;
	TwwCustomDBGrid* ParentGrid;
	bool FUsePictureMask;
	HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMPaste(Messages::TMessage &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 TwwInplaceEdit(Classes::TComponent* AOwner, int dummy);
	__fastcall virtual ~TwwInplaceEdit(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 TwwInplaceEdit(Classes::TComponent* AOwner) : Grids::TInplaceEdit(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TwwInplaceEdit(HWND ParentWindow) : Grids::TInplaceEdit(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TwwCacheColInfoItem;
class PASCALIMPLEMENTATION TwwCacheColInfoItem : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	Controls::TWinControl* CustomControl;
	AnsiString ControlType;
	AnsiString ControlData;
	bool AlwaysPaints;
	bool IsWhiteBackground;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwCacheColInfoItem(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TwwCacheColInfoItem(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TwwUpdateSelected { sptUpdateField, sptUpdateWidth, sptUpdateLabel, sptUpdateReadOnly, sptUpdateGroup };
#pragma option pop

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE Controls::TImageList* __fastcall wwGetIndicators(void);
extern PACKAGE void __fastcall UpdateSelectedProp(Classes::TStrings* Selected, AnsiString FieldName, AnsiString val, TwwUpdateSelected SelectedProperty, int Index = 0xffffffff);
extern PACKAGE AnsiString __fastcall GetSelectedProp(Classes::TStrings* Selected, AnsiString FieldName, TwwUpdateSelected SelectedProperty);
extern PACKAGE void __fastcall wwWriteTextLines(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, int DX, int DY, char * S, Classes::TAlignment Alignment, Wwtypes::TwwWriteTextOptions WriteOptions);

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

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