Здравствуйте, solos, Вы писали:
S>Вот как я пытаюсь поменять цвет фона одной ячейки, проверив ее содержимое:
S>S>procedure TMainForm.StringGrid1DrawCell(Sender: TObject; ACol,
S> ARow: Integer; Rect: TRect; State: TGridDrawState);
S>begin
S>IF TStringGrid(Sender).Cells[2,2]='1' then
S> begin
S> TStringGrid(Sender).Canvas.Brush.Style:=bsSolid;
S> TStringGrid(Sender).Canvas.Brush.Color:=clRed;
S> end
S>else
S> TStringGrid(Sender).Canvas.Brush.Style:=bsClear;
S>end;
S>
S>Не работает. Чего я не понял?
дык, а закрашивать-то кто будет?
