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

Вниз

Как организовать графический эффект на базе значения в TDBGrid?   Найти похожие ветки 

 
DBDev   (2003-05-26 17:18) [0]

Т.Е. Надо, чтобы логика значения того или иного поля в рекордсете позволяла рисовать тот или иной значок в каждой строчке результирующего контрола, для каждой записи

В TDBCtrlGrid-е все просто:

//---------------------------------------------------------------------------
void __fastcall TMain::CtrlGridPaintPanel(TDBCtrlGrid *DBCtrlGrid, int Index)
{
int in = 0;
Graphics::TBitmap *pBitmap;

if (!Query->FieldByName("FIELD")->AsBoolean) {
pBitmap = new Graphics::TBitmap();
pBitmap->LoadFromResourceID((int)HInstance, 16);
BoardsGrid->Canvas->Draw(2,9,pBitmap);
delete pBitmap;
}
}
//---------------------------------------------------------------------------


Но как подобное организовать в TDBGrid-e???

ПОМОГИТЕ СОВЕТОМ ПЛИЗ!!!


 
Соловьев ©   (2003-05-26 17:23) [1]

onDrawColumnCell


 
DBDev   (2003-05-26 17:43) [2]

А пример можно??? В частности не совсем понятно, где именно рисовать и как проверять какое поле?


 
Соловьев ©   (2003-05-26 17:46) [3]

TDrawColumnCellEvent = procedure (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState)
> В частности не совсем понятно, где именно рисовать и как
> проверять какое поле?

Column.FieldName - имя поля
(Sender As TDBGrid).Canvas.Draw(...)



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
14-50490
avk
2003-05-30 19:09
2003.06.16
не могу открыть исходник


14-50435
pasha676
2003-05-29 09:05
2003.06.16
Кто то тут обещал плуг под Макс


1-50287
kull
2003-06-04 15:49
2003.06.16
TroubleShooting database...


14-50456
proruxa
2003-05-29 10:37
2003.06.16
Идей так много как же правильно!! Поговорил бы кто со мной


14-50518
dimodim
2003-05-27 07:08
2003.06.16
КАк написать CGI на дельфи для записи в базу данный?Есть ли исход