Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Графика    >>    rusfont
   
 
 Прилинковка русских фонтов в качестве Default   Виктор Вагнер 18.06.1994

Модуль RUSFONT.PAS позволяет прилинковать к программе русский шрифт для использования в качестве шрифта Default в OutText.



1k 
 

{***********************************************************************} {* Copyright (C) by SoftWeyr , 1991 *} {* Rusfont.Pas *} {* Модуль,русифицирующий все графические режимы *} {* Version 1.0 *} {* CGA, EGA и VGA *} {* русифицируются процедуры OutText,OutTextXY *} {***********************************************************************} {Этот модуль позволяет иметь на экране русские буквы при выводе на экран процедурой OutText/OutTextXY в графических режимах CGA,EGA,VGA и при выводе на экран средствами DOS и BIOS в графических режимах CGA, независимо от русификации машины. На некоторых старых EGA не работает. Интерфейсных процедур не содержит. Его надо просто подключить в uses и все} -- Phone: 230-80-61 Victor B.Wagner E-Mail:vitus@agropc.msk.su Dokuchaev Soil Institute 7, Pyzhevsky lane, Moscow, Russia