From f3bc7dc114986bede64beda7c25ae1d7a01f7512 Mon Sep 17 00:00:00 2001
From: dopi <dopi@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 7 Feb 2018 14:02:42 +0000
Subject: [PATCH] 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  | 2 ++
 components/tdi/tdiclass.pas | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/tdi/read-me.txt b/components/tdi/read-me.txt
index 3e19c2010..30a90e77a 100644
--- a/components/tdi/read-me.txt
+++ b/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)
diff --git a/components/tdi/tdiclass.pas b/components/tdi/tdiclass.pas
index a0f7eabd9..952c96154 100644
--- a/components/tdi/tdiclass.pas
+++ b/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 );