1

Konu: rgb() çevrimi

arkadaşlar,

vfp içinde getcolor() ile bir renk numarası elde ediyorum. bu numarayı rgb( x,x,x) şekline çeviren yöntem nedir ?

teşekkürler smile

2

Re: rgb() çevrimi

sen sorunca merak ettim Hacker's Guide  kitabından baktım
alttaki gibi oluyormuş

LPARAMETERS nRed, nGreen, nBlue

LOCAL nColor

nColor = GETCOLOR()

IF nColor<>-1  && user didn't cancel
   nBlue  = INT(nColor/(256^2))
   nColor = MOD(nColor,(256^2))
   nGreen = INT(nColor/256)
   nRed   = MOD(nColor,256)
ELSE
   STORE -1 to nBlue, nGreen, nRed
ENDIF

return


bunun dışında

xx=GETCOLOR()
If xx<>0
    _Screen.ActiveForm.BACKCOLOR=xx
Endif

yazsanda olur
_Screen.ActiveForm.BACKCOLOR=rgb(1,2,3) gibi yazsanda farketmez

kolay gelsin

3

Re: rgb() çevrimi

teşekkürler smile