StringGrid

[Nadzieja]

Как сделать чтобы по нажатию левой кнопки мыши на ячейки она закрашивалась, а по нажатию правой рисовался какой-либо символ?

[Sparkman]

Для Дельфей:

var Form1: TForm1;
    mas : array[1..100,1..100] of boolean;
implementation
{$R *.dfm}
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
     if Button=mbLeft then
     begin
          if mas[StringGrid1.Row,StringGrid1.Col] then mas[StringGrid1.Row,StringGrid1.Col]:=false
          else mas[StringGrid1.Row,StringGrid1.Col]:=true;
     end else
     if Button=mbRight then
     begin
          mas[StringGrid1.Row,StringGrid1.Col]:=false;
          StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]:='СИМВОЛ';
     end;
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
     if mas[ARow,ACol] then
     begin
          StringGrid1.Canvas.Brush.Color := clRed;
          StringGrid1.Canvas.FillRect(Rect);
     end;
end;

[Nadzieja]

благодарю