/[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 2662 by torben, Sun Aug 23 15:06:19 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;
Legend:
Removed from v.2662  
changed lines
  Added in v.2664
  ViewVC Help
Powered by ViewVC 1.1.20