[Shelby]

Нужно выделить в стринггрид ячейки в цикле по диагонали. Чот никак не могу...

[Страдалецъ]

Так устроит?

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 if (ACol >= StringGrid1.FixedCols) and (ACol = ARow)
 then begin
      StringGrid1.Canvas.Brush.Color := clRed;
      StringGrid1.Canvas.FillRect(Rect);
      end;
end;

[Shelby]

Вот код для получения суммы чётный элементов побочной диагонали.
sp2-это spinedit
begin
sum:=0;
for i:=0 to sp1.value do
if sg1.cells[i+(sp2.value),i] div 2 then
sum:=sum+cells[i+(sp2.value];
label2.Caption:=sum;
мозг мой ваще деградировал
можно подправить код?
спасибо.

[Shelby]

помогите, плиз!