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

Diff of /dao/DelphiScanner/Main.pas

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

revision 3088 by torben, Mon Aug 15 14:14:14 2016 UTC revision 3089 by torben, Mon Aug 15 19:09:21 2016 UTC
# Line 218  type Line 218  type
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;
# Line 566  begin Line 564  begin
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
# Line 1553  begin Line 1518  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
# Line 3124  begin Line 3089  begin
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    
# Line 3160  begin Line 3125  begin
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    
# Line 3191  begin Line 3156  begin
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    
# Line 3221  begin Line 3186  begin
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    
# Line 3261  begin Line 3226  begin
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    
# Line 3301  begin Line 3266  begin
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    
# Line 3349  begin Line 3314  begin
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    
Legend:
Removed from v.3088  
changed lines
  Added in v.3089
  ViewVC Help
Powered by ViewVC 1.1.20