Posted by Grant Foraker on October 21, 2015 at 11:26:32: Uploaded files: 2
Noticed in a production program that the selection of CPI18 wasn't working on a CAW32 host. Ran my test program, PINFO, and none of the
PRINT (LUN) (TR);(SelectSysFont=xx)
were working.
!-------------------------------------------------------------------------------
PRINT (LUN) (TR);(SelectSysFont=15)
Data$ = 'System Font 15 - 123456789012345'
Print (Lun) (TR);(TextOut = X1, Y1);Data$;NullByte$
GOSUB CALCLINEHEIGHT
Y1 = Y1 + (2 * LineHeight)
PRINT (LUN) (TR);(SelectSysFont=20)
Data$ = 'System Font 20 - 12345678901234567890'
Print (Lun) (TR);(TextOut = X1, Y1);Data$;NullByte$
GOSUB CALCLINEHEIGHT
Y1 = Y1 + (2 * LineHeight)
!-------------------------------------------------------------------------------
The fonts are defined in a COSWGLOB.INI
----------------
[Printer Fonts]
Font-0=Lucida Console, 12, 17, 0, 6
Font-1=Lucida Console, 12, 17, 0, 6
Font-2=Lucida Console, 12, 10, 0, 6
Font-10=Lucida Console, 12, 10, 0, 6
Font-11=Lucida Console, 12, 11, 0, 6
Font-12=Lucida Console, 12, 12, 0, 6
Font-13=Lucida Console, 12, 13, 0, 6
Font-14=Lucida Console, 12, 14, 0, 6
Font-15=Lucida Console, 12, 15, 0, 6
Font-16=Lucida Console, 12, 16, 0, 6
Font-17=Lucida Console, 12, 17, 0, 6
Font-18=Lucida Console, 12, 18, 0, 6
Font-19=Lucida Console, 12, 19, 0, 6
Font-20=Lucida Console, 12, 20, 0, 6
---------
The program is working fine on the CAW16 host.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.