/[projects]/dao/DelphiScanner/Configuration.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Configuration.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3088 by torben, Mon Aug 15 15:56:50 2016 UTC revision 3089 by torben, Mon Aug 15 19:09:21 2016 UTC
# Line 39  type Line 39  type
39      YPosSmskode : integer;      YPosSmskode : integer;
40      FontSizeSmskode : integer;      FontSizeSmskode : integer;
41    
42         FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
43              FarveIndlevering : String;
44    
45         TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
46              TitelIndlevering : String;
47    
48    
49    
# Line 71  begin Line 76  begin
76    
77    with iniFile do    with iniFile do
78    begin    begin
79        FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
80        TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
81        FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');
82        TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');
83        FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');
84        TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');
85        FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');
86        TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
87        FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
88        TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
89    
90        FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
91        TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
92    
93        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
94        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
95    
96    
97        SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
98        ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
99        ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
100        Scanningtype := ReadString('Settings','Scanningtype','A');
101        Pakketype := ReadString('Settings','Pakketype','0');
102        TestFunktionen := ReadString('Settings','TestFunktion','0');
103        AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
104        ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
105        ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
106    
107        ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
108    
109        PrinterNavn := ReadString('Settings','PrinterNavn','');
110        TjekPrinter := ReadString('Settings','TjekPrinter','1');
111        TjekUrls := ReadString('Settings','TjekUrls','2');
112    
113    
114      LabelType := ReadInteger('Settings','LabelType',1);      LabelType := ReadInteger('Settings','LabelType',1);
115    
Legend:
Removed from v.3088  
changed lines
  Added in v.3089
  ViewVC Help
Powered by ViewVC 1.1.20