Page tree
Skip to end of metadata
Go to start of metadata

Cria um objeto do tipo paleta de cores.

Hierarquia

Construtores

Métodos

Exemplos

Exemplo 1
  #include "TOTVS.CH"
  
  User Function xCorTrig
    Local nColorIni := CLR_HRED
    
    DEFINE DIALOG oDlg TITLE "Exemplo TColorTriangle" FROM 180,180 TO 650,800 PIXEL        
    
    // Usando Create
    oTColorTriangle1 := tColorTriangle():Create( oDlg  )
    oTColorTriangle1:SetColorIni( nColorIni )
    
    // Usando New
    oTColorTriangle2 := tColorTriangle():New(100,01,oDlg,200,80)
  
    oTColorTriangle2:SetColorIni( nColorIni )
    oTColorTriangle2:SetColor(CLR_BLUE)
    oTColorTriangle2:SetSizeTriangle( 200, 80 )
    
    ACTIVATE DIALOG oDlg CENTERED
  Return

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • No labels