Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Better way to handle multiple variable definitions?
Message
From
21/04/2007 08:43:45
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Better way to handle multiple variable definitions?
Environment versions
Visual FoxPro:
VFP 8 SP1
Miscellaneous
Thread ID:
01218589
Message ID:
01218589
Views:
67
Any better way to do this? I can't get my head around if there is or not. After these are defined, they are set back to the old values on exit of the program. Thanks!
m.Old_con_fg_r = m.con_fg_r
m.Old_con_fg_g = m.con_fg_g
m.Old_con_fg_b = m.con_fg_b
m.Old_con_bg_r = m.con_bg_r
m.Old_con_bg_g = m.con_bg_g
m.Old_con_bg_b = m.con_bg_b

m.Old_dis_fg_r = m.dis_fg_r
m.Old_dis_fg_g = m.dis_fg_g
m.Old_dis_fg_b = m.dis_fg_b
m.Old_dis_bg_r = m.dis_bg_r
m.Old_dis_bg_g = m.dis_bg_g
m.Old_dis_bg_b = m.dis_bg_b

m.Old_ne_fg_r = m.ne_fg_r
m.Old_ne_fg_g = m.ne_fg_g
m.Old_ne_fg_b = m.ne_fg_b
m.Old_ne_bg_r = m.ne_bg_r
m.Old_ne_bg_g = m.ne_bg_g
m.Old_ne_bg_b = m.ne_bg_b

m.Old_clo_fg_r = m.clo_fg_r
m.Old_clo_fg_g = m.clo_fg_g
m.Old_clo_fg_b = m.clo_fg_b
m.Old_clo_bg_r = m.clo_bg_r
m.Old_clo_bg_g = m.clo_bg_g
m.Old_clo_bg_b = m.clo_bg_b

m.Old_war_fg_r = m.war_fg_r
m.Old_war_fg_g = m.war_fg_g
m.Old_war_fg_b = m.war_fg_b
m.Old_war_bg_r = m.war_bg_r
m.Old_war_bg_g = m.war_bg_g
m.Old_war_bg_b = m.war_bg_b

m.Old_get_fg_r = m.get_fg_r
m.Old_get_fg_g = m.get_fg_g
m.Old_get_fg_b = m.get_fg_b
m.Old_get_bg_r = m.get_bg_r
m.Old_get_bg_g = m.get_bg_g
m.Old_get_bg_b = m.get_bg_b

m.con_fg_r = 0
m.con_fg_g = 0
m.con_fg_b = 96
m.con_bg_r = 192
m.con_bg_g = 192
m.con_bg_b = 192

m.dis_fg_r = 128
m.dis_fg_g = 128
m.dis_fg_b = 128
m.dis_bg_r = 192
m.dis_bg_g = 192
m.dis_bg_b = 192

m.ne_fg_r = 192
m.ne_fg_g = 0
m.ne_fg_b = 0
m.ne_bg_r = 192
m.ne_bg_g = 192
m.ne_bg_b = 192

m.clo_fg_r = 128
m.clo_fg_g = 0
m.clo_fg_b = 128
m.clo_bg_r = 192
m.clo_bg_g = 192
m.clo_bg_b = 192

m.war_fg_r = 255
m.war_fg_g = 255
m.war_fg_b = 0
m.war_bg_r = 255
m.war_bg_g = 0
m.war_bg_b = 0

m.get_fg_r = 0
m.get_fg_g = 0
m.get_fg_b = 128
m.get_bg_r = 0
m.get_bg_g = 255
m.get_bg_b = 255
Next
Reply
Map
View

Click here to load this message in the networking platform