Cosmetic: allow use of comparison on smaller screens/lower resolution

comparison.lfm

@@ -1,11 +1,11 @@
 object fmComparison: TfmComparison
-  Left = 180
-  Height = 658
-  Top = 117
-  Width = 820
+  Left = 175
+  Height = 628
+  Top = 38
+  Width = 758
   Caption = 'Database comparison'
-  ClientHeight = 658
-  ClientWidth = 820
+  ClientHeight = 628
+  ClientWidth = 758
   KeyPreview = True
   OnClose = FormClose
   OnCreate = FormCreate
@@ -63,9 +63,9 @@ object fmComparison: TfmComparison
     ParentFont = False
   end
   object bbStart: TBitBtn
-    Left = 648
+    Left = 568
     Height = 30
-    Top = 320
+    Top = 288
     Width = 154
     Caption = 'Start Comparison'
     Default = True
@@ -106,13 +106,13 @@ object fmComparison: TfmComparison
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
     }
     OnClick = bbStartClick
-    TabOrder = 8
+    TabOrder = 3
   end
   object meLog: TMemo
     Left = 13
-    Height = 266
-    Top = 360
-    Width = 800
+    Height = 236
+    Top = 328
+    Width = 673
     Anchors = [akTop, akLeft, akRight, akBottom]
     Font.Name = 'Courier 10 Pitch'
     ParentFont = False
@@ -122,9 +122,9 @@ object fmComparison: TfmComparison
   end
   object laScript: TLabel
     Cursor = crHandPoint
-    Left = 328
+    Left = 224
     Height = 13
-    Top = 332
+    Top = 305
     Width = 193
     Caption = 'Script differences in compared database'
     Font.Style = [fsUnderline]
@@ -136,10 +136,10 @@ object fmComparison: TfmComparison
     Left = 15
     Height = 79
     Top = 192
-    Width = 601
+    Width = 513
     Caption = 'Compared objects'
     ClientHeight = 61
-    ClientWidth = 597
+    ClientWidth = 509
     TabOrder = 2
     object cxTables: TCheckBox
       Left = 11
@@ -212,26 +212,18 @@ object fmComparison: TfmComparison
   object StatusBar1: TStatusBar
     Left = 0
     Height = 20
-    Top = 638
-    Width = 820
+    Top = 608
+    Width = 758
     Panels = <    
       item
         Width = 50
       end>
     SimplePanel = False
   end
-  object cxRemovedObjects: TCheckBox
-    Left = 15
-    Height = 17
-    Top = 278
-    Width = 135
-    Caption = 'Check Removed objects'
-    TabOrder = 4
-  end
   object bbClose: TBitBtn
-    Left = 793
+    Left = 684
     Height = 24
-    Top = 0
+    Top = 6
     Width = 27
     Anchors = [akTop, akRight]
     Caption = ' X  '
@@ -243,11 +235,10 @@ object fmComparison: TfmComparison
     TabStop = False
   end
   object Label3: TLabel
-    Left = 8
+    Left = 13
     Height = 98
-    Top = 6
-    Width = 775
-    Anchors = [akTop, akLeft, akRight]
+    Top = 8
+    Width = 712
     AutoSize = False
     Caption = 'Database comparison tool compares original database structure to another database structure.'#13#10'It generates a script to make the compared (source) database structure become like the original (target) database.'#13#10#13#10'For instance, the original database could be a development database, and compared database is an old version that'#13#10'is deployed at a customer. This tool generates a script to make the customer database structure '#13#10'resemble the developmenent database as much as possible.'
     Color = clCream
@@ -258,27 +249,35 @@ object fmComparison: TfmComparison
     WordWrap = True
   end
   object GroupBox2: TGroupBox
-    Left = 616
+    Left = 528
     Height = 76
     Top = 195
-    Width = 189
+    Width = 168
     Caption = 'Options'
     ClientHeight = 58
-    ClientWidth = 185
+    ClientWidth = 164
     TabOrder = 6
     object cxIgnoreLength: TCheckBox
-      Left = 16
+      Left = 11
       Height = 17
-      Top = 6
+      Top = 1
       Width = 113
       Caption = 'Ignore fields length'
       TabOrder = 0
     end
+    object cxRemovedObjects: TCheckBox
+      Left = 11
+      Height = 17
+      Top = 22
+      Width = 132
+      Caption = 'Check removed objects'
+      TabOrder = 1
+    end
   end
   object bbCancel: TBitBtn
-    Left = 552
+    Left = 440
     Height = 30
-    Top = 320
+    Top = 288
     Width = 78
     Caption = 'Cancel'
     Glyph.Data = {

comparison.pas

@@ -50,9 +50,9 @@ type
   private
     FDBIndex: Integer;
     FDiffCount: Integer;
-    FDBObjectsList: array [0 .. NumObjects - 1] of TStringList;
-    FDBExistingObjectsList: array [0 .. NumObjects - 1] of TStringList;
-    FDBRemovedObjectsList: array [0 .. NumObjects - 1] of TStringList;
+    FDBObjectsList: array [0 .. NumObjects - 1] of TStringList; //matches turbocmmon.dbObjects
+    FDBExistingObjectsList: array [0 .. NumObjects - 1] of TStringList; //matches turbocmmon.dbObjects
+    FDBRemovedObjectsList: array [0 .. NumObjects - 1] of TStringList; //matches turbocmmon.dbObjects
     FMissingFieldsList: TStringList;
 
     FExistFieldsList: TStringList;
@@ -232,7 +232,6 @@ begin
   else
     DisplayStatus('Canceled');
   bbCancel.Enabled:= False;
-
 end;
 
 procedure TfmComparison.bbCloseClick(Sender: TObject);
@@ -531,7 +530,6 @@ begin
         end
         else
           FQueryWindow.meQuery.Lines.Add('-- Index ' + AIndexName + ' not exist on ' + ATableName);
-
       end
       else
       if (ObjectType = otConstraints) and cxTables.Checked then // Constraints are part of tables