CheckBox in DBGrid

	Print
	Email

Submitted on: 8/28/2002 8:50:51 AM
By: Tief
Level: Intermediate
User Rating:

By 4 Users
Compatibility:Delphi 5

Users have accessed this article 12286 times.

(About the author)

This article shows you how to put a checkbox in a dbgrid. If the column is of boolean type, then a checkbox will appear. Great Look and very easy;

This article has accompanying files

Terms of Agreement: By using this article, you agree to the following terms... 1) You may use this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge. 2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws. 3) You may link to this article from another website, but ONLY if it is not wrapped in a frame. 4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description.
// Must declare a a global variable for this form <--[if gte mso 9]> M.I.S. M.I.S. 2 1 2002-08-28T17:30:00Z 2002-08-28T17:30:00Z 1 278 1587 Lakeshore General Hospital 13 3 1948 9.4402 <--[if gte mso 9]> 6 pt 6 pt 0 3 <--[if gte mso 9]> <--[if gte mso 9]> // Must declare a a global variable for this form private FOriginalOptions : TDBGridOptions; //********************************************** // FORM CELL CLICK procedure TFrmFile.DBGridCellClick(Column: TColumn); begin if Self.DBGrid.SelectedField.DataType = ftBoolean then SaveBoolean(); end; //******************************************** // FORM SAVE BOOLEAN procedure TFrmFile.SaveBoolean; begin Self.DBGrid.SelectedField.Dataset.Edit; Self.DBGrid.SelectedField.AsBoolean := not Self.DBGrid.SelectedField.AsBoolean; Self.DBGrid.SelectedField.Dataset.Post; end; //******************************************** // (FORM) DRAW CHECKBOX IF FIELD TYPE IS BOOLEAN procedure TFrmFile.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Const CtrlState : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); var CheckBoxRectangle : TRect; begin if Column.Field.DataType = ftBoolean then begin Self.DBGrid.Canvas.FillRect(Rect); CheckBoxRectangle.Left := Rect.Left + 2; CheckBoxRectangle.Right := Rect.Right - 2; CheckBoxRectangle.Top := Rect.Top + 2; CheckBoxRectangle.Bottom := Rect.Bottom - 2; DrawFrameControl(Self.DBGrid.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[Column.Field.AsBoolean]); end; end; //******************************************** // (FORM) DBGRID COL ENTER procedure TFrmFile.DBGridColEnter(Sender: TObject); begin if Self.DBGrid.SelectedField.DataType = ftBoolean then begin Self.FOriginalOptions := Self.DBGrid.Options; Self.DBGrid.Options := Self.DBGrid.Options - [dgEditing]; end; end; //********************************************** // (FORM) DBGRID COL EXIT procedure TFrmFile.DBGridColExit(Sender: TObject); begin if Self.DBGrid.SelectedField.DataType = ftBoolean then Self.DBGrid.Options := Self.FOriginalOptions; end;

Download article

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.

Virus note:All files are scanned once-a-day by Planet Source Code for viruses,but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:
1)Re-scan downloaded files using your personal virus checker before using it.
2)NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com

Terms of Agreement:
By using this article, you agree to the following terms...
1) You may use this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description.

Report Bad Submission

Your Vote!

Other User Comments

8/30/2002 9:55:54 AM:LS
Great stuff! I was really needing it... I used a weird code for using the list-checkbox with MS SQL Server... I just think you should do a little more talking (code comments). Still 5 Star rated!

9/1/2002 9:59:49 AM:
wat nen junk is da?? it counts two pages wow what a junk

9/3/2002 4:02:33 AM:
it's great!! How can i implement this concept in VB by using DBGrid?(I already try for a long time)

Add Your Feedback!

Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.

NOTICE: The author of this article has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular article, please click here.