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

Вниз

выделение записей в DBGrid   Найти похожие ветки 

 
Progr@mist ©   (2003-04-16 19:36) [0]

Плз, люди : есть грид, в котором мне надо повыделять часть строчек (цветом или жирно безразницы), но немогу енто сделать...
Помогите, заранее вери сенкс...


 
MsGuns ©   (2003-04-16 21:31) [1]

Однозначно через событие грида OnDrawColumnCell
Определять к какой категории - цвету относится запись можно 2-мя способами:
- через доп.поле-признак
- через массив указателей записей (ID записей или букмарки)

Пример раскрашивания грида:

procedure TForm1.grSuperDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
{
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Выражаю огромную благодарность Леночке Филипповой за ее превосходную !
! статью в "Королевстве Дельфи" "ПОЛОСТАЫЙ ГРИД" от 12 апреля 2000 г. !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
}
var
BkgColor: TColor;
begin
if not (gdSelected in State) then
BkgColor := clMoneyGreen // Для не текущей строки
else
if TDBGrid(Sender).Focused then
BkgColor := clDefault // Черный для текущей строки
else
BkgColor := clMedGray; // Серый для текущей строки
TDBGrid(Sender).Canvas.Brush.Color:=BkgColor;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
3-23008
YDV
2003-04-15 09:38
2003.05.08
Direct Oracle Access возобновление подключения к базе !?


3-22986
sapsi
2003-04-16 14:13
2003.05.08
Обновления в таблицах по АДО


1-23119
avkar
2003-04-27 16:57
2003.05.08
MessageDlg на русском


1-23139
Viktor Kushnir
2003-04-26 17:25
2003.05.08
PageControl или я торможу


6-23258
Kaginava
2003-03-13 14:04
2003.05.08
Socket