Главная страница
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.015 c
1-55652
Balkon
2003-07-04 13:36
2003.07.17
Что понимается под текущей директорией, возвращаемой...


1-55613
Snake1977
2003-07-03 17:47
2003.07.17
События OnClick


3-55391
Alexander Vasjuk
2003-06-20 13:12
2003.07.17
TIBDataSet: Проблема с генератором


6-55707
LOX
2003-05-10 14:18
2003.07.17
Код который разрывает связь с инетом.


3-55434
victor_ch
2003-06-24 08:49
2003.07.17
Как вытащить список View через БДЕ