advgrid.hpp

来自「TMSPack基本上涵盖了Delphi所有的基础控件」· HPP 代码 · 共 1,379 行 · 第 1/5 页

typedef void __fastcall (__closure *TGridFormatEvent)(System::TObject* Sender, int ACol, TSortStyle &AStyle, AnsiString &aPrefix, AnsiString &aSuffix);

typedef void __fastcall (__closure *TGridColorEvent)(System::TObject* Sender, int ARow, int ACol, Grids::TGridDrawState AState, Graphics::TBrush* ABrush, Graphics::TFont* AFont);

typedef void __fastcall (__closure *TGridBorderEvent)(System::TObject* Sender, int ARow, int ACol, Graphics::TPen* APen, TCellBorders &Borders);

typedef void __fastcall (__closure *TGridBorderPropEvent)(System::TObject* Sender, int ARow, int ACol, Graphics::TPen* LeftPen, Graphics::TPen* TopPen, Graphics::TPen* RightPen, Graphics::TPen* BottomPen);

typedef void __fastcall (__closure *TGridAlignEvent)(System::TObject* Sender, int ARow, int ACol, Classes::TAlignment &HAlign, Basegrid::TVAlignment &VAlign);

typedef void __fastcall (__closure *TGridHintEvent)(System::TObject* Sender, int ARow, int ACol, AnsiString &hintstr);

typedef void __fastcall (__closure *TGridWideHintEvent)(System::TObject* Sender, int ARow, int ACol, WideString &hintstr);

typedef void __fastcall (__closure *TOfficeHintEvent)(System::TObject* Sender, int ACol, int ARow, Advhintinfo::TAdvHintInfo* OfficeHint);

typedef void __fastcall (__closure *TOleDragDropEvent)(System::TObject* Sender, int ARow, int ACol, AnsiString data, bool &Allow);

typedef void __fastcall (__closure *TOleDropFileEvent)(System::TObject* Sender, int ARow, int ACol, AnsiString FileName, bool &Allow);

typedef void __fastcall (__closure *TOleDropURLEvent)(System::TObject* Sender, int ARow, int ACol, AnsiString URL, bool &Allow);

typedef void __fastcall (__closure *TOleDragOverEvent)(System::TObject* Sender, int ARow, int ACol, bool &Allow);

typedef void __fastcall (__closure *TOleDragStartEvent)(System::TObject* Sender, int ARow, int ACol);

typedef void __fastcall (__closure *TOleDragStopEvent)(System::TObject* Sender, int OLEEffect);

typedef void __fastcall (__closure *TOleDropColEvent)(System::TObject* Sender, int ARow, int ACol, int DropCol);

typedef void __fastcall (__closure *TOleDroppedEvent)(System::TObject* Sender, const Grids::TGridRect &ARect);

typedef void __fastcall (__closure *TRowChangingEvent)(System::TObject* Sender, int OldRow, int NewRow, bool &Allow);

typedef void __fastcall (__closure *TRowChangedEvent)(System::TObject* Sender, int OldRow, int NewRow);

typedef void __fastcall (__closure *TColChangingEvent)(System::TObject* Sender, int OldCol, int NewCol, bool &Allow);

typedef void __fastcall (__closure *TCellChangingEvent)(System::TObject* Sender, int OldRow, int OldCol, int NewRow, int NewCol, bool &Allow);

typedef void __fastcall (__closure *TAutoAdvanceEvent)(System::TObject* Sender, int OldRow, int OldCol, int &NewRow, int &NewCol, bool &Allow);

typedef void __fastcall (__closure *TScrollHintEvent)(System::TObject* Sender, int ARow, AnsiString &hintstr);

typedef void __fastcall (__closure *TGridPrintPageEvent)(System::TObject* Sender, Graphics::TCanvas* Canvas, int PageNr, int PageXSize, int PageYSize);

typedef void __fastcall (__closure *TGridPrintStartEvent)(System::TObject* Sender, int NrOfPages, int &FromPage, int &ToPage);

typedef void __fastcall (__closure *TGridPrintPageDoneEvent)(System::TObject* Sender, Graphics::TCanvas* Canvas, int LastRow, int LastRowOffset, int LastPage, int PageXSize, int PageYSize);

typedef void __fastcall (__closure *TGridPrintCancelEvent)(System::TObject* Sender, int PageNr, bool &Cancel);

typedef void __fastcall (__closure *TGridPrintNewPageEvent)(System::TObject* Sender, int ARow, bool &NewPage);

typedef void __fastcall (__closure *TGridPrintColumnWidthEvent)(System::TObject* Sender, int ACol, int &Width);

typedef void __fastcall (__closure *TGridPrintRowHeightEvent)(System::TObject* Sender, int ARow, int &Height);

typedef void __fastcall (__closure *TCustomStrToDateEvent)(System::TObject* Sender, AnsiString Value, System::TDateTime &ADate);

typedef void __fastcall (__closure *TOnResizeEvent)(System::TObject* Sender);

typedef void __fastcall (__closure *TColumnSizeEvent)(System::TObject* Sender, int ACol, bool &Allow);

typedef void __fastcall (__closure *TColumnSizingEvent)(System::TObject* Sender, int ACol, int ColumnSize);

typedef void __fastcall (__closure *TRowSizingEvent)(System::TObject* Sender, int ARow, int RowSize);

typedef void __fastcall (__closure *TRowSizeEvent)(System::TObject* Sender, int ARow, bool &Allow);

typedef void __fastcall (__closure *TEndColumnSizeEvent)(System::TObject* Sender, int ACol);

typedef void __fastcall (__closure *TUpdateColumnSizeEvent)(System::TObject* Sender, int ACol, int &AWidth);

typedef void __fastcall (__closure *TEndRowSizeEvent)(System::TObject* Sender, int ARow);

typedef void __fastcall (__closure *TClickCellEvent)(System::TObject* Sender, int ARow, int ACol);

typedef void __fastcall (__closure *TDblClickCellEvent)(System::TObject* Sender, int ARow, int ACol);

typedef void __fastcall (__closure *TCanEditCellEvent)(System::TObject* Sender, int ARow, int ACol, bool &CanEdit);

typedef void __fastcall (__closure *TCanClickCellEvent)(System::TObject* Sender, int ARow, int ACol, bool &Allow);

typedef void __fastcall (__closure *TIsFixedCellEvent)(System::TObject* Sender, int ARow, int ACol, bool &IsFixed);

typedef void __fastcall (__closure *TIsPasswordCellEvent)(System::TObject* Sender, int ARow, int ACol, bool &IsPassword);

typedef void __fastcall (__closure *TAnchorClickEvent)(System::TObject* Sender, int ARow, int ACol, AnsiString Anchor, bool &AutoHandle);

typedef void __fastcall (__closure *TAnchorHintEvent)(System::TObject* Sender, int ARow, int ACol, AnsiString &Anchor);

typedef void __fastcall (__closure *TAnchorEvent)(System::TObject* Sender, int ARow, int ACol, AnsiString Anchor);

typedef void __fastcall (__closure *TCellControlEvent)(System::TObject* Sender, int ARow, int ACol, AnsiString CtrlID, AnsiString CtrlType, AnsiString CtrlVal);

typedef void __fastcall (__closure *TCellComboControlEvent)(System::TObject* Sender, int ARow, int ACol, AnsiString CtrlID, AnsiString CtrlType, AnsiString CtrlVal, Classes::TStringList* Values, bool &Edit, int &DropCount);

typedef void __fastcall (__closure *TCellValidateEvent)(System::TObject* Sender, int ACol, int ARow, AnsiString &Value, bool &Valid);

typedef void __fastcall (__closure *TCellValidateWideEvent)(System::TObject* Sender, int ACol, int ARow, WideString &Value, bool &Valid);

typedef void __fastcall (__closure *TEditChangeEvent)(System::TObject* Sender, int ACol, int ARow, AnsiString Value);

typedef void __fastcall (__closure *TEditCellDoneEvent)(System::TObject* Sender, int ACol, int ARow);

typedef void __fastcall (__closure *TDateTimeChangeEvent)(System::TObject* Sender, int ACol, int ARow, System::TDateTime ADateTime);

typedef void __fastcall (__closure *TCellsChangedEvent)(System::TObject* Sender, const Types::TRect &R);

typedef void __fastcall (__closure *TGetCheckEvent)(System::TObject* Sender, int ACol, int ARow, AnsiString &Value);

typedef void __fastcall (__closure *TCustomCellDrawEvent)(System::TObject* Sender, Graphics::TCanvas* Canvas, int ACol, int ARow, Grids::TGridDrawState AState, const Types::TRect &ARect, bool Printing);

typedef void __fastcall (__closure *TCustomCellSizeEvent)(System::TObject* Sender, Graphics::TCanvas* Canvas, int ACol, int ARow, Types::TPoint &ASize, bool Printing);

typedef void __fastcall (__closure *TDoFitToPageEvent)(System::TObject* Sender, double &ScaleFactor, bool &Allow);

typedef void __fastcall (__closure *TBeforeCellPasteEvent)(System::TObject* Sender, int ACol, int ARow, AnsiString &Value, bool &Allow);

typedef void __fastcall (__closure *TBeforeCellPasteWideEvent)(System::TObject* Sender, int ACol, int ARow, WideString &Value, bool &Allow);

typedef void __fastcall (__closure *TSelectionChanged)(System::TObject* Sender, int ALeft, int ATop, int ARight, int ABottom);

typedef void __fastcall (__closure *TRowDisjunctSelectEvent)(System::TObject* Sender, int ARow, bool AState, bool &Allow);

typedef void __fastcall (__closure *TFloatFormatEvent)(System::TObject* Sender, int ACol, int ARow, bool &IsFloat, AnsiString &FloatFormat);

#pragma option push -b-
enum TFindParameters { fnMatchCase, fnMatchFull, fnMatchRegular, fnDirectionLeftRight, fnMatchStart, fnFindInCurrentRow, fnFindInCurrentCol, fnIncludeFixed, fnAutoGoto, fnIgnoreHTMLTags, fnBackward, fnIncludeHiddenColumns, fnFindInPresetCol, fnFindInPresetRow, fnSelectedCells, fnIncludeHiddenRows };
#pragma option pop

#pragma option push -b-
enum TCellHAlign { haLeft, haRight, haCenter, haBeforeText, haAfterText, haFull };
#pragma option pop

#pragma option push -b-
enum TCellVAlign { vaTop, vaBottom, vaCenter, vaUnderText, vaAboveText, vaFull };
#pragma option pop

#pragma option push -b-
enum TCellType { ctBitmap, ctIcon, ctNone, ctImageList, ctCheckBox, ctDataCheckBox, ctRotated, ctDataImage, ctNode, ctRadio, ctEmpty, ctImages, ctPicture, ctFilePicture, ctValue, ctProgress, ctComment, ctButton, ctBitButton, ctVirtCheckBox, ctRowCheckBox, ctProgressPie, ctSummary, ctRangeIndicator, ctXPProgress, ctInterface };
#pragma option pop

#pragma option push -b-
enum TFitToPage { fpNever, fpGrow, fpShrink, fpAlways, fpCustom };
#pragma option pop

typedef Set<TFindParameters, fnMatchCase, fnIncludeHiddenRows>  TFindParams;

#pragma option push -b-
enum TStretchMode { noStretch, Stretch, StretchWithAspectRatio, Shrink, ShrinkWithAspectRatio };
#pragma option pop

#pragma option push -b-
enum TSortBlankPosition { blFirst, blLast };
#pragma option pop

#pragma option push -b-
enum TScrollBarAlways { saNone, saVert, saHorz, saBoth };
#pragma option pop

typedef void __fastcall (__closure *THasComboEvent)(System::TObject* Sender, int ACol, int ARow, bool &HasComboBox);

typedef void __fastcall (__closure *THasSpinEditEvent)(System::TObject* Sender, int ACol, int ARow, bool &HasSpinEdit);

#pragma option push -b-
enum TGridExportState { esExportStart, esExportNewRow, esExportDone, esExportSelRow, esExportFail };
#pragma option pop

#pragma option push -b-
enum TGridImportState { isImportStart, isImportNewRow, isImportDone, isImportSelRow };
#pragma option pop

typedef void __fastcall (__closure *TCalcFooterEvent)(System::TObject* Sender, int ACol, int ARow, AnsiString &Value);

typedef void __fastcall (__closure *TGridBalloonEvent)(System::TObject* Sender, int ACol, int ARow, AnsiString &ATitle, AnsiString &AText, int &AIcon);

typedef void __fastcall (__closure *TWordWrapEvent)(System::TObject* Sender, int ACol, int ARow, bool &WordWrap);

typedef void __fastcall (__closure *TGroupCalcEvent)(System::TObject* Sender, int ACol, int FromRow, int ToRow, double &Res);

typedef void __fastcall (__closure *TFixedDropDownEvent)(System::TObject* Sender, int ACol, int ARow, Menus::TPopupMenu* &AMenu, bool &KeepFixedCellHighlighted);

class DELPHICLASS TDragScrollDelays;
class PASCALIMPLEMENTATION TDragScrollDelays : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FInitialDelay;
	int FRepeatDelay;
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property int InitialDelay = {read=FInitialDelay, write=FInitialDelay, default=1000};
	__property int RepeatDelay = {read=FRepeatDelay, write=FRepeatDelay, default=250};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TDragScrollDelays(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TDragScrollDelays(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TDragScrollMargins;
class PASCALIMPLEMENTATION TDragScrollMargins : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FTopMargin;
	int FBottomMargin;
	int FLeftMargin;
	int FRightMargin;
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property int TopMargin = {read=FTopMargin, write=FTopMargin, default=50};
	__property int BottomMargin = {read=FBottomMargin, write=FBottomMargin, default=50};
	__property int LeftMargin = {read=FLeftMargin, write=FLeftMargin, default=50};
	__property int RightMargin = {read=FRightMargin, write=FRightMargin, default=50};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TDragScrollMargins(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TDragScrollMargins(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TDragScrollOptions;
class PASCALIMPLEMENTATION TDragScrollOptions : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FActive;
	TDragScrollDelays* FDelays;
	TDragScrollMargins* FMargins;
	
public:
	__fastcall TDragScrollOptions(void);
	__fastcall virtual ~TDragScrollOptions(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool Active = {read=FActive, write=FActive, default=0};
	__property TDragScrollDelays* Delays = {read=FDelays, write=FDelays};
	__property TDragScrollMargins* Margins = {read=FMargins, write=FMargins};
};


#pragma option push -b-
enum TDragScrollDirections { dsdUp, dsdDown, dsdLeft, dsdRight };
#pragma option pop

typedef Set<TDragScrollDirections, dsdUp, dsdRight>  TDragScrollDirection;

typedef void __fastcall (__closure *TDragScrollEvent)(System::TObject* Sender, int TopRow, int LeftCol, TDragScrollDirection &DragScrollDir, bool &CanScroll);

class DELPHICLASS TCellGraphic;
class PASCALIMPLEMENTATION TCellGraphic : public Classes::TPersistent