218 |
|
|
219 |
Url : String; |
Url : String; |
220 |
|
|
221 |
Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, |
Farve : String; |
|
FarveIndlevering : String; |
|
222 |
|
|
223 |
Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, |
Titel : String; |
|
TitelIndlevering : String; |
|
224 |
|
|
225 |
AlarmLyd : String; |
AlarmLyd : String; |
226 |
ScannetOkLyd : String; |
ScannetOkLyd : String; |
564 |
|
|
565 |
|
|
566 |
|
|
|
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'); |
|
567 |
|
|
568 |
if (SkrivLog = '1') then |
if (SkrivLog = '1') then |
569 |
begin |
begin |
1518 |
BoghandlerTjekkode := Stregkode; |
BoghandlerTjekkode := Stregkode; |
1519 |
PakkeshopText1.Caption := 'Stregkode'; |
PakkeshopText1.Caption := 'Stregkode'; |
1520 |
if (menuPakkeshop1.Checked) then |
if (menuPakkeshop1.Checked) then |
1521 |
MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering); |
MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering); |
1522 |
if (menuNatXpress1.Checked) then |
if (menuNatXpress1.Checked) then |
1523 |
MainForm.Color := TUtils.HexToTColor(FarveNormal); |
MainForm.Color := TUtils.HexToTColor(Config.FarveNormal); |
1524 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
1525 |
end |
end |
1526 |
else |
else |
3089 |
menuAutomatiskTjekkodeStyring.Enabled := true; |
menuAutomatiskTjekkodeStyring.Enabled := true; |
3090 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3091 |
menuNatXpress1.Checked := true; |
menuNatXpress1.Checked := true; |
3092 |
InitForm(FarveNormal,TitelNormal,Config.UrlNormal); |
InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal); |
3093 |
PanelValg1.Color := clGreen; |
PanelValg1.Color := clGreen; |
3094 |
PanelValg1.Font.Color := clWhite; |
PanelValg1.Font.Color := clWhite; |
3095 |
|
|
3125 |
menuAutomatiskTjekkodeStyring.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3126 |
menuNatxpressReturDAO1.Checked := true; |
menuNatxpressReturDAO1.Checked := true; |
3127 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3128 |
InitForm(FarveReturDAO,TitelReturDAO, Config.UrlReturDAO); |
InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO); |
3129 |
PanelValg2.Color := clGreen; |
PanelValg2.Color := clGreen; |
3130 |
PanelValg2.Font.Color := clWhite; |
PanelValg2.Font.Color := clWhite; |
3131 |
|
|
3156 |
menuAutomatiskTjekkodeStyring.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3157 |
menuNatxpressReturfraKunde1.Checked := true; |
menuNatxpressReturfraKunde1.Checked := true; |
3158 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3159 |
InitForm(FarveReturBoghandler,TitelReturBoghandler, Config.UrlReturBoghandler); |
InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler); |
3160 |
PanelValg3.Color := clGreen; |
PanelValg3.Color := clGreen; |
3161 |
PanelValg3.Font.Color := clWhite; |
PanelValg3.Font.Color := clWhite; |
3162 |
|
|
3186 |
menuAutomatiskTjekkodeStyring.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3187 |
menuDaoDirekte1.Checked := true; |
menuDaoDirekte1.Checked := true; |
3188 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3189 |
InitForm(FarveBudlevering,TitelBudlevering, Config.UrlBudlevering); |
InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering); |
3190 |
PanelValg4.Color := clGreen; |
PanelValg4.Color := clGreen; |
3191 |
PanelValg4.Font.Color := clWhite; |
PanelValg4.Font.Color := clWhite; |
3192 |
|
|
3226 |
menuAutomatiskTjekkodeStyring.Enabled := true; |
menuAutomatiskTjekkodeStyring.Enabled := true; |
3227 |
menuPakkeshop1.Checked := true; |
menuPakkeshop1.Checked := true; |
3228 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3229 |
InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering, Config.UrlPakkeshoplevering); |
InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering); |
3230 |
PanelValg5.Color := clGreen; |
PanelValg5.Color := clGreen; |
3231 |
PanelValg5.Font.Color := clWhite; |
PanelValg5.Font.Color := clWhite; |
3232 |
|
|
3266 |
menuAutomatiskTjekkodeStyring.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3267 |
menuPakkeshopRetur1.Checked := true; |
menuPakkeshopRetur1.Checked := true; |
3268 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3269 |
InitForm(FarveReturPakkeshop,TitelReturPakkeshop, Config.UrlReturPakkeshop); |
InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop); |
3270 |
PanelValg6.Color := clGreen; |
PanelValg6.Color := clGreen; |
3271 |
PanelValg6.Font.Color := clWhite; |
PanelValg6.Font.Color := clWhite; |
3272 |
|
|
3314 |
menuAutomatiskTjekkodeStyring.Enabled := false; |
menuAutomatiskTjekkodeStyring.Enabled := false; |
3315 |
|
|
3316 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
3317 |
InitForm(FarveIndlevering, TitelIndlevering, Config.UrlReturPakkeshop); |
InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop); |
3318 |
PanelValg7.Color := clGreen; |
PanelValg7.Color := clGreen; |
3319 |
PanelValg7.Font.Color := clWhite; |
PanelValg7.Font.Color := clWhite; |
3320 |
|
|