Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
ВнизВставить 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.027 c