Главная страница
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.012 c
6-55686
zom
2003-05-12 17:21
2003.07.17
Открытие сетевого соединения. Какое событие вызывается?


14-55813
Мазут Береговой
2003-07-01 03:54
2003.07.17
Кажется у меня атипичная пневмония (SARS).


7-55873
VMcL
2003-05-07 13:53
2003.07.17
Поддержка SIMD


3-55462
softmaster
2003-06-22 19:46
2003.07.17
помощь в создании запроса


14-55780
Maxim Pshevlotsky
2003-06-30 05:45
2003.07.17
Зачем же нужны эти COM+ технологии для баз данных?