Прорисовка StringGrid

← →
Make (2006-02-28 15:49) [0]

Подскажите, как в стринггриде изменить цвет у всех ячеек в строке?

← →
Make (2006-02-28 16:02) [1]

Я использую OnDrawCell, но она рисует только сфокусированную ячейку if нужная строка then begin StringGrid1.Canvas.Brush.Color := clYellow; StringGrid1.canvas.FillRect(Rect); StringGrid1.canvas.TextOut(Rect.Left +2, Rect.Top +2, sgrResults.Cells[ACol,ARow]); end;:

← →
Make (2006-02-28 16:55) [2]

очему не работает такой код:
procedure TIndexMainForm.sgrResultsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var TempIdx: Integer; begin if (ACol<1) or (ARow<1) then Exit; if ResultArray[ARow-1].Idling then // если заменить на //if ARow=2 then то работает begin sgrResults.Canvas.Brush.Color := clYellow sgrResults.canvas.FillRect(Rect); sgrResults.canvas.TextOut(Rect.Left +2, Rect.Top +2, sgrResults.Cells[ACol,ARow]); end; end;

← →
umbra © (2006-02-28 17:15) [3]

> ResultArray[ARow-1].Idling

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

← →
Make (2006-02-28 17:19) [4]

событие OnDrawCell вызывается при прорисовке всех ячеек попорядку? Т.е. например при наведении фокуса на стринггрид заново перерисовываются все ячейки?

для каждой ячейки вызывается персонально. в Rect: TRect; передается область, которая перерисовывется.
если строка "стабильно одна и та же", тогда можно воспользоваться case

case Arow of
0: begin
sgrResults.Canvas.Brush.Color := clYellow
sgrResults.canvas.FillRect(Rect);
sgrResults.canvas.TextOut(Rect.Left +2, Rect.Top +2, sgrResults.Cells[ACol,ARow]);
end;
end;

Прорисовка StringGrid Найти похожие ветки