Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DBGrid и CheckBox [D6]

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

Соловьев (2003-06-25 10:01:00) [1]

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

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

Relaxxx (2003-06-24 18:53:00) [2]
Это картиники с галочкой и пустая. но они сдесь помоему непричем

Соловьев (2003-06-24 18:41:00) [3]

> imgChecked.Picture.Bitmap

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

Relaxxx (2003-06-24 18:39:00) [4]
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:23:00) [5]
без кода прорисовки работает?
тогда приведи полный код обработки события

Relaxxx (2003-06-24 18:20:00) [6]
Серверная СУБД Оракл, соединяюсь с помощью запроса в Query1,
который просто выбирает из таблицы несколько строк, ну и условие впринципе я думаю неважно какое. Соединяюсь с помощью BDE

Соловьев (2003-06-24 18:05:00) [7]

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

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

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

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

Relaxxx (2003-06-24 17:57:00) [8]
> 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 17:46:00) [9]

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

что пишет?

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

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

Relaxxx (2003-06-24 17:40:00) [10]
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

muk07 (2003-06-24 09:21:00) [11]
символ "ь" в Font Wingdings отображается как птичка

Соловьев (2003-06-23 16:57:00) [12]
if Column.FiledName="Field1" then ...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »