changed lotw imp/exp statusmonitor scrolling

src/fImportLoTWWeb.lfm

@@ -1,7 +1,7 @@
 object frmImportLoTWWeb: TfrmImportLoTWWeb
   Left = 611
   Height = 583
-  Top = 213
+  Top = 190
   Width = 572
   ActiveControl = Panel1
   Caption = 'Import from LoTW web site'
@@ -115,7 +115,7 @@ object frmImportLoTWWeb: TfrmImportLoTWWeb
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   Position = poMainFormCenter
-  LCLVersion = '1.6.4.0'
+  LCLVersion = '2.0.4.0'
   object GroupBox1: TGroupBox
     Left = 0
     Height = 405
@@ -123,15 +123,16 @@ object frmImportLoTWWeb: TfrmImportLoTWWeb
     Width = 572
     Align = alClient
     Caption = 'Progress'
-    ClientHeight = 386
-    ClientWidth = 568
+    ClientHeight = 387
+    ClientWidth = 570
     TabOrder = 0
     object mStat: TMemo
       Left = 0
-      Height = 386
+      Height = 387
       Top = 0
-      Width = 568
+      Width = 570
       Align = alClient
+      OnChange = mStatChange
       ScrollBars = ssAutoBoth
       TabOrder = 0
     end
@@ -163,29 +164,29 @@ object frmImportLoTWWeb: TfrmImportLoTWWeb
       Width = 572
       Anchors = [akTop, akLeft, akRight]
       Caption = ' '
-      ClientHeight = 69
-      ClientWidth = 568
+      ClientHeight = 70
+      ClientWidth = 570
       TabOrder = 1
       object Label3: TLabel
         Left = 10
         Height = 17
         Top = 12
-        Width = 273
+        Width = 259
         Caption = 'Return QSL records received on or after '
         ParentColor = False
       end
       object edtDateFrom: TEdit
         Left = 280
-        Height = 27
+        Height = 34
         Top = 6
         Width = 96
         TabOrder = 0
       end
       object chkShowNew: TCheckBox
         Left = 6
-        Height = 22
+        Height = 23
         Top = 39
-        Width = 402
+        Width = 382
         Caption = 'Show new comfirmed QSOs after download and import'
         TabOrder = 1
       end
@@ -193,13 +194,13 @@ object frmImportLoTWWeb: TfrmImportLoTWWeb
         Left = 384
         Height = 17
         Top = 12
-        Width = 47
+        Width = 45
         Caption = 'for call'
         ParentColor = False
       end
       object edtCall: TEdit
         Left = 448
-        Height = 27
+        Height = 34
         Top = 6
         Width = 104
         TabOrder = 2

src/fImportLoTWWeb.pas

@@ -32,6 +32,7 @@ type
     procedure FormShow(Sender: TObject);
     procedure btnDownloadClick(Sender: TObject);
     procedure btnPreferencesClick(Sender: TObject);
+    procedure mStatChange(Sender: TObject);
   private
     Done : Boolean;
     FileSize : Int64;
@@ -59,6 +60,20 @@ begin
   end
 end;
 
+procedure TfrmImportLoTWWeb.mStatChange(Sender: TObject);
+begin
+    with mStat do
+     begin
+     VertScrollBar.Position:=1000000;
+     {    //this does not always scroll to end (why?)
+      SelStart := GetTextLen;
+      SelLength := 0;
+      ScrollBy(0, Lines.Count);
+      }
+      Refresh;
+     end;
+end;
+
 procedure TfrmImportLoTWWeb.btnDownloadClick(Sender: TObject);
 var
   user : String = '';

src/fLoTWExport.pas

@@ -199,9 +199,12 @@ procedure TfrmLoTWExport.mStatChange(Sender: TObject);
 begin
    with mStat do
      begin
+     VertScrollBar.Position:=1000000;
+     {  //this does not always scroll to end (why?)
       SelStart := GetTextLen;
       SelLength := 0;
       ScrollBy(0, Lines.Count);
+      }
       Refresh;
      end;
 end;