paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ by default, also attempt to install the fonts that come with TP7

Browse Source
This commit is contained in:
Jonas Maebe 1999-12-29 17:26:00 +00:00
parent a4fc0eba52
commit c2020897fd
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/graph/graph.pp
View File

@ -3025,6 +3025,12 @@ begin
InstallUserFont('LITT');
InstallUserFont('SANS');
InstallUserFont('GOTH');
InstallUserFont('SCRI');
InstallUserFont('SIMP');
InstallUserFont('TSCR');
InstallUserFont('LCOM');
InstallUserFont('EURO');
InstallUserFont('BOLD');
{ This installs an exit procedure which cleans up the mode list...}
ExitSave := ExitProc;
ExitProc := @GraphExitProc;
@ -3042,7 +3048,10 @@ SetGraphBufSize
{
$Log$
Revision 1.51 1999-12-26 10:33:06 jonas
Revision 1.52 1999-12-29 17:26:00 jonas
+ by default, also attempt to install the fonts that come with TP7
Revision 1.51 1999/12/26 10:33:06 jonas
* XAspect and YAspect are now words instead of smallints, they
overflowed for resolutions > 640x480 otherwise
* the number of pixels required for an ellipse in internalellipsedef