Delphi. Маленькие хитрости: CheckBox в DBGrid (TDbGrid, Canvas, Cell)
Сегодня мы научимся отображаться CheckBox-ы в компоненте DBGrid. И так, кладем на форму компоненты TTable:
Затем TDataSource:
И, наконец, саму TDBGrid:
Соединяем компоненты между собой, если не знаете как, то загляните в этот урок по Delphi. В этом же уроке описано, как создавать Alias-ы. Дело в том, что для реализации тестового примера этого урока нам потребуется база данных docs.db из Алиаса StorePrj. Собственно говоря, вы можете взять любую другую базу данных, а можете и вот эту(docs.db), которая была создана вот на этом уроке по Delphi.
А теперь займемся программированием.
Если уж вы взяли именно вот эту базу данных, то для наглядности давайте откорректируем заголовок столбца DocType, замени его на "Это приход". Для этого напишем вот такой обработчик создания формы
|
procedure
TfrmCheckBoxGridTest.FormCreate(Sender:
TObject); begin
dbgTest.Columns[3].Title.Caption:='Это
приход'; end; |
Теперь опишем процедуру отрисовки CheckBox-а:
|
procedure
DrawGridCheckBox(Canvas:
TCanvas;
Rect:
TRect;
Checked:
boolean); var
DrawFlags:
Integer; begin
Canvas.TextRect(Rect,
Rect.Left
+
1,
Rect.Top
+
1,
' ');
DrawFrameControl(Canvas.Handle,
Rect,
DFC_BUTTON,
DFCS_BUTTONPUSH
or
DFCS_ADJUSTRECT);
DrawFlags
:=
DFCS_BUTTONCHECK
or
DFCS_ADJUSTRECT;//
DFCS_BUTTONCHECK
if
Checked
then
DrawFlags
:=
DrawFlags
or
DFCS_CHECKED;
DrawFrameControl(Canvas.Handle,
Rect,
DFC_BUTTON,
DrawFlags); end; |
Теперь пишем обработчики событий OnColEnter и OnDrawColumnCell нашего компонента TDbGrid:
|
procedure
TfrmCheckBoxGridTest.dbgTestColEnter(Sender:
TObject); begin with
TDBGrid(Sender)
do
if
UpperCase(SelectedField.FieldName)
=
'TYPEDOC' then
//
Модифицируйте
под
себя
Options
:=
Options
-
[dgEditing]
else
Options
:=
Options
+
[dgEditing] end; procedure
TfrmCheckBoxGridTest.dbgTestDrawColumnCell(Sender:
TObject;
const
Rect:
TRect;
DataCol:
Integer;
Column:
TColumn;
State:
TGridDrawState); begin
if
UpperCase(Column.FieldName)
=
'TYPEDOC' then
//
Модифицируйте
под
себя
if
Column.Field.AsInteger
=
1
then
DrawGridCheckBox((Sender
as
TDBGrid).Canvas,
Rect,
true)
else
DrawGridCheckBox((Sender
as
TDBGrid).Canvas,
Rect,
false) end; |
Все, запускаем программу и видим результат:
Скриншоты, опубликованные в данной статье, являются цитатами и иллюстрациями в программного продукта "Tubro Delphi", авторское право на который принадлежит Borland® Delphi®.