Форум: "Базы";
Текущий архив: 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