Here's a simple example inspired by the 4d-component-generate-icon.

//-----------------------------
$width:=3
$opacity:=80
$rw:=40

$color:="black"  // normal
$svg:=SVG_New (58;58)
$ref:=SVG_New_rect ($svg;9;9;$rw;$rw;2;2;$color;"white";$width)
SVG_SET_OPACITY ($ref;0;$opacity)
$normal:=SVG_Export_to_picture ($svg)
SVG_CLEAR ($svg)

$color:="green"  // click
$svg:=SVG_New (58;58)
$ref:=SVG_New_rect ($svg;9;9;$rw;$rw;2;2;$color;"white";$width)
SVG_SET_OPACITY ($ref;0;$opacity)
$click:=SVG_Export_to_picture ($svg)
SVG_CLEAR ($svg)

$color:="deepskyblue"  // hover
$svg:=SVG_New (58;58)
$ref:=SVG_New_rect ($svg;9;9;$rw;$rw;2;2;$color;"white";$width)
SVG_SET_OPACITY ($ref;0;$opacity)
$hover:=SVG_Export_to_picture ($svg)
SVG_CLEAR ($svg)

$color:="silver"  // disable
$svg:=SVG_New (58;58)
$ref:=SVG_New_rect ($svg;9;9;$rw;$rw;2;2;$color;"white";$width)
SVG_SET_OPACITY ($ref;0;$opacity)
$disabled:=SVG_Export_to_picture ($svg)
SVG_CLEAR ($svg)


$pict:=$normal/$click/$hover/$disabled  // this creates the "4 state" picture!

TRANSFORM PICTURE($pict;Scale;0.66;0.66)  // size to fit
CONVERT PICTURE($pict;".png")// allows pasting into Preview

$0:=$pict

// SET PICTURE TO PASTEBOARD($pict)
// SVGTool_SHOW_IN_VIEWER ($svg)

//-----------------------------

Keith -CDI

> On Oct 23, 2018, at 6:47 PM, Robert ListMail via 4D_Tech 
> <[email protected]> wrote:
> 
> Hi Tim thanks for the reminder. I recall liking your interface design. So, 
> are you using the various button states where 4D has the ability to swap the 
> images during different states such as “rollover”? If so, did you have to 
> create two or three different versions of each icon for matrix of images…?
> 
> Thanks,
> 
> Rob
> 
>> On Oct 23, 2018, at 2:04 PM, Tim Nevels via 4D_Tech <[email protected]> 
>> wrote:
>> 
>> https://glyphlab.com <https://glyphlab.com/>
>> 
>> You have to pay money, but for me it was worth it as I paid once and got a 
>> library of high quality images I’ve been using for years in all my projects. 
>>  For me, well worth the one time price.
>> 
>> Tim
> 
> **********************************************************************
> 4D Internet Users Group (4D iNUG)
> Archive:  http://lists.4d.com/archives.html
> Options: https://lists.4d.com/mailman/options/4d_tech
> Unsub:  mailto:[email protected]
> **********************************************************************

**********************************************************************
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:[email protected]
**********************************************************************

Reply via email to