cmoneydbgrids.~pas

Delphi功能强的DBGRID构件,支持钱币网格,从DBGRIDEH中继承.比速达的网格构件功能更强大.

    property VertScrollBar: TCMoneyDBGridScrollBar read FVertScrollBar write SetVertScrollBar;
    property OptionsEx: TCMoneyDBGridOptions read FOptionsEx write SetOptionsEx
      default [dghFixed3D, dghHighlightFocus, dghClearSelection, dghColumnDrag, dghDichromatic, dghFullDraw];
    property OnSortMarkingChanged: TNotifyEvent read FOnSortMarkingChanged write FOnSortMarkingChanged;
    property SortMarkedColumns: TCSColumnsList read FSortMarkedColumns write FSortMarkedColumns;
    property Selection: TCMoneyDBGridSelection read FSelection;
    property TitleImages: TCustomImageList read FTitleImages write SetTitleImages;
    property TimerActive: Boolean read FTimerActive;
    property AllowedOperations: TCMoneyDBGridAllowedOperations read FAllowedOperations write FAllowedOperations
      default [alopInsert, alopUpdate, alopDelete, alopAppend];

    property RowSingleColor: TColor read FRowSingleColor write SetRowSingleColor default clWindow;
    property RowDoubleColor: TColor read FRowDoubleColor write SetRowDoubleColor default $00E8F7FF;  //$00EFEFE7
    property OnCalcFieldInput: TCSCalcFieldInputEvent read FOnCalcFieldInput write FOnCalcFieldInput;
    property OnCalcFieldAfterInput: TCSCalcFieldAfterInputEvent read FOnCalcFieldAfterInput write FOnCalcFieldAfterInput;
    property OnEnterToTab: TCSEnterToTabEvent read FOnEnterToTab write FOnEnterToTab;
    property EditButtonShortCut: TShortCut read FEditButtonShortCut write FEditButtonShortCut default scAlt + VK_Down;
    property ShowCalcRow: Boolean read FShowCalcRow write SetShowCalcRow default False;
    property RedWord: Boolean read FRedWord write SetRedWord default False;
    property OnCellEditing: TCSCellEditingEvent read FOnCellEditing write FOnCellEditing;
    property CheckGlyphs: TCSCheckGlyphs read FCheckGlyphs write SetCheckGlyphs;
    property NextRowClickAppend: Boolean read FNextRowClickAppend write FNextRowClickAppend default False;
    property OnGetIndicatorParams: TCSGetIndicatorParamsEvent read FOnGetIndicatorParams write FOnGetIndicatorParams;  //更改导航条的图像
    property OnSelectCell: TSelectCellEvent read FOnSelectCell write FOnSelectCell;
    property OnIndicatorClick: TNotifyEvent read FOnIndicatorClick write FOnIndicatorClick;
    property IndicatorBarWidth: Integer read FIndicatorBarWidth write SetIndicatorBarWidth default IndicatorWidth;

    //Raymond 2002-07-22
    property RowHighlight: Boolean read FRowHighlight write SetRowHighlight default False;
  end;

  TMoneyDBGrid = class(TCChinaCustomDbGrid)
  public
    property GridHeight;
    property RowCount;
    property Canvas;
    property SelectedRows;
  published
    property Align;
    property BorderStyle;
    property Color;
    property Columns stored False;
    property Ctl3D;
    property DataSource;
    property DefaultDrawing;
    property DragCursor;
    property DragMode;
    property Enabled;
    property FixedColor;
    property Font;
    property ImeMode;
    property ImeName;
    property Options;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ReadOnly;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property TitleFont;
    property Visible;
    property OnCellClick;
    property OnColEnter;
    property OnColExit;
    property OnColumnMoved;
    property OnDrawDataCell;
    property OnDrawColumnCell;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEditButtonClick;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnStartDrag;
    property OnTitleClick;

    property Anchors;
    property BiDiMode;
    property Constraints;
    property DragKind;
    property ParentBiDiMode;
    property OnEndDock;
    property OnStartDock;

    property AllowedOperations;
    property FrozenColCount;
    //property FooterRowCount;
    property FooterFont;
    property FooterColor;
    property TitleHeight;
    //property VTitleMargin;
    property MultiTitle;
    property AutoFitColWidths;
    property MinAutoFitWidth;
    property RowHeight;
    property HorzScrollBar;
    property VertScrollBar;
    property TitleImages;
    property OptionsEx;

    property OnDrawFooterCell;
    property OnGetFooterParams;
    property OnCheckButton;
    property OnGetBtnParams;
    property OnTitleBtnClick;
    property OnGetCellParams;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnSortMarkingChanged;
    property OnGetIndicatorParams;
    property OnSelectCell;
    property OnIndicatorClick;

    property RowSingleColor;
    property RowDoubleColor;
    property OnCalcFieldInput;
    property OnCalcFieldAfterInput;
    property OnEnterToTab;
    property EditButtonShortCut;
    property ShowCalcRow;
    property RedWord;
    property OnCellEditing;
    property CheckGlyphs;
    property NextRowClickAppend;
    property IndicatorBarWidth;
  end;

//{
  TCMoneyDBGrid = class(TCChinaCustomDbGrid)
  public
    property GridHeight;
    property RowCount;
    property Canvas;
    property SelectedRows;
  published
    property Align;
    property BorderStyle;
    property Color;
    property Columns stored False;
    property Ctl3D;
    property DataSource;
    property DefaultDrawing;
    property DragCursor;
    property DragMode;
    property Enabled;
    property FixedColor;
    property Font;
    property ImeMode;
    property ImeName;
    property Options;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ReadOnly;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property TitleFont;
    property Visible;
    property OnCellClick;
    property OnColEnter;
    property OnColExit;
    property OnColumnMoved;
    property OnDrawDataCell;
    property OnDrawColumnCell;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEditButtonClick;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnStartDrag;
    property OnTitleClick;

    property Anchors;
    property BiDiMode;
    property Constraints;
    property DragKind;
    property ParentBiDiMode;
    property OnEndDock;
    property OnStartDock;

    property AllowedOperations;
    property FrozenColCount;
    //property FooterRowCount;
    property FooterFont;
    property FooterColor;
    property TitleHeight;
    //property VTitleMargin;
    property MultiTitle;
    property AutoFitColWidths;
    property MinAutoFitWidth;
    property RowHeight;
    property HorzScrollBar;
    property VertScrollBar;
    property TitleImages;
    property OptionsEx;

    property OnDrawFooterCell;
    property OnGetFooterParams;
    property OnCheckButton;
    property OnGetBtnParams;
    property OnTitleBtnClick;
    property OnGetCellParams;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnSortMarkingChanged;
    property OnGetIndicatorParams;
    property OnSelectCell;
    property OnIndicatorClick;

    property RowSingleColor;
    property RowDoubleColor;
    property OnCalcFieldInput;
    property OnCalcFieldAfterInput;
    property OnEnterToTab;
    property EditButtonShortCut;
    property ShowCalcRow;
    property RedWord;
    property OnCellEditing;
    property CheckGlyphs;
    property NextRowClickAppend;
    property IndicatorBarWidth;
  end;
//}

var
  SortMarkerFont: TFont;

const
  ColSelectionAreaHeight: Integer = 7;


procedure CSWriteText(
  ACanvas: TCanvas;                      //画布
  ARect: TRect;                          //区域
  FillRect: Boolean;                     //是否填充区域
  DX, DY: Integer;                       //文字的X,Y轴坐标
  Text: string;                          //文字
  Alignment: TAlignment;                 //文字对齐方式
  Layout: TTextLayout;                   //文字外观
  MultiLine: Boolean;                    //是否多行显示
  EndEllipsis: Boolean;                  //是否将长文字截取替换成省略号
  LeftMarg: Integer;                     //左边界
  RightMarg: Integer);                   //右边界

function FloatToMoneyText(const Value: double): string;  //将浮点数的数值转换成金额字符串
function Space(const Length: Integer): string;  //根据Length长度生成重复的空格字符串
procedure PaintMoneyText(Canvas: TCanvas; S: string; R: TRect; Positive: Boolean;
  BrushColor: TColor; ColCount: Integer; Dichromatic: Boolean;
  RowSingleColor, RowDoubleColor: TColor; ARow: Integer);
//画金额的单元格，Positive 是数值是否为正数，BrushColor 是背景颜色，ColCount是金额的数位
//Dichromatic是是否双色显示，RowSingleColor是单行颜色，RowDoubleColor是双行颜色，ARow是数据行号
function IsNumeric(const S: string): Boolean;  //判断字符串是否是数字

implementation

uses CMoneyBlobEd;

{$R CMoneyDbGrids.RES}

const
  //图片名称
  bmArrow = 'CMoneyDBGARROW';
  bmEdit = 'CMoneyDBEDIT';
  bmInsert = 'CMoneyDBINSERT';
  bmMultiDot = 'CMoneyDBMULTIDOT';
  bmMultiArrow = 'CMoneyDBMULTIARROW';
  bmSmDown = 'CMoneyDBSMDOWN';
  bmSmUp = 'CMoneyDBSMUP';
  bmEditWhite = 'CMoneyDBGARROWW';
  bmCalculator = 'MCSCALCULATOR';
  bmCalendar = 'MCSCALENDAR';
  bmPickList = 'MCSPICKLIST';
  bmChecked = 'MCSCHECKED';
  bmUnChecked = 'MCSUNCHECKED';
  bmGray = 'MCSGRAY';
  bmMemo = 'MCSMEMO';
  bmGraphic = 'MCSGRAPHIC';

{$IFNDEF SDComp7}
  //光标
  crDownCur: Integer = 0;
  crRightCur: Integer = 0;
  crChe