--- dao/DelphiScanner/Main.pas 2015/09/03 13:55:06 2690 +++ dao/DelphiScanner/Main.pas 2015/09/03 14:16:31 2691 @@ -52,7 +52,7 @@ Testlyd1: TMenuItem; ListBox1: TListBox; Budlevering1: TMenuItem; - DownloadButton01: TButton; + BtnDownloadKontrolfil: TButton; IdFTP1: TIdFTP; Image1: TImage; ListBox2: TListBox; @@ -134,7 +134,7 @@ procedure Button1Click(Sender: TObject); procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); procedure Budlevering1Click(Sender: TObject); - procedure DownloadButton01Click(Sender: TObject); + procedure BtnDownloadKontrolfilClick(Sender: TObject); procedure OpdaterListenButton01Click(Sender: TObject); procedure DownloadBladhusRuteskiftfil(); procedure DownloadBladhusKontrolfil(); @@ -1980,7 +1980,7 @@ 01 : begin; // NS Testprinter1.Visible := true; - DownloadButton01.Enabled := true; + BtnDownloadKontrolfil.Enabled := true; OpdaterListenButton01.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -1996,7 +1996,7 @@ Storepakker1.Enabled := true; radioStorPakke.Enabled := true; radioLillePakke.Enabled := true; - DownloadButton01.Enabled := false; // kontrolfil bruges ikke her + BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her OpdaterListenButton01.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -2013,7 +2013,7 @@ begin DownloadButton03.Visible := false; end; - DownloadButton01.Enabled := true; + BtnDownloadKontrolfil.Enabled := true; OpdaterListenButton01.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -2034,7 +2034,7 @@ Storepakker1.Enabled := true; radioStorPakke.Enabled := true; radioLillePakke.Enabled := true; - DownloadButton01.Enabled := false; // kontrolfil bruges ikke her + BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her OpdaterListenButton01.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -3657,7 +3657,7 @@ radioLillePakke.Enabled := true; ListBox1.Visible := true; ListBox1.Items.Clear; - DownloadButton01.Enabled := false; + BtnDownloadKontrolfil.Enabled := false; OpdaterListenButton01.Enabled := true; DownloadButton03.Visible := false; EKLoverforsel.Enabled := false; @@ -3693,7 +3693,7 @@ radioLillePakke.Enabled := false; ListBox1.Visible := true; ListBox1.Items.Clear; - DownloadButton01.Enabled := false; + BtnDownloadKontrolfil.Enabled := false; OpdaterListenButton01.Enabled := true; EKLoverforsel.Enabled := true; @@ -3730,7 +3730,7 @@ radioLillePakke.Enabled := false; ListBox1.Visible := true; ListBox1.Items.Clear; - DownloadButton01.Enabled := false; + BtnDownloadKontrolfil.Enabled := false; OpdaterListenButton01.Enabled := true; EKLoverforsel.Enabled := false; InitLillePakke(); @@ -3777,7 +3777,7 @@ ListBox1.Visible := true; ListBox1.Items.Clear(); - DownloadButton01.Enabled := false; + BtnDownloadKontrolfil.Enabled := false; OpdaterListenButton01.Enabled := true; EKLoverforsel.Enabled := false; InitLillePakke(); @@ -4540,7 +4540,7 @@ ListBox1.SetFocus; // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode end; -procedure TMainForm.DownloadButton01Click(Sender: TObject); +procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject); begin DownloadBladhusKontrolfil(); ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode