Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

DBGrid   Найти похожие ветки 

← →
matvey   (2002-07-24 16:33) [0]

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

---

← →
Tornado ©   (2002-07-24 17:18) [1]

Напиши это на событие 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;

---

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

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

---

← →
MsGuns ©   (2002-07-24 17:49) [3]

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

---

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

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c