TPaintPanel

TPaintPanel(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ oWnd], [ lCentered], [ lRight] ) --> oObjeto

()
• Retorna o objeto criado.

oPanel := TPaintPanel():new(0,0,1008,700,oDlg)

TPaintPanel(): AddShape ( < ctextParser> ) -->

Exemplo de criação do Shape

addShape("id=1;type=1;left=4;top=4;width=1000;height=340;gradient=1,0,0,0,0,0.0,#D0CEBC;"+;"pen-width=1;pen-color=#ffffff;can-move=0;can-mark=0;is-container=1;") 

Detalhes da criação dos Subpainéis(containers) e Shapes.

Entendendo o Gradient e Gradient-hover

O Gradient define a cor de fundo do shape. São dois os tipos de Gradiente, sendo o 1=Linear, que pode ser utilizado para qualquer tipo de objeto, e 2=Radial, que deve ser utilizado apenas em objetos circulares como o Elipse(Type=3) e o Arc(Type=4).

Sintaxe:

gradient=[type],[left-color],[top-color],[right-color],[bottom-color],[percent-color01],[color01],[percent-color02],[color02],[percent-color03],[color03]

DEFINE DIALOG oDlg TITLE "Exemplo - TPaintPanel" FROM 180,180 TO 550,700 PIXEL
    
// Cria o objeto principal
oPanel := TPaintPanel():new(0,0,300,200,oDlg)
    
// 1 - Linear vertical com uma Cor
oPanel:addShape("id=1;type=1;left=10;top=10;width=100;height=40;"+;
                "gradient=1,0,0,0,0,0.0,#FF0000;"+;
                "pen-width=1;pen-color=#000000;")
// 2 - Linear vertical com duas cores
oPanel:addShape("id=2;type=1;left=10;top=60;width=100;height=40;"+;
                "gradient=1,0,0,0,40,0.0,#FF0000,1.0,#000000;"+;
                "pen-width=1;pen-color=#000000;")
// 3 - Linear vertical com três Cores
oPanel:addShape("id=3;type=1;left=10;top=110;width=100;height=40;"+;
                "gradient=1,0,0,0,40,0.0,#FF0000,0.5,#00FF00,1.0,#000000;"+;
                "pen-width=1;pen-color=#000000;")

// 4 - Linear horizontal com duas cores
oPanel:addShape("id=4;type=1;left=130;top=60;width=100;height=40;"+;
                "gradient=1,0,0,100,0,0.0,#FF0000,1.0,#000000;"+;
                "pen-width=1;pen-color=#000000;")
// 5 - Linear horizontal com três cores
oPanel:addShape("id=5;type=1;left=130;top=110;width=100;height=40;"+;
                "gradient=1,0,0,100,0,0.0,#FF0000,0.5,#00FF00,1.0,#000000;"+;
                "pen-width=1;pen-color=#000000;")
  
// 6 - Gradiente com uma cor
oPanel:addShape("id=6;type=3;left=250;top=10;width=100;height=100;"+;
                "gradient=1,0,0,0,0,0.0,#FF0000;"+;
                "pen-width=1;pen-color=#000000;")

// 7 - Gradiente com duas cores
oPanel:addShape("id=7;type=3;left=250;top=120;width=100;height=100;"+;
                "gradient=2,050,050,070,-1,0.2,#ff0000,1.0,#000000;"+;
                "pen-width=1;pen-color=#000000;")

// 8 - Gradiente com três cores
//                "gradient=2,050,050,070,-1,0.2,#ffffff,0.8,#67FF67,1.0,#000000;"+;
oPanel:addShape("id=8;type=3;left=360;top=120;width=100;height=100;"+;
                "gradient=2,050,050,070,-1,0.2,#FFFBBC,0.5,#FF0000,1.0,#00FF00;"+;
                "pen-width=1;pen-color=#000000;")

ACTIVATE DIALOG oDlg CENTERED 

Visualizar
 

#include "TOTVS.CH"User Function TPaintPanel()DEFINE DIALOG oDlg TITLE "Exemplo - TPaintPanel" FROM 180,180 TO 550,700 PIXEL    // Cria o objeto principaloPanel := TPaintPanel():new(0,0,300,200,oDlg)    //--------------------------------------------------------------------------------------------------// Define os blocos de codigo com eventos de Mouse//--------------------------------------------------------------------------------------------------// EVENTO DE RELEASE(SOLTAR) BOTÃO ESQUERDO DO MOUSE APÓS ARRASTO DO SHAPEoPanel:blClicked := {|x,y| alert("Release(Soltar)botão esquerdo - x:"+; 		                                 strZero(x,5)+' - y:'+strZero(y,5)+; 		                                 " - ShapeAtu:"+strZero(oPanel:ShapeAtu,3)+; 		                                 " - FrameAtu:"+strZero(oPanel:FrameAtu,3) ) } // EVENTO DE CLIQUE COM BOTÃO DIREITO DO MOUSEoPanel:brClicked := {|x,y| alert("Clique com botão direito - x:"+strZero(x,5)+' - y:'+strZero(y,5)+; 		                                 " - ShapeAtu:"+strZero(oPanel:ShapeAtu,3)+; 		                                 " - FrameAtu:"+strZero(oPanel:FrameAtu,3) ) } // EVENTO DE CLICAR DUAS VEZES COM BOTÃO ESQUERDO DO MOUSEoPanel:blDblClick := {|x,y| alert("Clique duas vezes com botão esquerdo- x:"+strZero(x,5)+;                                     " - y:"+strZero(y,5)+; 		                                 " - ShapeAtu:"+strZero(oPanel:ShapeAtu,3)+; 		                                 " - FrameAtu:"+strZero(oPanel:FrameAtu,3) ) } //--------------------------------------------------------------------------------------------------    //--------------------------------------------------------------------------------------------------// Adiciona Container do tipo Retângulo - Type=1//--------------------------------------------------------------------------------------------------oPanel:addShape("id=0;type=1;left=0;top=0;width=270;height=400;"+;                "gradient=1,0,0,0,0,0.0,#D0CEBC;pen-width=1;"+;                "pen-color=#ffffff;can-move=0;can-mark=0;is-container=1;")oPanel:addShape("id=1;type=1;left=272;top=0;width=270;height=400;"+;                "gradient=1,0,0,0,0,0.0,#B0B7E0;pen-width=1;"+;                "pen-color=#ffffff;can-move=0;can-mark=0;is-container=1;")//--------------------------------------------------------------------------------------------------                 //--------------------------------------------------------------------------------------------------// Adiciona retângulo ovalado - Type=2//--------------------------------------------------------------------------------------------------oPanel:addShape("id=2;type=2;left=4;top=4;width=140;height=080;"+;                "gradient=1,0,0,0,0,0.0,#CCE2CB;pen-width=1;"+;                "pen-color=#ff00ff;can-move=0;can-mark=0;is-blinker=1;")//--------------------------------------------------------------------------------------------------//--------------------------------------------------------------------------------------------------// Adiciona elipse - Type=3//--------------------------------------------------------------------------------------------------oPanel:addShape("id=3;type=3;left=4;top=90;width=140;height=080;"+;                "gradient=1,0,0,0,0,0.0,#EF8F8F;pen-width=1;"+;                "pen-color=#ff00ff;can-move=0;can-mark=0;is-blinker=1;")//--------------------------------------------------------------------------------------------------//--------------------------------------------------------------------------------------------------// Adiciona gráfico Pizza - Type=4//--------------------------------------------------------------------------------------------------oPanel:addShape("id=4;type=4;start-angle=90;sweep-length=200;left=04;"+;                "top=180;width=100;height=100;gradient=2,050,050,070,-1,0.2,"+;                "#ffffff,0.8,#67FF67,1.0,#000000;gradient-hover=2,050,050,"+;                "070,-1,0.2,#ffffff,0.8,#C6FF9F,1.0,#000000;tooltip=Pizza 01;"+;                "pen-width=1;pen-color=#000000;can-move=1;can-mark=1;is-container=0;")oPanel:addShape("id=5;type=4;start-angle=290;sweep-length=120;left=04;top=180;"+;                "width=100;height=100;gradient=2,050,050,070,-1,0.2,#ffffff,0.8,"+;                "#67FF67,1.0,#000000;gradient-hover=2,050,050,070,-1,0.2,#ffffff,"+;                "0.8,#C6FF9F,1.0,#000000;tooltip=Pizza 02;pen-width=1;"+;                "pen-color=#000000;can-move=1;can-mark=1;is-container=0;is-blinker=1;")oPanel:addShape("id=6;type=4;start-angle=410;sweep-length=040;left=04;top=180;"+;                "width=100;height=100;gradient=2,050,050,070,-1,0.2,#ffffff,0.8,"+;                "#67FF67,1.0,#000000;gradient-hover=2,050,050,070,-1,0.2,#ffffff,"+;                "0.8,#C6FF9F,1.0,#000000;tooltip=Pizza 03;pen-width=1;"+;                "pen-color=#000000;can-move=1;can-mark=1;is-container=0;is-blinker=0;")//--------------------------------------------------------------------------------------------------                    //--------------------------------------------------------------------------------------------------// Adiciona Polígono - Type=5//--------------------------------------------------------------------------------------------------oPanel:addShape("id=7;type=5;polygon=280:04,310:085,280:085;gradient=1,0,0,0,0,0.0,#ff0000;"+;                "gradient-hover=1,0,0,0,0,0.0,#ffff00;tooltip=Poligono;pen-width=1;"+;                "pen-color=#000000;can-move=1;can-mark=1;is-container=0;is-blinker=01;")//--------------------------------------------------------------------------------------------------                    //--------------------------------------------------------------------------------------------------// Adiciona Linha - Type=6//--------------------------------------------------------------------------------------------------oPanel:addShape("id=8;type=6;gradient=1,0,0,0,0,0.0,#134E8D;tooltip=Linha 01;pen-width=1;"+;                "pen-color=#000000;can-move=1;can-mark=1;large=1;from-left=280;from-top=90;"+;                "to-left=400;to-top=90;")oPanel:addShape("id=9;type=6;gradient=1,0,0,0,0,0.0,#E88C23;tooltip=Linha 02;pen-width=1;"+;                "pen-color=#FF0000;can-move=1;can-mark=1;large=10;from-left=280;from-top=96;"+;                "to-left=400;to-top=96;")//--------------------------------------------------------------------------------------------------//--------------------------------------------------------------------------------------------------// Adiciona Texto - Type=7//--------------------------------------------------------------------------------------------------oPanel:addShape("id=10;type=7;pen-width=1;font=arial,14,0,0,1;left=280;top=130;width=580;"+;                "height=420;text=Teste de Texto...;gradient=0,0,0,0,0,0,#000000;")//--------------------------------------------------------------------------------------------------//--------------------------------------------------------------------------------------------------// Adiciona Imagem - Type=8//--------------------------------------------------------------------------------------------------oPanel:addShape("id=11;type=8;left=280;top=180;width=100;height=100;"+;           "image-file=c:/dir/image.png;tooltip=Figura Teste;can-move=1;is-blinker=1;")//--------------------------------------------------------------------------------------------------ACTIVATE DIALOG oDlg CENTERED Return

TPaintPanel(): ClearAll ( ) -->

Método disponível a partir da build 7.00.080806P.

oPanel:ClearAll()

TPaintPanel(): DeleteBlinker ( < nId> ) -->

Método disponível a partir da build 7.00.080806P.
 

oPanel:DeleteBlinker(4)

TPaintPanel(): DeleteItem ( < nId> ) -->

Método disponível a partir da build 7.00.080806P.

oPanel:DeleteItem(4)

TPaintPanel(): InsertBlinker ( < nId> ) -->

Método disponível a partir da build 7.00.080806P.

oPanel:InsertBlinker(4)

TPaintPanel(): SaveToPng ( < nLeft>, < nTop>, < nWidth>, < nHeight>, < cFileTarget> ) -->

oPanel:saveToPng(4,4,1000,340,"c:/diretorio/imagem.png")

TPaintPanel(): SetBlinker ( < nTimer> ) -->

• Método disponível a partir da build 7.00.080806P.
• Para informações de como incluir ou excluir itens da lista, consulte a documentação dos métodos InsertBlinker() e DeleteBlinker().
   

oPanel:SetBlinker(500)  // Meio segundo

TPaintPanel(): SetCanDeform ( < cId>, < lCanDeform> ) -->

Método disponível a partir da build 7.00.080806P.

oPanel:SetCanDeform(4,.T.)

TPaintPanel(): SetCanMove ( < cId>, < lCanMove> ) -->

Método disponível a partir da build 7.00.080806P.

oPanel:SetCanMove(4,.T.)

TPaintPanel(): SetGradient ( < nId>, < lHover>, < cGradient> ) -->

• Pode-se definir o gradient quando o shape estiver em descanço ou quando estiver com o ponteiro do mouse posicionado sobre o shape.
• Método disponível a partir da build 7.00.080806P.

oPanel:SetGradient(4,.F.,"1,0,0,0,0,0.0,#FF0000")  //Quando o ponteiro do mouse NÃO estiver sobre o shape.oPanel:SetGradient(4,.T.,"1,0,0,0,0,0.0,#FF00FF")  //Quando o ponteiro do mouse estiver sobre o shape.

TPaintPanel(): SetImageSize ( < cID>, < nWidth>, < nHeight> ) -->

oPanel:SetImageSize(1,300,600)

TPaintPanel(): SetPosition ( < nId>, < nLeft>, < nTop> ) -->

nID := 37oPanel:setPosition(nID,100,100)

TPaintPanel(): SetReleaseButton ( < IsReleaseButton> ) -->

TPaintPanel(): SetScale ( < nScale> ) -->

oPanel:SetScale(1)oPanel:SetScale(0.5)oPanel:SetScale(2.1)oPanel:SetScale(3.5)

TPaintPanel(): SetToolTip ( < nId>, < cText> ) -->

• Esta mensagem será apresentada quando o ponteiro do mouse estiver posicionado sobre o shape.
• Método disponível a partir da build 7.00.080806P.

oPanel:SetToolTip(4, "Novo Texto")

TPaintPanel(): SetTransparent ( < IsTransparent> ) -->

oPanel:SetTransparent(.T.)oPanel:saveToPng(0,0,600,600,"c:/dir/imagem.png")

TPaintPanel(): SetVisible ( [ nId], [ lIsVisible] ) -->

nID := 37oPanel:setVisible(nID, .T.) // Define visíveloPanel:setVisible(nID, .F.) // Define invisível