Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
GDI+ in VFP8
Message
De
29/11/2006 02:36:28
 
 
À
28/11/2006 22:23:06
Scott Butts
Ims Specialty Services
Twin Falls, Idaho, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Photos et traitement d'images
Titre:
Divers
Thread ID:
01173115
Message ID:
01173143
Vues:
14
>Is it possible to do any GDI stuff in VFP8? I just want to do a simple gradient fill to help in the visual appearance on a few forms. All the examples I have found are with VFP9.
>
>Scott

No need to use GDI! 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