100% tint spot in r5 colorbar

CheckTech · Oct 29, 2019 · 06a27e1 · 06a27e1
1 parent e7b49cb
commit 06a27e1
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 0 deletions.
diff --git a/PrintMarksR5.frm b/PrintMarksR5.frm
@@ -156,6 +156,9 @@ Private Sub btnAddColor_Click()
             MsgBox "Unnamed Color", vbCritical, "Error"
             Exit Sub
         End If
+        If pickClr.Type = cdrColorPantone Or pickClr.Type = cdrColorSpot Then
+            pickClr.Tint = 100
+        End If
         'if not selected
         If lbColorList.ListIndex = -1 Then lbColorList.ListIndex = lbColorList.ListCount - 1
         cColor.Add pickClr, , lbColorList.ListIndex + 1

diff --git a/PrintMarksR5.frx b/PrintMarksR5.frx
diff --git a/gms/InfUtilits.gms b/gms/InfUtilits.gms