--- Merging r33424 into '.':

U    packages/winunits-base/src/richedit.pp
--- Recording mergeinfo for merge of r33424 into '.':
 U   .
--- Merging r33432 into '.':
U    packages/winunits-base/src/typelib.pas
--- Recording mergeinfo for merge of r33432 into '.':
 G   .

# revisions: 33424,33432

git-svn-id: branches/fixes_3_0@35319 -

packages/winunits-base/src/richedit.pp

@@ -156,6 +156,7 @@ Const
     EM_SETPAGE         = (WM_USER + 229);
     EM_GETHYPHENATEINFO= (WM_USER + 230);
     EM_SETHYPHENATEINFO= (WM_USER + 231);
+    EM_INSERTTABLE     = (WM_USER + 232);
     EM_GETAUTOCORRECTPROC   = (WM_USER + 233);
     EM_SETAUTOCORRECTPROC   = (WM_USER + 234);
     EM_CALLAUTOCORRECTPROC  = (WM_USER + 255);

packages/winunits-base/src/typelib.pas

@@ -394,7 +394,8 @@ begin
         if RegQueryValue(Handle,nil,@sRefSrc[1],@il) = ERROR_SUCCESS then
           begin
           SetLength(sRefSrc,il-1);  // includes null terminator
-          if not FDependencies.Find(sRefSrc,i) then
+          i:=FDependencies.Indexof(sRefSrc);
+          if i < 0 Then
             FDependencies.Add(sRefSrc);
           end
         else