tdiclass.pas

[-] Fix compilation for Lazarus 1.9.0 (by: DSA)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6184 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tdi/read-me.txt

@@ -183,3 +183,5 @@ to explain the component
 [+] Added Public method: procedure CloseAllTabs;
     (by: DSA)
 
+07/01/2018
+[-] Fix compilation for Lazarus 1.9.0 (by: DSA)

components/tdi/tdiclass.pas

@@ -1182,7 +1182,7 @@ var
 begin
   if (tdiMiddleButtomClosePage in FTDIOptions) and (Button = mbMiddle) then
   begin
-     APageIndex := TabIndexAtClientPos( Point(X,Y) );
+     APageIndex := IndexOfPageAt(X, Y);
      if (APageIndex >= 0) and (APageIndex >= FixedPages) then
      begin
        RemovePage( APageIndex );