advgrid.hpp

TMS component pack v4.2 for delphi

	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TColor Color = {read=FColor, write=FColor, default=12632256};
	__property bool ExpandOne = {read=FExpandOne, write=FExpandOne, default=0};
	__property TNodeType NodeType = {read=FNodeType, write=SetNodeType, default=4};
	__property Graphics::TColor NodeColor = {read=FNodeColor, write=FNodeColor, default=0};
	__property int NodeIndent = {read=FNodeIndent, write=SetNodeIndent, default=12};
	__property Graphics::TBitmap* ExpandGlyph = {read=FExpandGlyph, write=SetExpandGlyph};
	__property Graphics::TBitmap* ContractGlyph = {read=FContractGlyph, write=SetContractGlyph};
	__property bool ShowTree = {read=FShowTree, write=SetShowTree, default=1};
	__property bool ShowTreeFull = {read=FShowTreeFull, write=SetShowTreeFull, default=1};
	__property Graphics::TColor TreeColor = {read=FTreeColor, write=SetTreeColor, default=8421504};
};


class DELPHICLASS TSizeWhileTyping;
class PASCALIMPLEMENTATION TSizeWhileTyping : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FHeight;
	bool FWidth;
	
public:
	__fastcall TSizeWhileTyping(void);
	__fastcall virtual ~TSizeWhileTyping(void);
	
__published:
	__property bool Height = {read=FHeight, write=FHeight, default=0};
	__property bool Width = {read=FWidth, write=FWidth, default=0};
};


class DELPHICLASS TMouseActions;
#pragma option push -b-
enum TGridFixedCellEdit { fceNone, fceDblClick, fceLeftClick, fceRightClick };
#pragma option pop

#pragma option push -b-
enum TWheelAction { waMoveSelection, waScroll };
#pragma option pop

class PASCALIMPLEMENTATION TMouseActions : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TAdvStringGrid* FGrid;
	bool FColSelect;
	bool FRowSelect;
	bool FAllSelect;
	bool FDirectEdit;
	bool FDirectComboDrop;
	bool FDirectDateDrop;
	bool FDisjunctRowSelect;
	bool FDisjunctColSelect;
	bool FAllColumnSize;
	bool FAllRowSize;
	bool FCaretPositioning;
	bool FSizeFixedCol;
	bool FSizeFixedRow;
	bool FDisjunctCellSelect;
	TGridFixedCellEdit FFixedRowsEdit;
	TGridFixedCellEdit FFixedColsEdit;
	bool FHotmailRowSelect;
	bool FRangeSelectAndEdit;
	bool FNoAutoRangeScroll;
	bool FPreciseCheckBoxCheck;
	bool FCheckAllCheck;
	bool FNodeAllExpandContract;
	bool FMoveRowOnNodeClick;
	bool FRowSelectPersistent;
	bool FSelectOnRightClick;
	bool FNoScrollOnPartialRow;
	int FWheelIncrement;
	TWheelAction FWheelAction;
	bool FAutoSizeColOnDblClick;
	void __fastcall SetDisjunctColSelect(const bool AValue);
	void __fastcall SetDisjunctRowSelect(const bool AValue);
	void __fastcall SetDisjunctCellSelect(const bool AValue);
	void __fastcall SetHotmailRowSelect(const bool AValue);
	
public:
	__fastcall TMouseActions(Classes::TComponent* AOwner);
	__fastcall virtual ~TMouseActions(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool AllColumnSize = {read=FAllColumnSize, write=FAllColumnSize, default=0};
	__property bool AllRowSize = {read=FAllRowSize, write=FAllRowSize, default=0};
	__property bool AllSelect = {read=FAllSelect, write=FAllSelect, default=0};
	__property bool AutoSizeColOnDblClick = {read=FAutoSizeColOnDblClick, write=FAutoSizeColOnDblClick, default=1};
	__property bool CaretPositioning = {read=FCaretPositioning, write=FCaretPositioning, default=0};
	__property bool CheckAllCheck = {read=FCheckAllCheck, write=FCheckAllCheck, default=0};
	__property bool ColSelect = {read=FColSelect, write=FColSelect, default=0};
	__property bool DirectComboDrop = {read=FDirectComboDrop, write=FDirectComboDrop, default=0};
	__property bool DirectDateDrop = {read=FDirectDateDrop, write=FDirectDateDrop, default=0};
	__property bool DirectEdit = {read=FDirectEdit, write=FDirectEdit, default=0};
	__property bool DisjunctRowSelect = {read=FDisjunctRowSelect, write=SetDisjunctRowSelect, default=0};
	__property bool DisjunctColSelect = {read=FDisjunctColSelect, write=SetDisjunctColSelect, default=0};
	__property bool DisjunctCellSelect = {read=FDisjunctCellSelect, write=SetDisjunctCellSelect, default=0};
	__property TGridFixedCellEdit FixedRowsEdit = {read=FFixedRowsEdit, write=FFixedRowsEdit, default=0};
	__property TGridFixedCellEdit FixedColsEdit = {read=FFixedColsEdit, write=FFixedColsEdit, default=0};
	__property bool HotmailRowSelect = {read=FHotmailRowSelect, write=SetHotmailRowSelect, default=0};
	__property bool MoveRowOnNodeClick = {read=FMoveRowOnNodeClick, write=FMoveRowOnNodeClick, default=0};
	__property bool NoAutoRangeScroll = {read=FNoAutoRangeScroll, write=FNoAutoRangeScroll, default=0};
	__property bool NodeAllExpandContract = {read=FNodeAllExpandContract, write=FNodeAllExpandContract, default=0};
	__property bool NoScrollOnPartialRow = {read=FNoScrollOnPartialRow, write=FNoScrollOnPartialRow, default=0};
	__property bool PreciseCheckBoxCheck = {read=FPreciseCheckBoxCheck, write=FPreciseCheckBoxCheck, default=0};
	__property bool RangeSelectAndEdit = {read=FRangeSelectAndEdit, write=FRangeSelectAndEdit, default=0};
	__property bool RowSelect = {read=FRowSelect, write=FRowSelect, default=0};
	__property bool RowSelectPersistent = {read=FRowSelectPersistent, write=FRowSelectPersistent, default=0};
	__property bool SelectOnRightClick = {read=FSelectOnRightClick, write=FSelectOnRightClick, default=0};
	__property bool SizeFixedCol = {read=FSizeFixedCol, write=FSizeFixedCol, default=0};
	__property bool SizeFixedRow = {read=FSizeFixedRow, write=FSizeFixedRow, default=0};
	__property int WheelIncrement = {read=FWheelIncrement, write=FWheelIncrement, default=0};
	__property TWheelAction WheelAction = {read=FWheelAction, write=FWheelAction, default=0};
};


class DELPHICLASS TGrouping;
class PASCALIMPLEMENTATION TGrouping : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FMergeHeader;
	bool FMergeSummary;
	Graphics::TColor FHeaderColor;
	Graphics::TColor FSummaryColor;
	Graphics::TColor FHeaderColorTo;
	Graphics::TColor FHeaderTextColor;
	bool FSummary;
	Graphics::TColor FSummaryTextColor;
	Graphics::TColor FSummaryColorTo;
	bool FHeaderUnderline;
	bool FSummaryLine;
	int FSummaryLineWidth;
	int FHeaderLineWidth;
	Graphics::TColor FSummaryLineColor;
	Graphics::TColor FHeaderLineColor;
	
public:
	__fastcall TGrouping(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TColor HeaderColor = {read=FHeaderColor, write=FHeaderColor, default=536870911};
	__property Graphics::TColor HeaderColorTo = {read=FHeaderColorTo, write=FHeaderColorTo, default=536870911};
	__property Graphics::TColor HeaderTextColor = {read=FHeaderTextColor, write=FHeaderTextColor, default=536870911};
	__property bool HeaderUnderline = {read=FHeaderUnderline, write=FHeaderUnderline, default=0};
	__property Graphics::TColor HeaderLineColor = {read=FHeaderLineColor, write=FHeaderLineColor, default=16711680};
	__property int HeaderLineWidth = {read=FHeaderLineWidth, write=FHeaderLineWidth, default=2};
	__property bool MergeHeader = {read=FMergeHeader, write=FMergeHeader, default=0};
	__property bool MergeSummary = {read=FMergeSummary, write=FMergeSummary, default=0};
	__property bool Summary = {read=FSummary, write=FSummary, default=0};
	__property Graphics::TColor SummaryColor = {read=FSummaryColor, write=FSummaryColor, default=536870911};
	__property Graphics::TColor SummaryColorTo = {read=FSummaryColorTo, write=FSummaryColorTo, default=536870911};
	__property Graphics::TColor SummaryTextColor = {read=FSummaryTextColor, write=FSummaryTextColor, default=536870911};
	__property bool SummaryLine = {read=FSummaryLine, write=FSummaryLine, default=0};
	__property Graphics::TColor SummaryLineColor = {read=FSummaryLineColor, write=FSummaryLineColor, default=16711680};
	__property int SummaryLineWidth = {read=FSummaryLineWidth, write=FSummaryLineWidth, default=2};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TGrouping(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvRichEdit;
class PASCALIMPLEMENTATION TAdvRichEdit : public Comctrls::TRichEdit 
{
	typedef Comctrls::TRichEdit inherited;
	
private:
	TAdvStringGrid* FGrid;
	int FReqHeight;
	int FReqWidth;
	bool FLocked;
	void __fastcall SelFormat(int offset);
	HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Msg);
	
protected:
	void __fastcall Lock(void);
	void __fastcall Unlock(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	
public:
	__fastcall virtual TAdvRichEdit(Classes::TComponent* AOwner);
	void __fastcall ReCreate(void);
	void __fastcall SelSubscript(void);
	void __fastcall SelSuperscript(void);
	void __fastcall SelNormal(void);
	bool __fastcall IsSelSubscript(void);
	bool __fastcall IsSelSuperscript(void);
	bool __fastcall IsSelNormal(void);
	
__published:
	__property int ReqWidth = {read=FReqWidth, nodefault};
	__property int ReqHeight = {read=FReqHeight, nodefault};
public:
	#pragma option push -w-inl
	/* TCustomRichEdit.Destroy */ inline __fastcall virtual ~TAdvRichEdit(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvRichEdit(HWND ParentWindow) : Comctrls::TRichEdit(ParentWindow) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TMouseSelectMode { msNormal, msColumn, msRow, msAll, msURL, msResize };
#pragma option pop

class DELPHICLASS TEditLink;
typedef void __fastcall (__closure *TGetEditorPropEvent)(System::TObject* Sender, int ACol, int ARow, TEditLink* AEditLink);

class DELPHICLASS TControlEdit;
class PASCALIMPLEMENTATION TControlEdit : public Mask::TMaskEdit 
{
	typedef Mask::TMaskEdit inherited;
	
private:
	HIDESBASE MESSAGE void __fastcall WMKeyDown(Messages::TWMKey &Msg);
	HIDESBASE MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Msg);
	
protected:
	DYNAMIC void __fastcall KeyPress(char &Key);
public:
	#pragma option push -w-inl
	/* TCustomMaskEdit.Create */ inline __fastcall virtual TControlEdit(Classes::TComponent* AOwner) : Mask::TMaskEdit(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TControlEdit(HWND ParentWindow) : Mask::TMaskEdit(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TControlEdit(void) { }
	#pragma option pop
	
};


class DELPHICLASS TControlCombo;
class PASCALIMPLEMENTATION TControlCombo : public Asgcombo::TASGComboBox 
{
	typedef Asgcombo::TASGComboBox inherited;
	
private:
	MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Msg);
	
protected:
	DYNAMIC void __fastcall KeyPress(char &Key);
public:
	#pragma option push -w-inl
	/* TASGCustomCombo.Create */ inline __fastcall virtual TControlCombo(Classes::TComponent* AOwner) : Asgcombo::TASGComboBox(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCustomComboBox.Destroy */ inline __fastcall virtual ~TControlCombo(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TControlCombo(HWND ParentWindow) : Asgcombo::TASGComboBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TGridCombo;
class PASCALIMPLEMENTATION TGridCombo : public Asgcombo::TASGComboBox 
{
	typedef Asgcombo::TASGComboBox inherited;
	
private:
	bool Forced;
	bool WorkMode;
	int ItemIdx;
	Classes::TNotifyEvent FOnReturnKey;
	bool ItemChange;
	MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Msg);
	HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Msg);
	
protected:
	DYNAMIC void __fastcall KeyPress(char &Key);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall DoExit(void);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	DYNAMIC void __fastcall Change(void);
	
public:
	TAdvStringGrid* FGrid;
	void __fastcall DoChange(void);
	__fastcall virtual TGridCombo(Classes::TComponent* AOwner);
	void __fastcall SizeDropDownWidth(void);
	
__published:
	__property Classes::TNotifyEvent OnReturnKey = {read=FOnReturnKey, write=FOnReturnKey};
public:
	#pragma option push -w-inl
	/* TCustomComboBox.Destroy */ inline __fastcall virtual ~TGridCombo(void) { }