StringGrid не меняет цвет фона.

[ZBEP]

StringGrid1.Canvas.Brush.Color :=clRed;

Не помогает, так же только ячейки красятся.

Вот залил форму с SG и кодом:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
(Sender as TStringGrid).Canvas.Brush.Color :=clRed;
(Sender as TStringGrid).Canvas.FillRect(rect);
//(Sender as TStringGrid).Canvas.FillRect(rect(0, 0,(Sender as TStringGrid).width,(Sender as TStringGrid).height));
(Sender as TStringGrid).Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, (Sender as TStringGrid).Cells[ACol, ARow]);
end;

П.с.
Может это в винде дело?
Кто-нибудь на семерке удачно разукрашивал SG полностью?

[Аватар]

OnDrawCell и не будет красить области вне ячеек. Не верю что винда так глючит. StringGrid1.Color :=clRed в дизайне что?
P.S. кстати в проекте и стоит белый цвет для грида

[ZBEP]

P.S. кстати в проекте и стоит белый цвет для грида

Ой, забыл выставить, вот перезалил + скрин.


По идее если на ХР скомпилированная прога будет такая же, как на скрине, то дело в делфи, иначе дело в семерке.

[Аватар]

Скорее дело в Delphi XE. Для Д7 нормально красит и в XP и в семерке 64-битной

[ZBEP]

Аватар, а то что я у себя скомпилировал, не запускали?

[Аватар]

Запустил на семерке, красит так, как у вас в 13 посте

[ZBEP]

Значит все таки в ХЕ дело
Спасибо всем за помощь!

[maloun]

на стиле винды classic - работает StringGrid.Color:=red; а на дефолтном стиле нет
по этому включаем StringGrid.DrawingStyle:=gdsClassic ; и радуемся жизни