Не работает цикл проверки на наличие неверных символов

[artemavd]

А если проверку поместить в таймер дополнительно?

[_Engine_]

Да хоть куда, только дополнительно - не надо. Зачем два раза проверять?
Даже если при первой проверке будет, допустим ClRed а при повторной clWhite, как узнаешь какой из них более правильный?
Надо сделать один раз, но наверняка.

[artemavd]

Мне нельзя, чтобы неправильно показывалось. Это очень важный момент. Так что на счет кода моего из поста №17?

[DomiNick]

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

Видимо DomiNick намекает, на то, что в этот момент не все ячейки будут отрисовываться и проверка через канвас может дать неверный ответ.

Совершенно верно...
Если не AV...

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

Он предлагает при закрашивании запоминать цвета

Ну... Я думал запоминать не цвета а состояния ячеек... При изменении содержимого менять (если нужно)... А при закрашивании закрашивать цветом соответствующим состоянию...

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

тут в принципе даже новое поле у грида не надо создавать, цвета можно запоминать в StringGrid.Rows[ARow].Objects[ACol]

Хм... Мне привычнее массивом... Не работал с этим полем, не приходилось чтот...
Сейчас посмотрим что там с ним можно придумать.....

artemavd, а можно поподробнее что именно должно получаться-то?)

[eoln]

artemavd, дело в том, что при малейшем визуальном изменении ячейки (при её выделении, исчезновении и появлении из поля видимости и т.д. и т.п.) происходит её перерисовка. Например если программу с кодом из поста№17 свернуть и развернуть, то все ячейки будут белыми. Чтобы такого не было, надо изменять процедуру перерисовки TForm1.RzStringGrid2DrawCell. Это единственный способ (для данного компонента не меняя его свойств и методов)

Проверку на цвет можно так организовать:

if RzStringGrid2.Canvas.Pixels[RzStringGrid2.CellRect[ACol, ARow].left + 1, RzStringGrid2.CellRect[ACol, ARow].Top + 1] = clRed then

Перерисовываться будут только видимые ячейки, поэтому способ поиска по цвету пикселя несработает для большой таблицы

[artemavd]

artemavd, а можно поподробнее что именно должно получаться-то?)

Ладно, поясняю. . У меня должы ошибочные ячейки закрашиваться в красный цвет. Затем, я должен по нажатию на клавишу Enter например перемещаться от одной красной ячейки к другой, пока не пройдусь по всем ячейкам, независимо от того, где в таблице находится эта красная ячейка.

[_Engine_]

Вот тебе пример, если надо - оптимизируешь по коду, хотя он и рабочий.

procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol > sg.FixedCols) and (ARow > sg.FixedRows) then
  if sg.Cells[ACol,ARow] = '3' then
    with sg.Canvas do
    begin
      Brush.Color := clRed;
      FillRect(Rect);
      sg.Rows[ARow].Objects[ACol] := TObject(clRed);
    end;
end;

procedure TForm1.sgKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var ACol, ARow : Integer;

begin
  case Key of
   13 : begin
          ACol := sg.Col;
          ARow := sg.Row;
          if assigned(sg.Rows[ARow].Objects[ACol]) then
            if sg.Rows[ARow].Objects[ACol] = TObject(clRed) then
            begin
              for ACol := ACol + 1 to sg.ColCount - 1 do
                if sg.Rows[ARow].Objects[ACol] = TObject(clRed) then
                begin
                  sg.Col := ACol;
                  sg.Row := ARow;
                  Exit;
                end;
              for ARow := ARow + 1 to sg.RowCount - 1 do
                for ACol := 0  to sg.ColCount - 1 do
                  if sg.Rows[ARow].Objects[ACol] = TObject(clRed) then
                  begin
                    sg.Col := ACol;
                    sg.Row := ARow;
                    Exit;
                  end;
            end;
        end;
  end;
end;

[artemavd]

Я применил этот код, но нажимаю на клавишу Enter и ничего не происходит.

[_Engine_]

выдели неверную ячейку (выделенную красным), и нажми на Enter

[artemavd]

Выделил, нажал, ячейка становится доступной для редактирования, но при нажатии на Enter я не перехожу к следующей красной ячейке.