Photoshop Script Tested on version: 23.5.3 Release // Simple Color Picker SCRIPTUI function colorpicker(result_color) { var hexToRGB = function(hex) { var r = hex >> 16; var g = hex >> 8 & 0xFF; var b = hex & 0xFF; return [r, g, b]; }; var color_decimal = $.colorPicker(); if (color_decimal < 0) return null; […]
Adobe Color Picker – PSD ScriptUI Read More »
Script Dim PosX, PosY Dim colorPicker Sub ImageMouseDown(Sender, Button, Shift, X, Y) PosX = X PosY = Y End sub Sub ImageOnClick(Sender) colorPicker = Sender.Canvas.Pixels(PosX, PosY) txtCCColor.Text = ConvertToCColor(colorPicker) txtRGBColor.Text = ConvertToRgb(colorPicker) txtRGBColor.Color = colorPicker txtCCColor.Color = colorPicker End sub Function ConvertToRgb(color) Dim red, green, blue, temp temp = color red = temp Mod &H100
Script Sub InitForm loadColors() End Sub Class ColorsObj Public codeColor Public hexaColor Public rgbColor Public vtwColor End Class Dim arrColors() EmptyArray() Sub EmptyArray() ReDim arrColors(0) Set sObj = new ColorsObj sObj.codeColor = “” sObj.hexaColor = “” sObj.rgbColor = “” sObj.vtwColor = “” Set arrColors(0) = sObj End sub Sub loadColors() Erase arrColors Set XMLColors =
VTW Color Chart Selector Read More »
Script Sub BtnColorsClick(Sender) If ColorDialog1.Execute then temp = ColorDialog1.Color red = temp Mod &H100 temp = temp \ &H100 green = temp Mod &H100 temp = temp \ &H100 blue = temp Mod &H100 rvb.Text = red & ” ” & green & ” ” & blue rvb01.Text = red/255 & ” ” & green/255
VTW Color Dialog Picker Read More »
