Определяет рамку компонента: bsNone нет
Свойства компонента:
| property BorderStyle: TBorderStyle; | Определяет рамку компонента: bsNone нет рамки; bsSingle - рамка толщиной 1 пиксель |
| property Cells[ACol, ARow: Integer] :String; | Определяет содержимое ячейки с табличными координатами (ACol, ARow) |
| property Col: Longint; | Содержит номер столбца сфокусированной ячейки |
| property ColCount: Longing- | Содержит количество столбцов таблицы |
| property Cols[Index: Integer]:
TStrings; |
Содержит все строки колонки с индексом Index |
| property ColWidths[Index: Longint] : Integer; | Содержит ширину столбца с индексом Index |
| property DefaultColWidth: Integers; | Содержит умалчиваемое значение ширины столбца |
| property DefaultDrawing: Boolean; | Разрешает/запрещает автоматическую прорисовку служебных элементов таблицы - фиксированной зоны, фона и прямоугольника сфокусированной ячейки и
т. п. |
| property DefaultRowHeight: Integers; | Содержит умалчиваемую высоту рядов |
| property EditorMode: Boolean; | Разрешает/запрещает редактирование ячеек. гнорируется, если свойство Options включает goAlwayseShowEditor или не включает goEditing |
| property FixedColor: TColor; | Определяет цвет фиксированной зоны |
| property FixedCois: Integers; | Определяет количество столбцов фиксированной зоны |
| property FixedRows: Integers; | Определяет количество рядов фиксированной зоны |
| property GridHeight: Integers; | Содержит высоту таблицы |
| property GridLineWidth: Integers; | Определяет толщину линий, расчерчивающих таблицу |
| property GridWidth: Integers; | Содержит ширину таблицы |
| property LeftCol: Longint; | Содержит номер самого левого столбца, видимого в зоне прокрутки |
| property Objects [ACols ARow: Integer] : TObject; | Обеспечивает доступ к объекту, связанному с ячейкой (ACol, ARow) |
| property Options: TGridOptions; | Содержит параметры таблицы (см. ниже) |
| property Row: Longing; | Содержит номер ряда сфокусированной ячейки |
| property RowCount: Longint; | Содержит количество рядов таблицы |
| property RowHeights[Index: Long int] : Integer; | Содержит высоту ряда с индексом index |
| property Rows[Index: Integer]: TStrings; | Содержит все строки ряда с индексом
Index |
| type TScrollStyle = (ssNone,
ssHorizontal, ssVertical, ssBoth) ; |
Определяет полосы прокрутки: ssNone -нет полос; ssHorizontal - в таблицу вставляется горизонтальная полоса; |
| property ScrollBars: TScroll
Style; |
ssVertical - вставляется вертикальная
полоса; ssBoth - вставляются обе полосы |
| TGridRect = record
case Integer of 0: (Left,Top,Right,Bottom: Long int) ; 1: (TopLeft, BottomRight: TGridCoord) ; end; |
Определяет группу выделенных ячеек в
координатах левая верхняя и правая нижняя ячейки(нумерация столбцов и рядов идет от нуля, включая столбцы и ряды фиксированной зоны). После выделения сфокусированной окажется правая нижняя ячейка |
| property Selection: TGridRect;
property TabStops[Index: Long int] : Boolean; |
Разрешает/запрещает выбирать столбец с индексом index при обходе ячеек клавишей Tab. Игнорируется, если Options не содержит goTabs |
| property TopRow: Longint; | Содержит номер самого верхнего ряда, видимого в прокручиваемой зоне ячеек |
| property VisibleColCount: Integer; | Содержит количество столбцов, полностью видимых в зоне прокрутки |
| property VisibleRowCount: Integer; | Содержит количество рядов, полностью видимых в зоне прокрутки |
type
TGridOption = (goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goTabs, goRowSelect, goAlwaysShowEditor, goThumbTracking);
TGridOptions = set of TGridOptions;
Элементы множества TGridOptions имеют следующий смысл:
| goFixedVertLine | Столбцы фиксированной зоны разделяются вертикальными линиями |
| goFixedHorzLine | Ряды фиксированной зоны разделяются горизонтальными линиями |
| goVertLine | Столбцы рабочей зоны разделяются вертикальными линиями |
| goHorzLine | Ряды рабочей зоны разделяются горизонтальными линиями |
| goRangeSelect | Разрешено выделение нескольких ячеек. Игнорируется, если включен элемент goEdit |
| goDrawFocus Selected | Разрешено выделять сфокусированную ячейку так же, как выделенные |
| goRowSizing goColSizing goRowMoviog | Разрешено ручное (мышью) изменение высоты строк Разрешено ручное изменение ширины рядов Разрешено ручное перемещение рядов (нажать левую кнопку мыши на фиксированной ячейке перемещаемого ряда и, удерживая кнопку нажатой, переместить ряд на новое место) |
| goColMoving goEditing | Разрешено ручное перемещение столбца Разрешено редактирование ячейки. Игнорируется, если включен элемент goRowSelect. Редактирование начинается после щелчка мыши или нажатия клавиши F2 и завершается при щелчке по другой ячейке или нажатии клавиши Enter |
| goTabs goRowSelect | Разрешено обходить ячейки клавишей Tab (Shift+Tab) Обязывает выделять сразу все ячейки ряда и запрещает редактирование ячеек Разрешено редактировать сфокусированную ячейку: редактирование возможно после выбора ячейки клавишей Tab (Shift+Tab). Игнорируется, если не включен элемент goEditing |
| goAlwaysShowEditorgoThumbTracking | Разрешено обновление при прокрутке. Если этот элемент отсутствует, обновление ячеек произойдет только после окончания прокрутки |
| function CellRect(ACol, ARow: TRect; Longint): | Возвращает прямоугольник ячейки по номерам столбца ACol и ряда Arow |
| procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint); | Возвращает табличные координаты ячейки ACol и arow по экранным координатам(X,У)точки |
| TMovedEvent = procedure (Sender: TObject; Fromlndex, Tolndex: Longint) of object; property OnColumnMoved: TMovedEvent; TDrawCellEvent; | Возникает при перемещении столбца с индексом Fromlndex в положение, определяемое индексом ToIndex |
| TGridDrawState = set of (gdSelected, gdFocused, gdFixed) ; TDrawCellEvent = procedure (Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState) of object-property OnDrawCell: | Возникает при необходимости перерисовать ячейку с табличными координатами (Col, Row): Rect - прямоугольник прорисовки; State - состояние ячейки (gdSelected -ячейка выделена; gdFocused - ячейка сфокусирована; gdFixed - ячейка принадлежит фиксированной зоне таблицы). Для прорисовки используется табличное свойство Canvas |
| GetEditEvent = procedure
(Sender: TObject; ACol, ARow: |
Возникает при редактировании текста в
ячейке с табличными координатами |
| Longint; var Value: String) ofobject;
property OnGetEditMask: TGetE ditEvent; |
(ACol.ARow). В параметре value обработчик должен вернуть шаблон для редактора TeditMask |
| property OnGetEditText: TGetE
ditEvent; |
Возникает при редактировании текста в ячейке с табличными координатами (ACol.ARow). В параметре value обработчик должен вернуть текст для редактора TEditMask (см. событие OmGetEditMask) |
| property OnRowMoved: TMovedEvent; | Возникает при перемещении ряда с индексом Fromindex в положение, определяемое
индексом ToIndex (см. событие onColMoved) |
| SelectCellEvent = procedure (Sender: TObject; Col, Row: Long int; var CanSelect: Boolean) of object;
property OnSelectCell: TSe lectCellEvent; |
Возникает при попытке выделить ячейку с табличными координатами (col.Row). В параметре CanSelect обработчик сообщает о возможности выделения ячейки |
| TSetEditEvent = procedure
(Sender: TObject; ACol, ARow: Longint; const Value: String) of object; property OnSetEditText: TSetEditEvent; |
Возникает при завершении редактирования
ячейки (ACol.ARow). В параметре value обработчик получает результат ввода или редактирования текста |
| property OnTopLeftChanged: TNotifyEvent; | Возникает после изменения значения ТоpRow или LeftCol в результате прокрутки рабочей зоны |
- Назовите пустую форму именем fmStGrid и положите на нее панель TPanel.
- Установите в свойство панели Align значение alBottom, чтобы панель всегда занимала самую нижнюю часть окна, и удалите текст в ее свойстве caption.
- Поместите на панель кнопку TBitBtn, установите в ее свойство
