git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2464 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tdi/Demo/TDIDemo.lps

@@ -10,9 +10,9 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="TDIDemo"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="5"/>
-        <CursorPos X="1" Y="23"/>
-        <UsageCount Value="183"/>
+        <TopLine Value="8"/>
+        <CursorPos X="7" Y="11"/>
+        <UsageCount Value="184"/>
       </Unit0>
       <Unit1>
         <Filename Value="mainform.pas"/>
@@ -23,7 +23,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="10" Y="8"/>
-        <UsageCount Value="183"/>
+        <UsageCount Value="184"/>
       </Unit1>
       <Unit2>
         <Filename Value="uform1.pas"/>
@@ -35,7 +35,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="76"/>
         <CursorPos X="25" Y="86"/>
-        <UsageCount Value="183"/>
+        <UsageCount Value="184"/>
       </Unit2>
       <Unit3>
         <Filename Value="uform2.pas"/>
@@ -47,7 +47,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="76"/>
         <CursorPos X="18" Y="80"/>
-        <UsageCount Value="105"/>
+        <UsageCount Value="106"/>
       </Unit3>
       <Unit4>
         <Filename Value="umainform.pas"/>
@@ -55,25 +55,25 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="uMainForm"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="1" Y="1"/>
-        <UsageCount Value="89"/>
+        <TopLine Value="142"/>
+        <CursorPos X="35" Y="151"/>
+        <UsageCount Value="90"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit4>
       <Unit5>
         <Filename Value="..\tdiclass.pas"/>
         <UnitName Value="TDIClass"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="962"/>
-        <CursorPos X="43" Y="982"/>
-        <UsageCount Value="89"/>
+        <TopLine Value="703"/>
+        <CursorPos X="7" Y="710"/>
+        <UsageCount Value="90"/>
         <Bookmarks Count="6">
-          <Item0 X="3" Y="1041" ID="3"/>
+          <Item0 X="3" Y="1044" ID="3"/>
           <Item1 X="1" Y="346" ID="2"/>
           <Item2 X="32" Y="691" ID="4"/>
           <Item3 X="3" Y="282" ID="6"/>
@@ -156,10 +156,12 @@
       <Unit14>
         <Filename Value="..\tdiconst.pas"/>
         <UnitName Value="TDIConst"/>
+        <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="4"/>
-        <CursorPos X="54" Y="22"/>
-        <UsageCount Value="52"/>
+        <TopLine Value="28"/>
+        <CursorPos X="19" Y="39"/>
+        <UsageCount Value="53"/>
+        <Loaded Value="True"/>
       </Unit14>
       <Unit15>
         <Filename Value="C:\lazarus\lcl\controls.pp"/>
@@ -726,34 +728,34 @@
     <General>
       <ActiveWindowIndexAtStart Value="0"/>
     </General>
-    <JumpHistory Count="22" HistoryIndex="21">
+    <JumpHistory Count="25" HistoryIndex="24">
       <Position1>
         <Filename Value="umainform.pas"/>
         <Caret Line="10" Column="19" TopLine="1"/>
       </Position1>
       <Position2>
         <Filename Value="umainform.pas"/>
-        <Caret Line="10" Column="19" TopLine="1"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position2>
       <Position3>
         <Filename Value="umainform.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="153" Column="44" TopLine="141"/>
       </Position3>
       <Position4>
         <Filename Value="umainform.pas"/>
-        <Caret Line="153" Column="44" TopLine="141"/>
+        <Caret Line="38" Column="5" TopLine="27"/>
       </Position4>
       <Position5>
         <Filename Value="umainform.pas"/>
-        <Caret Line="38" Column="5" TopLine="27"/>
+        <Caret Line="37" Column="9" TopLine="24"/>
       </Position5>
       <Position6>
         <Filename Value="umainform.pas"/>
-        <Caret Line="37" Column="9" TopLine="24"/>
+        <Caret Line="31" Column="19" TopLine="24"/>
       </Position6>
       <Position7>
         <Filename Value="umainform.pas"/>
-        <Caret Line="31" Column="19" TopLine="24"/>
+        <Caret Line="144" Column="22" TopLine="138"/>
       </Position7>
       <Position8>
         <Filename Value="umainform.pas"/>
@@ -761,60 +763,72 @@
       </Position8>
       <Position9>
         <Filename Value="umainform.pas"/>
-        <Caret Line="144" Column="22" TopLine="138"/>
+        <Caret Line="81" Column="79" TopLine="75"/>
       </Position9>
       <Position10>
         <Filename Value="umainform.pas"/>
-        <Caret Line="81" Column="79" TopLine="75"/>
+        <Caret Line="80" Column="5" TopLine="75"/>
       </Position10>
       <Position11>
         <Filename Value="umainform.pas"/>
-        <Caret Line="80" Column="5" TopLine="75"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position11>
       <Position12>
-        <Filename Value="umainform.pas"/>
+        <Filename Value="..\tdiclass.pas"/>
         <Caret Line="1" Column="1" TopLine="1"/>
       </Position12>
       <Position13>
         <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="104" Column="20" TopLine="87"/>
       </Position13>
       <Position14>
         <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="104" Column="20" TopLine="87"/>
+        <Caret Line="811" Column="32" TopLine="798"/>
       </Position14>
       <Position15>
         <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="811" Column="32" TopLine="798"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position15>
       <Position16>
         <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="67" Column="14" TopLine="50"/>
       </Position16>
       <Position17>
         <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="67" Column="14" TopLine="50"/>
+        <Caret Line="78" Column="74" TopLine="61"/>
       </Position17>
       <Position18>
         <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="78" Column="74" TopLine="61"/>
+        <Caret Line="144" Column="14" TopLine="127"/>
       </Position18>
       <Position19>
         <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="144" Column="14" TopLine="127"/>
+        <Caret Line="442" Column="24" TopLine="425"/>
       </Position19>
       <Position20>
         <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="442" Column="24" TopLine="425"/>
+        <Caret Line="474" Column="26" TopLine="456"/>
       </Position20>
       <Position21>
         <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="474" Column="26" TopLine="456"/>
+        <Caret Line="650" Column="24" TopLine="630"/>
       </Position21>
       <Position22>
-        <Filename Value="..\tdiclass.pas"/>
-        <Caret Line="650" Column="24" TopLine="630"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position22>
+      <Position23>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="7" Column="5" TopLine="1"/>
+      </Position23>
+      <Position24>
+        <Filename Value="..\tdiclass.pas"/>
+        <Caret Line="709" Column="29" TopLine="703"/>
+      </Position24>
+      <Position25>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="100" Column="9" TopLine="133"/>
+      </Position25>
     </JumpHistory>
   </ProjectSession>
 </CONFIG>

components/tdi/tdiclass.pas

@@ -705,6 +705,9 @@ Var
   NewPage : TTDIPage ;
   AlreadyExistingPage : Integer ;
 begin
+  if not Assigned( AForm ) then
+     raise ETDIError.Create( sFormNotAssigned ) ;
+
   // Looking for a Page with same AForm Object //
   AlreadyExistingPage := FindFormInPages( AForm );
   if AlreadyExistingPage >= 0 then

components/tdi/tdiconst.pas

@@ -36,6 +36,7 @@ uses
 
 resourcestring
   sOwnerIsNotWinControl = 'TDINoteBook.Owner is not a TWinControl descendant';
+  sFormNotAssigned = 'Parameter AForm not Assigned';
   sMainMenuNotAssigned = 'TTDINoteBook.MainMenu not assigned';
   sActionTabsMenu = 'Tabs';
   sActionCloseTab = 'Close Tab';