52 |
Testlyd1: TMenuItem; |
Testlyd1: TMenuItem; |
53 |
ListBox1: TListBox; |
ListBox1: TListBox; |
54 |
Budlevering1: TMenuItem; |
Budlevering1: TMenuItem; |
55 |
DownloadButton01: TButton; |
BtnDownloadKontrolfil: TButton; |
56 |
IdFTP1: TIdFTP; |
IdFTP1: TIdFTP; |
57 |
Image1: TImage; |
Image1: TImage; |
58 |
ListBox2: TListBox; |
ListBox2: TListBox; |
134 |
procedure Button1Click(Sender: TObject); |
procedure Button1Click(Sender: TObject); |
135 |
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); |
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); |
136 |
procedure Budlevering1Click(Sender: TObject); |
procedure Budlevering1Click(Sender: TObject); |
137 |
procedure DownloadButton01Click(Sender: TObject); |
procedure BtnDownloadKontrolfilClick(Sender: TObject); |
138 |
procedure OpdaterListenButton01Click(Sender: TObject); |
procedure OpdaterListenButton01Click(Sender: TObject); |
139 |
procedure DownloadBladhusRuteskiftfil(); |
procedure DownloadBladhusRuteskiftfil(); |
140 |
procedure DownloadBladhusKontrolfil(); |
procedure DownloadBladhusKontrolfil(); |
1980 |
01 : |
01 : |
1981 |
begin; // NS |
begin; // NS |
1982 |
Testprinter1.Visible := true; |
Testprinter1.Visible := true; |
1983 |
DownloadButton01.Enabled := true; |
BtnDownloadKontrolfil.Enabled := true; |
1984 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
1985 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
1986 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
1996 |
Storepakker1.Enabled := true; |
Storepakker1.Enabled := true; |
1997 |
radioStorPakke.Enabled := true; |
radioStorPakke.Enabled := true; |
1998 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
1999 |
DownloadButton01.Enabled := false; // kontrolfil bruges ikke her |
BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her |
2000 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
2001 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
2002 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
2013 |
begin |
begin |
2014 |
DownloadButton03.Visible := false; |
DownloadButton03.Visible := false; |
2015 |
end; |
end; |
2016 |
DownloadButton01.Enabled := true; |
BtnDownloadKontrolfil.Enabled := true; |
2017 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
2018 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
2019 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
2034 |
Storepakker1.Enabled := true; |
Storepakker1.Enabled := true; |
2035 |
radioStorPakke.Enabled := true; |
radioStorPakke.Enabled := true; |
2036 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
2037 |
DownloadButton01.Enabled := false; // kontrolfil bruges ikke her |
BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her |
2038 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
2039 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
2040 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
3244 |
|
|
3245 |
procedure TMainForm.PanelValgAClick(Sender: TObject); |
procedure TMainForm.PanelValgAClick(Sender: TObject); |
3246 |
begin |
begin |
|
// 20150311: start |
|
|
(* |
|
|
if PanelValgA.Color = clBtnFace then |
|
|
begin |
|
|
AutomatiskValg1.Checked := true; |
|
|
PanelValgA.Color := clGreen; |
|
|
PanelValgA.Font.Color := clWhite; |
|
|
end |
|
|
else |
|
|
begin |
|
|
AutomatiskValg1.Checked := false; |
|
|
PanelValgA.Color := clBtnFace; |
|
|
PanelValgA.Font.Color := clWindowText; |
|
|
end; |
|
|
*) |
|
3247 |
// Skal ikke toggle men bare sætte funktionen on |
// Skal ikke toggle men bare sætte funktionen on |
3248 |
// Fravælges ved at vælge en scanningstype |
// Fravælges ved at vælge en scanningstype |
3249 |
AutomatiskValg1.Checked := true; |
AutomatiskValg1.Checked := true; |
3250 |
PanelValgA.Color := clGreen; |
PanelValgA.Color := clGreen; |
3251 |
PanelValgA.Font.Color := clWhite; |
PanelValgA.Font.Color := clWhite; |
3252 |
// 20150311: slut |
|
3253 |
|
|
3254 |
|
|
3255 |
end; |
end; |
3256 |
|
|
3257 |
procedure TMainForm.Pakkernormal1Click(Sender: TObject); |
procedure TMainForm.Pakkernormal1Click(Sender: TObject); |
3644 |
radioLillePakke.Enabled := true; |
radioLillePakke.Enabled := true; |
3645 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3646 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3647 |
DownloadButton01.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3648 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3649 |
DownloadButton03.Visible := false; |
DownloadButton03.Visible := false; |
3650 |
EKLoverforsel.Enabled := false; |
EKLoverforsel.Enabled := false; |
3680 |
radioLillePakke.Enabled := false; |
radioLillePakke.Enabled := false; |
3681 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3682 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3683 |
DownloadButton01.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3684 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3685 |
|
|
3686 |
EKLoverforsel.Enabled := true; |
EKLoverforsel.Enabled := true; |
3717 |
radioLillePakke.Enabled := false; |
radioLillePakke.Enabled := false; |
3718 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3719 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3720 |
DownloadButton01.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3721 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3722 |
EKLoverforsel.Enabled := false; |
EKLoverforsel.Enabled := false; |
3723 |
InitLillePakke(); |
InitLillePakke(); |
3764 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3765 |
ListBox1.Items.Clear(); |
ListBox1.Items.Clear(); |
3766 |
|
|
3767 |
DownloadButton01.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3768 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3769 |
EKLoverforsel.Enabled := false; |
EKLoverforsel.Enabled := false; |
3770 |
InitLillePakke(); |
InitLillePakke(); |
4527 |
ListBox1.SetFocus; // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |
ListBox1.SetFocus; // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |
4528 |
end; |
end; |
4529 |
|
|
4530 |
procedure TMainForm.DownloadButton01Click(Sender: TObject); |
procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject); |
4531 |
begin |
begin |
4532 |
DownloadBladhusKontrolfil(); |
DownloadBladhusKontrolfil(); |
4533 |
ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |
ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode |