[JVCL-Checkins] dev/JVCL3/run JvTFGlance.pas,1.34,1.35 - Added prevention against infinite exception loop

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3106/dev/JVCL3/run

Modified Files:
	JvTFGlance.pas 
Log Message:
Added prevention against infinite exception loop


Index: JvTFGlance.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFGlance.pas,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** JvTFGlance.pas	27 Jun 2005 07:49:06 -0000	1.34
--- JvTFGlance.pas	11 Jul 2005 09:03:41 -0000	1.35
***************
*** 1206,1210 ****
    begin
      Result := Items[AbsIndex];
!     if (Result.ColIndex <> ColIndex) or (Result.RowIndex <> RowIndex) then
      begin
        S := '(' + IntToStr(Result.ColIndex) + ':' + IntToStr(ColIndex) + ') ' +
--- 1206,1210 ----
    begin
      Result := Items[AbsIndex];
!     if ((Result.ColIndex <> ColIndex) or (Result.RowIndex <> RowIndex)) and not (csDesigning in GlanceControl.ComponentState) then
      begin
        S := '(' + IntToStr(Result.ColIndex) + ':' + IntToStr(ColIndex) + ') ' +