| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DBGrid и выделять строчку [D7, Win2k]

DimonNew ©   (2004-12-29 15:07:00) 

Привет, подскажите пож-та. В DBGrid можно ставить опцию OnRowSelet, но при этом нельзя редактировать ячейки. Как можно обойти эту ситуацию? В одной статье видел как выделять ячейку самому в DrawColumnCell:
if  gdSelected in State then
begin
TDBGrid(Sender).Canvas.Brush.Color:=clGreen;
TDBGrid(Sender).Canvas.Font.Color:=clWhite;
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
Но здесь только текущая ячейка, а как всю строчку выделить?

---

DimonNew   (2004-12-29 17:54:00) [1]

Спасибо всем, особенно midavik ©, на его основе вот , что заработало:
TDBCracker = class(TCustomDBGrid);
with TDBCracker(Sender) do
   if DataLink.ActiveRecord = Row - 1 then
     begin
       Canvas.Brush.Color:=clGreen;
       Canvas.Font.Color:=clWhite;
     end;
   TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

---

DimonNew   (2004-12-29 16:19:00) [2]

msguns ©
Хорошщая идея, только одно и то же с двух сторон, поэтому вся таблица краситься снова. Вот если бы определить номер строки у выделенной ячейки, только не могу найти, тогда бы сработало:
TDBGrid.DataSource.DataSet.RecNo="номер строки выделенной ячейки"

---

midavik   (2004-12-29 15:30:00) [3]


type THackDBGrid = class(TDBGrid);
type TForm1 = class(TForm)
...........
...........

procedure TForm1.DBGrid1DrawColumnCell
  (Sender: TObject; const Rect: TRect; DataCol: Integer;
   Column: TColumn; State: TGridDrawState);
begin
 if (THackDBGrid(DBGrid1).DataLink.ActiveRecord + 1 =
     THackDBGrid(DBGrid1).Row)
 or (gdFocused in State) or (gdSelected in State) then
 begin
   DBGrid1.Canvas.Brush.Color := clSkyBlue;
   DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
   DBGrid1.Canvas.Font.Color := clRed;
 end;
end;


---

msguns   (2004-12-29 15:21:00) [4]

Проверяй номер строки через TDBGrid.DataSource.DataSet.RecNo=DataSet.RecNo

---

DimonNew   (2004-12-29 15:16:00) [5]

Краситься вся таблица.

---

msguns   (2004-12-29 15:09:00) [6]

Убери if и будет тебе краситься вся строка

---

Наверх