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

Вниз

Переход с RxDBGrid на DBGridEh   Найти похожие ветки 

 
kyn66 ©   (2005-07-08 10:55) [0]

День добрый. Уважаемые мастера, помогите разобраться. Когда я использовал компонент RxDBGrid, то на событии

procedure TImpDataFrm.Rep01OperDBGridGetCellParams(Sender: TObject;
 Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean);
begin
 if Highlight and (Field.Index <> 0) or
  begin
    AFont.Color := clBlack;
    Background := clBtnFace;
    AFont.Style := [fsBold];
  end;
end;

я мог регулировать цвет выделенной строки и ее местонахождение. Сейчас перешел на DBGridEh, а та такого свойства
Highlight уже нету.

procedure TImpDataFrm.Rep01OperDBGridEhGetCellParams(Sender: TObject;  Column: TColumnEh; AFont: TFont;
                                                                                                            var Background: TColor;  State: TGridDrawState);
...

Не полскажете, как мне сейчас поступить, чтобы использовать для строки тоже самое.
Может как по другому нужно обрабатывать или на другом событии? Спасибо.


 
ЮЮ ©   (2005-07-08 11:07) [1]

if gdSelected in State, наверное


 
kyn66 ©   (2005-07-08 11:16) [2]

Не, вааще не реагирует на gdSelected in State


 
kyn66 ©   (2005-07-08 11:16) [3]

Не, вааще не реагирует на gdSelected in State


 
ЮЮ ©   (2005-07-08 12:03) [4]

А в код заглянуть ломота? Судя по коду,

var
 highlight: boolean;
begin
 highlight :=
  (gdSelected in State) and (
    (dgAlwaysShowSelection in Options) or Focused
  ) <>bor ActiveRowSelected;
 if highlight and (Field.Index <> 0) then begin
   AFont.Color := clBlack;
   Background := clBtnFace;
   AFont.Style := [fsBold];
 end;


 
ЮЮ ©   (2005-07-08 12:07) [5]

Сорри, пытался выделить важное, но промахнулся :)

var
highlight: boolean;
begin
highlight :=
 (gdSelected in State) and (
   (dgAlwaysShowSelection in Options) or Focused
 ) or ActiveRowSelected;
if highlight and (Field.Index <> 0) then begin
  AFont.Color := clBlack;
  Background := clBtnFace;
  AFont.Style := [fsBold];
end;


 
kyn66 ©   (2005-07-08 14:56) [6]

Ну, как грицца, не каждый зрячий да увидит... Спасибо, однак при компиляцмм вылетает ошибка что неопределенные Options и ActiveRowSelected/ Чтобы это значило?


 
KSergey ©   (2005-07-09 14:50) [7]

А что надо сделать по задумке? Подсветить текс строку целиком?
Так для этого там готовая опция есть - что-то вроде higlight или... уж ен помню точно, признаться

Пошукай свойство OptionsEh



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

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

Наверх




Память: 0.48 MB
Время: 0.057 c
14-1121778131
oldman
2005-07-19 17:02
2005.08.14
Ну надо же было так прогнуться...


11-1105444581
admdenis
2005-01-11 14:56
2005.08.14
Constructor в KOL?


1-1122008024
serega78
2005-07-22 08:53
2005.08.14
Как отловить событие Close [x] на форме?


14-1122269006
Ученик
2005-07-25 09:23
2005.08.14
Установка обновлений для Delphi 2005 Arhitect


1-1122527434
Demidoff
2005-07-28 09:10
2005.08.14
Как сделать что бы курсор в memo был всегда в конце файла?