Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Resetting default font property
Message
De
24/07/2007 01:16:18
 
 
À
23/07/2007 12:58:46
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Divers
Thread ID:
01242827
Message ID:
01243082
Vues:
26
Thanks Dragan. Good tip for next time :)


>>Hi All
>>
>>I have a class vcx which has a grid whose default column, header, and contained textbox font size is 9. I then sub-classed this grid onto various forms. I then changed the font sizes for the columns, headers, and contained tetxboxes to size 8. Now I would like to put them all back to the default size 9. How can I do that in the easiest way? Is there a vcx file hack which is easy and reasonably safe?
>
>You can have this in a prg:
>
>
>aselobj(a)
>with a(1)
>   if .class="yourgridclass"
>      for i=1 to .columncount
>         oCol=.columns[i]
>         ocol.resettodefault("fontsize")
>         for j=1 to oCol.controls
>            oCol.controls[j].resettodefault("fontsize")
>         endfor
>       endfor
>   else
>      messagebox("You running a grid builder! Select the grid first!")
>   endif
>endwith
>
>Edit anything that contains your grid, click the grid and then run this prg (written ad hoc... may need tweaking). Then save.
>
>Hacking the vcxes may work, but you may find the line saying "fontsize=8" in unexpected places. You would need to filter records carefully, and lines in the properties memo as well.
In the End, we will remember not the words of our enemies, but the silence of our friends - Martin Luther King, Jr.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform