ARow: Integer; var CanSelect: Boolean);
begin
CSel:=ACol;
RSel:=ARow;
if CSel<>RSel then Edit2.Text:=' '+inttostr(ARow)+' - '+inttostr(ACol)
else
begin
Timer1.Interval:=0;
Timer1.Interval:=1000;
CSel:=0;
RSel:=0;
end;
if ShowGraf then Visualization(MainGraf.image1.Canvas,2);
end;
procedure TMainGraf.StringGrid1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ShowGraf then
begin
Timer1.Interval:=0;
Timer1.Interval:=1000;
Timer1.Enabled:=true;
end;
end;