Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];

Вниз

Переход с 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.011 c
1-1121922698
Mefodiy
2005-07-21 09:11
2005.08.14
Как определить "графическое быстрдействия" компьютера


14-1121805487
radium
2005-07-20 00:38
2005.08.14
Update для D7 - кто ставил?


4-1118745974
Peter_cc
2005-06-14 14:46
2005.08.14
Подсказка над треем...


1-1121857361
syte_ser78
2005-07-20 15:02
2005.08.14
try or if


14-1121945543
Opilki_Inside
2005-07-21 15:32
2005.08.14
Есть такой славный текстовый редактор ViM называется.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский