--- dao/DelphiScanner/Main.dfm 2016/07/26 06:30:11 3072 +++ dao/DelphiScanner/Main.dfm 2016/07/27 15:25:24 3073 @@ -2,8 +2,8 @@ Left = 300 Top = 131 Caption = 'Scanning af pakker' - ClientHeight = 858 - ClientWidth = 1000 + ClientHeight = 897 + ClientWidth = 1065 Color = clBtnFace Constraints.MinHeight = 750 Constraints.MinWidth = 1000 @@ -3628,8 +3628,8 @@ OnDestroy = FormDestroy OnKeyPress = FormKeyPress DesignSize = ( - 1000 - 858) + 1065 + 897) PixelsPerInch = 96 TextHeight = 19 object Image1: TImage @@ -3968,8 +3968,8 @@ end object ListBox1: TListBox Left = 8 - Top = 430 - Width = 874 + Top = 486 + Width = 939 Height = 163 Hint = 'Log vindue viser handlinger og meddelelser fra programmet' Style = lbOwnerDrawFixed @@ -3979,7 +3979,7 @@ OnDrawItem = ListBox1DrawItem end object BtnDownloadKontrolfil: TButton - Left = 904 + Left = 969 Top = 484 Width = 88 Height = 47 @@ -3990,12 +3990,13 @@ TabOrder = 9 WordWrap = True OnClick = BtnDownloadKontrolfilClick + ExplicitLeft = 904 end object ListBox2: TListBox Left = 8 - Top = 600 - Width = 874 - Height = 237 + Top = 656 + Width = 939 + Height = 220 Hint = 'Status vindue viser hvad der endnu ikke er scannet' Style = lbOwnerDrawFixed Anchors = [akLeft, akTop, akRight, akBottom] @@ -4004,8 +4005,8 @@ OnDrawItem = ListBox1DrawItem end object BtnOpdaterListen: TButton - Left = 904 - Top = 793 + Left = 969 + Top = 832 Width = 88 Height = 47 Hint = 'Henter oplysning om de pakker der endnu ikke er scannet modtaget' @@ -4015,9 +4016,11 @@ TabOrder = 11 WordWrap = True OnClick = BtnOpdaterListenClick + ExplicitLeft = 904 + ExplicitTop = 793 end object BtnUploadLogfil: TButton - Left = 904 + Left = 969 Top = 430 Width = 88 Height = 47 @@ -4028,9 +4031,10 @@ TabOrder = 12 WordWrap = True OnClick = BtnUploadLogfilClick + ExplicitLeft = 904 end object BtnDownloadRuteskiftFil: TButton - Left = 904 + Left = 969 Top = 537 Width = 88 Height = 47 @@ -4041,6 +4045,7 @@ Visible = False WordWrap = True OnClick = BtnDownloadRuteskiftFilClick + ExplicitLeft = 904 end object PakkeshopText1: TStaticText Left = 712 @@ -4063,8 +4068,8 @@ OnClick = chkAltidPrintLabelClick end object BtnEKLoverforsel: TButton - Left = 905 - Top = 740 + Left = 970 + Top = 779 Width = 88 Height = 47 Hint = 'Overf'#248'r de scannede pakker til EKL systemet' @@ -4074,6 +4079,8 @@ TabOrder = 17 WordWrap = True OnClick = BtnEKLoverforselClick + ExplicitLeft = 905 + ExplicitTop = 740 end object PrinterstatusStaticText1: TStaticText Left = 119 @@ -4090,17 +4097,18 @@ TabOrder = 18 end object chkScanTjekkode: TCheckBox - Left = 24 - Top = 365 + Left = 64 + Top = 537 Width = 353 Height = 26 Hint = 'Markeres n'#229'r der ogs'#229' skal scannes en tjekkode label' Caption = 'Scan ogs'#229' tjekkoden' TabOrder = 19 + Visible = False OnClick = chkScanTjekkodeClick end object PanelValgA: TPanel - Left = 807 + Left = 872 Top = 7 Width = 185 Height = 41 @@ -4111,9 +4119,10 @@ ParentBackground = False TabOrder = 20 OnClick = PanelValgAClick + ExplicitLeft = 807 end object PanelValg1: TPanel - Left = 807 + Left = 872 Top = 59 Width = 185 Height = 41 @@ -4126,9 +4135,10 @@ ParentBackground = False TabOrder = 21 OnClick = PanelValg1Click + ExplicitLeft = 807 end object PanelValg2: TPanel - Left = 807 + Left = 872 Top = 100 Width = 185 Height = 41 @@ -4141,9 +4151,10 @@ ParentBackground = False TabOrder = 22 OnClick = PanelValg2Click + ExplicitLeft = 807 end object PanelValg3: TPanel - Left = 807 + Left = 872 Top = 143 Width = 185 Height = 41 @@ -4156,9 +4167,10 @@ ParentBackground = False TabOrder = 23 OnClick = PanelValg3Click + ExplicitLeft = 807 end object PanelValg4: TPanel - Left = 807 + Left = 872 Top = 196 Width = 185 Height = 41 @@ -4169,9 +4181,10 @@ ParentBackground = False TabOrder = 24 OnClick = PanelValg4Click + ExplicitLeft = 807 end object PanelValg5: TPanel - Left = 807 + Left = 872 Top = 249 Width = 185 Height = 41 @@ -4182,9 +4195,10 @@ ParentBackground = False TabOrder = 25 OnClick = PanelValg5Click + ExplicitLeft = 807 end object PanelValg6: TPanel - Left = 807 + Left = 872 Top = 291 Width = 185 Height = 41 @@ -4197,10 +4211,11 @@ ParentBackground = False TabOrder = 26 OnClick = PanelValg6Click + ExplicitLeft = 807 end object Button1: TButton - Left = 436 - Top = 440 + Left = 675 + Top = 435 Width = 125 Height = 38 Margins.Left = 5 @@ -4213,7 +4228,7 @@ OnClick = Button1Click end object StaticTextManglendePakker: TStaticText - Left = 528 + Left = 593 Top = 349 Width = 272 Height = 52 @@ -4231,9 +4246,10 @@ Font.Style = [] ParentFont = False TabOrder = 27 + ExplicitLeft = 528 end object PanelManglendePakker1: TPanel - Left = 953 + Left = 1018 Top = 54 Width = 46 Height = 23 @@ -4249,9 +4265,10 @@ ParentFont = False TabOrder = 28 Visible = False + ExplicitLeft = 953 end object PanelManglendePakker2: TPanel - Left = 954 + Left = 1019 Top = 96 Width = 46 Height = 23 @@ -4267,9 +4284,10 @@ ParentFont = False TabOrder = 29 Visible = False + ExplicitLeft = 954 end object PanelManglendePakker3: TPanel - Left = 954 + Left = 1019 Top = 137 Width = 46 Height = 23 @@ -4285,9 +4303,10 @@ ParentFont = False TabOrder = 30 Visible = False + ExplicitLeft = 954 end object PanelManglendePakker4: TPanel - Left = 954 + Left = 1019 Top = 191 Width = 46 Height = 23 @@ -4303,9 +4322,10 @@ ParentFont = False TabOrder = 31 Visible = False + ExplicitLeft = 954 end object PanelManglendePakker5: TPanel - Left = 954 + Left = 1019 Top = 244 Width = 46 Height = 23 @@ -4321,9 +4341,10 @@ ParentFont = False TabOrder = 32 Visible = False + ExplicitLeft = 954 end object PanelManglendePakker6: TPanel - Left = 954 + Left = 1019 Top = 286 Width = 46 Height = 23 @@ -4339,9 +4360,10 @@ ParentFont = False TabOrder = 33 Visible = False + ExplicitLeft = 954 end object PanelValg7: TPanel - Left = 806 + Left = 871 Top = 377 Width = 185 Height = 41 @@ -4354,23 +4376,32 @@ ParentBackground = False TabOrder = 34 OnClick = PanelValg7Click + ExplicitLeft = 806 end object chkForstorTilDirekte: TCheckBox Left = 24 - Top = 397 - Width = 238 + Top = 374 + Width = 321 Height = 22 - Caption = 'For stor til DAO Direkte' + Caption = 'For stor til DAO Direkte (Shop/Direkte)' TabOrder = 35 end object chkEmballageRepareret: TCheckBox - Left = 268 - Top = 397 + Left = 24 + Top = 402 Width = 181 Height = 22 Caption = 'Emballage Repareret' TabOrder = 36 end + object chkUdenforSpecifikation: TCheckBox + Left = 24 + Top = 430 + Width = 254 + Height = 17 + Caption = 'Pakke over m'#229'l - returneres' + TabOrder = 37 + end object IdHTTP1: TIdHTTP AllowCookies = True ProxyParams.BasicAuthentication = False @@ -4387,22 +4418,22 @@ Request.Ranges.Units = 'bytes' Request.Ranges = <> HTTPOptions = [hoForceEncodeParams] - Left = 88 - Top = 423 + Left = 128 + Top = 703 end object XMLDocument1: TXMLDocument - Left = 200 - Top = 463 + Left = 240 + Top = 743 DOMVendorDesc = 'MSXML' end object ApplicationEvents1: TApplicationEvents OnIdle = ApplicationEvents1Idle - Left = 336 - Top = 431 + Left = 376 + Top = 711 end object MainMenu1: TMainMenu - Left = 136 - Top = 447 + Left = 176 + Top = 727 object Afslut1: TMenuItem Caption = 'Afslut' object Lukprogrammet1: TMenuItem @@ -4559,13 +4590,13 @@ NATKeepAlive.IntervalMS = 0 ProxySettings.ProxyType = fpcmNone ProxySettings.Port = 0 - Left = 264 - Top = 431 + Left = 304 + Top = 711 end object Timer1: TTimer Interval = 60000 OnTimer = Timer1Timer - Left = 40 - Top = 431 + Left = 80 + Top = 711 end end