--- dao/DelphiScanner/Main.pas	2016/08/15 15:56:50	3088
+++ dao/DelphiScanner/Main.pas	2016/08/15 19:09:21	3089
@@ -218,11 +218,9 @@
 
     Url : String;
 
-    Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
-          FarveIndlevering : String;
+    Farve : String;
 
-    Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
-          TitelIndlevering : String;
+    Titel : String;
 
     AlarmLyd : String;
     ScannetOkLyd : String;
@@ -566,39 +564,6 @@
 
 
 
-    FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
-    TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
-    FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');
-    TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');
-    FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');
-    TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');
-    FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');
-    TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
-    FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
-    TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
-
-    FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
-    TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
-
-    FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
-    TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
-
-
-    SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
-    ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
-    ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
-    Scanningtype := ReadString('Settings','Scanningtype','A');
-    Pakketype := ReadString('Settings','Pakketype','0');
-    TestFunktionen := ReadString('Settings','TestFunktion','0');
-    AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
-    ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
-    ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
-
-    ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
-
-    PrinterNavn := ReadString('Settings','PrinterNavn','');
-    TjekPrinter := ReadString('Settings','TjekPrinter','1');
-    TjekUrls := ReadString('Settings','TjekUrls','2');
 
     if (SkrivLog = '1') then
     begin
@@ -1553,9 +1518,9 @@
            BoghandlerTjekkode := Stregkode;
            PakkeshopText1.Caption := 'Stregkode';
            if (menuPakkeshop1.Checked) then
-              MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
+              MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering);
            if (menuNatXpress1.Checked) then
-              MainForm.Color := TUtils.HexToTColor(FarveNormal);
+              MainForm.Color := TUtils.HexToTColor(Config.FarveNormal);
            btnNulstil.Visible := false;
          end
         else
@@ -3124,7 +3089,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := true;
       btnNulstil.Visible := false;
       menuNatXpress1.Checked := true;
-      InitForm(FarveNormal,TitelNormal,Config.UrlNormal);
+      InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal);
       PanelValg1.Color := clGreen;
       PanelValg1.Font.Color := clWhite;
 
@@ -3160,7 +3125,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuNatxpressReturDAO1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturDAO,TitelReturDAO, Config.UrlReturDAO);
+      InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO);
       PanelValg2.Color := clGreen;
       PanelValg2.Font.Color := clWhite;
 
@@ -3191,7 +3156,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuNatxpressReturfraKunde1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturBoghandler,TitelReturBoghandler, Config.UrlReturBoghandler);
+      InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler);
       PanelValg3.Color := clGreen;
       PanelValg3.Font.Color := clWhite;
 
@@ -3221,7 +3186,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuDaoDirekte1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveBudlevering,TitelBudlevering, Config.UrlBudlevering);
+      InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering);
       PanelValg4.Color := clGreen;
       PanelValg4.Font.Color := clWhite;
 
@@ -3261,7 +3226,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := true;
       menuPakkeshop1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
+      InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
       PanelValg5.Color := clGreen;
       PanelValg5.Font.Color := clWhite;
 
@@ -3301,7 +3266,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuPakkeshopRetur1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturPakkeshop,TitelReturPakkeshop, Config.UrlReturPakkeshop);
+      InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop);
       PanelValg6.Color := clGreen;
       PanelValg6.Font.Color := clWhite;
 
@@ -3349,7 +3314,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
 
       btnNulstil.Visible := false;
-      InitForm(FarveIndlevering, TitelIndlevering, Config.UrlReturPakkeshop);
+      InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop);
       PanelValg7.Color := clGreen;
       PanelValg7.Font.Color := clWhite;