REVO5500 ' HTML Colors @
5Q HTML Colors U Lucida Grande cREVGeometryCache stackID 10005 cREVGeneral breakpointconditions breakpoints breakpointstates Picker P 1on openCard
focus on nothing
end openCard
cREVGeneral scripteditorvscroll 0 cREVGeometryCacheIDs 1340253837354 10131340253837355 10141340253466448 10051340253466450 100011340253466449 10061340253770381 10101340253466451 10081340253785547 10121340254246241 100041340254153407 100021340254619974 10005 cREVGeometrycache total 11order
' ' ' ' borderColorPicker K@ ( ( ]Click and drag to pick a color for the border.
Alt+Click to call up the System Color Picker. Zglobal gSaved
local sTrack,tFill
on mouseDown
if the altKey is down then
put false into sTrack
else
put true into sTrack
set the lockCursor to true
set the hotSpot of image ID 10001 to 0,15
set the cursor to 10001
end if
end mouseDown
on mouseMove
if sTrack then
set the backgroundColor of me to the mouseColor
end if
end mouseMove
on mouseRelease
mouseUp
end mouseRelease
on mouseUp
if sTrack then
put the mouseColor into tFill
put false into sTrack
set the lockCursor to false
set the cursor to arrow
else
set the lockCursor to false
set the cursor to arrow
put the backgroundColor of me into tFill
answer color with tFill
if it is empty then
set the showBorder of grp "shot" to false
set the threeD of grp "shot" to false
set the borderColor of grp "shot" to empty
set the borderWidth of grp "shot" to "0"
set the backgroundColor of me to "black"
exit to top
end if
put it into tFill
end if
set the backgroundColor of me to tFill
converToHex
put "false" into gSaved
end mouseUp
command converToHex
-- Convert to Hexadecimal
put empty into tHex -- empty was "#"
repeat for each item tItem in tFill
put baseConvert(tItem,10,16) into tVar
if the number of chars in tVar = 1 then
put "0" before tVar
end if
put tVar after tHex
end repeat
put tHex into fld "borderColorField" ## PUT THE HEX COLOUR INTO Canvas Colour Field ##
focus on nothing
end converToHex
on mouseEnter
hide image "canvasEyeDropper"
set the lockCursor to true
set the cursor to 10001
end mouseEnter
on mouseLeave
show image "canvasEyeDropper"
set the lockCursor to false
set the cursor to arrow
end mouseLeave
cREVGeneral scripteditorvscroll 649revUniqueID
1340253466448scripteditorselection 1602 canvasColorPicker K@ $ # cpBackgroundColor 0,0,0 ]Click and drag to pick a color for the canvas.
Alt+Click to call up the System Color Picker. global gSaved
local sTrack,tFill
on mouseDown
if the altKey is down then
put false into sTrack
else
put true into sTrack
set the lockCursor to true
set the hotSpot of image ID 10001 to 1,15
set the cursor to 10001
end if
end mouseDown
on mouseMove
if sTrack then
set the backgroundColor of me to the mouseColor
end if
end mouseMove
on mouseRelease
mouseUp
end mouseRelease
on mouseUp
if sTrack then
put the mouseColor into tFill
put false into sTrack
set the lockCursor to false
set the cursor to arrow
else
set the lockCursor to false
set the cursor to arrow
put the backgroundColor of me into tFill
answer color with tFill
if it is empty then
exit to top
end if
put it into tFill
end if
set the backgroundColor of me to tFill
set the cpBackgroundColor of me to tFill
converToHex
put "false" into gSaved
end mouseUp
command converToHex
-- Convert to Hexadecimal
put empty into tHex -- empty was "#"
repeat for each item tItem in tFill
put baseConvert(tItem,10,16) into tVar
if the number of chars in tVar = 1 then
put "0" before tVar
end if
put tVar after tHex
focus on nothing
end repeat
put tHex into fld "canvasColorField" ## PUT THE HEX COLOUR INTO Canvas Colour Field ##
end converToHex
on mouseEnter
hide image "canvasEyeDropper"
set the lockCursor to true
set the cursor to 10001
end mouseEnter
on mouseLeave
show image "canvasEyeDropper"
set the lockCursor to false
set the cursor to arrow
end mouseLeave
cREVGeneral scripteditorvscroll 420revUniqueID
1340253466449scripteditorselection 314 ' canvasEyeDropper @ ( &