Компонент
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; |
Pb |
Разрешает или запрещает удаление текущей записи |
property Allowlnsert: Boolean; |
Pb |
Разрешает или запрещает вставку новой записи |
property Canvas: TCanvas; |
Ro |
Канва компонента |
property ColCount: Integer; |
Pb |
Определяет число колонок с панелями |
property EditMode: Boolean; |
Pu |
Разрешает или запрещает редактирование данных |
type TDBCtrlGridOrientation = (goVertical, goHorizontal); property Orientation: TDBCtrlGridOrientation; |
Pb |
Определяет порядок следования записей — по горизонтали или по вертикали |
type TDBCtrlGridBorder = (gbNone, gbRaised) ; property PanelBorder: TDBCtrlGridBorder; |
Pb |
Определяет способ отображения границы панели |
property PanelCount: Integer; |
Ro |
Содержит число видимых одновременно панелей |
property PanelHeight: Integer; |
Pb |
Определяет высоту панелей в пикселах |
property Panellndex: Integer; |
Pu |
Определяет индекс панели текущей записи |
property PanelWidth: Integer; |
Pb |
Определяет ширину панелей в пикселах |
property RowCount: Integer; |
Pb |
Определяет число строк видимых панелей |
property SelectedColor: TColor; |
Pb |
Определяет фоновый цвет панели текущей записи |
property ShowFocus : Boolean; |
Pb |
Разрешает или запрещает выделение вокруг панели текущей записи |
Методы |
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 соответствует индексу панели |
Когда тот или иной физик использует понятие "физический вакуум", он либо не понимает абсурдности этого термина, либо лукавит, являясь скрытым или явным приверженцем релятивистской идеологии.
Понять абсурдность этого понятия легче всего обратившись к истокам его возникновения. Рождено оно было Полем Дираком в 1930-х, когда стало ясно, что отрицание эфира в чистом виде, как это делал великий математик, но посредственный физик Анри Пуанкаре, уже нельзя. Слишком много фактов противоречит этому.
Для защиты релятивизма Поль Дирак ввел афизическое и алогичное понятие отрицательной энергии, а затем и существование "моря" двух компенсирующих друг друга энергий в вакууме - положительной и отрицательной, а также "моря" компенсирующих друг друга частиц - виртуальных (то есть кажущихся) электронов и позитронов в вакууме.
Однако такая постановка является внутренне противоречивой (виртуальные частицы ненаблюдаемы и их по произволу можно считать в одном случае отсутствующими, а в другом - присутствующими) и противоречащей релятивизму (то есть отрицанию эфира, так как при наличии таких частиц в вакууме релятивизм уже просто невозможен). Подробнее читайте в FAQ по эфирной физике.