Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
RGB Color Table
Message
De
05/05/2011 04:47:11
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01509372
Message ID:
01509581
Vues:
43
Thanks Luis. Good enough for me.


>>Hi All,
>>
>>Is there a formula / function that, given a particular row and col coordinate, I can use to return the RGB color values as they are displayed in the color picker in VFP going from left to right and then top to bottom?
>
>
>CLEAR
>lnStep = 51
>_SCREEN.DRAWSTYLE = 0
>_SCREEN.FILLSTYLE = 0
>lnX = 0
>lnY = 0
>FOR lnR = 0 TO 255 STEP lnStep
>  lnX = lnX + 16
>  lnY = 0
>  FOR lnG = 0 TO 255 STEP lnStep
>    FOR lnB = 0 TO 255 STEP lnStep
>      lnY = lnY + 16
>      _SCREEN.FILLCOLOR = RGB(lnR,lnG,lnB)
>      _SCREEN.BOX(lnX,lnY,lnX+16,lnY+16)
>    ENDFOR
>  ENDFOR
>ENDFOR
>
In the End, we will remember not the words of our enemies, but the silence of our friends - Martin Luther King, Jr.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform