changes.mady.by.user admin
Gravado em 21 mai, 2012
...
Cria um objeto do tipo paleta de cores.
TSrvObject -> TControl -> TColorTriangle
TColorTriangle(): Create ( [ oWnd] ) --> oObjeto
oTColorTriangle := tColorTriangle():Create( oDlg )
TColorTriangle(): New ( [ nRow], [ nCol], [ oWnd], [ nWidth], [ nHeight] ) --> oObjeto
oTColorTriangle := tColorTriangle():New(100,01,oDlg,200,80)
TColorTriangle(): RetColor ( ) --> nRet
oTColorTriangle:RetColor() // Result: 3788455
TColorTriangle(): SetColor ( [ nColor] ) -->
oTColorTriangle:SetColor( CLR_BLUE )
TColorTriangle(): SetColorIni ( [ nColor] ) -->
oTColorTriangle:SetColorIni( CLR_HRED )
TColorTriangle(): SetSizeTriangle ( [ nWidth], [ nHeight] ) -->
nColorIni := CLR_HREDoTColorTriangle := tColorTriangle():Create( oDlg )oTColorTriangle:SetColorIni( nColorIni )oTColorTriangle:SetSizeTriangle( 300, 300 )
#include "TOTVS.CH"User Function TColorTriangle() DEFINE DIALOG oDlg TITLE "Exemplo TColorTriangle" FROM 180,180 TO 550,700 PIXEL // Usando Create nColorIni := CLR_HRED oTColorTriangle1 := tColorTriangle():Create( oDlg ) oTColorTriangle1:SetColorIni( nColorIni ) // Usando New oTColorTriangle2 := tColorTriangle():New(100,01,oDlg,200,80) oTColorTriangle2:SetColorIni( nColorIni ) ACTIVATE DIALOG oDlg CENTERED Return