Компонент
TDBCtrlGrid
Компонент TDBCtrlGrid внешне напоминает компонент
TDBGrid, но никак не связан с классом
TCustomDBGrid, а наследуется напрямую от класса
TWinControl.
Этот компонент позволяет отображать данные в строках в произвольной форме. Компонент представляет собой набор панелей, каждая из которых служит платформой для размещения данных отдельной записи набора данных. На панели могут размещаться любые компоненты отображения данных, предназначенные для работы с отдельным полем. С каждым таким компонентом можно связать нужное поле набора данных. При открытии набора данных в компоненте
TDBCtrlGrid на каждой новой панели создается набор компонентов отображения данных, аналогичный тому, который был создан на одной панели во время разработки.
На панель можно переносить только те компоненты отображения данных, которые показывают значение одного поля для единственной записи набора
данных. Нельзя использовать компоненты
TDBGrid, TDBCtrlGrid, TDBRichEdit, TDBListBox, TDBRadioGroup, TDBLookupListBox.
После того, как для компонента TDBCtrlGrid задано значение свойства
DataSource, все переносимые на панель компоненты отображения данных автоматически связываются с указанным компонентом
TdataSource (табл. 15.5). Самостоятельное задание свойства
DataSource для дочерних компонентов отображения данных не допускается. В них требуется определить только поля.
Компонент может отображать панели в одну или несколько колонок. Для задания числа колонок панелей используется свойство
colcount. Число видимых строк панелей определяется свойством
RowCount. Вертикальное или горизонтальное размещение колонок панелей зависит от значения свойства
Orientation.
При использовании нескольких колонок панелей курсор перемещается по колонке сверху вниз с последующим переходом на следующую колонку. Направление движения курсора не зависит от значения свойства
Orientation.
Размеры одной панели определяются свойствами
panelHeight и Panelwidth. Они взаимосвязаны с размерами самого компонента. При изменении значений свойств
PanelHeight и Panelwidth размеры компонента изменяются таким образом, чтобы в нем помещалось указанное в свойствах
colcount и RowCount число панелей и наоборот.
Не рекомендуется размещать на панели компоненты
TDBMemo и TDBimage, т. к. это может привести к значительному снижению производительности.
Таблица 15.5. Свойства
и методы компонента TDBCtrlGrid
|
|
|
|
property AllowDelete: Boolean;
|
|
Разрешает или запрещает удаление текущей записи
|
property Allowlnsert: Boolean;
|
|
Разрешает или запрещает вставку новой записи
|
property Canvas: TCanvas;
|
|
|
property ColCount: Integer;
|
|
Определяет число колонок с панелями
|
property EditMode: Boolean;
|
|
Разрешает или запрещает редактирование данных
|
type TDBCtrlGridOrientation = (goVertical, goHorizontal);
property Orientation: TDBCtrlGridOrientation;
|
|
Определяет порядок следования записей — по горизонтали или по вертикали
|
type TDBCtrlGridBorder = (gbNone, gbRaised) ;
property PanelBorder: TDBCtrlGridBorder;
|
|
Определяет способ отображения границы панели
|
property PanelCount: Integer;
|
|
Содержит число видимых одновременно панелей
|
property PanelHeight: Integer;
|
|
Определяет высоту панелей в пикселах
|
property Panellndex: Integer;
|
|
Определяет индекс панели текущей записи
|
property PanelWidth: Integer;
|
|
Определяет ширину панелей в пикселах
|
property RowCount: Integer;
|
|
Определяет число строк видимых панелей
|
property SelectedColor: TColor;
|
|
Определяет фоновый цвет панели текущей записи
|
property ShowFocus : Boolean;
|
|
Разрешает или запрещает выделение вокруг панели текущей записи
|
|
type TDBCtrlGridKey = (gkNull, gkEditMode, gkPriorTab, gkNextTab, gkLeft,
gkRight, gkUp, gkDown, gkScrollUp, gkScrollDown, gkPageUp, gkPageDown, gkHome,
gkEnd, gklnsert, gkAppend, gkDelete, gkCancel) ;
procedure DoKey(Key: TDBCtrlGridKey) ;
|
|
Выполняет операцию, заданную при помощи параметра
Key.
Доступны операции навигации по записям, перевода в режим редактирования, вставки, удаления записей, отмены изменений
|
procedure KeyDown (var Key: Word; Shift: TShiftState) ; override;
|
|
Используется при нажатии клавиши для трансляции кодов клавиш
|
Методы-обработчики событий
|
type TPaintPanelEvent = procedure (DBCtrlGrid: TDBCtrlGrid; Index: Integer) of
object;
property OnPaintPanel : TPaintPanelEvent;
|
|
Вызывается при перерисовке панели. Параметр
Index соответствует индексу панели
|
|