Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to create gradient background?
Message
De
27/04/2006 02:17:55
 
 
À
27/04/2006 00:34:22
Beng Buhat
PolyOptimum, Inc.
Sydney, Australie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
01116971
Message ID:
01116990
Vues:
19
>How can I create a background with a gradient and shading style? (Similar to what you can do in Powerpoint slides)
>
>thanks!
>
>Marietta

To get a gradient background, put this code in yourform.resize:
LOCAL lnRow
ThisForm.ScaleMode = 3
ThisForm.DrawWidth = 1
FOR lnRow = 0 TO ThisForm.width 
   ThisForm.ForeColor = RGB(0,0,255-255*lnRow/ThisForm.width) && Change the color values to your preference
   ThisForm.Line(lnRow, 0,lnRow,ThisForm.height)
NEXT lnRow
Yourform.init:
this.resize()
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform