[Lotles]

Подскажите почему код не работает ?

Код:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
rect:TRect;
begin
Rect:=StringGrid1.CellRect(ACol,ARow);
StringGrid1.Canvas.Brush.Color:=clred;
StringGrid1.Canvas.FillRect(Rect);
end;

Admin: Не забываем про оформление кода!

[TOJluK]

DefaultDrawing установить в False

[Lotles]

Не пойму, что делает DefaultDrawing

[TOJluK]

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

Не пойму, что делает DefaultDrawing

Вроде бы, это даже из самого названия очевидно... F1 вам поможет.