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

Diff of /dao/DelphiScanner/Main.pas

Parent Directory | Revision Log | View Patch Patch

-revision 2650 by torben,
Thu Aug 20 20:58:26 2015 UTC
+revision 2694 by torben,
Thu Sep  3 14:31:39 2015 UTC
 Line 8 
 uses
    IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,
    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,
    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,
-   Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet
+   Winspool, ShellApi, ClipBrd, Buttons, wininet,
+   UITypes,
+   PakkeshopLabels,
+   StBarC,
+   Math, // DegToRad() bruges i PrintPakkeshopLabel
+   Utils
    ;
  type
-   TStrArray = array of string;
    TMainForm = class(TForm)
      StregkodeST: TStaticText;
      RuteNummerST: TStaticText;
-Line 20 
 type
+Line 25 
 type
      IdHTTP1: TIdHTTP;
      XMLDocument1: TXMLDocument;
      ApplicationEvents1: TApplicationEvents;
-     CheckBox1: TCheckBox;
+     chkSporgEfterKunde: TCheckBox;
      KommentarST: TStaticText;
      MainMenu1: TMainMenu;
      N1: TMenuItem;
-Line 36 
 type
+Line 41 
 type
      Lukprogrammet1: TMenuItem;
      N2: TMenuItem;
      N3: TMenuItem;
-     RadioButton1: TRadioButton;
+     radioStorPakke: TRadioButton;
-     RadioButton2: TRadioButton;
+     radioLillePakke: TRadioButton;
      N4: TMenuItem;
      Storepakker1: TMenuItem;
      Smpakker1: TMenuItem;
-Line 47 
 type
+Line 52 
 type
      Testlyd1: TMenuItem;
      ListBox1: TListBox;
      Budlevering1: TMenuItem;
-     DownloadButton01: TButton;
+     BtnDownloadKontrolfil: TButton;
      IdFTP1: TIdFTP;
      Image1: TImage;
      ListBox2: TListBox;
-Line 56 
 type
+Line 61 
 type
      DownloadButton03: TButton;
      Pakkeshoplevering1: TMenuItem;
      PakkeshopText1: TStaticText;
-     PakkeshopNulstil: TButton;
+     btnNulstil: TButton;
      Returpakkerfrapakkeshop1: TMenuItem;
      Altidprintepakkelabel1: TMenuItem;
-     CheckBox2: TCheckBox;
+     chkAltidPrintLabel: TCheckBox;
      EKLoverforsel: TButton;
      N5: TMenuItem;
      Uploadlogfil1: TMenuItem;
      Manual1: TMenuItem;
      PrinterstatusStaticText1: TStaticText;
      Timer1: TTimer;
-     CheckBox3: TCheckBox;
+     chkScanTjekkode: TCheckBox;
      Scanogstjekkoden1: TMenuItem;
      Automatisktjekkodestyring1: TMenuItem;
      Automatiskvalg1: TMenuItem;
-Line 77 
 type
+Line 82 
 type
      PanelValg4: TPanel;
      PanelValg5: TPanel;
      PanelValg6: TPanel;
+     PanelValg7: TPanel;
      Manualgenerel1: TMenuItem;
      StaticTextManglendePakker: TStaticText;
      PanelManglendePakker1: TPanel;
-Line 85 
 type
+Line 91 
 type
      PanelManglendePakker4: TPanel;
      PanelManglendePakker5: TPanel;
      PanelManglendePakker6: TPanel;
-     PanelValg7: TPanel;
+     menuIndlevering: TMenuItem;
-   function Explode(var a: TStrArray; Border, S: string): Integer;
-   function BarCodeValid (ACode: string): boolean;
-   function Sto_GetFmtFileVersion(const FileName: String = ''; const Fmt: String = '%d.%d.%d.%d'): String;
-   function TColorToHex(Color : TColor) : string;
-   function HexToTColor(sColor : string) : TColor;
    function getProddato() : TDate;
    function getProddag() : String;
    function retRutenummer(rutenummer : String) : String;
    function GetCurrentPrinterHandle() : THandle;
    function SavePChar(p: PChar): PChar;
-   function AdobeReaderExists(): Boolean;
    function FileTime2DateTime(FileTime: TFileTime): TDateTime;
-   function split(input: string; schar: Char; s: Integer): string;
-   function CheckUrl(url:string):boolean;
    procedure PlaySound(filename : PWideChar);
    procedure StartScreen();
-Line 113 
 type
+Line 112 
 type
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
-   procedure RadioButton1Click(Sender: TObject);
+   procedure radioStorPakkeClick(Sender: TObject);
-   procedure RadioButton2Click(Sender: TObject);
+   procedure radioLillePakkeClick(Sender: TObject);
-   procedure CheckBox1Click(Sender: TObject);
+   procedure chkSporgEfterKundeClick(Sender: TObject);
    procedure Pakkernormal1Click(Sender: TObject);
    procedure Testforbindelsen1Click(Sender: TObject);
    procedure Testprinter1Click(Sender: TObject);
-Line 131 
 type
+Line 130 
 type
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
    procedure Budlevering1Click(Sender: TObject);
-   procedure DownloadButton01Click(Sender: TObject);
+   procedure BtnDownloadKontrolfilClick(Sender: TObject);
    procedure OpdaterListenButton01Click(Sender: TObject);
    procedure DownloadBladhusRuteskiftfil();
    procedure DownloadBladhusKontrolfil();
-Line 143 
 type
+Line 142 
 type
    procedure UploadButton01Click(Sender: TObject);
    procedure DownloadButton03Click(Sender: TObject);
    procedure Pakkeshoplevering1Click(Sender: TObject);
-   procedure PakkeshopNulstilClick(Sender: TObject);
+   procedure btnNulstilClick(Sender: TObject);
    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
    procedure InitNatxpresslevering();
    procedure InitReturFraDao();
-Line 154 
 type
+Line 153 
 type
    procedure InitIndleveringskode();
    procedure Altidprintepakkelabel1Click(Sender: TObject);
-   procedure CheckBox2Click(Sender: TObject);
+   procedure chkAltidPrintLabelClick(Sender: TObject);
    procedure EKLoverforselClick(Sender: TObject);
    procedure Uploadlogfil1Click(Sender: TObject);
    procedure Manual1Click(Sender: TObject);
-   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);
-Line 172 
 type
+Line 170 
 type
    procedure PanelValg4Click(Sender: TObject);
    procedure PanelValg5Click(Sender: TObject);
    procedure PanelValg6Click(Sender: TObject);
+   procedure PanelValg7Click(Sender: TObject);
    procedure NulstilAutomatiskValg();
    procedure SletLogfiler(Path: string; FileList: TStrings);
    procedure Manualgenerel1Click(Sender: TObject);
    procedure TjekkerUrls();
- // 20150310: start
-   procedure RoundCornerOf(Control: TWinControl);
-     procedure PanelValg7Click(Sender: TObject);
+   procedure menuIndleveringClick(Sender: TObject);
- // 20150310: slut
+   procedure PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
+   procedure CheckPrintQue(tjektype : string);
    private
      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges n�r programmet skal bruges udenfor DAO scanningssteder
-Line 188 
 type
+Line 189 
 type
      SkrivLog : String;
      Sted : String;
      StedNavn : String;
-     Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlEKLoverforsel : String;
+     Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel : String;
  // 29150330: start
      UrlEKLoverforselPakkeshop : String;
  // 20150330: slut
-Line 196 
 type
+Line 197 
 type
      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
      ScanTjekkode : String;
      ScanTjekkodeAutomatik : string;
-     Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop : String;
+     Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
-     Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop : String;
+     Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
      LabelType : integer;
      AlarmLyd : String;
      ScannetOkLyd : String;
      ScannetOkStorLyd : String;
- // 20150317: start
      ScannetOkTilTjekkodeLyd : String;
- // 20150317: slut
      PrinterNavn : String;
      TjekPrinter : String;
      XPosRute : integer;
-Line 243 
 type
+Line 244 
 type
      BoghandlerStregkode, BoghandlerTjekkode : String;
      TjekUrls : String;
-           function CheckSumModulo10(const data:string):string;          { used for EAN 8/13 }
+     Barcode : TStBarcode;
      procedure PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : String = '');
      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
-Line 255 
 type
+Line 257 
 type
      procedure IndlesScanningLogFil();
      procedure SkrivScanningLogFil(var tekst : string);
      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
+     procedure VisAlarmSkaerm(strMessage: string);
    public
      { Public declarations }
    end;
+       function GetPixelsPerInchX(): Integer;
+     function GetPixelsPerInchY(): Integer;
  var
    MainForm: TMainForm;
-Line 273 
 var
+Line 279 
 var
  implementation
  {$R *.dfm}
- function TMainForm.TColorToHex(Color : TColor) : string;
- begin
-    Result :=
-      IntToHex(GetRValue(Color), 2) +
-      IntToHex(GetGValue(Color), 2) +
-      IntToHex(GetBValue(Color), 2) ;
- end;
- function TMainForm.HexToTColor(sColor : string) : TColor;
- begin
-    Result :=
-      RGB(
-        StrToInt('$'+Copy(sColor, 1, 2)),
-        StrToInt('$'+Copy(sColor, 3, 2)),
-        StrToInt('$'+Copy(sColor, 5, 2))
-      ) ;
- end;
  procedure TMainForm.InitForm(Farve,Titel,Url : String);
  begin
-Line 298 
 begin
+Line 287 
 begin
      StaticTextManglendePakker.Caption := '';
  // 20150309: slut
+     Barcode := TStBarcode.Create(MainForm);//Dynamisk oprettelse af Barcode component
      PanelValg1.Color := clBtnFace;
      if PanelValg1.Enabled = true then
      begin
-Line 394 
 begin
+Line 385 
 begin
      StartScreen();
      MainForm.Caption := Titel;
-     MainForm.Color := HexToTColor(Farve);
+     MainForm.Color := TUtils.HexToTColor(Farve);
      MainForm.Farve := Farve;
      MainForm.Titel := Titel;
      MainForm.Url := Url;
-Line 409 
 begin
+Line 400 
 begin
      else
        PakkeshopText1.Visible := false;
-     CheckBox3.Checked := false;
+     chkScanTjekkode.Checked := false;
-     CheckBox3.Enabled := false;
+     chkScanTjekkode.Enabled := false;
      Scanogstjekkoden1.Enabled := false;
      if (Scanningtype = '1') or (Scanningtype = '5') then
      begin
        if (ScanTjekkode = '1') then
        begin
-         CheckBox3.Checked := true;
+         chkScanTjekkode.Checked := true;
-         CheckBox3.Enabled := true;
+         chkScanTjekkode.Enabled := true;
          Scanogstjekkoden1.Enabled := true;
        end
        else
        begin
-         CheckBox3.Checked := false;
+         chkScanTjekkode.Checked := false;
-         CheckBox3.Enabled := true;         // False vil forhindre indtastning af tjekkode i nat x-press scanning
+         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;
-Line 454 
 begin
+Line 445 
 begin
          end
          else
          begin
-           logTekst := 'Speciel version til: '+split(Titel, ':', 2)+' ('+Sted+')';
+           logTekst := 'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+Sted+')';
          end;
          SkrivScanningLogFil(logTekst);
        end
        else
        begin
-         logTekst := 'Speciel version til: '+split(Titel, ':', 2)+' ('+SpecialVersionSted+')';
+         logTekst := 'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+SpecialVersionSted+')';
          SkrivScanningLogFil(logTekst);
        end;
      end;
-Line 472 
 begin
+Line 463 
 begin
    if Altidprintepakkelabel1.Checked then
    begin
-      CheckBox2.Checked := true;
+      chkAltidPrintLabel.Checked := true;
    end
    else
    begin
-      CheckBox2.Checked := false;
+      chkAltidPrintLabel.Checked := false;
    end;
  end;
-Line 490 
 procedure TMainForm.Automatisktjekkodest
+Line 481 
 procedure TMainForm.Automatisktjekkodest
  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;
-Line 503 
 end;
+Line 494 
 end;
  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);
  begin
- // 20150317: start
- (*
-   if Automatiskvalg1.Checked then
-   begin
-      AutomatiskValg1.Checked := true;
-      PanelValgA.Color := clGreen;
-      PanelValgA.Font.Color := clWhite;
-   end
-   else
-   begin
-      AutomatiskValg1.Checked := false;
-      PanelValgA.Color := clBtnFace;
-      PanelValgA.Font.Color := clWindowText;
-   end;
- *)
  // Skal ikke toggle men bare s�tte funktionen on
  // Frav�lges ved at v�lge en scanningstype
       AutomatiskValg1.Checked := true;
       PanelValgA.Color := clGreen;
       PanelValgA.Font.Color := clWhite;
- // 20150317: slut
  end;
  procedure TMainForm.FormCreate(Sender: TObject);
-Line 531 
 const
+Line 506 
 const
    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
  var
    printerInd : integer;
-   i : Integer;
- // 20150310: start
    gemScanningtype : String;
- // 20150310: slut
  begin
    // Initierer nogle variabler
-Line 542 
 begin
+Line 514 
 begin
    Application.ShowHint := True;
    PrinterstatusStaticText1.Caption := '';
    PrinterstatusStaticText1.Color := MainForm.Color;
- // 20150306: start
-   PakkeshopNulstil.BringToFront;
+   btnNulstil.BringToFront;
- // 20150306: slut
- // 20150310: start
+   TUtils.RoundCornerOf(PanelManglendePakker1);
-   RoundCornerOf(PanelManglendePakker1);
+   TUtils.RoundCornerOf(PanelManglendePakker2);
-   RoundCornerOf(PanelManglendePakker2);
+   TUtils.RoundCornerOf(PanelManglendePakker3);
-   RoundCornerOf(PanelManglendePakker3);
+   TUtils.RoundCornerOf(PanelManglendePakker4);
-   RoundCornerOf(PanelManglendePakker4);
+   TUtils.RoundCornerOf(PanelManglendePakker5);
-   RoundCornerOf(PanelManglendePakker5);
+   TUtils.RoundCornerOf(PanelManglendePakker6);
-   RoundCornerOf(PanelManglendePakker6);
- // 20150310: slut
    // Hvis mappen Docs eksisterer kan vi v�lge Manual i menuen Hj�lp
    if DirectoryExists('Docs') then
-Line 579 
 begin
+Line 550 
 begin
      UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');
      UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');
      UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');
- // 20150330: start
      UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');
- // 20150330: slut
      UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');
      UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');
      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');
      UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
+     UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
+     UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
      LabelType := ReadInteger('Settings','LabelType',1);
      FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
      TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
-Line 597 
 begin
+Line 575 
 begin
      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');
-Line 608 
 begin
+Line 592 
 begin
      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
- // 20150317: start
      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
- // 20150317: slut
      PrinterNavn := ReadString('Settings','PrinterNavn','');
      TjekPrinter := ReadString('Settings','TjekPrinter','1');
      TjekUrls := ReadString('Settings','TjekUrls','2');
      if (SkrivLog = '1') then
      begin
-       logTekst := 'Program start (Version: ' + Sto_GetFmtFileVersion('','') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
+       logTekst := 'Program start (Version: ' + TUtils.Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
        try
          SkrivScanningLogFil(logTekst);
          Uploadlogfil1.Enabled := true;
-Line 711 
 begin
+Line 695 
 begin
      if SporgEfterBoghandler = '1' then
      begin
-       CheckBox1.Checked := true;
+       chkSporgEfterKunde.Checked := true;
        Sprgefterboghandlernummer1.Checked := true;
      end
      else
      begin
-       CheckBox1.Checked := false;
+       chkSporgEfterKunde.Checked := false;
        Sprgefterboghandlernummer1.Checked := false;
      end;
      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;
-Line 760 
 begin
+Line 744 
 begin
      //SpecialVersionSted := 'FD';  // FD - s�tter automatisk nedenst�ende SpecialVersionScanningtype til DIREKTE)
      // *************************** //
+ {$IfDef STED_BK}
+     SpecialVersionSted := 'BK';
+ {$EndIf}
+ {$IfDef STED_DBK}
+     SpecialVersionSted := 'DBK';
+ {$EndIf}
+ {$IfDef STED_FD}
+     SpecialVersionSted := 'FD';
+ {$EndIf}
+ {$IfDef STED_NS}
+     SpecialVersionSted := 'NS';
+ {$EndIf}
      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenst�ende SpecialVersionScanningtype DIREKTE)
      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenst�ende SpecialVersionSted BK)
      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenst�ende SpecialVersionScanningtype DIREKTE)
-Line 775 
 begin
+Line 773 
 begin
      // Hvis specialversion er valgt (SpecialVersionSted er sat til en v�rdi ovenfor)
      // �ndrer vi Sted og Scanningtype her:
- // 20150313: start
      if SpecialVersionSted = 'NS' then
      begin
         SpecialVersionSted := '01';
-Line 786 
 begin
+Line 783 
 begin
         SpecialVersionSted := '03';
         SpecialVersionScanningtype := '4';
      end;
- // 20150313: slut
      if SpecialVersionSted = 'BK' then
      begin
-Line 826 
 begin
+Line 822 
 begin
        PanelValg5.Font.Color := clInactiveCaption;
        PanelValg6.Enabled := false;
        PanelValg6.Font.Color := clInactiveCaption;
+       PanelValg7.Enabled := false;
+       PanelValg7.Font.Color := clInactiveCaption;
       // her skal vi ogs� disable de menupunkter DBK ikke kan bruge
        ReturpakkerfraDAO1.Enabled := false;
        Returpakkerfraboghandler1.Enabled := false;
- // 20150317: start
        Pakkeshoplevering1.Enabled := false;
        Returpakkerfrapakkeshop1.Enabled := false;
- // 20150317: slut
        if SpecialVersionScanningtype = 'A' then
        begin
           Scanningtype := '1';
-Line 862 
 begin
+Line 861 
 begin
        PanelValg5.Font.Color := clInactiveCaption;
        PanelValg6.Enabled := false;
        PanelValg6.Font.Color := clInactiveCaption;
+       PanelValg7.Enabled := false;
+       PanelValg7.Font.Color := clInactiveCaption;
       // her skal vi ogs� disable de menupunkter Bladhusene (01, 02, 03 og 04) ikke kan bruge
- // 20150317: start
        Automatiskvalg1.Enabled := false;
- // 20150317: slut
        Pakkernormal1.Enabled := false;
        ReturpakkerfraDAO1.Enabled := false;
        Returpakkerfraboghandler1.Enabled := false;
-Line 957 
 begin
+Line 958 
 begin
             RutenummerST.Caption := '';
             BoghandlerNavnST.Caption := 'Fejl i urls';
             KommentarST.Caption := 'Se log vinduet';
-            PakkeshopNulstil.Visible := true;
+            btnNulstil.Visible := true;
             exit;
          end;
      end
-Line 1000 
 begin
+Line 1001 
 begin
      if Pakketype = '1' then
      begin
        Storepakker1.Checked := true;
-       RadioButton1.Checked := true;
+       radioStorPakke.Checked := true;
      end
      else
      begin
        Smpakker1.Checked := true;
-       RadioButton2.Checked := true;
+       radioLillePakke.Checked := true;
      end;
      if TestFunktionen = '1' then
-Line 1045 
 begin
+Line 1046 
 begin
        ScannetOkStorLyd := '';
      end;
- // 20150317: start
      if not FileExists(ScannetOkTilTjekkodeLyd) then
      begin
        ScannetOkTilTjekkodeLyd := '';
      end;
- // 20150317: slut
      if (PrinterNavn <> '') then
      begin
-Line 1083 
 begin
+Line 1084 
 begin
          InitBladhus();
        end;
- // 20150310: start
      // Opbygger PanelManglendePakker information
      gemScanningtype := Scanningtype;
-Line 1124 
 begin
+Line 1125 
 begin
      end;
      Scanningtype := gemScanningtype;
- // 20150310: slut
      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
-     SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));
+     SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', TUtils.Sto_GetFmtFileVersion(''));
  end;
 Line 1145 
 var
    BoghandlerNavn : String;
    Koreliste : String;
    PrintNyLabel : Boolean;
-   List1msg : String;
    pakkeErScannet : Integer;
    pakkeForkertSted : Integer;
    tjekkodeMangler : Integer;
-Line 1170 
 begin
+Line 1169 
 begin
      ClipboardData := Clipboard.AsText;
      numberString := ClipboardData;
      Val(numberString, float, errorPos);
- // 20150311: start
- //    if (ClipboardData <> '') and (errorPos = 0) then
+     //    if (ClipboardData <> '') and (errorPos = 0) then
      if (ClipboardData <> '') and (errorPos = 0)
      or (NumberString = 'Nulstil')
      or (NumberString = 'Indtast kundenummer')
-Line 1186 
 begin
+Line 1185 
 begin
      or (NumberString = 'DAO DIREKTE')
      or (NumberString = 'DAO PAKKESHOP')
      or (NumberString = 'Retur fra pakkeshop') then
- // 20150311: slut
      begin
        Stregkode := Stregkode + ClipboardData;
        StregkodeST.Caption := StregKode;
-Line 1199 
 begin
+Line 1198 
 begin
    if Key = #13 then     // Enter
    begin
- // 20150306: start
      if (Length(Trim(Stregkode)) = 0) then
      begin
-       PlaySound(PWideChar(AlarmLyd));
+       VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
-       List1msg := 'Der skal scannes en stregkode...';
-       ListBox1.Items.Insert(0,List1Msg);
-       MainForm.Color := clRed;
- // 20150316: start
-       RuteNummerST.Caption := '';
-       BoghandlerNavnST.Caption := '';
- // 20150316: slut
-       KommentarST.Caption := List1msg;
-       PakkeshopNulstil.Visible := true;
        exit;
      end;
- // 20150306: slut
- // 20150311: start
      if StregKode = 'Nulstil' then
      begin
-        PakkeshopNulstil.Click();
+        btnNulstil.Click();
         exit;
      end;
-     if PakkeshopNulstil.Visible then
+     if btnNulstil.Visible then
      begin
-        PlaySound(PWideChar(AlarmLyd));
+       VisAlarmSkaerm( 'HUSK at klikke Nulstil f�r ny scanning...' );
- // 20150312: start
- //       List1msg := 'HUSK at trykke Nulstil f�r ny scanning...';
-        List1msg := 'HUSK at klikke Nulstil f�r ny scanning...';
- // 20150312: slut
-        ListBox1.Items.Insert(0,List1Msg);
-        MainForm.Color := clRed;
-        KommentarST.Caption := List1msg;
- // 20150312: start
-        Stregkode := '';
-        StregkodeST.Caption := StregKode;
- // 20150312: slut
         exit;
      end;
      if StregKode = 'Lille pakke' then
      begin
-        if RadioButton2.Enabled = true then
+        if radioLillePakke.Enabled = true then
         begin
            InitLillePakke();
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
-Line 1268 
 begin
+Line 1235 
 begin
      if StregKode = 'Stor pakke' then
      begin
-        if RadioButton1.Enabled = true then
+        if radioStorPakke.Enabled = true then
         begin
            InitStorPakke();
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
-Line 1294 
 begin
+Line 1250 
 begin
      if StregKode = 'Indtast kundenummer' then
      begin
-        if CheckBox1.Enabled = true then
+        if chkSporgEfterKunde.Enabled = true then
         begin
-          if (CheckBox1.State = cbChecked) then
+          if (chkSporgEfterKunde.State = cbChecked) then
           begin
-           CheckBox1.State := cbUnchecked;
+           chkSporgEfterKunde.State := cbUnchecked;
           end
           else
           begin
-           CheckBox1.State := cbChecked;
+           chkSporgEfterKunde.State := cbChecked;
           end;
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
-Line 1327 
 begin
+Line 1272 
 begin
      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
        begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
-Line 1366 
 begin
+Line 1300 
 begin
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm(Stregkode + ' kan ikke v�lges p� dette scanningsted');
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
         exit;
      end;
- // 20150323: start
- //    if StregKode = 'DAO NAT X-PRESS' then
      if (StregKode = 'DAO NAT X-PRESS' ) or (StregKode = 'DAO NAT X+PRESS') then
- // 20150323: slut
      begin
         if (PanelValg1.Enabled = true) then
         begin
-Line 1395 
 begin
+Line 1316 
 begin
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+         VisAlarmSkaerm(Stregkode + ' kan ikke v�lges p� dette scanningsted');
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
-Line 1421 
 begin
+Line 1331 
 begin
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
-Line 1447 
 begin
+Line 1346 
 begin
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
-Line 1473 
 begin
+Line 1361 
 begin
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
-Line 1499 
 begin
+Line 1376 
 begin
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
-Line 1525 
 begin
+Line 1391 
 begin
         end
         else
         begin
-         //ShowMessage('�ndring ikke tilladt');
+           VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-         // Her skal komme en 'r�d sk�rm' alarm
-          PlaySound(PWideChar(AlarmLyd));
-          List1msg := Stregkode + ' kan ikke v�lges p� dette scanningsted';
-          ListBox1.Items.Insert(0,List1Msg);
-          MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-          KommentarST.Caption := List1msg;
-          PakkeshopNulstil.Visible := true;
         end;
         Stregkode := '';
         StregkodeST.Caption := StregKode;
         exit;
      end;
- // 20150311: slut
      if (Length(Stregkode) > 8) then
      begin
-Line 1597 
 begin
+Line 1452 
 begin
          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
      begin   // Her skal komme en alarm og r�d sk�rm
-        PlaySound(PWideChar(AlarmLyd));
+         VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-        List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes p� dette scanningsted';
-        ListBox1.Items.Insert(0,List1Msg);
-        MainForm.Color := clRed;
- // 20150316: start
-        RuteNummerST.Caption := '';
-        BoghandlerNavnST.Caption := '';
- // 20150316: slut
-        KommentarST.Caption := List1msg;
-        PakkeshopNulstil.Visible := true;
- // 20150311: start
-        StregKode := '';
-        StregkodeST.Caption := StregKode;
- // 20150311: slut
         exit;
      end;
-Line 1626 
 begin
+Line 1469 
 begin
              end;
            end
        // Retur kan ikke scannes med 'Automatisk valg'
- (*
-       else if Pakketype = 'NatXpressReturDAO' then
-           begin
-             if Scanningtype <> '2' then
-             begin
-               Scanningtype := '2';
-               InitReturFraDao();
-             end;
-           end
-       else if Pakketype = 'NatXpressReturKunde' then
-           begin
-             if Scanningtype <> '3' then
-             begin
-               Scanningtype := '3';
-               InitReturFraKunde();
-             end;
-           end
- *)
        else if Pakketype = 'Direkte' then
            begin
              if Scanningtype <> '4' then
-Line 1661 
 begin
+Line 1487 
 begin
              end;
            end
        // Retur kan ikke scannes med 'Automatisk valg'
- (*
-       else if Pakketype = 'PakkeshopRetur' then
-           begin
-             if Scanningtype <> '6' then
-             begin
-               Scanningtype := '6';
-               InitReturFraPakkeshop();
-             end;
-           end
- *)
        else
-           begin   // Her skal komme en alarm og r�d sk�rm
+           begin
-              PlaySound(PWideChar(AlarmLyd));
+           // Her skal komme en alarm og r�d sk�rm
-              List1msg := 'Pakken kan ikke scannes med automatisk valg';
+             VisAlarmSkaerm( Stregkode + ' kan ikke v�lges p� dette scanningsted' );
-              ListBox1.Items.Insert(0,List1Msg);
-              MainForm.Color := clRed;
- // 20150316: start
-              RuteNummerST.Caption := '';
-              BoghandlerNavnST.Caption := '';
- // 20150316: slut
-              KommentarST.Caption := List1msg;
-              PakkeshopNulstil.Visible := true;
- // 20150311: start
-              StregKode := '';
-              StregkodeST.Caption := StregKode;
- // 20150311: slut
               exit;
            end;
        Stregkode := GemStregkode;
      end
      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
      begin
-       PlaySound(PWideChar(AlarmLyd));
+       VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
-       List1msg := 'Pakkenummer ikke gyldigt (for kort)';
-       ListBox1.Items.Insert(0,List1Msg);
-       MainForm.Color := clRed;
- // 20150316: start
-       RuteNummerST.Caption := '';
-       BoghandlerNavnST.Caption := '';
- // 20150316: slut
-       KommentarST.Caption := List1msg;
-       PakkeshopNulstil.Visible := true;
- // 20150312: start
-       StregKode := '';
-       StregkodeST.Caption := StregKode;
- // 20150312: slut
        exit;
      end;
-Line 1714 
 begin
+Line 1508 
 begin
      begin
        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
        begin
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := 'Pakke findes som pakketype: ' + Pakketype;
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
- // 20150316: start
-          RuteNummerST.Caption := '';
-          BoghandlerNavnST.Caption := '';
- // 20150316: slut
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
- // 20150312: start
-         StregKode := '';
-         StregkodeST.Caption := StregKode;
- // 20150312: slut
-         exit;
-       end;
-     end;
- // 20150311: start
- (*
-     if StregKode = 'Nulstil' then
-     begin
-        PakkeshopNulstil.Click();
-        exit;
-     end;
-     if PakkeshopNulstil.Visible then
+         VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
-     begin
-        PlaySound(PWideChar(AlarmLyd));
-        List1msg := 'HUSK at trykke Nulstil f�r ny scanning...';
-        ListBox1.Items.Insert(0,List1Msg);
-        MainForm.Color := clRed;
-        KommentarST.Caption := List1msg;
-        exit;
-     end;
-     if StregKode = 'Lille pakke' then
+         exit;
-     begin
+       end;
-        InitLillePakke();
-        exit;
-     end;
-     if StregKode = 'Stor pakke' then
-     begin
-        InitStorPakke();
-        exit;
-     end;
-     if StregKode = 'Indtast kundenummer' then
-     begin
-        if (CheckBox1.State = cbChecked) then
-        begin
-         CheckBox1.State := cbUnchecked;
-        end
-        else
-        begin
-         CheckBox1.State := cbChecked;
-        end;
-        Stregkode := '';
-        exit;
      end;
-     if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then
-     begin
-        if (CheckBox3.State = cbChecked) then
-        begin
-         CheckBox3.State := cbUnchecked;
-        end
-        else
-        begin
-         CheckBox3.State := cbChecked;
-        end;
-        Stregkode := '';
-        exit;
-     end;
- *)
- // 20150311: slut
      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;
-Line 1812 
 begin
+Line 1536 
 begin
             BoghandlerStregkode := Stregkode;
             BoghandlerTjekkode := '';
             PakkeshopText1.Caption := 'Stregkode';
-            PakkeshopNulstil.Visible := false;
+            btnNulstil.Visible := false;
             Stregkode := '';
             InitScreen();
        end
-Line 1824 
 begin
+Line 1548 
 begin
             BoghandlerStregkode := Stregkode;
             BoghandlerTjekkode := '-1';
             PakkeshopText1.Caption := 'Stregkode';
-            PakkeshopNulstil.Visible := false;
+            btnNulstil.Visible := false;
             Stregkode := '';
             InitScreen();
        end
-Line 1836 
 begin
+Line 1560 
 begin
              PakkeshopStregkode := Stregkode;
              BoghandlerStregkode := Stregkode;
              PakkeshopText1.Caption := 'Tjekkode';
- // 20150317: start
              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));
- // 20150317: slut
             end
            else
             begin
-               List1msg := 'Du skal scanne en stregkode';
+               VisAlarmSkaerm( 'Du skal scanne en stregkode' );
-               ListBox1.Items.Insert(0,List1Msg);
-               //logTekst := RightStr(List1Msg, Length(List1Msg)-10);
-               //SkrivScanningLogFil(logTekst);
-               PlaySound(PWideChar(AlarmLyd));
-               PakkeshopNulstil.Visible := true;
-               MainForm.Color := clRed;
             end;
            Stregkode := '';
            InitScreen();
-Line 1861 
 begin
+Line 1579 
 begin
             BoghandlerTjekkode := Stregkode;
             PakkeshopText1.Caption := 'Stregkode';
             if (PakkeshopLevering1.Checked) then
-               MainForm.Color := HexToTColor(FarvePakkeshoplevering);
+               MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
             if (Pakkernormal1.Checked) then
-               MainForm.Color := HexToTColor(FarveNormal);
+               MainForm.Color := TUtils.HexToTColor(FarveNormal);
-            PakkeshopNulstil.Visible := false;
+            btnNulstil.Visible := false;
           end
          else
           begin
                if (PakkeshopLevering1.Checked) then
-                 List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode;
+                 VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
                if (Pakkernormal1.Checked) then
-                 List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode;
+                 VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
-               KommentarST.Caption := List1msg;
-               ListBox1.Items.Insert(0,List1Msg);
-               //logTekst := RightStr(List1Msg, Length(List1Msg)-10);
-               //SkrivScanningLogFil(logTekst);
-               PlaySound(PWideChar(AlarmLyd));
-               PakkeshopNulstil.Visible := true;
-               MainForm.Color := clRed;
- // 20150323: start
                StregKode := '';
                StregkodeST.Caption := StregKode;
- // 20150323: slut
                exit;
           end;
          Stregkode := '';
-Line 1903 
 begin
+Line 1614 
 begin
            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her
            if Rutenummer = 'sql fejl' then
            begin   // Her skal komme en alarm og r�d sk�rm
-              PlaySound(PWideChar(AlarmLyd));
+              VisAlarmSkaerm( 'SQL fejl: ' + Kommentar );
-              //List1msg := 'SQL fejl: ' + Kommentar;
-              //ListBox1.Items.Insert(0,List1Msg);
-              MainForm.Color := clRed;
-              //KommentarST.Caption := List1msg;
-              PakkeshopNulstil.Visible := true;
              exit;
            end;
            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then
-Line 1928 
 begin
+Line 1635 
 begin
              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
              begin
                PlaySound(PWideChar(AlarmLyd));
-               PakkeshopNulstil.Visible := true;
+               btnNulstil.Visible := true;
                MainForm.Color := clRed;
              end;
           end;
            if ( Pakkernormal1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then
            begin
-             MainForm.Color := HexToTColor(Farve);
+             MainForm.Color := TUtils.HexToTColor(Farve);
              if Storepakker1.Checked then
              begin
                PlaySound(PWideChar(ScannetOkStorLyd));
-Line 1943 
 begin
+Line 1650 
 begin
              begin
                PlaySound(PWideChar(ScannetOkLyd));
              end;
-             PakkeshopNulstil.Visible := false;
+             btnNulstil.Visible := false;
            end
            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then
            begin
-             MainForm.Color := HexToTColor(Farve);
+             MainForm.Color := TUtils.HexToTColor(Farve);
              if Storepakker1.Checked then
              begin
                PlaySound(PWideChar(ScannetOkStorLyd));
-Line 1956 
 begin
+Line 1663 
 begin
              begin
                PlaySound(PWideChar(ScannetOkLyd));
              end;
-             PakkeshopNulstil.Visible := false;
+             btnNulstil.Visible := false;
            end
            else if Copy(Kommentar,1,8) = 'OPRETTET' then
            begin
-             List1msg := 'Pakke ' + PakkeshopStregkode + ' skal gemmes p� lager indtil data modtages';
+             VisAlarmSkaerm( 'Pakke ' + PakkeshopStregkode + ' skal gemmes p� lager indtil data modtages' );
-             ListBox1.Items.Insert(0,List1Msg);
-             MainForm.Color := clRed;
-             PlaySound(PWideChar(AlarmLyd));
-             PakkeshopNulstil.Visible := true;
            end
            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
            begin
            end
            else
            begin
-             MainForm.Color := clRed;
+             VisAlarmSkaerm('');
-             PlaySound(PWideChar(AlarmLyd));
-             PakkeshopNulstil.Visible := true;
            end;
-          if not PakkeshopNulstil.Visible then
+          if not btnNulstil.Visible then
            begin
- // 20150310: start
- //            SletStregkodelinieFraListboks2(StregKode);
- // 20150310: slut
              If (Budlevering1.Checked) then
              begin
                if Storepakker1.Checked then
-Line 1993 
 begin
+Line 1692 
 begin
                InitLillePakke();
              end;
            end;
- // 20150310: start
            SletStregkodelinieFraListboks2(StregKode);
- // 20150310: slut
            PakkeshopStregkode := '';
            PakkeshopTjekkode := '';
            BoghandlerStregkode := '';
-Line 2026 
 begin
+Line 1725 
 begin
    Key := #0;
- end;
+ end; //End of OnKeyPress
  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
  const
-Line 2063 
 end;
+Line 1762 
 end;
  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);
  var
- // 20150309: start
- //  i:integer;
    i : Integer;
    wrkAntal : String;
    wrkAntalIdag, wrkAntalSenere : Integer;
- // 20150309: slut
  begin
      if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then
-Line 2076 
 begin
+Line 1773 
 begin
        for i := ListBox2.items.count-1 downto 0 do
          if pos(StregKode,ListBox2.items[i]) <> 0 then
          begin
- // 20150309: start
            // Ajourf�ring af t�ller for manglende pakker (scanninger)
            wrkAntal := StaticTextManglendePakker.Caption;
            if (pos('/', wrkAntal) > 0) then  // b�de pakker idag og senere
            begin
              wrkAntal := wrkAntal + '/';   // tilf�jer '/' sidst i feltet af hensyn til split funktionen
-             wrkAntalIdag := StrToInt(split(wrkAntal, '/', 2));
+             wrkAntalIdag := StrToInt( TUtils.split(wrkAntal, '/', 2));
  //            ShowMessage(SPLIT('data/another/yet/again/more/','/',3));
  //            ShowMessage(SPLIT('data/another/','/',3));
  //            ShowMessage(SPLIT('data/another','/',3));
-             wrkAntalSenere := StrToInt(split(wrkAntal, '/', 3));
+             wrkAntalSenere := StrToInt( TUtils.split(wrkAntal, '/', 3));
            end
            else     // kun idag
            begin
-Line 2112 
 begin
+Line 1809 
 begin
            begin
              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);
            end;
- // 20150309: slut
- // 20150310: start
            if (Scanningtype = '1') then
            begin
              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);
-Line 2219 
 begin
+Line 1914 
 begin
  end;
  procedure TMainForm.InitBladhus();
- var
-   LogFilnavn : string;
  begin
    Altidprintepakkelabel1.Enabled := false;
-Line 2283 
 begin
+Line 1976 
 begin
 :
            begin;      // NS
              Testprinter1.Visible := true;
-             DownloadButton01.Enabled := true;
+             BtnDownloadKontrolfil.Enabled := true;
              OpdaterListenButton01.Enabled := true;
              IdFTP1.Passive := true;
              IdFTP1.PassiveUseControlHost := true;
-Line 2297 
 begin
+Line 1990 
 begin
              Testprinter1.Visible := true;
              Smpakker1.Enabled := true;
              Storepakker1.Enabled := true;
-             RadioButton1.Enabled := true;
+             radioStorPakke.Enabled := true;
-             RadioButton2.Enabled := true;
+             radioLillePakke.Enabled := true;
-             DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her
+             BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
              OpdaterListenButton01.Enabled := true;
              IdFTP1.Passive := true;
              IdFTP1.PassiveUseControlHost := true;
-Line 2316 
 begin
+Line 2009 
 begin
              begin
                DownloadButton03.Visible := false;
              end;
-             DownloadButton01.Enabled := true;
+             BtnDownloadKontrolfil.Enabled := true;
              OpdaterListenButton01.Enabled := true;
              IdFTP1.Passive := true;
              IdFTP1.PassiveUseControlHost := true;
-Line 2335 
 begin
+Line 2028 
 begin
              Testprinter1.Visible := true;
              Smpakker1.Enabled := true;
              Storepakker1.Enabled := true;
-             RadioButton1.Enabled := true;
+             radioStorPakke.Enabled := true;
-             RadioButton2.Enabled := true;
+             radioLillePakke.Enabled := true;
-             DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her
+             BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
              OpdaterListenButton01.Enabled := true;
              IdFTP1.Passive := true;
              IdFTP1.PassiveUseControlHost := true;
-Line 2354 
 var
+Line 2047 
 var
    URLStr : String;
    pakkestorrelse : String;
    PrintNyLabelInteger : Integer;
+   PakkeshopLabel: TPakkeshopLabel;
  begin
-   if RadioButton1.Checked then
+   if radioStorPakke.Checked then
    begin
      pakkestorrelse := 'Stor';
    end;
-   if RadioButton2.Checked then
+   if radioLillePakke.Checked then
    begin
      pakkestorrelse := 'Lille';
    end;
    if Pakkernormal1.Checked then
    begin
       if (BoghandlerTjekkode = '') then
-Line 2391 
 begin
+Line 2088 
 begin
    begin
       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
    end
+   else if menuIndlevering.Checked then
+   begin
+     URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);
+   end
    else
    begin
      exit;
-Line 2425 
 begin
+Line 2126 
 begin
        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
        PrintNyLabel := False;
- // 20150310: start
        if Pakkeshoplevering1.Checked then
        begin
- // 20150310: slut
          try
            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
          except on e:exception do
-Line 2438 
 begin
+Line 2138 
 begin
          begin
            PrintNyLabel := True;
          end;
- // 20150310: start
        end;
- // 20150310: slut
       end
+     else if menuIndlevering.Checked then
+     begin
+      Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
+      if (Kommentar = 'Ok') then
+      begin
+        PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
+        PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
+        RuteNummer := PakkeshopLabel.Koreliste;
+        PrintPakkeshopLabel( PakkeshopLabel );
+      end;
+     end
      else
       begin
        RuteNummer := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('TurId').Text;
-Line 2474 
 begin
+Line 2191 
 begin
          PrintNyLabel := True;
        end;
      end;
      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
      begin
        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
-Line 2514 
 begin
+Line 2233 
 begin
    if Pakkeshoplevering1.Checked then
      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
    List1Pakkestorrelse := '';
-   if RadioButton1.Checked then
+   if radioStorPakke.Checked then
    begin
      List1Pakkestorrelse := 'Stor pakke';
    end;
-   if RadioButton2.Checked then
+   if radioLillePakke.Checked then
    begin
      List1Pakkestorrelse := 'Lille pakke';
    end;
-Line 2540 
 begin
+Line 2259 
 begin
    if Budlevering1.Checked then
    begin
       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
-       if (RadioButton1.Checked) then
+       if (radioStorPakke.Checked) then
        begin
          List1msg := List1msg + '; Stor pakke';
        end;
-       if (RadioButton2.Checked) then
+       if (radioLillePakke.Checked) then
        begin
          List1msg := List1msg + '; Lille pakke';
        end;
-Line 2588 
 pakkeForkertSted : Integer;
+Line 2307 
 pakkeForkertSted : Integer;
    nytRuteNummer, nyFarve : String;
  begin
    if Budlevering1.Checked then
-      RuteNummerST.Color := HexToTColor(Farve);
+      RuteNummerST.Color := TUtils.HexToTColor(Farve);
    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
    if pakkeErScannet = 0 then
-Line 2601 
 begin
+Line 2320 
 begin
    end;
    pakkeForkertSted := pos('burde v�re hos', Kommentar);
- // 20150306: start
- //  if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then
+   if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
-   if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
- // 20150306: slut
    begin
        if (RuteNummer = 'Ukendt') then
        begin
-Line 2631 
 begin
+Line 2349 
 begin
       if (BoghandlerNavn = 'Ukendt pakke') then
       begin
          PrintNyLabel := false;
- // 20150306: start
- //        PlaySound(PWideChar(AlarmLyd));
          PlaySound(PWideChar(AlarmLyd));
          MainForm.Color := clRed;
-         PakkeshopNulstil.Visible := true;
+         btnNulstil.Visible := true;
- // 20150306: slut
       end
       else
       begin
-Line 2646 
 begin
+Line 2363 
 begin
            PrintNyLabel := true;
            RuteNummerST.Caption := RuteNummer+' -> ny rute: '+nytRuteNummer;
            nyFarve := Farve;
-           RuteNummerST.Color := HexToTColor(nyFarve);
+           RuteNummerST.Color := TUtils.HexToTColor(nyFarve);
            List1msg := TimeToStr(now) + '; ' + RuteNummer+' -> ny rute: '+nytRuteNummer;
            RuteNummer := nytRuteNummer;
            ListBox1.Items.Insert(0,List1Msg);
            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
            SkrivScanningLogFil(logTekst);
- // 20150213: start
            if (PrinterNavn = 'Ingen') then
            begin
               PrintNyLabel := false;
            end;
- // 20150313: slut
- // 20150306: start
- //          PlaySound(PWideChar(AlarmLyd));
            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'r�d sk�rm' alarm
            begin
              PlaySound(PWideChar(AlarmLyd));
              MainForm.Color := clRed;
-             PakkeshopNulstil.Visible := true;
+             btnNulstil.Visible := true;
            end;
- // 20150306: slut
         end;
         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);
         if (kontrolKoreliste <> RuteNummer) then
-Line 2685 
 begin
+Line 2400 
 begin
            ListBox1.Items.Insert(0,List1Msg);
            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
            SkrivScanningLogFil(logTekst);
- // 20150306: start
- //          PlaySound(PWideChar(AlarmLyd));
            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'r�d sk�rm' alarm
            begin
              PlaySound(PWideChar(AlarmLyd));
              MainForm.Color := clRed;
-             PakkeshopNulstil.Visible := true;
+             btnNulstil.Visible := true;
            end;
- // 20150306: slut
- // 20150306: start
- //       end
- //       else
- //       begin
         end;
       end;
-Line 2719 
 begin
+Line 2429 
 begin
                end;
              end;
 :  begin;
-              if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
+              if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
                    // Ovenst�ende test er lidt speciel fordi der i programmet nogle steder er byttet rundt p� rute og k�reliste
                    // Meningen er at der kun skal printes hvis der er forskel i k�relisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
                begin
-Line 2733 
 begin
+Line 2443 
 begin
                end;
              end;
 :  begin;
-              if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
+              if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
                    // Ovenst�ende test er lidt speciel fordi der i programmet nogle steder er byttet rundt p� rute og k�reliste
                    // Meningen er at der kun skal printes hvis der er forskel i k�relisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
               begin
-Line 2757 
 begin
+Line 2467 
 begin
      exit;
    end;
-   if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then
+   if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then
    begin
    end
    else
    begin
-     if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or CheckBox2.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
+     if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
      begin
        logTekst := 'Printer label type ';
-       if (CheckBox2.Checked) then
+       if (chkAltidPrintLabel.Checked) then
        begin
          logTekst := logTekst + 'Alle ';
        end
-Line 2832 
 begin
+Line 2542 
 begin
          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2
        end;
        Canvas.Font.Size := FontSizeKommentar;
        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
- // 20150304: start
        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);
- // 20150304: slut
        Canvas.TextOut(XPosKommentar,YPosKommentar, Kommentar);  // Kan ikke lave linieskift (se tidligere kommentar om samme)
        if SmsKode <> '' then
        begin
-Line 2849 
 begin
+Line 2559 
 begin
  end;
- procedure TMainForm.RadioButton1Click(Sender: TObject);
+ procedure TMainForm.radioStorPakkeClick(Sender: TObject);
  begin
      Storepakker1.Checked := true;
-     RadioButton1.Checked := true;
+     radioStorPakke.Checked := true;
  end;
- procedure TMainForm.RadioButton2Click(Sender: TObject);
+ procedure TMainForm.radioLillePakkeClick(Sender: TObject);
  begin
      Smpakker1.Checked := true;
-     RadioButton2.Checked := true;
+     radioLillePakke.Checked := true;
  end;
- procedure TMainForm.CheckBox1Click(Sender: TObject);
+ procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject);
  begin
-   if CheckBox1.Checked then
+   if chkSporgEfterKunde.Checked then
    begin
       Sprgefterboghandlernummer1.Checked := true;
    end
-Line 2875 
 begin
+Line 2585 
 begin
  end;
- procedure TMainForm.CheckBox2Click(Sender: TObject);
+ procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
  begin
-   if CheckBox2.Checked then
+   if chkAltidPrintLabel.Checked then
    begin
       Altidprintepakkelabel1.Checked := true;
    end
-Line 2888 
 begin
+Line 2598 
 begin
  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
-Line 2912 
 begin
+Line 2622 
 begin
      Automatiskvalg1.Checked := false;
      PanelValgA.Color := clBtnFace;
      PanelValgA.Font.Color := clWindowText;
- // 20150317: start
      if (SpecialVersionSted = '01')
-     or (SpecialVersionSted = '02')
+       or (SpecialVersionSted = '02')
-     or (SpecialVersionSted = '03')
+       or (SpecialVersionSted = '03')
-     or (SpecialVersionSted = '04') then
+       or (SpecialVersionSted = '04') then
      begin
        // her skal vi ogs� disable knappen for 01, 02, 03 og 04 (NS, BK, FD og DBK)
        PanelValgA.Enabled := false;
-Line 2944 
 begin
+Line 2654 
 begin
          // Tjekker UrlNormal
          if PanelValg1.Enabled = true then
          begin
-           if CheckUrl(UrlNormal) then
+           if TUtils.CheckUrl(UrlNormal) then
            begin
              logTekst := 'UrlNormal accepteret: ' + UrlNormal;
              SkrivScanningLogFil(logTekst);
-Line 2973 
 begin
+Line 2683 
 begin
          // Tjekker UrlReturDAO
          if PanelValg2.Enabled = true then
          begin
-           if CheckUrl(UrlReturDAO) then
+           if TUtils.CheckUrl(UrlReturDAO) then
            begin
              logTekst := 'UrlReturDAO accepteret: ' + UrlReturDAO;
              SkrivScanningLogFil(logTekst);
-Line 3001 
 begin
+Line 2711 
 begin
          // Tjekker UrlReturBoghandler
          if PanelValg3.Enabled = true then
          begin
-           if CheckUrl(UrlReturBoghandler) then
+           if TUtils.CheckUrl(UrlReturBoghandler) then
            begin
              logTekst := 'UrlReturBoghandler accepteret: ' + UrlReturBoghandler;
              SkrivScanningLogFil(logTekst);
-Line 3029 
 begin
+Line 2739 
 begin
          // Tjekker UrlBudlevering
          if PanelValg4.Enabled = true then
          begin
-           if CheckUrl(UrlBudlevering) then
+           if TUtils.CheckUrl(UrlBudlevering) then
            begin
              logTekst := 'UrlBudlevering accepteret: ' + UrlBudlevering;
              SkrivScanningLogFil(logTekst);
-Line 3057 
 begin
+Line 2767 
 begin
          // Tjekker UrlPakkeshoplevering
          if PanelValg5.Enabled = true then
          begin
-           if CheckUrl(UrlPakkeshoplevering) then
+           if TUtils.CheckUrl(UrlPakkeshoplevering) then
            begin
              logTekst := 'UrlPakkeshoplevering accepteret: ' + UrlPakkeshoplevering;
              SkrivScanningLogFil(logTekst);
-Line 3085 
 begin
+Line 2795 
 begin
          // Tjekker UrlReturPakkeshop
          if PanelValg6.Enabled = true then
          begin
-           if CheckUrl(UrlReturPakkeshop) then
+           if TUtils.CheckUrl(UrlReturPakkeshop) then
            begin
              logTekst := 'UrlReturPakkeshop accepteret: ' + UrlReturPakkeshop;
              SkrivScanningLogFil(logTekst);
-Line 3114 
 begin
+Line 2824 
 begin
          if (PanelValg1.Enabled = true)
          or (PanelValg4.Enabled = true) then
          begin
-           if CheckUrl(UrlManglendeScanninger) then
+           if TUtils.CheckUrl(UrlManglendeScanninger) then
            begin
              logTekst := 'UrlManglendeScanninger accepteret: ' + UrlManglendeScanninger;
              SkrivScanningLogFil(logTekst);
-Line 3142 
 begin
+Line 2852 
 begin
          // Tjekker UrlPakkeshopManglendeScanninger
          if PanelValg5.Enabled = true then
          begin
-           if CheckUrl(UrlPakkeshopManglendeScanninger) then
+           if TUtils.CheckUrl(UrlPakkeshopManglendeScanninger) then
            begin
              logTekst := 'UrlPakkeshopManglendeScanninger accepteret: ' + UrlPakkeshopManglendeScanninger;
              SkrivScanningLogFil(logTekst);
-Line 3170 
 begin
+Line 2880 
 begin
          // Tjekker UrlPakkeshopManglendeReturScanninger
          if PanelValg6.Enabled = true then
          begin
-           if CheckUrl(UrlPakkeshopManglendeReturScanninger) then
+           if TUtils.CheckUrl(UrlPakkeshopManglendeReturScanninger) then
            begin
              logTekst := 'UrlPakkeshopManglendeReturScanninger accepteret: ' + UrlPakkeshopManglendeReturScanninger;
              SkrivScanningLogFil(logTekst);
-Line 3195 
 begin
+Line 2905 
 begin
            end;
          end;
+        // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
+         if PanelValg7.Enabled = true then
+         begin
+           if TUtils.CheckUrl(UrlIndleveringsPakke) then
+           begin
+             logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke;
+             SkrivScanningLogFil(logTekst);
+           end
+           else
+           begin
+             inc(urlFejl);   // Opt�ller antal fejl
+             logTekst := 'UrlIndleveringsPakke svarer ikke: ' + UrlIndleveringsPakke;
+             ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+             if TjekUrls = '1' then
+             begin
+               logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
+             end;
+             SkrivScanningLogFil(logTekst);
+             if TjekUrls = '1' then
+             begin
+               ShowMessage(logTekst);
+               UrlSendPrograminfo := '';   // Her sletter vi lige url, s� der ikke fors�ges at sende besked ved program slut
+               Application.Terminate;
+               exit;
+             end;
+           end;
+           if TUtils.CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
+           begin
+             logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger;
+             SkrivScanningLogFil(logTekst);
+           end
+           else
+           begin
+             inc(urlFejl);   // Opt�ller antal fejl
+             logTekst := 'UrlIndleveringsPakkeManglendeScanninger svarer ikke: ' + UrlIndleveringsPakkeManglendeScanninger;
+             ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+             if TjekUrls = '1' then
+             begin
+               logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
+             end;
+             SkrivScanningLogFil(logTekst);
+             if TjekUrls = '1' then
+             begin
+               ShowMessage(logTekst);
+               UrlSendPrograminfo := '';   // Her sletter vi lige url, s� der ikke fors�ges at sende besked ved program slut
+               Application.Terminate;
+               exit;
+             end;
+           end;
+         end;
          // Tjekker UrlEKLoverforsel
          if PanelValg1.Enabled = true then
          begin
-           if CheckUrl(UrlEKLoverforsel) then
+           if TUtils.CheckUrl(UrlEKLoverforsel) then
            begin
              logTekst := 'UrlEKLoverforsel accepteret: ' + UrlEKLoverforsel;
              SkrivScanningLogFil(logTekst);
-Line 3223 
 begin
+Line 2985 
 begin
            end;
          end;
- // 20150330: start
          // Tjekker UrlEKLoverforselPakkeshop
          if PanelValg5.Enabled = true then
          begin
-           if CheckUrl(UrlEKLoverforselPakkeshop) then
+           if TUtils.CheckUrl(UrlEKLoverforselPakkeshop) then
            begin
              logTekst := 'UrlEKLoverforselPakkeshop accepteret: ' + UrlEKLoverforselPakkeshop;
              SkrivScanningLogFil(logTekst);
-Line 3251 
 begin
+Line 3013 
 begin
              end;
            end;
          end;
- // 20150330: slut
          // Tjekker UrlFindPakketype
-         if CheckUrl(UrlFindPakketype) then
+         if TUtils.CheckUrl(UrlFindPakketype) then
          begin
            logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype;
            SkrivScanningLogFil(logTekst);
-Line 3279 
 begin
+Line 3041 
 begin
          end;
          // Tjekker UrlSendPrograminfo
-         if CheckUrl(UrlSendPrograminfo) then
+         if TUtils.CheckUrl(UrlSendPrograminfo) then
          begin
            logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo;
            SkrivScanningLogFil(logTekst);
-Line 3342 
 begin
+Line 3104 
 begin
      repeat
        if (SR.Attr <> faDirectory) then
        begin
          dt := fileDateToDateTime(SR.Time);  // finder filens timestamp for seneste �ndring
          CreationTime := SR.FindData.ftCreationTime;  // finder filens timestamp for oprettelse
          dtCreation := FileTime2DateTime(CreationTime);   // finder filens timestamp for oprettelse
-Line 3381 
 begin
+Line 3144 
 begin
    end;
  end;
- procedure TMainForm.PakkeshopNulstilClick(Sender: TObject);
+ procedure TMainForm.btnNulstilClick(Sender: TObject);
  begin
    PakkeshopStregkode := '';
    PakkeshopTjekkode := '';
-   PakkeshopNulstil.Visible := false;
+   btnNulstil.Visible := false;
    PakkeshopText1.Caption := 'Stregkode';
    BoghandlerStregkode := '';
    BoghandlerTjekkode := '';
-Line 3403 
 begin
+Line 3166 
 begin
  //  MainForm.Color := HexToTColor(Farve);
    if Farve <> '' then
    begin
-      MainForm.Color := HexToTColor(Farve);
+      MainForm.Color := TUtils.HexToTColor(Farve);
  // 20150312: start
  (*
    end
-Line 3477 
 end;
+Line 3240 
 end;
  procedure TMainForm.PanelValgAClick(Sender: TObject);
  begin
- // 20150311: start
- (*
-   if PanelValgA.Color = clBtnFace then
-   begin
-      AutomatiskValg1.Checked := true;
-      PanelValgA.Color := clGreen;
-      PanelValgA.Font.Color := clWhite;
-   end
-   else
-   begin
-      AutomatiskValg1.Checked := false;
-      PanelValgA.Color := clBtnFace;
-      PanelValgA.Font.Color := clWindowText;
-   end;
- *)
  // Skal ikke toggle men bare s�tte funktionen on
  // Frav�lges ved at v�lge en scanningstype
-      AutomatiskValg1.Checked := true;
+   AutomatiskValg1.Checked := true;
-      PanelValgA.Color := clGreen;
+   PanelValgA.Color := clGreen;
-      PanelValgA.Font.Color := clWhite;
+   PanelValgA.Font.Color := clWhite;
- // 20150311: slut
  end;
  procedure TMainForm.Pakkernormal1Click(Sender: TObject);
-Line 3514 
 var
+Line 3264 
 var
    BoghandlerNavn : String;
    Koreliste : String;
    Falsk : Boolean;
-   Sand : Boolean;
    SmsKode : String;
    DBKbane : String;
    Leveringssted : String;
-Line 3536 
 begin
+Line 3285 
 begin
      // Her kommer en alarm og r�d sk�rm
      PlaySound(PWideChar(AlarmLyd));
      MainForm.Color := clRed;
-     PakkeshopNulstil.Visible := true;
+     btnNulstil.Visible := true;
    end
    else
    begin
      Falsk := False;
-     Sand := True;
      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
      SmsKode := '999999';
-Line 3561 
 var
+Line 3310 
 var
    BoghandlerNavn : String;
    Koreliste : String;
    Falsk : Boolean;
-   Sand : Boolean;
    SmsKode : String;
    DBKbane : String;
    Leveringssted : String;
-Line 3570 
 begin
+Line 3318 
 begin
    Kommentar := '***** Kommentar *****';
    BoghandlerNavn := 'Modtagernavn';
    Falsk := False;
-   Sand := True;
    if (Printer.Printers.Count = 0) then
    begin
-Line 3605 
 begin
+Line 3353 
 begin
    end;
  end;
- {
-  VERY fast split function
-  this function returns part of a string based on
-  constant defineable delimiters, such as ";". So
-  SPLIT('this is a test ',' ',3) = 'is' or
-  SPLIT('data;another;yet;again;more;',';',4) = 'yet'
-  Split function shifts index integer by two to
-  be compatible with commonly used PD split function
-  gpl 2004 / Juhani Suhonen
- }
- function TMainForm.split(input: string; schar: Char; s: Integer): string;
- var
-   c: array of Integer;
-   b, t: Integer;
- begin
-   Dec(s, 2);  // for compatibility with very old & slow split function
-   t := 0;     // variable T needs to be initialized...
-   setlength(c, Length(input));
-   for b := 0 to pred(High(c)) do
-   begin
-     c[b + 1] := posex(schar, input, succ(c[b]));
-     // BREAK LOOP if posex looped (position before previous)
-     // or wanted position reached..
-     if (c[b + 1] < c[b]) or (s < t) then break
-     else
-       Inc(t);
-   end;
-   Result := Copy(input, succ(c[s]), pred(c[s + 1] - c[s]));
- end;
  procedure TMainForm.Om1Click(Sender: TObject);
  const
-Line 3643 
 var
+Line 3362 
 var
   tekst, filversion : String;
  begin
-   filversion := Sto_GetFmtFileVersion('','');
+   filversion := TUtils.Sto_GetFmtFileVersion('');
    tekst := 'Program til indscanning af pakker'+crlf+'Version '+filversion+crlf+crlf+'Udviklet af it afdelingen, DAO';
    tekst := tekst+crlf+crlf;
-Line 3665 
 begin
+Line 3384 
 begin
          end
          else
          begin
-           tekst := tekst+crlf+crlf+'Speciel version til: '+split(Titel, ':', 2)+' ('+Sted+')';
+           tekst := tekst+crlf+crlf+'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+Sted+')';
          end;
      end
      else
      begin
-       tekst := tekst+crlf+crlf+'Speciel version til: '+split(Titel, ':', 2)+' ('+SpecialVersionSted+')';
+       tekst := tekst+crlf+crlf+'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+SpecialVersionSted+')';
      end;
    end;
-Line 3738 
 begin
+Line 3457 
 begin
    if FileExists(fileName) then
    begin
-     if AdobeReaderExists then
+     if TUtils.AdobeReaderExists then
      begin
        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
-Line 3762 
 begin
+Line 3481 
 begin
    if FileExists(fileName) then
    begin
-     if AdobeReaderExists then
+     if TUtils.AdobeReaderExists then
      begin
        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
-Line 3778 
 begin
+Line 3497 
 begin
    end;
  end;
+ procedure TMainForm.menuIndleveringClick(Sender: TObject);
+ begin
+   Scanningtype := '7';
+   NulstilAutomatiskValg();
+   InitIndleveringskode();
+ end;
  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
  begin
    if Sprgefterboghandlernummer1.Checked then
    begin
-      CheckBox1.Checked := true;
+      chkSporgEfterKunde.Checked := true;
    end
    else
    begin
-      CheckBox1.Checked := false;
+      chkSporgEfterKunde.Checked := false;
    end;
-Line 3810 
 end;
+Line 3536 
 end;
  procedure TMainForm.InitNatxpresslevering();
  begin
        AutomatiskTjekkodeStyring1.Enabled := true;
-       PakkeshopNulstil.Visible := false;
+       btnNulstil.Visible := false;
        Pakkernormal1.Checked := true;
        InitForm(FarveNormal,TitelNormal,UrlNormal);
        PanelValg1.Color := clGreen;
        PanelValg1.Font.Color := clWhite;
-       CheckBox1.Enabled := true;
-       CheckBox2.Enabled := true;
+       chkAltidPrintLabel.Enabled := true;
        Altidprintepakkelabel1.Enabled := true;
        Altidprintepakkelabel1.Checked := false;
-       CheckBox2.Checked := false;
+       chkAltidPrintLabel.Checked := false;
        Sprgefterboghandlernummer1.Checked := false;
-       CheckBox1.Checked := false;
+       chkSporgEfterKunde.Checked := false;
        Sprgefterboghandlernummer1.Enabled := true;
        Smpakker1.Enabled := false;
        Storepakker1.Enabled := false;
-       RadioButton1.Enabled := false;
+       radioStorPakke.Enabled := false;
-       RadioButton2.Enabled := false;
+       radioLillePakke.Enabled := false;
        ListBox1.Visible := true;
        OpdaterListenButton01.Enabled := true;
        EKLoverforsel.Enabled := true;
-Line 3843 
 procedure TMainForm.InitReturFraDao();
+Line 3569 
 procedure TMainForm.InitReturFraDao();
  begin
        AutomatiskTjekkodeStyring1.Enabled := false;
        ReturpakkerfraDAO1.Checked := true;
-       PakkeshopNulstil.Visible := false;
+       btnNulstil.Visible := false;
        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
        PanelValg2.Color := clGreen;
        PanelValg2.Font.Color := clWhite;
-       CheckBox1.Enabled := false;
-       CheckBox2.Enabled := false;
+       chkAltidPrintLabel.Enabled := false;
        Altidprintepakkelabel1.Enabled := false;
-       CheckBox2.Checked := false;
        Altidprintepakkelabel1.Checked := false;
        Sprgefterboghandlernummer1.Checked := false;
-       CheckBox1.Checked := false;
+       chkSporgEfterKunde.Checked := false;
        Sprgefterboghandlernummer1.Enabled := false;
        Smpakker1.Enabled := true;
        Storepakker1.Enabled := true;
-       RadioButton1.Enabled := true;
+       radioStorPakke.Enabled := true;
-       RadioButton2.Enabled := true;
+       radioLillePakke.Enabled := true;
        ListBox1.Visible := true;
        ListBox1.Items.Clear;
        ListBox2.Items.Clear;
-Line 3870 
 procedure TMainForm.InitReturFraKunde();
+Line 3596 
 procedure TMainForm.InitReturFraKunde();
  begin
        AutomatiskTjekkodeStyring1.Enabled := false;
        Returpakkerfraboghandler1.Checked := true;
-       PakkeshopNulstil.Visible := false;
+       btnNulstil.Visible := false;
        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
        PanelValg3.Color := clGreen;
        PanelValg3.Font.Color := clWhite;
-       CheckBox1.Enabled := false;
-       CheckBox2.Enabled := false;
+       chkAltidPrintLabel.Enabled := false;
        Altidprintepakkelabel1.Enabled := false;
-       CheckBox2.Checked := false;
        Altidprintepakkelabel1.Checked := false;
        Sprgefterboghandlernummer1.Checked := false;
-       CheckBox1.Checked := false;
+       chkSporgEfterKunde.Checked := false;
        Sprgefterboghandlernummer1.Enabled := false;
        Smpakker1.Enabled := true;
        Storepakker1.Enabled := true;
-       RadioButton1.Enabled := true;
+       radioStorPakke.Enabled := true;
-       RadioButton2.Enabled := true;
+       radioLillePakke.Enabled := true;
        ListBox1.Visible := true;
        ListBox1.Items.Clear;
        ListBox2.Items.Clear;
-Line 3897 
 procedure TMainForm.InitDirektelevering(
+Line 3622 
 procedure TMainForm.InitDirektelevering(
  begin
        AutomatiskTjekkodeStyring1.Enabled := false;
        Budlevering1.Checked := true;
-       PakkeshopNulstil.Visible := false;
+       btnNulstil.Visible := false;
        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
        PanelValg4.Color := clGreen;
        PanelValg4.Font.Color := clWhite;
-       CheckBox1.Enabled := false;
-       CheckBox2.Enabled := false;
+       chkAltidPrintLabel.Enabled := false;
        Altidprintepakkelabel1.Enabled := false;
-       CheckBox2.Checked := false;
        Altidprintepakkelabel1.Checked := false;
        Sprgefterboghandlernummer1.Checked := false;
-       CheckBox1.Checked := false;
+       chkSporgEfterKunde.Checked := false;
        Sprgefterboghandlernummer1.Enabled := false;
        Smpakker1.Enabled := true;
        Storepakker1.Enabled := true;
-       RadioButton1.Enabled := true;
+       radioStorPakke.Enabled := true;
-       RadioButton2.Enabled := true;
+       radioLillePakke.Enabled := true;
        ListBox1.Visible := true;
        ListBox1.Items.Clear;
-       DownloadButton01.Enabled := false;
+       BtnDownloadKontrolfil.Enabled := false;
        OpdaterListenButton01.Enabled := true;
        DownloadButton03.Visible := false;
        EKLoverforsel.Enabled := false;
-Line 3933 
 procedure TMainForm.InitPakkeshopleverin
+Line 3658 
 procedure TMainForm.InitPakkeshopleverin
  begin
        AutomatiskTjekkodeStyring1.Enabled := true;
        Pakkeshoplevering1.Checked := true;
-       PakkeshopNulstil.Visible := false;
+       btnNulstil.Visible := false;
        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
        PanelValg5.Color := clGreen;
        PanelValg5.Font.Color := clWhite;
-       CheckBox1.Enabled := false;
-       CheckBox2.Enabled := false;
+       chkAltidPrintLabel.Enabled := false;
        Altidprintepakkelabel1.Enabled := false;
-       CheckBox2.Checked := false;
        Altidprintepakkelabel1.Checked := false;
        Sprgefterboghandlernummer1.Checked := false;
-       CheckBox1.Checked := false;
+       chkSporgEfterKunde.Checked := false;
        Sprgefterboghandlernummer1.Enabled := false;
        Smpakker1.Enabled := false;
        Storepakker1.Enabled := false;
-       RadioButton1.Enabled := false;
+       radioStorPakke.Enabled := false;
-       RadioButton2.Enabled := false;
+       radioLillePakke.Enabled := false;
        ListBox1.Visible := true;
        ListBox1.Items.Clear;
-       DownloadButton01.Enabled := false;
+       BtnDownloadKontrolfil.Enabled := false;
        OpdaterListenButton01.Enabled := true;
- // 20150330: start
- //      EKLoverforsel.Enabled := false;
        EKLoverforsel.Enabled := true;
- // 20150330: slut
        InitLillePakke();
        IndlesScanningLogFil();
        if BladhusSted = 0 then
-Line 3971 
 procedure TMainForm.InitReturFraPakkesho
+Line 3695 
 procedure TMainForm.InitReturFraPakkesho
  begin
        AutomatiskTjekkodeStyring1.Enabled := false;
        Returpakkerfrapakkeshop1.Checked := true;
-       PakkeshopNulstil.Visible := false;
+       btnNulstil.Visible := false;
        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
        PanelValg6.Color := clGreen;
        PanelValg6.Font.Color := clWhite;
-       CheckBox1.Enabled := false;
-       CheckBox2.Enabled := false;
+       chkAltidPrintLabel.Enabled := false;
        Altidprintepakkelabel1.Enabled := false;
-       CheckBox2.Checked := false;
        Altidprintepakkelabel1.Checked := false;
        Sprgefterboghandlernummer1.Checked := false;
-       CheckBox1.Checked := false;
+       chkSporgEfterKunde.Checked := false;
        Sprgefterboghandlernummer1.Enabled := false;
        Smpakker1.Enabled := false;
        Storepakker1.Enabled := false;
-       RadioButton1.Enabled := false;
+       radioStorPakke.Enabled := false;
-       RadioButton2.Enabled := false;
+       radioLillePakke.Enabled := false;
        ListBox1.Visible := true;
        ListBox1.Items.Clear;
-       DownloadButton01.Enabled := false;
+       BtnDownloadKontrolfil.Enabled := false;
        OpdaterListenButton01.Enabled := true;
        EKLoverforsel.Enabled := false;
        InitLillePakke();
-Line 4011 
 end;
+Line 3735 
 end;
  procedure TMainForm.InitIndleveringskode();
  begin
+       menuIndlevering.Checked := true;
        AutomatiskTjekkodeStyring1.Enabled := false;
-       Returpakkerfrapakkeshop1.Checked := true;
-       PakkeshopNulstil.Visible := false;
+       btnNulstil.Visible := false;
-       InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
+       InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
        PanelValg7.Color := clGreen;
        PanelValg7.Font.Color := clWhite;
-       CheckBox1.Enabled := false;
-       CheckBox2.Enabled := false;
+       chkAltidPrintLabel.Enabled := false;
        Altidprintepakkelabel1.Enabled := false;
-       CheckBox2.Checked := false;
        Altidprintepakkelabel1.Checked := false;
        Sprgefterboghandlernummer1.Checked := false;
-       CheckBox1.Checked := false;
        Sprgefterboghandlernummer1.Enabled := false;
+       chkSporgEfterKunde.Checked := false;
        Smpakker1.Enabled := false;
        Storepakker1.Enabled := false;
-       RadioButton1.Enabled := false;
+       radioStorPakke.Enabled := false;
-       RadioButton2.Enabled := false;
+       radioLillePakke.Enabled := false;
        ListBox1.Visible := true;
-       ListBox1.Items.Clear;
+       ListBox1.Items.Clear();
-       DownloadButton01.Enabled := false;
+       BtnDownloadKontrolfil.Enabled := false;
        OpdaterListenButton01.Enabled := true;
        EKLoverforsel.Enabled := false;
        InitLillePakke();
-Line 4057 
 end;
+Line 3786 
 end;
  procedure TMainForm.InitLillePakke();
  begin
-   RadioButton2.Checked := true;
+   radioLillePakke.Checked := true;
    Smpakker1.Checked := true;
- // 20150310: start
  //  Stregkode := '';
- // 20150310: slut
  end;
  procedure TMainForm.InitStorPakke();
  begin
-   RadioButton1.Checked := true;
+   radioStorPakke.Checked := true;
    Storepakker1.Checked := true;
  // 20150310: start
  //  Stregkode := '';
  // 20150310: slut
  end;
- /// <summary>
- ///   This function reads the file resource of "FileName" and returns
- ///   the version number as formatted text.</summary>
- /// <example>
- ///   Sto_GetFmtFileVersion() = '4.13.128.0'
- ///   Sto_GetFmtFileVersion('', '%.2d-%.2d-%.2d') = '04-13-128'
- /// </example>
- /// <remarks>If "Fmt" is invalid, the function may raise an
- ///   EConvertError exception.</remarks>
- /// <param name="FileName">Full path to exe or dll. If an empty
- ///   string is passed, the function uses the filename of the
- ///   running exe or dll.</param>
- /// <param name="Fmt">Format string, you can use at most four integer
- ///   values.</param>
- /// <returns>Formatted version number of file, '' if no version
- ///   resource found.</returns>
- function TMainForm.Sto_GetFmtFileVersion(const FileName: String = '';
-   const Fmt: String = '%d.%d.%d.%d'): String;
- var
-   sFileName: String;
-   iBufferSize: DWORD;
-   iDummy: DWORD;
-   pBuffer: Pointer;
-   pFileInfo: Pointer;
-   iVer: array[1..4] of Word;
-   S : String;
- begin
-   // set default value
-   Result := '';
-   // get filename of exe/dll if no filename is specified
-   sFileName := Trim(FileName);
-   if (sFileName = '') then
-     sFileName := GetModuleName(HInstance);
-   // get size of version info (0 if no version info exists)
-   iBufferSize := GetFileVersionInfoSize(PChar(sFileName), iDummy);
-   if (iBufferSize > 0) then
-   begin
-     GetMem(pBuffer, iBufferSize);
-     try
-     // get fixed file info (language independent)
-     GetFileVersionInfo(PChar(sFileName), 0, iBufferSize, pBuffer);
-     VerQueryValue(pBuffer, '\', pFileInfo, iDummy);
-     // read version blocks
-     iVer[1] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);
-     iVer[2] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);
-     iVer[3] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);
-     iVer[4] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);
-     finally
-       FreeMem(pBuffer);
-     end;
-     // format result string
-     Result := Format(Fmt, [iVer[1], iVer[2], iVer[3], iVer[4]]);
-     // Hvorfor virker ovenst�ende ikke ???
-     S := '';
-     Str(iVer[1],Result);
-     S := S+Result+'.';
-     Str(iVer[2],Result);
-     S := S+Result+'.';
-     Str(iVer[3],Result);
-     S := S+Result+'.';
-     Str(iVer[4],Result);
-     S := S+Result+'';
-     Result := S;
-   end;
- end;
  procedure TMainForm.PlaySound(filename : PWideChar);
  begin
-Line 4163 
 end;
+Line 3825 
 end;
  procedure TMainForm.Testlyd2Click(Sender: TObject);
  begin
- // 20150317: start
    if (PakkeshopText1.Caption = 'Tjekkode') then
    begin
       if ScannetOkTilTjekkodeLyd  <> '' then
-Line 4176 
 begin
+Line 3837 
 begin
       end;
       exit;
    end;
- // 20150317: slut
    if Smpakker1.Checked then
       if ScannetOkLyd  <> '' then
-Line 4185 
 begin
+Line 3845 
 begin
       end
       else
       begin
- // 20150317: start
- //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);
         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
- // 20150317: slut
       end;
    if Storepakker1.Checked then
       if ScannetOkStorLyd  <> '' then
-Line 4197 
 begin
+Line 3854 
 begin
       end
       else
       begin
- // 20150317: start
- //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);
         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
- // 20150317: slut
       end;
  end;
-Line 4307 
 begin
+Line 3961 
 begin
           BoghandlerNavnST.Caption := 'Pr�v venligst igen om lidt...';
         end;
         KommentarST.Caption := Kommentar;
-        PakkeshopNulstil.Visible := true;
+        btnNulstil.Visible := true;
      end;
  end;
-Line 4331 
 begin
+Line 3985 
 begin
    else
      MessageBox(Handle, 'fejl', 'Stregkode', MB_OK);
  }
-   Svar := 'Beregnet: '+CheckSumModulo10(LeftStr(Barcode,Length(Barcode)-1))+', Indtastet: '+Barcode;
+   Svar := 'Beregnet: ' + TUtils.CheckSumModulo10(LeftStr(Barcode,Length(Barcode)-1))+', Indtastet: '+Barcode;
    MessageBox(Handle, PWideChar(Svar), 'Stregkode', MB_OK);
    CheckCode();
-Line 4339 
 end;
+Line 3993 
 end;
  end;
- function TMainForm.BarCodeValid (ACode: string): boolean;
- var
-    I: integer;
-    SumOdd, SumEven: integer;
-    ADigit, AChecksumDigit: integer;
- begin
-    SumOdd := 0;
-    SumEven := 0;
-    for I := 1 to (Length (ACode) - 1) do begin
-       ADigit := StrToIntDef (ACode [I], 0);
-       if (I MOD 2 = 0) then begin
-          SumEven := SumEven + ADigit;
-       end else begin
-          SumOdd := SumOdd + ADigit;
-       end; {if}
-    end; {for}
-    AChecksumDigit := StrToIntDef (ACode [Length (ACode)], 0);
-    Result := ((SumOdd*3 + SumEven + AChecksumDigit) MOD 10 = 0);
- end; {--BarCodeValid--}
- { used for EAN 8/13 }
- function TMainForm.CheckSumModulo10(const data:string):string;
-         var i,fak,sum : Integer;
- begin
-         sum := 0;
-         fak := Length(data);
-         for i:=1 to Length(data) do
-         begin
-                 if (fak mod 2) = 0 then
-                         sum := sum + (StrToInt(data[i])*1)
-                 else
-                         sum := sum + (StrToInt(data[i])*3);
-                 dec(fak);
-         end;
-         if (sum mod 10) = 0 then
-                 result := data+'0'
-         else
-                 result := data+IntToStr(10-(sum mod 10));
- end;
  //
  // Bladhus ***
-Line 4855 
 begin
+Line 4470 
 begin
    ListBox1.SetFocus;  // for at flytte fokus v�k fra upload knappen s� denne ikke aktiveres ved scanning / indtastning af stregkode
  end;
- procedure TMainForm.DownloadButton01Click(Sender: TObject);
+ procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject);
  begin
      DownloadBladhusKontrolfil();
      ListBox1.SetFocus;  // for at flytte fokus v�k fra download knappen s� denne ikke aktiveres ved scanning / indtastning af stregkode
-Line 4879 
 begin
+Line 4494 
 begin
      ListBox1.SetFocus;  // for at flytte fokus v�k fra download knappen s� denne ikke aktiveres ved scanning / indtastning af stregkode
  end;
- function TMainForm.Explode(var a: TStrArray; Border, S: string): Integer;
+ // ToDo: PrintPakkeshopLabel()
+ procedure TMainForm.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
  var
-   S2: string;
+   XForm, XFormOld: TXForm; //Bruges til rotate X-formation
+   Angle: integer;
+   gMode: integer;
+   Dirigering: string;
  begin
-   Result  := 0;
+     with Printer do
-   S2 := S + Border;
+     begin
-   repeat
+       BeginDoc();
-     SetLength(A, Length(A) + 1);
-     a[Result] := Copy(S2, 0,Pos(Border, S2) - 1);
-     Delete(S2, 1,Length(a[Result] + Border));
+       Canvas.Font.Size := 16;
-     Inc(Result);
+       Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);
-   until S2 = '';
+       Canvas.TextOut(25, 90, PakkeshopLabel.Navn );
+       Canvas.TextOut(25, 135, PakkeshopLabel.Vejnavn );
+       Canvas.TextOut(25, 180, PakkeshopLabel.Postnr );
+       Canvas.Font.Size := 9;
+       Canvas.TextOut(110, 240, 'Pakkeshop:');
+       Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);
+       Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);
+       Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);
+       Canvas.TextOut(350, 240, 'Afsender:');
+       Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn);
+       Canvas.TextOut(350, 300, PakkeshopLabel.AfsenderAdresse);
+       Canvas.TextOut(350, 330, PakkeshopLabel.AfsenderPostnr);
+       Dirigering := PakkeshopLabel.PakkeshopSted + ' | ' + PakkeshopLabel.PakkeshopTurid + ' | ' + PakkeshopLabel.PakkeshopNr;
+       if ( PakkeshopLabel.Koreliste <> '') then
+       begin
+         Dirigering := Dirigering + ' > ' + PakkeshopLabel.Koreliste;
+       end;
+       Canvas.Font.Size := 12;
+       Canvas.TextOut(15, 370, Dirigering);
+       //Tegn adskillelses linier
+       Canvas.Pen.Width := 2;
+       //�verste linie
+       Canvas.MoveTo(20,80);
+       Canvas.LineTo(600,80);
+       // Midterste linie
+       Canvas.MoveTo( 20, 240);
+       Canvas.LineTo(600, 240);
+       //Nederste linie
+       Canvas.MoveTo( 20, 370);
+       Canvas.LineTo(600, 370);
+       //Tegn skr� streger over afsender
+       Canvas.Pen.Width := 1;
+       Canvas.MoveTo(600, 250);
+       Canvas.LineTo(350, 360);
+       Canvas.MoveTo(600, 360);
+       Canvas.LineTo(350, 250);
+       // Resten af rutinen vedr genering og placering af Barcode
+       BarCode.BarCodeType := bcCode128;
+       BarCode.Code128Subset := csCodeC;
+       BarCode.Code := PakkeshopLabel.Stregkode;
+       BarCode.Validate(True);
+       //Start X-formation
+       //ShowMessage( Format('%d %d', [PageWidth, PageHeight]) );
+       GetWorldTransform(Canvas.Handle, XFormOld);
+       Angle := 270;
+       XForm.eM11 := Cos(DegToRad(Angle));
+       XForm.eM12 := Sin(DegToRad(Angle));
+       XForm.eM21 := -Sin(DegToRad(Angle));
+       XForm.eM22 := Cos(DegToRad(Angle));
+       XForm.eDx := 0;
+       XForm.eDy := 0;
+       gMode := SetGraphicsMode(Canvas.Handle, GM_ADVANCED);
+       SetWorldTransform(Canvas.Handle, XForm);
+       // PaintToCanvasSize arbejder i Inches
+       // F�rste pos argument bliver nu Y og skal v�re negativ for at rykke den ned
+       //Anden pos er X og skal v�re positiv for at justere ind fra venstre mod h�jre
+       BarCode.PaintToCanvasSize(Printer.Canvas, -1.8, 3.3, 0.4);
+       SetWorldTransform(Canvas.Handle, XFormOld);
+       SetGraphicsMode(Canvas.Handle, gMode);
+       EndDoc();
+     end;
  end;
+ function GetPixelsPerInchX(): Integer;
+ begin
+   Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX)
+ end;
+ function GetPixelsPerInchY(): Integer;
+ begin
+   Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
+ end;
  procedure TMainForm.IndlesManglendeScanninger();
  var
    WebSvar : String;
-Line 4905 
 var
+Line 4630 
 var
    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
    pakketyper : TStrings;
    antlin : Integer;
- // 20150306: start
    antlinIdag, antlinSenere : Integer;
- // 20150306: slut
    XmlFelter : TStrings;
   begin
-Line 4927 
 var
+Line 4652 
 var
          StedKode := Sted;
        end;
- // 20150310: start
- (*
-     if Returpakkerfrapakkeshop1.Checked then
+     if (Scanningtype = '7') then
-      begin
-       URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
-      end
-     else if Pakkeshoplevering1.Checked then
-      begin
-       URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);
-      end
-     else if Pakkernormal1.Checked then
       begin
-       URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);
+       URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
       end
-     else
+     else if (Scanningtype = '6') then
-      begin
-       URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
-      end;
- *)
-     if (Scanningtype = '6') then
       begin
-       URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
+       URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);
       end
      else if (Scanningtype = '5') then
       begin
-       URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);
+       URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);
       end
      else if (Scanningtype = '1') then
       begin
-Line 4989 
 var
+Line 4701 
 var
      try
        XMLDocument1.LoadFromXML(WebSvar);
- // 20150206: start
        antlin := 0;
        antlinIdag := 0;
        antlinSenere := 0;
- // 20150306: slut
-       antalFelterFundet := 0;
        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
            if Node.NodeType = ntElement then begin
-Line 5026 
 var
+Line 4737 
 var
        antalFelterFundet := 0;
        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
        SetLength(stregkoderMedTjekkodeArray, antlin);  // s�t antal elementer i array
- // 20150206: start
- //      logTekst := 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.';
        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
        if (antlinSenere > 0) then
        begin
          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
        end;
        logTekst := logTekst + '.';
- // 20150306: slut
        SkrivScanningLogFil(logTekst);
        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
-Line 5078 
 var
+Line 4788 
 var
  //                    stregkoderMedTjekkodeArray[linienr] := stregkode;
                    if (pos(' ', stregkode) > 0) then
                    begin
-                     stregkoderMedTjekkodeArray[linienr] := split(stregkode, ' ', 2);  // Fjerner lige en evt. fremtidig dato fra feltet
+                     stregkoderMedTjekkodeArray[linienr] := TUtils.split(stregkode, ' ', 2);  // Fjerner lige en evt. fremtidig dato fra feltet
                    end
                    else
                    begin
                      stregkoderMedTjekkodeArray[linienr] := stregkode;
                    end;
- // 20150306: slut
+                   linienr := linienr + 1;
-                     linienr := linienr + 1;
                  end;
              end;
              if antalFelterFundet = antalLiniefelter then
-Line 5110 
 var
+Line 4819 
 var
          // Free up the list object
        pakketyper.Free;
- // 20150306: start
  //      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.');
        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
        if (antlinSenere > 0) then
-Line 5119 
 var
+Line 4827 
 var
        end;
        logTekst := logTekst + '.';
        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
- // 20150306: slut
- // 20150309: start
        if (antlinSenere > 0) then
        begin
          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
-Line 5129 
 var
+Line 4835 
 var
        begin
          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
        end;
- // 20150309: slut
- // 20150310: start
        if (Scanningtype = '1') then
        begin
          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal
-Line 5210 
 var
+Line 4914 
 var
            PanelManglendePakker6.Visible := false;
          end;
        end;
- // 20150310: slut
      except on e:exception do
        begin
-Line 5272 
 end;
+Line 4975 
 end;
  procedure TMainForm.SkrivScanningLogFil(var tekst : string);
  var
     SomeTxtFile : TextFile;
-    buffer : string;
-    S: string;
     idag, imorgen : TDateTime;
     imorgenYmd : string;
     logFilnavn : string;
-     error : Integer;
+    //error : Integer;
  begin
    if (SkrivLog = '1') then
-Line 5369 
 begin
+Line 5070 
 begin
          ReadLn(SomeTxtFile, buffer) ;
          S := buffer;
          SetLength(A,0);
-         Explode(A, ';', S);
+         TUtils.Explode(A, ';', S);
          if (length(A) < 2) then
          begin
-           Explode(A, ',', S);
+           TUtils.Explode(A, ',', S);
          end;
            if (length(A) > 1) then
            begin
-Line 5446 
 begin
+Line 5147 
 begin
          ReadLn(SomeTxtFile, buffer) ;
          S := buffer;
          SetLength(A,0);
-         Explode(A, ';', S);
+         TUtils.Explode(A, ';', S);
          if (length(A) < 3) then
          begin
-           Explode(A, ',', S);
+           TUtils.Explode(A, ',', S);
          end;
          if (A[0]=imorgenYmd) then
          begin
-Line 5541 
 begin
+Line 5242 
 begin
    result := svar;
  end;
+ procedure TMainForm.VisAlarmSkaerm(strMessage: string);
+ begin
+   //ShowMessage('�ndring ikke tilladt');
+   // Her skal komme en 'r�d sk�rm' alarm
+   PlaySound(PWideChar(AlarmLyd));
+   MainForm.Color := clRed;
+   RuteNummerST.Caption := '';
+   BoghandlerNavnST.Caption := '';
+   btnNulstil.Visible := true;
+   if (strMessage <> '') then
+   begin
+     ListBox1.Items.Insert(0, strMessage);
+     KommentarST.Caption := strMessage;
+   end;
+ end;
  function TMainForm.getProddato() : TDate;
  var
     idag, imorgen : TDateTime;
-Line 5622 
 procedure TMainForm.Scanogstjekkoden1Cli
+Line 5343 
 procedure TMainForm.Scanogstjekkoden1Cli
  begin
    if Scanogstjekkoden1.Checked then
    begin
-      CheckBox3.Checked := true;
+      chkScanTjekkode.Checked := true;
    end
    else
    begin
-      CheckBox3.Checked := false;
+      chkScanTjekkode.Checked := false;
    end;
  end;
- function TMainForm.AdobeReaderExists: Boolean;
- var
-   AReg: TRegistry;
- begin
-   result:= false;
-   AReg := TRegistry.Create;
-   AReg.RootKey := HKEY_LOCAL_MACHINE;
-   if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then
-     result:= True;
-   AReg.Free;
- end;
  procedure TMainForm.CheckPrintQue(tjektype : string);
  type
-Line 5745 
 begin
+Line 5460 
 begin
    end;
  end;
- function TMainForm.CheckUrl(url:string):boolean;
- var
-   hSession, hfile, hRequest: hInternet;
-   dwindex,dwcodelen :dword;
-   dwcode:array[1..20] of char;
-   res : pchar;
- begin
-   if pos('http://',lowercase(url))=0 then
-     url := 'http://'+url;
-   Result := false;
-   hSession := InternetOpen('InetURL:/1.0',
-                             INTERNET_OPEN_TYPE_PRECONFIG,
-                             nil,
-                             nil,
-);
-   if assigned(hsession) then
-   begin
-     hfile := InternetOpenUrl(hsession,
-                              pchar(url),
-                              nil,
-,
-                              INTERNET_FLAG_RELOAD,
-);
-     dwIndex := 0;
-     dwCodeLen := 10;
-     HttpQueryInfo(hfile,
-                   HTTP_QUERY_STATUS_CODE,
-                   @dwcode,
-                   dwcodeLen,
-                   dwIndex);
-     res := pchar(@dwcode);
-     result:= (res ='200') or (res ='302');
-     if assigned(hfile) then
-       InternetCloseHandle(hfile);
-     InternetCloseHandle(hsession);
-   end;
- end;
- // 20150310: start
- procedure TMainForm.RoundCornerOf(Control: TWinControl);
- var
-    R: TRect;
-    Rgn: HRGN;
- begin
-    with Control do
-    begin
-      R := ClientRect;
- //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ;
-      rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 25, 25) ;
- //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 30, 30) ;
-      Perform(EM_GETRECT, 0, lParam(@r)) ;
-      InflateRect(r, - 4, - 4) ;
-      Perform(EM_SETRECTNP, 0, lParam(@r)) ;
-      SetWindowRgn(Handle, rgn, True) ;
-      Invalidate;
-    end;
- end;
- // 20150310: slut
  end.

 Legend:



Removed from v.2650
 


changed lines


 
Added in v.2694
 Legend:



Removed from v.2650
 


changed lines


 
Added in v.2694
-Removed from v.2650
+Added in v.2694

	ViewVC Help
Powered by ViewVC 1.1.20