Форум: "Базы";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

Строка в DBGrig другим цветом   Найти похожие ветки 

← →
suharew   (2005-05-19 22:05) [0]


procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
 Field: TField; State: TGridDrawState);
begin
if gdFocused in State then
  with (Sender as TDBGrid).Canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, Field.AsString);
  end;

end;


При таком коде рисует моим цветом только первую ячейку.
А как сделать чтоб всю строку перерисовывал моим цветом.???

---

← →
Reindeer Moss Eater ©   (2005-05-19 22:11) [1]

А как сделать чтоб

Прочитать описания для всех TGridDrawState

---

← →
suharew   (2005-05-19 22:14) [2]

Спасибо помогло.  надо вместо gdFocused писать gdSelected

---

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

Форум: "Базы";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.077 c