Font troubles, need a 8x8 fixed font

[mark smit]

Go day every one!


I really need help with this one. I need convert my 8x8 fixed DOS
font into a windows GDI font resource. I know this sounds quite
silly but I have found it nearly impossible to get a font from
windows that can come close visually to the DOS one.

Basicly I want to use the DOS console font with DrawText.


Thanks!

------------------
Cheers

[Chris Boss]

Mark;

Windows 95/98 comes with a DOS look-alike Font called :
Terminal

A DOS Font will be approximately 8 x 20 pixels (in 640 x 480)
and the Terminal font can simulate this quite well.

The Terminal font also has "all" the "graphic" characters found
in the original DOS font (text mode) !

You can create the Terminal Font just like any other Windows font.



------------------

[Lance Edmonds]

One minor note about using the Terminal font... you cannot select it into a printer DC as it is a Raster font.

I include a font with the registered version of DOSPRINT (it's called "Generic DOS") that covers the DOS font set including the graphics characters... All licensed DOSPRINT customers are free to use this font with their applications that use DOSPRINT. Please note that this font is not free, and I was not the author of it, but I have permission to distribute it). Generic DOS is slightly narrower and heavier than a standard font, but seems to work well.

Another alternative is to use the "MS Linedraw" font that used to be included with early versions of MS Office... I've seen it available around the internet, but you'll need to license it to be able to distribute it.

Yet another solution is to create your own font using a font editor. A search of some of the Usenet Font groups will lead you to some sites that offer freeware editors.

I hope this helps.


------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>

[Semen Matusovski]

Mark --
What about this

   Function CreateStockFont (tpFont As Long, pHeight As Long, pWidth As Long) As Long
      Local lf As Logfont, lResult As Long
      lResult = GetStockObject(tpFont)
      GetObject lResult, SizeOf(lf), ByVal VarPtr(lf)
      lf.lfHeight = pHeight
      lf.lfWidth = pWidth
      ' lf.lfCharset = %RUSSIAN_CHARSET
      Function = CreateFontIndirect(lf)
   End Function

hFont = CreateStockFont (%OEM_FIXED_FONT, 8, 8)

------------------
E-MAIL: [email protected]

[Bob Houle]

Mark,
You might take a look at:
http://ourworld.compuserve.com/homepages/r_harvey

I belive there are some fonts available here.

--Bob

------------------

[Peter Manders]

This may not be what you're looking for but I downloaded "Andale Mono" from Mircosoft.
It's a pleasant font to program with in UltraEdit. It's small so you can get many lines on your screen.

Peter.


------------------

[Andy Anderson]

Peter,

Do you have the MS link? I'm always on the lookout for
fixed pitch (monospaced) fonts.

Andy
[email protected]

------------------

[Peter Manders]

I'm not sure if this is where I got it but it shows up here:
http://www.microsoft.com/OpenType/fontpack/default.htm

You can download andale32.exe from there.


Peter.


------------------