Added Colour dialog, but I spelled it wrong for all you non-Aussies \:D

 Code:
break on
dim $oDialog

$oDialog = CreateObject('cjDialogs.SelectColor')
$oDialog.UseNames=true

if $oDialog.Execute 
	"Executed " $oDialog.HTMLColor
else
	"cancel"
endif
?


Opens the Colour selector dialog and lets you choose a colour. This is the same selector that MSPaint uses. You can expand it with the 'Custom' button and create any shade.

Properties:
Color integer - this is the colour. 0 is black, 255 is red. The color is an integer that represents the red, green and blue components in the order blue, green and red. so 0 blue, 0 green and FF red is 0000ff or 255.

HTMLColor string - this is the same colour, but in HTML format #rrggbb. so red would be #FF0000. Confused yet? If there is enough call for it, I can convert the bbggrr output from .Color into rrggbb.

UseNames boolean - when set to true (default is false) it will try to find a name for the colour you have selected. eg red would be RED and #7FFFD4 would be AQUAMARINE. This list of names came from MSDN Colour names.

cj

Attachments
cjDialogs.zip (243 downloads)
Description: v1.4 added Color (ahem coloUr) selector