Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Application Background
Message
De
12/04/2001 13:14:46
Chuck Tripi
University of Wisconsin - Milwaukee
Milwaukee, Wisconsin, États-Unis
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00494910
Message ID:
00494936
Vues:
15
I like that one! Wow, some wisdom :-)

Chuck

>
>lnwidth  = <b>SYSMETRIC</b>(1)
>lnHeight = <b>SYSMETRIC</b>(2)
>MyPicFor800x600 = 'some bmp 800 x 600.bmp'
>MyPicFor1024x768 = 'some bmp 1024 x 768.bmp'
>
><b>DO CASE</b>
>	<b>CASE</b> lnWidth <= 800 <b>AND</b> lnHeight <= 600
>		<b>_SCREEN.PICTURE</b> = MyPicFor800x600
>	<b>CASE</b> lnWidth = 1024 <b>AND</b> lnHeight  = 768
>		<b>_SCREEN.PICTURE</b> = MyPicFor1024x768
>        <b>OTHERWISE</b>
>                <b>_SCREEN.BACKGROUND</b> = <RGB>(128,128,128) && that grey color
><b>ENDCASE</b>
>
Today is tomorrow's yesterday.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform