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

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

DBGrid

matvey ©   (2002-07-24 16:33:00) 

Господа, извините за оффтопик, но можеткто подскажет как при клике по DBGrid изменить цвет строки по которой кликнули!
Буду очень благодарен за ответ!

---

MsGuns   (2002-07-24 17:49:00) [1]

По клику инициируется неск.собвытий , в т.ч. перерисовка, вот его - то и надо исп-ть как показал Tornado

---

matvey   (2002-07-24 17:20:00) [2]

>Tornado
Да это понятно, я хелпу читал, а где же тут клик?!

---

Tornado   (2002-07-24 17:18:00) [3]

Напиши это на событие DBGrida DrawColumnCell, цвет можешь указать любой (в моем случае это clNavy - темно-синий). Удачи.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin

with DBGrid1.Canvas do
begin
if (gdSelected in State) then
begin
Brush.Color := clNavy;
Font.Name := "Arial Cyr";
Font.Size := 9;
Font.Style := [fsBold];
Font.Color := clWhite;
FillRect(Rect);
if Column.Field.DataType = ftString then
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text)
else
TextOut(Rect.Right-TextWidth(Column.Field.Text)-2,Rect.Top+2,Column.Field.Text)
end else
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
end;
end;

---

Наверх