--- dao/DelphiScanner/Main.pas	2015/08/23 10:44:23	2653
+++ dao/DelphiScanner/Main.pas	2015/08/23 11:00:22	2654
@@ -66,7 +66,7 @@
     Manual1: TMenuItem;
     PrinterstatusStaticText1: TStaticText;
     Timer1: TTimer;
-    CheckBox3: TCheckBox;
+    chkScanTjekkode: TCheckBox;
     Scanogstjekkoden1: TMenuItem;
     Automatisktjekkodestyring1: TMenuItem;
     Automatiskvalg1: TMenuItem;
@@ -161,7 +161,7 @@
   procedure CheckPrintQue(tjektype : string);
   procedure Timer1Timer(Sender: TObject);
   procedure Scanogstjekkoden1Click(Sender: TObject);
-  procedure CheckBox3Click(Sender: TObject);
+  procedure chkScanTjekkodeClick(Sender: TObject);
   procedure Automatisktjekkodestyring1Click(Sender: TObject);
   procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
   procedure Automatiskvalg1Click(Sender: TObject);
@@ -409,29 +409,29 @@
     else
       PakkeshopText1.Visible := false;
 
-    CheckBox3.Checked := false;
-    CheckBox3.Enabled := false;
+    chkScanTjekkode.Checked := false;
+    chkScanTjekkode.Enabled := false;
     Scanogstjekkoden1.Enabled := false;
 
     if (Scanningtype = '1') or (Scanningtype = '5') then
     begin
       if (ScanTjekkode = '1') then
       begin
-        CheckBox3.Checked := true;
-        CheckBox3.Enabled := true;
+        chkScanTjekkode.Checked := true;
+        chkScanTjekkode.Enabled := true;
         Scanogstjekkoden1.Enabled := true;
       end
       else
       begin
-        CheckBox3.Checked := false;
-        CheckBox3.Enabled := true;         // False vil forhindre indtastning af tjekkode i nat x-press scanning
+        chkScanTjekkode.Checked := false;
+        chkScanTjekkode.Enabled := true;         // False vil forhindre indtastning af tjekkode i nat x-press scanning
         Scanogstjekkoden1.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning
       end;
     end;
 
     if Automatisktjekkodestyring1.Checked then
     begin
-      CheckBox3.Enabled := false;
+      chkScanTjekkode.Enabled := false;
       Scanogstjekkoden1.Enabled := false;
     end;
 
@@ -490,12 +490,12 @@
 begin
   if Automatisktjekkodestyring1.Checked then
   begin
-     CheckBox3.Enabled := false;
+     chkScanTjekkode.Enabled := false;
      Scanogstjekkoden1.Enabled := false;
   end
   else
   begin
-     CheckBox3.Enabled := true;
+     chkScanTjekkode.Enabled := true;
      Scanogstjekkoden1.Enabled := true;
   end;
 
@@ -722,19 +722,19 @@
 
     if ScanTjekkode = '1' then
     begin
-      CheckBox3.Checked := true;
+      chkScanTjekkode.Checked := true;
       Scanogstjekkoden1.Checked := true;
     end
     else
     begin
-      CheckBox3.Checked := false;
+      chkScanTjekkode.Checked := false;
       Scanogstjekkoden1.Checked := false;
     end;
 
     if ScanTjekkodeAutomatik = '1' then
     begin
       Automatisktjekkodestyring1.Checked := true;
-      CheckBox3.Enabled := false;
+      chkScanTjekkode.Enabled := false;
       Scanogstjekkoden1.Enabled := false;
     end;
 
@@ -1327,15 +1327,15 @@
 
     if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then
     begin
-      if CheckBox3.Enabled = true then
+      if chkScanTjekkode.Enabled = true then
       begin
-         if (CheckBox3.State = cbChecked) then
+         if (chkScanTjekkode.State = cbChecked) then
          begin
-          CheckBox3.State := cbUnchecked;
+          chkScanTjekkode.State := cbUnchecked;
          end
          else
          begin
-          CheckBox3.State := cbChecked;
+          chkScanTjekkode.State := cbChecked;
          end;
       end
       else
@@ -1795,12 +1795,12 @@
 
     if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
     begin
-      CheckBox3.Checked := false;
+      chkScanTjekkode.Checked := false;
       for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
       begin
         if (Stregkode=stregkoderMedTjekkodeArray[i]) then
         begin
-            CheckBox3.Checked := true;
+            chkScanTjekkode.Checked := true;
             Scanogstjekkoden1.Checked := true;
         end;
       end;
@@ -2888,9 +2888,9 @@
 
 end;
 
-procedure TMainForm.CheckBox3Click(Sender: TObject);
+procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
 begin
-  if CheckBox3.Checked then
+  if chkScanTjekkode.Checked then
   begin
      Scanogstjekkoden1.Checked := true;
   end
@@ -5621,11 +5621,11 @@
 begin
   if Scanogstjekkoden1.Checked then
   begin
-     CheckBox3.Checked := true;
+     chkScanTjekkode.Checked := true;
   end
   else
   begin
-     CheckBox3.Checked := false;
+     chkScanTjekkode.Checked := false;
   end;
 end;