Pessoal,
Estou precisando do usar o RmChart onde posso baixar o instalador?

Moderador: Moderadores
PROCEDURE Modulo2
LOCAL nCont, oControl
SetMode( 25, 80 )
SetColor("W/B")
CLS
FOR nCont = 1 TO 10
oControl := TstRetangle():New()
oControl:Create( , , { -nCont, -nCont * 5 }, { -23 + nCont, -3 } )
oControl:SetColorFG( WIN_RGB( nCont * 10, nCont * 10, nCont * 10 ) )
oControl:SetColorBG( WIN_RGB( nCont * 10, nCont * 10, nCont * 10 ) )
NEXT
Inkey(0)
PROCEDURE Modulo2
LOCAL nCont, oControl, nNumCor := 1, aCores := { { 204, 0, 0 }, { 196, 160, 0 }, { 78, 154, 6 }, { 211, 215, 207 }, { 52, 101, 164 }, { 117, 80, 123 } }
SetMode( 25, 80 )
SetColor("W/B")
CLS
FOR nCont = 1 TO 10
oControl := TstRetangle():New()
oControl:Create( , , { -nCont, -nCont * 5 }, { -23 + nCont, -3 } )
oControl:SendMessage( HB_GTE_CTLCOLOR, 0, 0, 0 )
oControl:SetColorFG( WIN_RGB( aCores[ nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
oControl:SetColorBG( WIN_RGB( aCores[ nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
nNumCor += 1
IF nNumCor > Len( aCores )
nNumCor := 1
ENDIF
NEXT
Inkey(0)
CREATE CLASS TstRetangle INHERIT TstAny
VAR ClassName INIT "STATIC"
VAR Style INIT WIN_WS_CHILD + WIN_WS_GROUP
ENDCLASS
PROCEDURE Modulo2
LOCAL nCont, oControl, nNumCor := 1, aCores := { { 204, 0, 0 }, { 196, 160, 0 }, { 78, 154, 6 }, { 211, 215, 207 }, { 52, 101, 164 }, { 117, 80, 123 } }
SetMode( 25, 80 )
SetColor("W/B")
CLS
FOR nCont = 1 TO 500
oControl := TstRetangle():New()
oControl:Create( , , { -nCont/20, nCont * 5 }, { -23+(nCont/20), 4 } )
oControl:SendMessage( HB_GTE_CTLCOLOR, 0, 0, 0 )
oControl:SetColorFG( WIN_RGB( aCores[ nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
oControl:SetColorBG( WIN_RGB( aCores[ nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
nNumCor += 1
IF nNumCor > Len( aCores )
nNumCor := 1
ENDIF
NEXT
Inkey(0)
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes