home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / pascal / 5302 < prev    next >
Encoding:
Text File  |  1992-09-10  |  1.4 KB  |  32 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!mcsun!sun4nl!rulway.LeidenUniv.nl!rulfc1!jeroenp
  3. From: jeroenp@rulfc1.LeidenUniv.nl (Jeroen W. Pluimers)
  4. Subject: Re: Changing the Font in a TPW window
  5. Message-ID: <1992Sep10.175234.3396@rulway.LeidenUniv.nl>
  6. Sender: root@rulway.LeidenUniv.nl (System PRIVILEGED Account)
  7. Nntp-Posting-Host: rulfc1.leidenuniv.nl
  8. Organization: Dept. FMC, Gorlaeus Labs, Leiden University, The Netherlands
  9. References: <1992Sep9.192156.20994@linus.mitre.org>
  10. Date: Thu, 10 Sep 92 17:52:34 GMT
  11. Lines: 19
  12.  
  13. In article <1992Sep9.192156.20994@linus.mitre.org> art@cyclone.MITRE.org (Arthur T. McClinton) writes:
  14. >
  15. >I have a Turbo Pascal Program that uses WinCrt to perform "traditional"
  16. >screen I/O.  I would like to use the terminal font instead of the
  17. >system font to allow use of the graphics characters.  I have spent the
  18. >last several evening reading the manuals and browsing the help files
  19.  
  20. In WINCRT.PAS, change the following line to any other font you wish:
  21.  
  22.   SaveFont := SelectObject(DC, GetStockObject(System_Fixed_Font));
  23.  
  24.  
  25. --
  26.     o _   _  _   _   _             voice: +31-2522-20908 (19:00-24:00 UTC)
  27.    / (_' |  (_) (_' | |            snail: P.S.O.
  28. __/                                       attn. Jeroen W. Pluimers
  29.                                           P.O. Box 266
  30. jeroenp@rulfc1.LeidenUniv.nl              2170 AG Sassenheim
  31. jeroen_pluimers@f256.n281.z2.fidonet.org  The Netherlands
  32.