Цветные ячейки в StringGrid

[Demien]

Не могу понять как закрасить определенную ячейку в StringGrid-e...
Подскажите пожалуйста!

Точней не так... Как закрасить понятно! Но в процессе работы программы необходимо красить ячейки...
Вот мне и не понятно, как имитировать событие "DrawCell"?

[volod3000]

Приблизительно так (принцип покраски) :

procedure TFm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var r : trect;
begin
  if (Button = mbLeft) and (Shift = [ssCtrl, ssLeft]) then
  begin
    StringGrid1.MouseToCell(X, Y, SourceCol, SourceRow);
  end;
end

procedure TFm_TFm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ARow <> 0) then
  begin
    if (StringGrid1.Cells[ACol,ARow] = '') then
      StringGrid1.Canvas.Brush.color := clYellow
    else
      if (SourceCol > 0) and (SourceRow > 0) and (ACol = SourceCol) and (ARow = SourceRow) then
      begin
        StringGrid1.Canvas.Brush.color := clRed;
      end;
  end;
  with StringGrid1.Canvas do
  begin
    FillRect(Rect);
    TextRect(Rect, Rect.Left, Rect.Top, StringGrid1.Cells[aCol, aRow]);
  end;
end;

[volod3000]

Вот готовое решение с одного из форумов :

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

Объявляем глобальные массивы.

FG: array of array of TColor;
    BG: array of array of TColor;
    ZG: array of array of boolean;

И некую процедурку

procedure TFm1.RefreshArray;
var Col, Row : integer;
begin
  SetLength(FG, StringGrid1.ColCount, StringGrid1.RowCount);
  SetLength(BG, StringGrid1.ColCount, StringGrid1.RowCount);
  SetLength(ZG, StringGrid1.ColCount, StringGrid1.RowCount);
  // Initialize with default colors
  for Col := 0 to StringGrid1.ColCount - 1 do begin
    for Row := 0 to StringGrid1.RowCount - 1 do begin
      if (StringGrid1.Cells[Col,Row] = '') then
        BG[Col, Row] := clYellow
      else BG[Col, Row] := clWhite;
      FG[Col, Row] := clBlack;
      ZG[Col, Row] := False;
    end;
  end;
  StringGrid1.Refresh;
end;

Выполняем ее после каждого изменения грида (ко-ва строк, столбцов и прочего глобального) ну и при создании формы тоже.
А дальше по клику мыши как то так:

procedure TFm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var r : trect;
    Col, Row : integer;
begin
  if (Button = mbLeft) and (Shift = [ssCtrl, ssLeft]) then
  begin
    StringGrid1.MouseToCell(X, Y, SourceCol, SourceRow);
    if (SourceRow > 0) then
    begin
      if BG[SourceCol, SourceRow] <> clBlue then
      begin
        BG[SourceCol, SourceRow] := clBlue;
        FG[SourceCol, SourceRow] := clWhite;
        ZG[SourceCol, SourceRow] := True;
      end
      else begin
        if (StringGrid1.Cells[SourceCol,SourceRow] = '') then
          BG[SourceCol, SourceRow] := clYellow
        else BG[SourceCol, SourceRow] := clWhite;
        FG[SourceCol, SourceRow] := clBlack;
        ZG[SourceCol, SourceRow] := False;
      end;
    end;
  end
  else if Button = mbLeft then
  begin
    StringGrid1.MouseToCell(X, Y, SourceCol, SourceRow);
    if BG[SourceCol, SourceRow] <> clBlue then
    begin
      RefreshArray;
    end;
  end;
end;

Строка номер 0 - у меня заголовки, поэтому ее не трогаю.
Ну и естесственно Главная дравная процедура с канвой:

procedure TFm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  S: string;
begin
  S := StringGrid1.Cells[ACol, ARow];
  StringGrid1.Canvas.Brush.Color := BG[ACol, ARow];
  StringGrid1.Canvas.FillRect(Rect);
  StringGrid1.Canvas.Font.Color := FG[ACol, ARow];
  StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, S);
end;

В результате все ячейки в любой момент времени имеют три дополнительных свойства - цвет, цвет шрифта и некий признак, которым я определяю выбрана она или нет. Можно еще кучу свойств засунуть.

[dacorp]

Заливка ячейки цветом с текстом в поле "Тест заливки"

procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
begin
  if (Grid.Cells[ACol,ARow]='Тест заливки') then 
   with Grid.Canvas do
    begin
      Brush.Color := $00CACAFF; //цвет которым заливаем
      FillRect(Rect); //Заливаем ячейку цветом
      Font.Color := clBlack; //Цвет текста в данной ячейке
      TextOut(Rect.Left, Rect.Top, Grid.Cells[ACol,ARow]); //Прорисовка текста
    end;
end;

[Demien]

volod3000, dacorp спасибо!
Сейчас по работе отвлекли...
Разгребусь - с кодом разбираться буду!
Тему в избранное добавил.