/[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 2651 by torben, Thu Aug 20 20:58:26 2015 UTC revision 2652 by torben, Sun Aug 23 10:38:56 2015 UTC
# Line 59  type Line 59  type
59      PakkeshopNulstil: TButton;      PakkeshopNulstil: TButton;
60      Returpakkerfrapakkeshop1: TMenuItem;      Returpakkerfrapakkeshop1: TMenuItem;
61      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
62      CheckBox2: TCheckBox;      chkAltidPrintLabel: TCheckBox;
63      EKLoverforsel: TButton;      EKLoverforsel: TButton;
64      N5: TMenuItem;      N5: TMenuItem;
65      Uploadlogfil1: TMenuItem;      Uploadlogfil1: TMenuItem;
# Line 154  type Line 154  type
154    procedure InitIndleveringskode();    procedure InitIndleveringskode();
155    
156    procedure Altidprintepakkelabel1Click(Sender: TObject);    procedure Altidprintepakkelabel1Click(Sender: TObject);
157    procedure CheckBox2Click(Sender: TObject);    procedure chkAltidPrintLabelClick(Sender: TObject);
158    procedure EKLoverforselClick(Sender: TObject);    procedure EKLoverforselClick(Sender: TObject);
159    procedure Uploadlogfil1Click(Sender: TObject);    procedure Uploadlogfil1Click(Sender: TObject);
160    procedure Manual1Click(Sender: TObject);    procedure Manual1Click(Sender: TObject);
# Line 472  begin Line 472  begin
472    
473    if Altidprintepakkelabel1.Checked then    if Altidprintepakkelabel1.Checked then
474    begin    begin
475       CheckBox2.Checked := true;       chkAltidPrintLabel.Checked := true;
476    end    end
477    else    else
478    begin    begin
479       CheckBox2.Checked := false;       chkAltidPrintLabel.Checked := false;
480    end;    end;
481    
482  end;  end;
# Line 2762  begin Line 2762  begin
2762    end    end
2763    else    else
2764    begin    begin
2765      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or CheckBox2.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
2766      begin      begin
2767        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2768        if (CheckBox2.Checked) then        if (chkAltidPrintLabel.Checked) then
2769        begin        begin
2770          logTekst := logTekst + 'Alle ';          logTekst := logTekst + 'Alle ';
2771        end        end
# Line 2875  begin Line 2875  begin
2875  end;  end;
2876    
2877    
2878  procedure TMainForm.CheckBox2Click(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2879  begin  begin
2880    if CheckBox2.Checked then    if chkAltidPrintLabel.Checked then
2881    begin    begin
2882       Altidprintepakkelabel1.Checked := true;       Altidprintepakkelabel1.Checked := true;
2883    end    end
# Line 3816  begin Line 3816  begin
3816        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3817        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3818        CheckBox1.Enabled := true;        CheckBox1.Enabled := true;
3819        CheckBox2.Enabled := true;        chkAltidPrintLabel.Enabled := true;
3820        Altidprintepakkelabel1.Enabled := true;        Altidprintepakkelabel1.Enabled := true;
3821        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3822        CheckBox2.Checked := false;        chkAltidPrintLabel.Checked := false;
3823        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3824        CheckBox1.Checked := false;        CheckBox1.Checked := false;
3825        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
# Line 3848  begin Line 3848  begin
3848        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3849        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3850        CheckBox1.Enabled := false;        CheckBox1.Enabled := false;
3851        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3852        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3853        CheckBox2.Checked := false;  
3854        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3855        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3856        CheckBox1.Checked := false;        CheckBox1.Checked := false;
# Line 3875  begin Line 3875  begin
3875        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3876        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3877        CheckBox1.Enabled := false;        CheckBox1.Enabled := false;
3878        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3879        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
       CheckBox2.Checked := false;  
3880        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3881        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3882        CheckBox1.Checked := false;        CheckBox1.Checked := false;
# Line 3902  begin Line 3901  begin
3901        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3902        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3903        CheckBox1.Enabled := false;        CheckBox1.Enabled := false;
3904        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3905        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3906        CheckBox2.Checked := false;  
3907        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3908        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3909        CheckBox1.Checked := false;        CheckBox1.Checked := false;
# Line 3938  begin Line 3937  begin
3937        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3938        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3939        CheckBox1.Enabled := false;        CheckBox1.Enabled := false;
3940        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3941        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3942        CheckBox2.Checked := false;  
3943        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3944        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3945        CheckBox1.Checked := false;        CheckBox1.Checked := false;
# Line 3976  begin Line 3975  begin
3975        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3976        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3977        CheckBox1.Enabled := false;        CheckBox1.Enabled := false;
3978        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3979        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3980        CheckBox2.Checked := false;  
3981        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3982        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3983        CheckBox1.Checked := false;        CheckBox1.Checked := false;
# Line 4018  begin Line 4017  begin
4017        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
4018        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
4019        CheckBox1.Enabled := false;        CheckBox1.Enabled := false;
4020        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
4021        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
4022        CheckBox2.Checked := false;  
4023        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
4024        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
4025        CheckBox1.Checked := false;        CheckBox1.Checked := false;
Legend:
Removed from v.2651  
changed lines
  Added in v.2652
  ViewVC Help
Powered by ViewVC 1.1.20