Текущий архив: 2003.03.13;
Скачать: CL | DM;

Вниз

Вставить DBCheckBox в DBGrid   Найти похожие ветки 

← →
Silver_   (2003-03-03 16:04) [0]

Нужно в каждой ячейке DBGrida вставить DBCheckBox, там где тип данных Булевский
делаю так:


procedure TDemandsListFrame.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
CB: TDBCheckBox;
begin
if Column.Field.DataType = ftBoolean then // если поле булевое
begin
CB:=TDBCheckBox.Create(Self);

CB.Top:=Rect.Top;
CB.Height:=Rect.Bottom - Rect.Top - 2;
CB.Width:=CB.Height;
CB.Left:=Rect.Left + (Rect.Right - Rect.Left - CB.Width)div 2;

CB.Parent:=TDBGrid(Sender);
CB.DataSource:=TDBGrid(Sender).DataSource;
CB.DataField:=Column.Field.FieldName;
CB.Enabled:=True;
CB.Visible:=True;
end;
end;


но как уже поняли не пашет (появляется дисабленным, циклится)
В чем бяда не пойму :(

---

← →
Leran2002 ©   (2003-03-03 16:07) [1]

http://www.farpost.ru/personal/dmitryb/RUS/
http://www.farpost.com/personal/dmitryb/RUS/ehlibrus.exe

Скачай этот грид... сильно облегчает жизнь... :)

---

← →
Silver_   (2003-03-03 16:21) [2]

> Leran2002 ©


посмотрю конечно, а чтобы самому сделать
КАК ???

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c