как запонить отмечиние ячейки в TStringGrid

← →
integery (2005-09-14 13:33) [0]

использую TStringGrid , установил
[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect]
отметил несколько ячеєк и хочу заполнить их нулями , как ето зделать.

← →
MBo © (2005-09-14 13:38) [1]

с помощью StringGrid.Selection

← →
integery (2005-09-14 13:43) [2]

подробние пожалуста!!!

← →
MBo © (2005-09-14 13:59) [3]

Хелп прочитан?

← →
integery (2005-09-14 14:06) [4]

всем спасибо

for i:=roz.Selection.Left to roz.Selection.Right do
begin
for j:=roz.Selection.Top to roz.Selection.Bottom do
begin
if roz.Cells[i,j] = "0" then roz.Cells[i,j] := "1" else roz.Cells[i,j] := "0" ;

end;
end;

← →
integery (2005-09-14 14:29) [5]

появилась новая проблемка
я использую
procedure TForm1.rozDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if roz.Cells[ACol, ARow] = "0" then roz.Canvas.Brush.color := clRed
else
roz.canvas.brush.Color := clMoneyGreen;

if (ACol > 0) and (ARow > 0) then
begin
roz.Canvas.FillRect(Rect);

end;
end;

при етом вибор несколько ячее неработаєт!!! што делать

← →
integery (2005-09-14 14:48) [6]

добавил roz.Canvas.DrawFocusRect(Rect);
и заработало но линии какието толстие

как запонить отмечиние ячейки в TStringGrid Найти похожие ветки