[mskvkin]

Для выделения строки в db grid я использую следующий код, но в Windows 2000 и Windows Vista при нажатии мышкой на строку текст в db grid становится белым. В Windows XP нормально.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

type   TPeekAtCustomDBGrid = class(TCustomDBGrid);   procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState); begin //Выделяем цветом текущую строку  with TPeekAtCustomDBGrid(Sender) do    begin      if DataLink.ActiveRecord = Row - 1 then        Canvas.Brush.Color := clBtnFace      else      Canvas.Brush.Color := clWhite;      font.Color := clBlack; //Цвет текста      DefaultDrawColumnCell(Rect, DataCol, Column, State);    end; end;

[pesi]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

begin  with TPeekAtCustomDBGrid(Sender) do    begin      if DataLink.ActiveRecord = Row - 1 then       begin        Canvas.Brush.Color := clBtnFace;        canvas.font.Color := clred;        end      else       Canvas.Brush.Color := clWhite;       font.Color := clBlack;       DefaultDrawColumnCell(Rect, DataCol, Column, State);     end; end;

второй раз исправил этот вроде полностью раб.

[mskvkin]

Огромное спасибо за помощь. Все работает как я и хотел