DBGrid и CheckBox

← →
Relaxxx (2003-06-23 16:55) [0]

Как мне в одной колонке Грида вывести CheckBox, когда я пишу DrawFrameControl(TDBGrid(Sender).Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK) мне выводит ЧекБокс во всех колонках, как сделать что б только в одной???

← →
Соловьев (2003-06-23 16:57) [1]

if Column.FiledName="Field1" then ...

← →
muk07 (2003-06-24 09:21) [2]

символ "ь" в Font Wingdings отображается как птичка

← →
Relaxxx (2003-06-24 17:40) [3]

IF Column.FieldName="Check" then
begin
if (Column.Field.Value=1) then
DBGrid1.Canvas.Draw(1,1,imgChecked.Picture.Bitmap)
else if (Column.Field.Value=0) then
DBGrid1.Canvas.Draw(1,1,imgUnchecked.Picture.Bitmap);
end;

Почему при компиляции пишет ошибку в строке
if (Column.Field.Value=1) then

и еще что значит запись
Column.Field.AsInteger=1

← →
Соловьев (2003-06-24 17:46) [4]

> Почему при компиляции пишет ошибку в строке
> if (Column.Field.Value=1) then

что пишет?

> и еще что значит запись
> Column.Field.AsInteger=1

явно приводишь к типу

← →
Relaxxx (2003-06-24 17:57) [5]

> if (Column.Field.Value=1) then
Делфи тут ошибки невидит но когда я запускаю и соединяюсь з базой(ввожу пароль и логин) выдается сообщение

Progect raised class Eaccess with message ‘Access violation at address 004A in module Progect1’ Read on adress 0000000.

> > и еще что значит запись
> > Column.Field.AsInteger=1
>
> явно приводишь к типу

Я это понимаю, я хотел узнать что это какая то ячейка приводится к типу, если да то где она указываеться???

← →
Соловьев (2003-06-24 18:05) [6]

> я хотел узнать что это какая то ячейка приводится к типу,
> если да то где она указываеться???

текушая, ее ты можешь задать условием Column.FiledName

> Делфи тут ошибки невидит но когда я запускаю и соединяюсь
> з базой(ввожу пароль и логин) выдается сообщение
>
> Progect raised class Eaccess with message ‘Access violation
> at address 004A in module Progect1’ Read on adress 0000000

я не телепат...СУБД? что делаешь при коннекте?

← →
Relaxxx (2003-06-24 18:20) [7]

Серверная СУБД Оракл, соединяюсь с помощью запроса в Query1,
который просто выбирает из таблицы несколько строк, ну и условие впринципе я думаю неважно какое. Соединяюсь с помощью BDE

← →
Соловьев (2003-06-24 18:23) [8]

без кода прорисовки работает?
тогда приведи полный код обработки события

← →
Relaxxx (2003-06-24 18:39) [9]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
IF Column.FieldName="Check" then
begin
if (Column.Field.Value=1) then
DBGrid1.Canvas.Draw(1,1,imgChecked.Picture.Bitmap)
else if (Column.Field.Value=0) then
DBGrid1.Canvas.Draw(1,1,imgUnchecked.Picture.Bitmap);
end;
end;

БОЛЬШЕ ПРОГРАМНО НИЧЕГО НЕ ПИСАЛ

← →
Соловьев (2003-06-24 18:41) [10]

> imgChecked.Picture.Bitmap

а это что такое?

← →
Relaxxx (2003-06-24 18:53) [11]

Это картиники с галочкой и пустая. но они сдесь помоему непричем

← →
Соловьев (2003-06-25 10:01) [12]

> Это картиники с галочкой и пустая. но они сдесь помоему
> непричем

откуда они беруться?

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