Закрашивание ячеек в StringGrid

[ИВэТэшка]

Помогите пожалуйста с одним вопросиком... как в стринг гриде сделать, чтобы при щелчке лк мыши на определенную ячейку, она закрашивалась цветом? при повторном щелчке ячейка вновь становилась бы белой. Текста в ячейках нет, ширина столбцов разная.

[Roof]

создай обработчик события OnDrawCell у StringGrid и напиши в нем:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

 if (gdFocused in State) then begin
      StringGrid1.Canvas.Brush.Color :=($BBBBBB) ;
      StringGrid1.Canvas.Font.Color:=   ($FFFFCC); //для текста
      StringGrid1.canvas.fillRect(Rect);
      StringGrid1.canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]); //для текста


 end;
end;

end.

[ИВэТэшка]

выделяется, но только одна ячейка (т.е. текущая, на которую нажимаю) А как сохранить выделение цветом этой ячейки и выделить еще другие? если наглядно, то это как диаграмма состояний Ганта

[Roof]

Таак.. Тебе надо чтобы при щелчке выделялась ячейка? При повторном щелчке было снято выделение? И еще чтобы можно было выделять много разных ячеек? Так?

[ИВэТэшка]

да, именно так :-)

[Niarb]

проще и легче, на мой взгляд, будет хранить данные о ячейках в массиве

fa: array of array of boolean;

procedure TForm1.FormCreate(Sender: TObject);
var i, j: integer;
begin
   setLength(fa,StringGrid1.ColCount);
   for i:=0 to Length(fa)-1 do
      setLength(fa[i],StringGrid1.RowCount);
   for i:=0 to Length(fa)-1 do
      for j:=0 to Length(fa[i])-1 do
         fa[i][j]:=false;
end;

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var acol, arow: integer;
begin
   stringgrid1.MouseToCell(x,y,acol,arow);
   fa[acol][arow]:=not fa[acol][arow];
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   if (acol>StringGrid1.FixedCols-1) and (arow>StringGrid1.FixedRows-1) then begin
      if fa[acol][arow] then begin
         StringGrid1.Canvas.Brush.Color:=clBlack;
         StringGrid1.Canvas.Font.Color:=clWhite;
      end
      else begin
         StringGrid1.Canvas.Brush.Color:=clWhite;
         StringGrid1.Canvas.Font.Color:=clBlack;
      end;
      StringGrid1.Canvas.FillRect(Rect);
      StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]);
   end;
end;

...соответственно при изменении числа строк/столбцов, необходимо будет и изменять массив

[Roof]

Да, самое простое - записать в двумерный массив. Вот мое решение:

[ИВэТэшка]

Спасибо большое!