Fix showing of scan result form

varianus · Apr 26, 2022 · 8543805 · 8543805
1 parent 2128ab0
commit 8543805
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/uscanresult.lfm b/src/uscanresult.lfm
@@ -1,12 +1,12 @@
 object fScanResult: TfScanResult
-  Left = 2311
+  Left = 100
   Height = 368
-  Top = 169
+  Top = 100
   Width = 771
   Caption = 'Scan Result'
   ClientHeight = 368
   ClientWidth = 771
-  LCLVersion = '2.1.0.0'
+  Position = poMainFormCenter
   object StringGrid1: TStringGrid
     Left = 0
     Height = 322

diff --git a/src/uscanresult.pas b/src/uscanresult.pas
@@ -40,8 +40,8 @@ procedure TfScanResult.Load(Status: TScannedStatus);
     if r.Status = Status then
       inc(c);
 
-  StringGrid1.RowCount := c;
-  c:=0;
+  StringGrid1.RowCount := c+1;
+  c:=1;
   for r in BackEnd.mediaLibrary.ScanResult do
     if r.Status = Status then
       begin