Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

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]


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

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



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

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

Наверх




Память: 0.49 MB
Время: 0.021 c
7-55877
Карелин Артем
2003-04-28 13:34
2003.07.17
Сервис для W2000. Восстановление при сбое.


3-55408
andrew_ros1
2003-06-21 13:42
2003.07.17
Вечный вопрос:


14-55740
Ajax
2003-07-01 09:22
2003.07.17
НТВ+


4-55895
hammich
2003-05-14 12:03
2003.07.17
Что не так в процедуре ? ПОДСКАЖИТЕ она эмулирует щелчок мыши


8-55666
Артём
2003-03-27 08:05
2003.07.17
Графика