Class TCalMultiGrid (unit Calmuniv)

Inherits from

TCustomGrid

Constructors


constructor Create(AOwner : TComponent);

Public declarations


Functions

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);


Properties

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 :


Events

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


Variables

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;



Constructors


constructor Create(AOwner : TComponent);

Public declarations


Functions


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);


Properties


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 :


Events


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


Variables


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;