TSVG

TSrvObject -> TControl -> TSVG

SVG é a abreviatura de Scalable Vectorial Graphics que pode ser traduzido para Gráficos Vetoriais Escaláveis. Trata-se de uma linguagem XML para descrever de forma vetorial desenhos e gráficos bidimensionais de forma estática, dinâmica ou animada. Umas das principais características dos gráficos vetoriais, é que não perdem qualidade ao serem ampliados.

#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 CENTEREDReturn NILStatic Function retSVG()  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