CheckBox в DBGrid

← →
Yakudza © (2003-05-14 14:52) [0]

Как-то можно вставить CheckBox в DBGrid ?

← →
clickmaker © (2003-05-14 14:57) [1]

1. Использовать готовый. Например, из EhLib (есть на torry.net)
2. Обрабатывать OnDrawColumnCell, рисовать примерно так:
if Column.Field.AsBoolean then
style := DFCS_CHECKED
else
style := DFCS_BUTTONCHECK;
DrawFrameControl(TBDGrid(Sender).Canvas.Handle, Rect, DFC_BUTTON, style or DFCS_FLAT);

← →
Hint © (2003-05-14 14:58) [2]

procedure TformColorGrid.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Var Style : Integer; Begin IF { рисуется колонка, в которую мы хотим поместить TCheckBox } Then IF { значение поля TRUE } Then Style := DFCS_CHECKED Else Style := DFCS_BUTTONCHECK; End; DrawFrameControl(TDBGrid(Sender).Canvas.Handle, Rect, DFC_BUTTON, Style); End;
Функция DrawFrameControl рисует на канве в определенном прямоугольнике стандартный windows-control, тип и состояние которого определяется передаваемыми параметрами.
BOOL DrawFrameControl( HDC hdc, // handle to device context LPRECT lprc, // pointer to bounding rectangle UINT uType, // frame-control type UINT uState // frame-control state );
Подробнее о том, что еще может рисовать эта функция, смотрите help по Windows API (или MSDN или win32.hlp в поставке Delphi) .
(c)Елена Филиппова

А че вопрос то в потрепатся перенесли?

CheckBox в DBGrid Найти похожие ветки