--- dao/DelphiScanner/Main.pas 2015/08/20 20:58:26 2650 +++ dao/DelphiScanner/Main.pas 2015/08/23 10:38:56 2652 @@ -59,7 +59,7 @@ PakkeshopNulstil: TButton; Returpakkerfrapakkeshop1: TMenuItem; Altidprintepakkelabel1: TMenuItem; - CheckBox2: TCheckBox; + chkAltidPrintLabel: TCheckBox; EKLoverforsel: TButton; N5: TMenuItem; Uploadlogfil1: TMenuItem; @@ -154,7 +154,7 @@ procedure InitIndleveringskode(); procedure Altidprintepakkelabel1Click(Sender: TObject); - procedure CheckBox2Click(Sender: TObject); + procedure chkAltidPrintLabelClick(Sender: TObject); procedure EKLoverforselClick(Sender: TObject); procedure Uploadlogfil1Click(Sender: TObject); procedure Manual1Click(Sender: TObject); @@ -472,11 +472,11 @@ if Altidprintepakkelabel1.Checked then begin - CheckBox2.Checked := true; + chkAltidPrintLabel.Checked := true; end else begin - CheckBox2.Checked := false; + chkAltidPrintLabel.Checked := false; end; end; @@ -2762,10 +2762,10 @@ end else begin - 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 begin logTekst := 'Printer label type '; - if (CheckBox2.Checked) then + if (chkAltidPrintLabel.Checked) then begin logTekst := logTekst + 'Alle '; end @@ -2875,9 +2875,9 @@ end; -procedure TMainForm.CheckBox2Click(Sender: TObject); +procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject); begin - if CheckBox2.Checked then + if chkAltidPrintLabel.Checked then begin Altidprintepakkelabel1.Checked := true; end @@ -3816,10 +3816,10 @@ PanelValg1.Color := clGreen; PanelValg1.Font.Color := clWhite; CheckBox1.Enabled := true; - CheckBox2.Enabled := true; + chkAltidPrintLabel.Enabled := true; Altidprintepakkelabel1.Enabled := true; Altidprintepakkelabel1.Checked := false; - CheckBox2.Checked := false; + chkAltidPrintLabel.Checked := false; Sprgefterboghandlernummer1.Checked := false; CheckBox1.Checked := false; Sprgefterboghandlernummer1.Enabled := true; @@ -3848,9 +3848,9 @@ PanelValg2.Color := clGreen; PanelValg2.Font.Color := clWhite; CheckBox1.Enabled := false; - CheckBox2.Enabled := false; + chkAltidPrintLabel.Enabled := false; Altidprintepakkelabel1.Enabled := false; - CheckBox2.Checked := false; + Altidprintepakkelabel1.Checked := false; Sprgefterboghandlernummer1.Checked := false; CheckBox1.Checked := false; @@ -3875,9 +3875,8 @@ PanelValg3.Color := clGreen; PanelValg3.Font.Color := clWhite; CheckBox1.Enabled := false; - CheckBox2.Enabled := false; + chkAltidPrintLabel.Enabled := false; Altidprintepakkelabel1.Enabled := false; - CheckBox2.Checked := false; Altidprintepakkelabel1.Checked := false; Sprgefterboghandlernummer1.Checked := false; CheckBox1.Checked := false; @@ -3902,9 +3901,9 @@ PanelValg4.Color := clGreen; PanelValg4.Font.Color := clWhite; CheckBox1.Enabled := false; - CheckBox2.Enabled := false; + chkAltidPrintLabel.Enabled := false; Altidprintepakkelabel1.Enabled := false; - CheckBox2.Checked := false; + Altidprintepakkelabel1.Checked := false; Sprgefterboghandlernummer1.Checked := false; CheckBox1.Checked := false; @@ -3938,9 +3937,9 @@ PanelValg5.Color := clGreen; PanelValg5.Font.Color := clWhite; CheckBox1.Enabled := false; - CheckBox2.Enabled := false; + chkAltidPrintLabel.Enabled := false; Altidprintepakkelabel1.Enabled := false; - CheckBox2.Checked := false; + Altidprintepakkelabel1.Checked := false; Sprgefterboghandlernummer1.Checked := false; CheckBox1.Checked := false; @@ -3976,9 +3975,9 @@ PanelValg6.Color := clGreen; PanelValg6.Font.Color := clWhite; CheckBox1.Enabled := false; - CheckBox2.Enabled := false; + chkAltidPrintLabel.Enabled := false; Altidprintepakkelabel1.Enabled := false; - CheckBox2.Checked := false; + Altidprintepakkelabel1.Checked := false; Sprgefterboghandlernummer1.Checked := false; CheckBox1.Checked := false; @@ -4018,9 +4017,9 @@ PanelValg7.Color := clGreen; PanelValg7.Font.Color := clWhite; CheckBox1.Enabled := false; - CheckBox2.Enabled := false; + chkAltidPrintLabel.Enabled := false; Altidprintepakkelabel1.Enabled := false; - CheckBox2.Checked := false; + Altidprintepakkelabel1.Checked := false; Sprgefterboghandlernummer1.Checked := false; CheckBox1.Checked := false;