Class TCalMultiGrid (unit Calmuniv) |
Inherits from
TCustomGrid
constructor Create(AOwner : TComponent);
- Public declarations
function CellBounds(i: Integer): TRect;
function CellIndex(ACol, ARow : Longint) : Integer;
procedure DeselectAll;
destructor Destroy;
function MouseToCell(X, Y: Integer): Integer;
procedure Reset;
procedure Select(Index: Integer);
change highlighted cell
procedure SelectAll;
procedure SetSize(AColCount, ARowCount : Longint);
procedure SizeGrid;
The current selection is copied to a temporary buffer and then
restored once the inherited sizing is complete
procedure BeginUpdate;
BeginUpdate and EndUpdate
These are internal methods used to prevent the grid from redrawing
when some shuffling of properties is taking place.
procedure CellSelected(i : Integer; IsSelected : Boolean);
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState);
procedure EndUpdate;
function SelectCell(ACol, ARow: Longint): Boolean;
procedure SizeChanged(OldColCount, OldRowCount: Longint);
Protected declarations if the computed row count exceeds the number of rows that
can be displayed, take the scroll bar width into account and recalculate
procedure TopLeftChanged;
function GetFocus : Integer;
function GetSelected(i : Integer): Boolean;
function GetThumbTrack: Boolean;
procedure SetDropFocus(value: Integer);
procedure SetFocus(i : Integer);
procedure SetMulti(m: Boolean);
procedure SetSelColor(value: TColor);
procedure SetSelected(i : Integer; Sel : Boolean);
procedure SetThumbTrack(value : Boolean);
property AllowMulti : Boolean
property ColCount :
property Color :
property Ctl3D :
property DefaultColWidth :
property DefaultDrawing :
property DefaultRowHeight :
property DragCursor :
property DragMode :
property Enabled :
property Focus : Integer
Published declarations
property Font :
property GridLineWidth :
property Limit : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property RowCount :
property Scrollbars :
property SelColor : TColor
property ShowHint :
property TabOrder :
property ThumbTrack : Boolean
property Visible :
property Canvas :
property DropFocus : Integer
property LeftCol :
property Multi : Boolean
property SelCount : Integer
property Selected : Boolean
property TopRow :
property VisibleColCount :
property VisibleRowCount :
event OnCellSelected : TCellSelectedEvent
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDrawCell : TMultiDrawCellEvent
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnSelect : TGridSelectEvent
event OnSelectCell : TMultiSelectCellEvent
event OnTopLeftChange : TNotifyEvent
FAllowMulti : Boolean;
FDropFocus : Integer;
FLimit : Integer;
FMulti : Boolean;
FOnCellSelected : TCellSelectedEvent;
FOnDrawCell : TMultiDrawCellEvent;
FOnSelect : TGridSelectEvent;
FOnSelectCell : TMultiSelectCellEvent;
FOnTopLeftChange : TNotifyEvent;
FSelColor : TColor;
FSelCount : Integer;
FSelected : PBooleanList;
Private declarations
FUpdates : Integer;
constructor Create(AOwner : TComponent);
Public declarations
function CellBounds(i: Integer): TRect;
function CellIndex(ACol, ARow : Longint) : Integer;
procedure DeselectAll;
destructor Destroy;
function MouseToCell(X, Y: Integer): Integer;
procedure Reset;
procedure Select(Index: Integer);
change highlighted cell
procedure SelectAll;
procedure SetSize(AColCount, ARowCount : Longint);
procedure SizeGrid;
The current selection is copied to a temporary buffer and then
restored once the inherited sizing is complete
procedure BeginUpdate;
BeginUpdate and EndUpdate
These are internal methods used to prevent the grid from redrawing
when some shuffling of properties is taking place. When TCalMultiGrid
is in an "updating" state, OnSelectCell and OnDrawCell are bypassed
procedure CellSelected(i : Integer; IsSelected : Boolean);
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState);
procedure EndUpdate;
function SelectCell(ACol, ARow: Longint): Boolean;
procedure SizeChanged(OldColCount, OldRowCount: Longint);
Protected declarations
if the computed row count exceeds the number of rows that
can be displayed, take the scroll bar width into account and recalculate
procedure TopLeftChanged;
function GetFocus : Integer;
function GetSelected(i : Integer): Boolean;
function GetThumbTrack: Boolean;
procedure SetDropFocus(value: Integer);
procedure SetFocus(i : Integer);
procedure SetMulti(m: Boolean);
procedure SetSelColor(value: TColor);
procedure SetSelected(i : Integer; Sel : Boolean);
procedure SetThumbTrack(value : Boolean);
property AllowMulti : Boolean
property ColCount :
property Color :
property Ctl3D :
property DefaultColWidth :
property DefaultDrawing :
property DefaultRowHeight :
property DragCursor :
property DragMode :
property Enabled :
property Focus : Integer
Published declarations
property Font :
property GridLineWidth :
property Limit : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property RowCount :
property Scrollbars :
property SelColor : TColor
property ShowHint :
property TabOrder :
property ThumbTrack : Boolean
property Visible :
property Canvas :
property DropFocus : Integer
property LeftCol :
property Multi : Boolean
property SelCount : Integer
property Selected : Boolean
property TopRow :
property VisibleColCount :
property VisibleRowCount :
event OnCellSelected : TCellSelectedEvent
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDrawCell : TMultiDrawCellEvent
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnSelect : TGridSelectEvent
event OnSelectCell : TMultiSelectCellEvent
event OnTopLeftChange : TNotifyEvent
FAllowMulti : Boolean;
FDropFocus : Integer;
FLimit : Integer;
FMulti : Boolean;
FOnCellSelected : TCellSelectedEvent;
FOnDrawCell : TMultiDrawCellEvent;
FOnSelect : TGridSelectEvent;
FOnSelectCell : TMultiSelectCellEvent;
FOnTopLeftChange : TNotifyEvent;
FSelColor : TColor;
FSelCount : Integer;
FSelected : PBooleanList;
Private declarations
FUpdates : Integer;