/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2689 by torben, Thu Sep 3 13:43:10 2015 UTC revision 2692 by torben, Thu Sep 3 14:24:23 2015 UTC
# Line 52  type Line 52  type
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;
# Line 134  type Line 134  type
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();
# Line 1980  begin Line 1980  begin
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;
# Line 1996  begin Line 1996  begin
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;
# Line 2013  begin Line 2013  begin
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;
# Line 2034  begin Line 2034  begin
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;
# Line 3244  end; Line 3244  end;
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);
# Line 3657  begin Line 3644  begin
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;
# Line 3693  begin Line 3680  begin
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;
# Line 3730  begin Line 3717  begin
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();
# Line 3777  begin Line 3764  begin
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();
# Line 4540  begin Line 4527  begin
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
Legend:
Removed from v.2689  
changed lines
  Added in v.2692
  ViewVC Help
Powered by ViewVC 1.1.20