Fix bug in Comparison/Modified indices

	modified:   TurboBird.lpi
	modified:   TurboBird.lpr
	modified:   comparison.pas

TurboBird.lpi

@@ -60,9 +60,10 @@
         <Filename Value="TurboBird.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TurboBird"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="22"/>
+        <TopLine Value="5"/>
         <CursorPos X="26" Y="5"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
@@ -73,7 +74,6 @@
         <ComponentName Value="fmMain"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="main"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
         <TopLine Value="3734"/>
@@ -975,8 +975,8 @@
         <UnitName Value="Comparison"/>
         <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="693"/>
-        <CursorPos X="104" Y="710"/>
+        <TopLine Value="666"/>
+        <CursorPos X="3" Y="668"/>
         <UsageCount Value="70"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -1004,123 +1004,127 @@
         <UsageCount Value="10"/>
       </Unit105>
     </Units>
-    <JumpHistory Count="29" HistoryIndex="28">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="325" Column="36" TopLine="319"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position1>
       <Position2>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="433" Column="79" TopLine="425"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="19" Column="30" TopLine="1"/>
       </Position2>
       <Position3>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="442" Column="15" TopLine="350"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="180" Column="36" TopLine="144"/>
       </Position3>
       <Position4>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="495" Column="31" TopLine="485"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="851" Column="29" TopLine="845"/>
       </Position4>
       <Position5>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="157" Column="32" TopLine="147"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="240" Column="3" TopLine="238"/>
       </Position5>
       <Position6>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="1016" Column="40" TopLine="994"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="118" Column="26" TopLine="109"/>
       </Position6>
       <Position7>
-        <Filename Value="main.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="241" Column="3" TopLine="239"/>
       </Position7>
       <Position8>
-        <Filename Value="main.pas"/>
-        <Caret Line="19" Column="30" TopLine="1"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="433" Column="24" TopLine="421"/>
       </Position8>
       <Position9>
-        <Filename Value="main.pas"/>
-        <Caret Line="180" Column="36" TopLine="144"/>
+        <Filename Value="querywindow.pas"/>
+        <Caret Line="110" Column="22" TopLine="89"/>
       </Position9>
       <Position10>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="851" Column="29" TopLine="845"/>
+        <Caret Line="240" Column="3" TopLine="238"/>
       </Position10>
       <Position11>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="240" Column="3" TopLine="238"/>
+        <Caret Line="561" Column="1" TopLine="549"/>
       </Position11>
       <Position12>
         <Filename Value="querywindow.pas"/>
-        <Caret Line="118" Column="26" TopLine="109"/>
+        <Caret Line="562" Column="28" TopLine="531"/>
       </Position12>
       <Position13>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="241" Column="3" TopLine="239"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="1009" Column="22" TopLine="993"/>
       </Position13>
       <Position14>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="433" Column="24" TopLine="421"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="468" Column="1" TopLine="451"/>
       </Position14>
       <Position15>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="110" Column="22" TopLine="89"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="703" Column="25" TopLine="693"/>
       </Position15>
       <Position16>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="240" Column="3" TopLine="238"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1098" Column="1" TopLine="1061"/>
       </Position16>
       <Position17>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="561" Column="1" TopLine="549"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position17>
       <Position18>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="562" Column="28" TopLine="531"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="699" Column="3" TopLine="697"/>
       </Position18>
       <Position19>
         <Filename Value="comparison.pas"/>
-        <Caret Line="1009" Column="22" TopLine="993"/>
+        <Caret Line="720" Column="41" TopLine="699"/>
       </Position19>
       <Position20>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="468" Column="1" TopLine="451"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="699" Column="3" TopLine="697"/>
       </Position20>
       <Position21>
-        <Filename Value="comparison.pas"/>
-        <Caret Line="703" Column="25" TopLine="693"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="406" Column="3" TopLine="402"/>
       </Position21>
       <Position22>
-        <Filename Value="main.pas"/>
-        <Caret Line="1098" Column="1" TopLine="1061"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="706" Column="22" TopLine="701"/>
       </Position22>
       <Position23>
         <Filename Value="main.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="699" Column="3" TopLine="697"/>
       </Position23>
       <Position24>
-        <Filename Value="main.pas"/>
-        <Caret Line="699" Column="3" TopLine="697"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="1134" Column="32" TopLine="1131"/>
       </Position24>
       <Position25>
         <Filename Value="comparison.pas"/>
-        <Caret Line="720" Column="41" TopLine="699"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position25>
       <Position26>
-        <Filename Value="main.pas"/>
-        <Caret Line="699" Column="3" TopLine="697"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="99" Column="36" TopLine="71"/>
       </Position26>
       <Position27>
-        <Filename Value="tablemanage.pas"/>
-        <Caret Line="406" Column="3" TopLine="402"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="279" Column="17" TopLine="257"/>
       </Position27>
       <Position28>
         <Filename Value="comparison.pas"/>
-        <Caret Line="706" Column="22" TopLine="701"/>
+        <Caret Line="1144" Column="6" TopLine="1134"/>
       </Position28>
       <Position29>
-        <Filename Value="main.pas"/>
-        <Caret Line="699" Column="3" TopLine="697"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position29>
+      <Position30>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="652" Column="25" TopLine="633"/>
+      </Position30>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>

TurboBird.lpr

@@ -2,7 +2,7 @@
 {  TurboBird: FireBird database administration and management tool          }
 {  Developed by: Motaz Abdel Azeem http://code.sd/                          }
 {  Start development :  5.Dec.2009                                          }
-{  Last updated      : 23.May.2012                                          }
+{  Last updated      : 24.May.2012                                          }
 {  License           : GPL for GUI, LGPL for Units                          }
 {***************************************************************************}
 

comparison.pas

@@ -691,7 +691,7 @@ var
 begin
   meLog.Lines.Add('');
   meLog.Lines.Add('Modified Constraints');
-  ModifiedIndicesList.Clear;
+  ModifiedConstraintsList.Clear;
 
   for i:= 0 to ExistConstraintsList.Count - 1 do
   begin
@@ -1182,7 +1182,9 @@ begin
 
         fQueryWindow.meQuery.Lines.Add(Line);
         fQueryWindow.meQuery.Lines.Add('');
-      end;
+      end
+      else
+        fQueryWindow.meQuery.Lines.Add('--Index ' + AIndexName + ' does not exist on table: ' + ATableName);
 
     end;