Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Resetting default font property
Message
From
23/07/2007 12:58:46
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
23/07/2007 11:56:25
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01242827
Message ID:
01242871
Views:
25
This message has been marked as a message which has helped to the initial question of the thread.
>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.

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform