checkbox & dbgrid

[Mihailhome]

Привет всем!!!
у меня такой вопрос:
Можно ли в dbgrid вставить checkbox(ну или на подобии эго) в любое поле, не применяя дополнительные модули.чтобы можно было поставить галочку. И какой тип должен быть у этого поля???? У меня Table - Paradox
Смотрел примеры, но не разобрался.

[ArtInt]

Естественно можно. Вот пример взятый из DelphiWorld

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;




На событие OnDrawColumnCell повесьте вызов процедуры DrawGridCheckBox():



procedure TForm1.DBGrid1DrawColumnCell(Sender : TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName = 'WEIGHT' then // Модифицируйте под себя
if Column.Field.AsInteger > 10 then
DrawGridCheckBox(DBGrid1.Canvas, Rect, true)
else
DrawGridCheckBox(DBGrid1.Canvas, Rect, false)
end;




Кроме этого, для скрытия текста в ячейках с CheckBox-ом от отображения значения при вводе с клавиатуры определите реакцию на событие OnColumnEnter:



procedure TfrmMain.DBGrid1ColEnter(Sender: TObject);
begin
with TDBGrid(Sender) do
if SelectedField.FieldName = 'Weight' then // Модифицируйте под себя
Options := Options - [dgEditing]
else
Options := Options + [dgEditing]
end;

Поле 'Weight' и есть поле с галочкой.
Данный код раньше использовал, но сейчас все таки удобнее когда это в компоненте DBGrid прописано.
Кстати как это реализовать в компоненте, есть исходный код на сайте delphisource.ru в разделе Базы данных -> компонент cyDBGrid.

[Mihailhome]

Сообщение от ArtInt

Естественно можно. Вот пример взятый из DelphiWorld



Поле 'Weight' и есть поле с галочкой.
Данный код раньше использовал, но сейчас все таки удобнее когда это в компоненте DBGrid прописано.
Кстати как это реализовать в компоненте, есть исходный код на сайте delphisource.ru в разделе Базы данных -> компонент cyDBGrid.

Спасибо за это. Но ведь методом прорисовки, а так чтобы прямо checkbox в поле

[Stilet]

а так чтобы прямо checkbox в поле

Ну вообще-то оно все прорисовкой...
Если очень нужно можно взять сторонние компоненты типа EHLib.

[Rekky]

А что значит в любое поле? логические поля, отображающиеся ComboBox-ом (галочками) можно отображать в cxGrid из пакета DevExpress. К сожалению, прикрепить файл не могу,много весит, поищи в инете,там точно есть))) Раз воспользовавшись этим компонентом о простом гриде можно забыть навсегда...