diff --git a/components/tdi/Demo/TDIDemo.lpi b/components/tdi/Demo/TDIDemo.lpi index 1e835dd14..1fa373240 100644 --- a/components/tdi/Demo/TDIDemo.lpi +++ b/components/tdi/Demo/TDIDemo.lpi @@ -1,4 +1,4 @@ - + diff --git a/components/tdi/Demo/TDIDemo.lps b/components/tdi/Demo/TDIDemo.lps index 706f86439..3c4aba43f 100644 --- a/components/tdi/Demo/TDIDemo.lps +++ b/components/tdi/Demo/TDIDemo.lps @@ -1,4 +1,4 @@ - + @@ -34,8 +34,8 @@ - - + + @@ -49,9 +49,9 @@ - - - + + + @@ -63,8 +63,8 @@ - - + + @@ -72,28 +72,27 @@ - - - + + - - + + - + - - + + - - + + @@ -159,7 +158,7 @@ - + @@ -653,10 +652,11 @@ + - - + + @@ -714,40 +714,138 @@ - + - + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - - - - - - - - - - - - - - + diff --git a/components/tdi/read-me.txt b/components/tdi/read-me.txt index a0db22770..baba6ce6d 100644 --- a/components/tdi/read-me.txt +++ b/components/tdi/read-me.txt @@ -12,7 +12,7 @@ http://wiki.freepascal.org/tdi 8 Installation 9 How to Use 10 Methods and Properties - 11 Note + 11 Changelog === 1 - About === @@ -57,6 +57,7 @@ http://www.opensource.org/licenses/lgpl-license.php - Allows customization of Labels and Images of the Menu Items Tabs - Allow to close Tabs with Mouse Middle Button - Allows Close All Tabs +- Runs internal Form OnActivate, OnDeactivate when changing pages === 5 - Download === @@ -155,3 +156,18 @@ to explain the component * property FixedPages : Integer Number of initial Pages that cannot be closed. + +=== 11 - ChangeLog === + +[+]: New feature +[*]: Resource modified / improved +[-]: Bug Fix (hopefully) + +13/07/2013 +[+] Added suport to runs Internal Form OnActivate and OnDeactivate when + changing Pages (by: DSA) + +14/11/2013 +[-] Better detection for Form Constraint handling on Linux + (by: DSA and Galló Gábor) + diff --git a/components/tdi/tdiclass.pas b/components/tdi/tdiclass.pas index 35ff636a6..bafe850f2 100644 --- a/components/tdi/tdiclass.pas +++ b/components/tdi/tdiclass.pas @@ -343,12 +343,18 @@ begin end ; procedure TTDIPage.CheckFormAlign ; +Var + Maximize: Boolean ; begin if not Assigned(fsFormInPage) then exit ; + Maximize := not (( fsFormInPage.Constraints.MaxWidth <> 0 ) and (fsFormInPage.Width < Width)) ; + if Maximize then + Maximize := not (( fsFormInPage.Constraints.MaxHeight <> 0 ) and (fsFormInPage.Height < Height)); + { If Form has MaxConstrains and doesn't fill all the Screen, Centralize on TabSheet } - if (fsFormInPage.Width < Width) or (fsFormInPage.Height < Height) then + if not Maximize then begin fsFormInPage.Align := alNone;