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