Class TCustomRBWDataGrid

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TCustomRBWDataGrid = class(TStringGrid)

Description

Hierarchy

Overview

Fields

Private FDeleting: Boolean;
Private FDeletingRow: boolean;
Private FAnchor: TGridCoord;
Private FOtherPoint: TGridCoord;
Private FAutoDistributeText: boolean;
Private FChecked: array of array of TCheckBoxState;
Private FColWidths: TIntegerDynArray;
Private FComboColumn: integer;
Private FComboRow: integer;
Private FDrawing: boolean;
Private fMouseIsDown: boolean;
Private FOnButtonClick: TGridButtonEvent;
Private FOnColMoving: TCheckMoveEvent;
Private FOnColSize: TColSizeEvent;
Private FOnRowMoving: TCheckMoveEvent;
Private FOnStateChange: TChangeCheckEvent;
Private FOptions: TGridOptions;
Private FPriorOnFontChange: TNotifyEvent;
Private FRangeSelections: TRangeSelections;
Private FSelectedRowOrColumnColor: TColor;
Private FUnselectableColor: TColor;
Private FUpdating: boolean;
Private FRangeSelectionColor: TColor;
Private FColorRangeSelection: boolean;
Private FRangeSelectionFontColor: TColor;
Private FOnBeforeDrawCell: TBeforeDrawCellEvent;
Private FAutoIncreaseRowCount: boolean;
Private FOnVScroll: TNotifyEvent;
Private FOnHScroll: TNotifyEvent;
Private FSpecialFormat: array of array of ISpecialFormatter;
Private FOnDistributeTextProgress: TDistributeTextProgressEvent;
Private FAutoIncreaseColCount: boolean;
Private FDistributingText: Boolean;
Private FAutoMultiEdit: boolean;
Private FExtendedAutoDistributeText: boolean;
Private FDecimalSeparator: Char;
Private FAppEvents: TApplicationEvents;
Protected FColorSelectedColumnOrRow: boolean;
Protected FdgColumn: integer;
Protected FdgRow: integer;
Protected FFixedCols: integer;
Protected FSelectedRow: integer;

Methods

Private function CollectionItem(const ACol, ARow: Longint): TCustomRowOrColumn; virtual; abstract;
Private function GetCellVisible(ACol, ARow: Integer): boolean;
Private function GetChecked(const ACol, ARow: integer): boolean;
Private function GetCheckState(const ACol, ARow: integer): TCheckBoxState;
Private function GetColCount: Longint;
Private function GetRowCount: Longint;
Private function LocalizeString(ANumberString : string) : string;
Private function LocalStrToFloat(S: string): Extended;
Private function RequiredCellHeight(const ACol, ARow: integer): integer;
Private function TextRect(const ACol, ARow: integer): TRect;
Private procedure AdjustRowHeights(const ARow: integer); virtual; abstract;
Private procedure ButtonClick(Sender: TObject);
Private procedure FillCaptionList(CellCaption: string; const CaptionList: TStringList; Width: integer);
Private procedure MoveCheckStateWithColumn(FromColIndex, ToColIndex: Integer);
Private procedure MoveCheckStateWithRow(FromRowIndex, ToRowIndex: Integer);
Private procedure SetChecked(const ACol, ARow: integer; const Value: boolean);
Private procedure SetCheckState(const ACol, ARow: integer; const Value: TCheckBoxState);
Private procedure SetColCount(const Value: Longint);
Private procedure SetdgColumn(const Value: integer);
Private procedure SetdgRow(const Value: integer);
Private procedure SetOptions(const Value: TGridOptions);
Private procedure SetRowCount(const Value: Longint);
Private procedure SetSelectedRowOrColumnColor(const Value: TColor);
Private procedure SetUnselectableColor(const Value: TColor);
Private function GetSelection: TGridRect;
Private procedure SetSelection(const Value: TGridRect);
Private procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;
Private procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
Private procedure SetColumn(const Value: integer);
Private procedure SetRow(const Value: integer);
Private function GetRangeSelection: TGridRect;
Private procedure SetColorRangeSelection(const Value: boolean);
Private procedure SetRangeSelectionColor(const Value: TColor);
Private procedure SetRangeSelectionFontColor(const Value: TColor);
Private function GetSpecialFormat(ACol, ARow: Integer): TRbwColumnFormat4;
Private function GetUseSpecialFormat(ACol, ARow: Integer): boolean;
Private procedure ResizeSpecialFormat;
Private procedure AssignSpecialFormat(ACol, ARow: Integer);
Private procedure SetSpecialFormat(ACol, ARow: Integer; const Value: TRbwColumnFormat4);
Private procedure SetUseSpecialFormat(ACol, ARow: Integer; const Value: boolean);
Private function GetCellFormat(const ACol, ARow: Integer): TRbwColumnFormat4;
Private procedure GetPickListItems(ACol, ARow: Integer; Items: TStrings);
Private procedure GetButtonCaption(Sender: TObject; var ButtonCaption: string);
Private procedure GetButtonWidth(Sender: TObject; var ButtonWidth: Integer);
Private function GetColVisible(ACol: Integer): boolean;
Private function GetItemIndex(const ACol, ARow: integer): integer;
Private procedure SetItemIndex(const ACol, ARow, Value: integer);
Private procedure SetExtendedAutoDistributeText(const Value: boolean);
Private procedure SetAutoIncreaseColCount(const Value: boolean);
Protected function CanEditShow: Boolean; override;
Protected function CheckColumnDrag(var Origin, Destination: Integer; const MousePt: TPoint): Boolean; override;
Protected function CheckRowDrag(var Origin, Destination: Integer; const MousePt: TPoint): Boolean; override;
Protected function ColorSelectedRowOrColumn(ACol, ARow: integer) : boolean; virtual; abstract;
Protected function ColumnOrRow: integer; virtual; abstract;
Protected function CreateEditor: TInplaceEdit; override;
Protected function GetEditStyle(ACol, ARow: Longint): TEditStyle; override;
Protected procedure FontChanged(Sender: TObject);
Protected function GetCaptionFlags(const ACol, ARow: integer) : UINT; virtual;
Protected function GetCellFlags(const ACol, ARow: integer): UINT; virtual;
Protected function GetCells(ACol, ARow: Integer): string;
Protected function GetFixedCols : integer;
Protected function IsCaptionCell(ACol, ARow: integer): boolean; virtual; abstract;
Protected function SelectCell(ACol, ARow: Longint): Boolean; override;
Protected function ShouldAdujstColWidths(ACol: integer): boolean; virtual; abstract;
Protected procedure AdjustColWidths(const ACol: integer); virtual; abstract;
Protected procedure ColWidthsChanged; override;
Protected procedure DoExit; override;
Protected procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
Protected procedure DrawCheckBoxCell(ACol, ARow: Integer; ARect: TRect; AState: TGridDrawState);
Protected procedure DrawCaptionCell(ACol, ARow: Integer; ARect: TRect; AState: TGridDrawState); virtual;
Protected procedure DrawOrdinaryCell(ACol, ARow: Integer; ARect: TRect; AState: TGridDrawState);
Protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
Protected procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
Protected procedure Resize; override;
Protected procedure SetCells(ACol, ARow: Integer; const Value: string); virtual;
Protected procedure SetColorSelectedColumnOrRow(const Value: boolean);
Protected procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
Protected procedure SetFixedCols(const Value : integer);
Protected function RequiredCellWidth(const ACol, ARow: integer): integer;
Protected procedure SetEnabled(Value: boolean); override;
Protected procedure TopLeftChanged(); override;
Protected procedure KeyDown(var Key: Word; Shift: TShiftState); override;
Protected procedure KeyUp(var Key: Word; Shift: TShiftState); override;
Protected procedure KeyPress(var Key: Char); override;
Public function WidthNeededToFitText(const ACol, ARow: Integer): integer;
Public procedure SelectAll;
Public procedure ClearSelection;
Public procedure CopyAllCellsToClipboard;
Public procedure CopySelectedCellsToClipboard;
Public procedure UpdateEditor;
Public procedure BeginUpdate; virtual;
Public procedure EndUpdate; virtual;
Public constructor Create(AOwner: TComponent); override;
Public destructor Destroy; override;
Public function DistributeText(const ACol, ARow: integer; CellContents: string): boolean;
Public procedure InsertColumn(ACol: Integer); virtual;
Public procedure InsertRow(ARow: Integer); virtual;
Public function IsSelectedCell(ACol, ARow: Integer): boolean;
Public procedure AddRangeSelection(Selection: TGridRect);
Public procedure SettingsChanged(Sender: TObject; Flag: Integer; const Section: string; var Result: Longint);

Properties

Protected property dgColumn : integer read FdgColumn write SetdgColumn;
Protected property dgRow : integer read FdgRow write SetdgRow;
Public property DistributingText: boolean read FDistributingText;
Public property Cells[ACol,ARow:Integer]: string read GetCells write SetCells;
Public property CellVisible[ACol,ARow:Integer]: boolean read GetCellVisible;
Public property ColVisible[ACol:Integer]: boolean read GetColVisible;
Public property Checked[constACol,ARow:integer]: boolean read GetChecked write SetChecked;
Public property CheckState[constACol,ARow:integer]: TCheckBoxState read GetCheckState write SetCheckState;
Public property Drawing: boolean read FDrawing;
Public property State[constACol,ARow:integer]: TCheckBoxState read GetCheckState write SetCheckState;
Public property Selection: TGridRect read GetSelection write SetSelection;
Public property RangeSelection: TGridRect read GetRangeSelection;
Public property Column: integer read FdgColumn write SetColumn;
Public property Row: integer read FdgRow write SetRow;
Public property UseSpecialFormat[ACol,ARow:Integer]: boolean read GetUseSpecialFormat write SetUseSpecialFormat;
Public property SpecialFormat[ACol,ARow:Integer]: TRbwColumnFormat4 read GetSpecialFormat write SetSpecialFormat;
Public property ItemIndex[constACol,ARow:integer]: integer read GetItemIndex write SetItemIndex;
Published property ExtendedAutoDistributeText: boolean read FExtendedAutoDistributeText write SetExtendedAutoDistributeText;
Published property AutoMultiEdit: boolean read FAutoMultiEdit write FAutoMultiEdit;
Published property AutoDistributeText: boolean read FAutoDistributeText write FAutoDistributeText;
Published property AutoIncreaseColCount: boolean read FAutoIncreaseColCount write SetAutoIncreaseColCount;
Published property AutoIncreaseRowCount: boolean read FAutoIncreaseRowCount write FAutoIncreaseRowCount;
Published property ColCount: Longint read GetColCount write SetColCount default 5;
Published property FixedCols : integer read GetFixedCols write SetFixedCols;
Published property Options: TGridOptions read FOptions write SetOptions default [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect];
Published property RowCount: Longint read GetRowCount write SetRowCount default 5;
Published property SelectedRowOrColumnColor : TColor read FSelectedRowOrColumnColor write SetSelectedRowOrColumnColor;
Published property UnselectableColor : TColor read FUnselectableColor write SetUnselectableColor;
Published property OnBeforeDrawCell: TBeforeDrawCellEvent read FOnBeforeDrawCell write FOnBeforeDrawCell;
Published property OnButtonClick: TGridButtonEvent read FOnButtonClick write FOnButtonClick;
Published property OnColMoving: TCheckMoveEvent read FOnColMoving write FOnColMoving;
Published property OnColSize: TColSizeEvent read FOnColSize write FOnColSize;
Published property OnRowMoving: TCheckMoveEvent read FOnRowMoving write FOnRowMoving;
Published property OnStateChange: TChangeCheckEvent read FOnStateChange write FOnStateChange;
Published property ColorRangeSelection: boolean read FColorRangeSelection write SetColorRangeSelection;
Published property RangeSelectionColor: TColor read FRangeSelectionColor write SetRangeSelectionColor default clBlue;
Published property RangeSelectionFontColor: TColor read FRangeSelectionFontColor write SetRangeSelectionFontColor default clWhite;
Published property OnVerticalScroll: TNotifyEvent read FOnVScroll write FOnVScroll;
Published property OnHorizontalScroll: TNotifyEvent read FOnHScroll write FOnHScroll;
Published property OnDistributeTextProgress: TDistributeTextProgressEvent read FOnDistributeTextProgress write FOnDistributeTextProgress;

Description

Fields

Private FDeleting: Boolean;
 
Private FDeletingRow: boolean;
 
Private FAnchor: TGridCoord;
 
Private FOtherPoint: TGridCoord;
 
Private FAutoDistributeText: boolean;
 
Private FChecked: array of array of TCheckBoxState;
 
Private FColWidths: TIntegerDynArray;
 
Private FComboColumn: integer;
 
Private FComboRow: integer;
 
Private FDrawing: boolean;
 
Private fMouseIsDown: boolean;
 
Private FOnButtonClick: TGridButtonEvent;
 
Private FOnColMoving: TCheckMoveEvent;
 
Private FOnColSize: TColSizeEvent;
 
Private FOnRowMoving: TCheckMoveEvent;
 
Private FOnStateChange: TChangeCheckEvent;
 
Private FOptions: TGridOptions;
 
Private FPriorOnFontChange: TNotifyEvent;
 
Private FRangeSelections: TRangeSelections;
 
Private FSelectedRowOrColumnColor: TColor;
 
Private FUnselectableColor: TColor;
 
Private FUpdating: boolean;
 
Private FRangeSelectionColor: TColor;
 
Private FColorRangeSelection: boolean;
 
Private FRangeSelectionFontColor: TColor;
 
Private FOnBeforeDrawCell: TBeforeDrawCellEvent;
 
Private FAutoIncreaseRowCount: boolean;
 
Private FOnVScroll: TNotifyEvent;
 
Private FOnHScroll: TNotifyEvent;
 
Private FSpecialFormat: array of array of ISpecialFormatter;

FSpecialFormat is used to define a format for a particular cell that differs from the one that would ordinarily be used for that cell.

Private FOnDistributeTextProgress: TDistributeTextProgressEvent;
 
Private FAutoIncreaseColCount: boolean;
 
Private FDistributingText: Boolean;
 
Private FAutoMultiEdit: boolean;
 
Private FExtendedAutoDistributeText: boolean;
 
Private FDecimalSeparator: Char;
 
Private FAppEvents: TApplicationEvents;
 
Protected FColorSelectedColumnOrRow: boolean;
 
Protected FdgColumn: integer;
 
Protected FdgRow: integer;
 
Protected FFixedCols: integer;
 
Protected FSelectedRow: integer;
 

Methods

Private function CollectionItem(const ACol, ARow: Longint): TCustomRowOrColumn; virtual; abstract;
 
Private function GetCellVisible(ACol, ARow: Integer): boolean;
 
Private function GetChecked(const ACol, ARow: integer): boolean;
 
Private function GetCheckState(const ACol, ARow: integer): TCheckBoxState;
 
Private function GetColCount: Longint;
 
Private function GetRowCount: Longint;
 
Private function LocalizeString(ANumberString : string) : string;
 
Private function LocalStrToFloat(S: string): Extended;
 
Private function RequiredCellHeight(const ACol, ARow: integer): integer;
 
Private function TextRect(const ACol, ARow: integer): TRect;
 
Private procedure AdjustRowHeights(const ARow: integer); virtual; abstract;
 
Private procedure ButtonClick(Sender: TObject);
 
Private procedure FillCaptionList(CellCaption: string; const CaptionList: TStringList; Width: integer);
 
Private procedure MoveCheckStateWithColumn(FromColIndex, ToColIndex: Integer);
 
Private procedure MoveCheckStateWithRow(FromRowIndex, ToRowIndex: Integer);
 
Private procedure SetChecked(const ACol, ARow: integer; const Value: boolean);
 
Private procedure SetCheckState(const ACol, ARow: integer; const Value: TCheckBoxState);
 
Private procedure SetColCount(const Value: Longint);
 
Private procedure SetdgColumn(const Value: integer);
 
Private procedure SetdgRow(const Value: integer);
 
Private procedure SetOptions(const Value: TGridOptions);
 
Private procedure SetRowCount(const Value: Longint);
 
Private procedure SetSelectedRowOrColumnColor(const Value: TColor);
 
Private procedure SetUnselectableColor(const Value: TColor);
 
Private function GetSelection: TGridRect;
 
Private procedure SetSelection(const Value: TGridRect);
 
Private procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;
 
Private procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
 
Private procedure SetColumn(const Value: integer);
 
Private procedure SetRow(const Value: integer);
 
Private function GetRangeSelection: TGridRect;
 
Private procedure SetColorRangeSelection(const Value: boolean);
 
Private procedure SetRangeSelectionColor(const Value: TColor);
 
Private procedure SetRangeSelectionFontColor(const Value: TColor);
 
Private function GetSpecialFormat(ACol, ARow: Integer): TRbwColumnFormat4;
 
Private function GetUseSpecialFormat(ACol, ARow: Integer): boolean;
 
Private procedure ResizeSpecialFormat;
 
Private procedure AssignSpecialFormat(ACol, ARow: Integer);
 
Private procedure SetSpecialFormat(ACol, ARow: Integer; const Value: TRbwColumnFormat4);
 
Private procedure SetUseSpecialFormat(ACol, ARow: Integer; const Value: boolean);
 
Private function GetCellFormat(const ACol, ARow: Integer): TRbwColumnFormat4;
 
Private procedure GetPickListItems(ACol, ARow: Integer; Items: TStrings);
 
Private procedure GetButtonCaption(Sender: TObject; var ButtonCaption: string);
 
Private procedure GetButtonWidth(Sender: TObject; var ButtonWidth: Integer);
 
Private function GetColVisible(ACol: Integer): boolean;
 
Private function GetItemIndex(const ACol, ARow: integer): integer;
 
Private procedure SetItemIndex(const ACol, ARow, Value: integer);
 
Private procedure SetExtendedAutoDistributeText(const Value: boolean);
 
Private procedure SetAutoIncreaseColCount(const Value: boolean);
 
Protected function CanEditShow: Boolean; override;
 
Protected function CheckColumnDrag(var Origin, Destination: Integer; const MousePt: TPoint): Boolean; override;
 
Protected function CheckRowDrag(var Origin, Destination: Integer; const MousePt: TPoint): Boolean; override;
 
Protected function ColorSelectedRowOrColumn(ACol, ARow: integer) : boolean; virtual; abstract;
 
Protected function ColumnOrRow: integer; virtual; abstract;
 
Protected function CreateEditor: TInplaceEdit; override;
 
Protected function GetEditStyle(ACol, ARow: Longint): TEditStyle; override;
 
Protected procedure FontChanged(Sender: TObject);
 
Protected function GetCaptionFlags(const ACol, ARow: integer) : UINT; virtual;
 
Protected function GetCellFlags(const ACol, ARow: integer): UINT; virtual;
 
Protected function GetCells(ACol, ARow: Integer): string;
 
Protected function GetFixedCols : integer;
 
Protected function IsCaptionCell(ACol, ARow: integer): boolean; virtual; abstract;
 
Protected function SelectCell(ACol, ARow: Longint): Boolean; override;
 
Protected function ShouldAdujstColWidths(ACol: integer): boolean; virtual; abstract;
 
Protected procedure AdjustColWidths(const ACol: integer); virtual; abstract;
 
Protected procedure ColWidthsChanged; override;
 
Protected procedure DoExit; override;
 
Protected procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
 
Protected procedure DrawCheckBoxCell(ACol, ARow: Integer; ARect: TRect; AState: TGridDrawState);
 
Protected procedure DrawCaptionCell(ACol, ARow: Integer; ARect: TRect; AState: TGridDrawState); virtual;
 
Protected procedure DrawOrdinaryCell(ACol, ARow: Integer; ARect: TRect; AState: TGridDrawState);
 
Protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
 
Protected procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
 
Protected procedure Resize; override;
 
Protected procedure SetCells(ACol, ARow: Integer; const Value: string); virtual;
 
Protected procedure SetColorSelectedColumnOrRow(const Value: boolean);
 
Protected procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
 
Protected procedure SetFixedCols(const Value : integer);
 
Protected function RequiredCellWidth(const ACol, ARow: integer): integer;
 
Protected procedure SetEnabled(Value: boolean); override;
 
Protected procedure TopLeftChanged(); override;
 
Protected procedure KeyDown(var Key: Word; Shift: TShiftState); override;
 
Protected procedure KeyUp(var Key: Word; Shift: TShiftState); override;
 
Protected procedure KeyPress(var Key: Char); override;
 
Public function WidthNeededToFitText(const ACol, ARow: Integer): integer;
 
Public procedure SelectAll;
 
Public procedure ClearSelection;
 
Public procedure CopyAllCellsToClipboard;
 
Public procedure CopySelectedCellsToClipboard;
 
Public procedure UpdateEditor;
 
Public procedure BeginUpdate; virtual;
 
Public procedure EndUpdate; virtual;
 
Public constructor Create(AOwner: TComponent); override;
 
Public destructor Destroy; override;
 
Public function DistributeText(const ACol, ARow: integer; CellContents: string): boolean;
 
Public procedure InsertColumn(ACol: Integer); virtual;

InsertColumn returns the TCustomRowOrColumn for a cell. Use InsertColumn to insert a column at position ACol.

Public procedure InsertRow(ARow: Integer); virtual;

Use InsertRow to insert a row at position ARow.

Public function IsSelectedCell(ACol, ARow: Integer): boolean;
 
Public procedure AddRangeSelection(Selection: TGridRect);
 
Public procedure SettingsChanged(Sender: TObject; Flag: Integer; const Section: string; var Result: Longint);
 

Properties

Protected property dgColumn : integer read FdgColumn write SetdgColumn;
 
Protected property dgRow : integer read FdgRow write SetdgRow;
 
Public property DistributingText: boolean read FDistributingText;
 
Public property Cells[ACol,ARow:Integer]: string read GetCells write SetCells;
 
Public property CellVisible[ACol,ARow:Integer]: boolean read GetCellVisible;

CellVisible is used to determine whether the cell designated by ACol and ARow is visible.

Public property ColVisible[ACol:Integer]: boolean read GetColVisible;
 
Public property Checked[constACol,ARow:integer]: boolean read GetChecked write SetChecked;
 
Public property CheckState[constACol,ARow:integer]: TCheckBoxState read GetCheckState write SetCheckState;
 
Public property Drawing: boolean read FDrawing;
 
Public property State[constACol,ARow:integer]: TCheckBoxState read GetCheckState write SetCheckState;

same as CheckState

Public property Selection: TGridRect read GetSelection write SetSelection;
 
Public property RangeSelection: TGridRect read GetRangeSelection;
 
Public property Column: integer read FdgColumn write SetColumn;
 
Public property Row: integer read FdgRow write SetRow;
 
Public property UseSpecialFormat[ACol,ARow:Integer]: boolean read GetUseSpecialFormat write SetUseSpecialFormat;
 
Public property SpecialFormat[ACol,ARow:Integer]: TRbwColumnFormat4 read GetSpecialFormat write SetSpecialFormat;
 
Public property ItemIndex[constACol,ARow:integer]: integer read GetItemIndex write SetItemIndex;
 
Published property ExtendedAutoDistributeText: boolean read FExtendedAutoDistributeText write SetExtendedAutoDistributeText;
 
Published property AutoMultiEdit: boolean read FAutoMultiEdit write FAutoMultiEdit;
 
Published property AutoDistributeText: boolean read FAutoDistributeText write FAutoDistributeText;
 
Published property AutoIncreaseColCount: boolean read FAutoIncreaseColCount write SetAutoIncreaseColCount;
 
Published property AutoIncreaseRowCount: boolean read FAutoIncreaseRowCount write FAutoIncreaseRowCount;
 
Published property ColCount: Longint read GetColCount write SetColCount default 5;
 
Published property FixedCols : integer read GetFixedCols write SetFixedCols;
 
Published property Options: TGridOptions read FOptions write SetOptions default [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect];

Options reimplements TStringGrid.Options. A local copy of Options is stored in FOptions. Inherited Options is sometimes changed.

Published property RowCount: Longint read GetRowCount write SetRowCount default 5;
 
Published property SelectedRowOrColumnColor : TColor read FSelectedRowOrColumnColor write SetSelectedRowOrColumnColor;

SelectedRowOrColumnColor is the color of the selected row (in TRbwDataGrid4 or selected column (in TRbwRowDataGrid). It is only used if ColorSelectedRowOrColumn is true.

Published property UnselectableColor : TColor read FUnselectableColor write SetUnselectableColor;
 
Published property OnBeforeDrawCell: TBeforeDrawCellEvent read FOnBeforeDrawCell write FOnBeforeDrawCell;
 
Published property OnButtonClick: TGridButtonEvent read FOnButtonClick write FOnButtonClick;
 
Published property OnColMoving: TCheckMoveEvent read FOnColMoving write FOnColMoving;

OnColMoving is called when a column is moved.

Published property OnColSize: TColSizeEvent read FOnColSize write FOnColSize;
 
Published property OnRowMoving: TCheckMoveEvent read FOnRowMoving write FOnRowMoving;

OnRowMoving is called when a row is moved.

Published property OnStateChange: TChangeCheckEvent read FOnStateChange write FOnStateChange;
 
Published property ColorRangeSelection: boolean read FColorRangeSelection write SetColorRangeSelection;
 
Published property RangeSelectionColor: TColor read FRangeSelectionColor write SetRangeSelectionColor default clBlue;
 
Published property RangeSelectionFontColor: TColor read FRangeSelectionFontColor write SetRangeSelectionFontColor default clWhite;
 
Published property OnVerticalScroll: TNotifyEvent read FOnVScroll write FOnVScroll;
 
Published property OnHorizontalScroll: TNotifyEvent read FOnHScroll write FOnHScroll;
 
Published property OnDistributeTextProgress: TDistributeTextProgressEvent read FOnDistributeTextProgress write FOnDistributeTextProgress;
 

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:59