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

[ZBEP]

Делаю так:

procedure TForm8.YchGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.Brush.Color := $00DCE9EB;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
end;

В итоге закрашиваются только ячейки, а остальной фон - белый.
Как разукрасить фон "на котором нет ячеек" ?

[Прик]

У TStringGrid есть свойство Color.

[ZBEP]

Прик, есть то оно есть, но не работает, фон вне зависимости от выставленного цвета - белый.

П.с.
Delphi XE
ParentColor:=false

[phomm]

события Onpaint не нашел, может где-то написать подобное:

grid.canvas.brush.color := $00DCE9EB;
grid.canvas.fillrect(grid.canvas.boundsrect);

для ячеек конечно ещё и Ondrawcell
пс в дельфи7 отлично красится грид свойством color и в дизайнтайм и рантайм

[Прик]

Сообщение от phomm

пс в дельфи7 отлично красится грид свойством color и в дизайнтайм и рантайм

Присоединяюсь. И в Д2009 и Д2010 точно так же.

Плюхи XE? Вряд ли. Хотя от чудес никто не застрахован

[ZBEP]

Мож корявое у меня XE, на ноуте так же на цвет не реагирует, ячейки красит, а фон нет(((

Ладн, получается либо сам ХЕ косячит, либо у меня глюкануло что-нить, переставлять неохота.
Если не в ХЕ дело, то странно, что на разных машинах результат такой же.

[SERG1980]

Что тут сказать вот пример работы в D2007

[ZBEP]

Ну а вот так у меня:

Как видно - красятся только ячейки

[SERG1980]

Сообщение от ZBEP

Как видно - красятся только ячейки

Да что то и этого на видать
Выложите ваш проект с таким глюком если не трудно

[NitroSki]

Код с имаджа - но принцип один и тот же

Переделай
============================
image1.canvas.Brush.Color:=clWhite;
image1.canvas.FillRect(rect(0,0,wid th,height));
============================

Попробуй прописать цвет через палитру красок (clЦвет);

StringGrid1.Canvas.Brush.Color :=clRed;

================================
И попробуй создать прямоугольник холста не как у тебя

StringGrid1.Canvas.FillRect(Rect);
=============================
А вот так
Stringgrid1.canvas.FillRect(rect(0, 0,width,height));

=================================== =======

Если ничем не помог - извиняйте