TSVG

#include "totvs.ch"

user function tsvg()

  local textSVG := retSVG()

  DEFINE DIALOG oDlg TITLE "Exemplo TSVG" FROM 180,180 TO 550,700 PIXEL
 
    // Cria o objeto e define os eventos do mouse
    oSVG := TSVG():New(01,01,oDlg,200,200,textSVG)
    oSVG:BLCLICKED := {|| alert("BLCLICKED") }
    oSVG:BRCLICKED := {|| alert("BRCLICKED") }
    oSVG:align := CONTROL_ALIGN_TOP
    
  ACTIVATE MSDIALOG oDlg CENTERED
  
return nil

static function retSVG()

  local textSVG := ""

  textSVG := "<?xml version='1.0' standalone='no'?>"+;
    "<svg width='14cm' height='14cm' viewBox='0 0 400 400' xmlns='http://www.w3.org/2000/svg' baseProfile='tiny' version='1.2'>"+;
    "<title>Spheres</title>"+;
    "<desc>Gradient filled spheres with different colors.</desc>"+;
    "<defs>"+;
    "<!-- Create radial gradients for each circle to make them look like spheres. -->"+;
    "<radialGradient id='blueSphere' gradientUnits='userSpaceOnUse' cx='0' cy='0' r='100' fx='-50' fy='-50'>"+;
    "<stop offset='0%' stop-color='white' />"+;
    "<stop offset='75%' stop-color='blue' />"+;
    "<stop offset='100%' stop-color='#222244' />"+;
    "</radialGradient>"+;
    "<radialGradient id='redSphere' gradientUnits='userSpaceOnUse' cx='0' cy='0' r='100' fx='-50' fy='-50'>"+;
    "<stop offset='0%' stop-color='white' />"+;
    "<stop offset='75%' stop-color='pink' />"+;
    "<stop offset='100%' stop-color='#442222' />"+;
    "</radialGradient>"+;
    "<radialGradient id='greenSphere' gradientUnits='userSpaceOnUse' cx='0' cy='0' r='100' fx='-50' fy='-50'>"+;
    "<stop offset='0%' stop-color='white' />"+;
    "<stop offset='75%' stop-color='green' />"+;
    "<stop offset='100%' stop-color='#113311' />"+;
    "</radialGradient>"+;
    "<radialGradient id='yellowSphere' gradientUnits='userSpaceOnUse' cx='0' cy='0' r='100' fx='-50' fy='-50'>"+;
    "<stop offset='0%' stop-color='white' />"+;
    "<stop offset='75%' stop-color='yellow' />"+;
    "<stop offset='100%' stop-color='#444422' />"+;
    "</radialGradient>"+;
    "<radialGradient id='shadowGrad' gradientUnits='userSpaceOnUse' cx='0' cy='0' r='100' fx='-50' fy='50'>"+;
    "<stop offset='0%' stop-color='black' stop-opacity='1.0' />"+;
    "<stop offset='100%' stop-color='white' stop-opacity='0.0' />"+;
    "</radialGradient>"+;
    "<!-- Define a shadow for each sphere. -->"+;
    "<circle id='shadow' fill='url(#shadowGrad)' cx='0' cy='0' r='100' />"+;
    "</defs>"+;
    "<g fill='#ffee99' stroke='none' >"+;
    "<rect x='0' y='0' width='400' height='400' />"+;
    "</g>"+;
    "<g fill='white' stroke='none' >"+;
    "<rect x='0' y='175' width='400' height='225' />"+;
    "</g>"+;
    "<g transform='translate(200,290) scale(2.0,1.0) rotate(45)' >"+;
    "<rect fill='#a6ce39' x='-69' y='-69' width='138' height='138' />"+;
    "<circle fill='black' cx='0' cy='0' r='50' />"+;
    "<circle fill='#a6ce39' cx='0' cy='0' r='33' />"+;
    "<path fill='black' d='M 37,50 L 50,37 L 12,-1 L 22,-11 L 10,-24 L -24,10 L -11,22 L -1,12 Z' />"+;
    "<animateTransform attributeName='transform'  type='rotate' values='0; 360' begin='0s' dur='10s' fill='freeze' />"+;
    "</g>"+;
    "<g transform='translate(200,175)'>"+;
    "<use xlink:href='#shadow' transform='translate(25,55) scale(1.0,0.5)' />"+;
    "<circle fill='url(#blueSphere)' cx='0' cy='0' r='100' />"+;
    "</g>"+;
    "<g transform='translate(315,240)'>"+;
    "<g transform='scale(0.5,0.5)'>"+;
    "<use xlink:href='#shadow' transform='translate(25,55) scale(1.0,0.5)' />"+;
    "<circle fill='url(#redSphere)' cx='0' cy='0' r='100' />"+;
    "</g>"+;
    "</g>"+;
    "<g transform='translate(80,275)'>"+;
    "<g transform='scale(0.65,0.65)'>"+;
    "<use xlink:href='#shadow' transform='translate(25,55) scale(1.0,0.5)' />"+;
    "<circle fill='url(#greenSphere)' cx='0' cy='0' r='100' />"+;
    "</g>"+;
    "</g>"+;
    "<g transform='translate(255,325)'>"+;
    "<g transform='scale(0.3,0.3)'>"+;
    "<use xlink:href='#shadow' transform='translate(25,55) scale(1.0,0.5)' />"+;
    "<circle fill='url(#yellowSphere)' cx='0' cy='0' r='100' />"+;
    "</g>"+;
    "</g>"+;
    "</svg>"
    
return textSVG