TStringGrid: Можно ли узнать «состояние» ячейки?

Question

Я хочу реализовать процедуру FillCell для TStringGrid. Я хочу заполнить определенную ячейку цветом, но только тогда, когда ячейка (строка) не выбрана.

procedure TMyStrGrid.FillCell(Rect: TRect; aColor: TColor); 
begin 
//if NOT (gdSelected in State) then <---- how do I obtain the 'State' here? 
    begin 
    Canvas.Brush.Color:= aColor; 
    Canvas.FillRect(Rect); 
    end; 
end; 

Это просто упражнение :) Я пытаюсь выяснить VCL.Grids.pas, что довольно сложно.

Answer 1

В соответствии с комментариями вы вызываете эту функцию из обработчика OnDrawCell. Этот обработчик OnDrawCell передается аргумент TGridDrawState, который указывает, выбрана ли ячейка. Обработчик событий этой формы:

TDrawCellEvent = procedure (Sender: TObject; ACol, ARow: Longint; 
    Rect: TRect; State: TGridDrawState) of object; 

Вы спрашиваете, можно ли игнорировать TGridDrawState и каким-то образом восстановить информацию позже. В принципе это возможно:

• У вас есть строка и столбец. Это идентифицирует ячейку, и вы можете проверить, находится ли ячейка в текущем выборе.
• Если вы хотите игнорировать строку и столбец, то вы можете проверить поставляемый TRect. Вернитесь к строке и столбцу и снова проверьте, что против текущего выбора.

Откровенно то, что вы пытаетесь сделать, глупо на мой взгляд. Вы получили правильное объяснение. Он имеет необходимую информацию. Используй это.