UWVA#90681 Achtergrond van QR-codes instelbaar maken (nu hardcoded wit)

svn path=/Website/trunk/; revision=70392

APPL/Shared/qrcode.asp

@@ -12,6 +12,8 @@
         level       error level 0=7%, 1=15%, 2=25%, 3=30%
         masking     masking algoritme -1 is auto of 0 to 7
         size        pixels/module, default 8
+        color       Color, default  S("qr_color")
+        bggraycolor 0-255, default S("qr_bggray_color") (255, white)
 */ %>
 
 <%
@@ -43,6 +45,11 @@ xc.Level      = getQParamInt("level", 1);
 xc.Masking    = getQParamInt("masking", -1);
 xc.Size       = getQParamInt("size", 8);
 xc.Color      = getQParamInt("color", S("qr_color"));
+var oAbout = new ActiveXObject("SLNKDWF.About");
+if (oAbout.VersionString >= "4,41")
+{
+  xc.BgGrayColor = getQParamInt("bggraycolor", S("qr_bggray_color")); // Grayscale 0-255
+}
 //xc.Logo       = getQParamInt("logo", "FACILITOR");
 //xc.LogoSize   = getQParamInt("logosize", 0);