TColorTriangle

  #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