pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tdiclass.pas

Browse Source 
[-] 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
This commit is contained in:
dopi
2018-02-07 14:02:42 +00:00
parent 6874b739d8
commit f3bc7dc114
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tdi/read-me.txt
View File

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

2
components/tdi/tdiclass.pas
View File

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