[JVCL-Checkins] CVS: jvcl/source JvMRUList.pas,1.3,1.4

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/jvcl/source
In directory sc8-pr-cvs1:/tmp/cvs-serv13129/source

Modified Files:
	JvMRUList.pas 
Log Message:
Mantis #466

Index: JvMRUList.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvMRUList.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JvMRUList.pas	9 Oct 2002 12:25:46 -0000	1.3
--- JvMRUList.pas	20 Nov 2002 07:41:54 -0000	1.4
***************
*** 316,319 ****
--- 316,320 ----
  
  procedure TJvMRUManager.Add(const RecentName: string; UserData: Longint);
+ var i:integer;
  begin
    if not (Duplicates = dupAccept) and (FList.IndexOf(RecentName) > -1) then
***************
*** 323,327 ****
    end
    else
!     FList.AddObject(RecentName, TObject(UserData));
  end;
  
--- 324,331 ----
    end
    else
!   begin
!     i := TJvRecentStrings(FList).Add(RecentName);
!     FList.Objects[i] := TObject(UserData);
!   end;
  end;