--- dao/DelphiScanner/Main.dfm	2015/08/20 20:34:08	2649
+++ dao/DelphiScanner/Main.dfm	2015/08/20 20:58:26	2650
@@ -2,9 +2,11 @@
   Left = 300
   Top = 131
   Caption = 'Scanning af pakker'
-  ClientHeight = 672
+  ClientHeight = 858
   ClientWidth = 1000
   Color = clBtnFace
+  Constraints.MinHeight = 750
+  Constraints.MinWidth = 1000
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -16
@@ -3627,7 +3629,7 @@
   OnKeyPress = FormKeyPress
   DesignSize = (
     1000
-    672)
+    858)
   PixelsPerInch = 96
   TextHeight = 19
   object Image1: TImage
@@ -3968,10 +3970,10 @@
     OnClick = RadioButton2Click
   end
   object ListBox1: TListBox
-    Left = 17
-    Top = 352
+    Left = 8
+    Top = 391
     Width = 874
-    Height = 145
+    Height = 163
     Hint = 'Log vindue viser handlinger og meddelelser fra programmet'
     Style = lbOwnerDrawFixed
     Anchors = [akLeft, akTop, akRight]
@@ -3980,8 +3982,8 @@
     OnDrawItem = ListBox1DrawItem
   end
   object DownloadButton01: TButton
-    Left = 905
-    Top = 401
+    Left = 904
+    Top = 445
     Width = 88
     Height = 47
     Hint = 'Hent rute kontrol filen fra DAO ftp server'
@@ -3993,20 +3995,21 @@
     OnClick = DownloadButton01Click
   end
   object ListBox2: TListBox
-    Left = 17
-    Top = 506
+    Left = 8
+    Top = 560
     Width = 874
-    Height = 145
+    Height = 277
     Hint = 'Status vindue viser hvad der endnu ikke er scannet'
     Style = lbOwnerDrawFixed
     Anchors = [akLeft, akTop, akRight, akBottom]
     ItemHeight = 19
     TabOrder = 11
     OnDrawItem = ListBox1DrawItem
+    ExplicitHeight = 169
   end
   object OpdaterListenButton01: TButton
     Left = 905
-    Top = 604
+    Top = 790
     Width = 88
     Height = 47
     Hint = 'Henter oplysning om de pakker der endnu ikke er scannet modtaget'
@@ -4016,10 +4019,11 @@
     TabOrder = 12
     WordWrap = True
     OnClick = OpdaterListenButton01Click
+    ExplicitTop = 604
   end
   object UploadButton01: TButton
-    Left = 905
-    Top = 352
+    Left = 904
+    Top = 391
     Width = 88
     Height = 47
     Hint = 'Sender log filen til DAO ftp server'
@@ -4031,8 +4035,8 @@
     OnClick = UploadButton01Click
   end
   object DownloadButton03: TButton
-    Left = 905
-    Top = 450
+    Left = 904
+    Top = 498
     Width = 88
     Height = 47
     Hint = 'Henter ruteskift fil fra DAO ftp server'
@@ -4065,7 +4069,7 @@
   end
   object EKLoverforsel: TButton
     Left = 905
-    Top = 554
+    Top = 740
     Width = 88
     Height = 47
     Hint = 'Overf'#248'r de scannede pakker til EKL systemet'
@@ -4075,6 +4079,7 @@
     TabOrder = 18
     WordWrap = True
     OnClick = EKLoverforselClick
+    ExplicitTop = 554
   end
   object PrinterstatusStaticText1: TStaticText
     Left = 119
@@ -4335,16 +4340,35 @@
     TabOrder = 34
     Visible = False
   end
+  object PanelValg7: TPanel
+    Left = 807
+    Top = 338
+    Width = 185
+    Height = 41
+    Hint = 
+      'V'#230'lges n'#229'r der skal scannes DAO PAKKESHOP pakker der skal return' +
+      'eres til leverand'#248'ren'
+    Alignment = taLeftJustify
+    Anchors = [akTop, akRight]
+    Caption = '   Indleveringskode'
+    TabOrder = 35
+    OnClick = PanelValg7Click
+  end
   object IdHTTP1: TIdHTTP
     AllowCookies = True
     ProxyParams.BasicAuthentication = False
     ProxyParams.ProxyPort = 0
     Request.ContentLength = -1
+    Request.ContentRangeEnd = -1
+    Request.ContentRangeStart = -1
+    Request.ContentRangeInstanceLength = -1
     Request.ContentType = 'text/html'
     Request.Accept = 'text/html, */*'
     Request.BasicAuthentication = False
     Request.Host = 'omdeling.info'
     Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
+    Request.Ranges.Units = 'bytes'
+    Request.Ranges = <>
     HTTPOptions = [hoForceEncodeParams]
     Left = 88
     Top = 384
@@ -4505,9 +4529,12 @@
   end
   object IdFTP1: TIdFTP
     IPVersion = Id_IPv4
-    AutoLogin = True
     Passive = True
     PassiveUseControlHost = True
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
     ProxySettings.ProxyType = fpcmNone
     ProxySettings.Port = 0
     Left = 264