Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
DataSession
Message
From
13/07/2006 17:01:15
 
 
To
13/07/2006 16:54:41
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Miscellaneous
Thread ID:
01136027
Message ID:
01136241
Views:
9
>Sei como é! Apenas estava tentando conseguir uma solução diferente, mas sei que mais dia menos dia teria que criar um form padrão! Quanto à mudança do BaseClass não é tão dificil de ser feita! Basta apenas mudar a propriedade manipulando os scx de cada form! Nada que um bom prg não resolva!
>
Ricardo

algo como:
lcDir = getdir()
for ix = 1 to adir(aForms,addbs(m.lcminha_pasta)+"*.scx")
 use (addbs(m.lcminha_pasta)+aForms[m.ix,1])
 replace class with "myBaseForm", classloc with "< pasta da suaclasslib >" ;
   for lower(class) == "form" and empty(classloc)
 use
endfor
:)
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Reply
Map
View

Click here to load this message in the networking platform