/[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 2663 by torben, Sun Aug 23 16:09:33 2015 UTC revision 2664 by torben, Sun Aug 23 16:17:56 2015 UTC
# Line 88  type Line 88  type
88      PanelManglendePakker4: TPanel;      PanelManglendePakker4: TPanel;
89      PanelManglendePakker5: TPanel;      PanelManglendePakker5: TPanel;
90      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
91        menuIndlevering: TMenuItem;
92    
93    
94    function Explode(var a: TStrArray; Border, S: string): Integer;    function Explode(var a: TStrArray; Border, S: string): Integer;
# Line 183  type Line 184  type
184    procedure TjekkerUrls();    procedure TjekkerUrls();
185  // 20150310: start  // 20150310: start
186    procedure RoundCornerOf(Control: TWinControl);    procedure RoundCornerOf(Control: TWinControl);
187        procedure menuIndleveringClick(Sender: TObject);
188    
189    
190  // 20150310: slut  // 20150310: slut
# Line 3466  begin Line 3468  begin
3468    end;    end;
3469  end;  end;
3470    
3471    procedure TMainForm.menuIndleveringClick(Sender: TObject);
3472    begin
3473      Scanningtype := '7';
3474      NulstilAutomatiskValg();
3475      InitIndleveringskode();
3476    end;
3477    
3478  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
3479  begin  begin
3480    
# Line 3697  end; Line 3706  end;
3706    
3707  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3708  begin  begin
3709          menuIndlevering.Checked := true;
3710        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3711        Returpakkerfrapakkeshop1.Checked := true;  
3712        PakkeshopNulstil.Visible := false;        PakkeshopNulstil.Visible := false;
3713        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3714        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
# Line 3724  begin Line 3734  begin
3734        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3735        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3736        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3737     //   InitLillePakke();        InitLillePakke();
3738     //   IndlesScanningLogFil();        IndlesScanningLogFil();
3739     //   if BladhusSted = 0 then        if BladhusSted = 0 then
3740     //   begin        begin
3741     //     IndlesManglendeScanninger();          IndlesManglendeScanninger();
3742     //   end;        end;
3743        IdFTP1.Passive := true;        IdFTP1.Passive := true;
3744        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3745  end;  end;
Legend:
Removed from v.2663  
changed lines
  Added in v.2664
  ViewVC Help
Powered by ViewVC 1.1.20