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

tdiclass.pas

Browse Source 
[-] Fix for Closed Buttom Enabled/Disabled detection when Creating and Closing Pages
    Lazarus 1.6. (side effect for commit in 27/09/17)
[+] Added Public method: procedure CloseAllTabs;
    (by: DSA)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6029 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
dopi
2017-10-03 20:23:31 +00:00
parent 3441728a23
commit c25b20a161
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,3 +178,9 @@ to explain the component
Lazarus 1.8
(by: DSA)
03/10/2017
[-] Fix for Closed Buttom Enabled/Disabled detection when Creating and Closing Pages
Lazarus 1.6. (side effect for commit in 27/09/17)
[+] Added Public method: procedure CloseAllTabs;
(by: DSA)

10
components/tdi/tdiclass.pas
View File

@ -196,7 +196,8 @@ type
procedure ScrollPage( ToForward: Boolean );
procedure CheckInterface;
procedure UpdateTabsMenuItem ;
procedure UpdateTabsMenuItem;
procedure CloseAllTabs;
published
property BackgroundImage : TImage read FBackgroundImage
@ -728,7 +729,7 @@ begin
exit ;
end ;
DoCheckInterface := (PageCount = 1);
DoCheckInterface := (PageCount <= 1);
// Create a new Page
NewPage := TTDIPage.Create(Self);
@ -996,6 +997,11 @@ begin
end ;
end ;
procedure TTDINoteBook.CloseAllTabs;
begin
CloseAllTabsClicked(Nil);
end;
procedure TTDINoteBook.NextPageClicked(Sender : TObject) ;
begin
ScrollPage( True );