Visual FoxPro fixed fonts

[BobMorris]

An elderly client needs to migrate his ancient FoxDOS app to VFP. He wants everything to look and act exactly as in the FoxDOS app. No new anything!

The screens are done with @ SAY's, not with Forms.

I'd like to default all the @ SAYs, etc. to FIXEDSYS font so everything lines up nicely, as in the DOS app.

Is there a systemwide setting for this? Can't find much about this in the docs.

Any help apprecviated. Bob Morris

http://www.bomoco.com

 

[ramani]

Hi Bob,
YOu can subclass all the base classes and set thier font property suitably. Remeber to use all these subclassed classes as your class.

Extra Tip.. For example.. in the VFP menu.. click on Tools->Options->FieldMapings-> and select your subclassed base classes for the various controls.
The idea is that as you create your form, these classes are used without you even noticing it.

ramani
(Subramanian.G),FoxAcc, ramani_g@yahoo.com

 

[darrellblackhawk]

It depends on whether the @says are directed
to the desktop or defined windows.

You can control the font and size in two to three ways.

1- In desktop:
Just change the _screen objects font, size, style to
that which is desired.
Syntax:
_screen.fontname = "Courier New"
_screen.fontsize = 12 && I like 12 for old @ says

2- In defined windows:
You'll have to locate all window definitions and
add the font and size clause:
(You'll probably have to increase any defined
window sizes to make the app look better)

Example:

define window test from 0,10 to 20,50 font "TimesRoman",12
activate window test
@ 2,10 say "Hello"
susp
release window test

3- And the most work of all
Locate every @say in every prg and add a font clause

Darrell
'We all must do the hard bits so when we get bit we know where to bite'

 

[darrellblackhawk]

It depends on whether the @says are directed
to the desktop or defined windows.

You can control the font and size in two to three ways.

1- In desktop:
Just change the _screen objects font, size, style to
that which is desired.
Syntax:
_screen.fontname = "Courier New"
_screen.fontsize = 12 && I like 12 for old @ says

2- In defined windows:
You'll have to locate all window definitions and
add the font and size clause:
(You'll probably have to increase any defined
window sizes to make the app look better)

Example:

define window test from 0,10 to 20,50 font "TimesRoman",12
activate window test
@ 2,10 say "Hello"
susp
release window test

3- And the most work of all
Locate every @say in every prg and add a font clause

Darrell

P.S. You'll probably also need to add some color clauses as
VFP's default will be black on white. 'We all must do the hard bits so when we get bit we know where to bite'