Install PostScript Fonts: Difference between revisions
From NSIS Wiki
Jump to navigationJump to search
No edit summary |
No edit summary |
||
Line 7: | Line 7: | ||
== Function == | == Function == | ||
<highlight-nsis>; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold | <highlight-nsis>; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold" | ||
!macro InstallType1 FontPath FontName | !macro InstallType1 FontPath FontName | ||
Push $0 | Push $0 | ||
Push $R0 | Push $R0 | ||
Line 14: | Line 14: | ||
Push $R2 | Push $R2 | ||
!define Index 'Line${__LINE__}' | |||
${GetBaseName} ${FontPath} $0 | |||
!define FontBase $0 | |||
SetOutPath $FONTS | SetOutPath $FONTS | ||
IfFileExists "$FONTS\${FontBase}.pfm" ${Index} | IfFileExists "$FONTS\${FontBase}.pfm" ${Index} "${Index}-New" | ||
"${Index}-New:" | |||
File '${FontPath}' | |||
goto ${Index} | |||
${Index}: | ${Index}: | ||
Line 45: | Line 51: | ||
!undef Index | !undef Index | ||
!undef FontBase | |||
Pop $R2 | Pop $R2 |
Revision as of 21:20, 26 July 2008
Author: Jan (talk, contrib) |
Note
This script is based on the Advanced Font Installation script, which only works TrueType and bitmapped fonts. It's still a very early version, which requires two steps to install a font. Within the next days, I plan to merge those two functions.
Description
These functions can be used to determine the name of a PostScript/Type 1 font and install it properly. The name-detection is maybe a bit clumsy, as it depends on the availability of an .inf file coming along the with font.
Function
; !insertmacro InstallType1 "C:\PathTo\MyFontB.pfm" "My Font Bold" !macro InstallType1 FontPath FontName Push $0 Push $R0 Push $R1 Push $R2 !define Index 'Line${__LINE__}' ${GetBaseName} ${FontPath} $0 !define FontBase $0 SetOutPath $FONTS IfFileExists "$FONTS\${FontBase}.pfm" ${Index} "${Index}-New" "${Index}-New:" File '${FontPath}' goto ${Index} ${Index}: ClearErrors ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" "CurrentVersion" IfErrors "${Index}-Error" "${Index}-GO" "${Index}-Error:" MessageBox MB_OK|MB_ICONEXCLAMATION "PostScript fonts can only be installed in Windows 2000 or later!" goto "${Index}-End" "${Index}-GO:" ClearErrors # Get Type1-Name to be added here! IfErrors 0 "${Index}-Add" MessageBox MB_OK "Error: ${FontBase}.pfm" Quit "${Index}-Add:" ClearErrors ${registry::Write} "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Type 1 Installer\Type 1 Fonts" "${FontName}" "T ${FontBase}.pfm ${FontBase}.pfb" "REG_MULTI_SZ" $R0 System::Call "GDI32::AddFontResourceA(t) i ('${FontBase}.pfm|${FontBase}.pfb') .s" goto "${Index}-End" "${Index}-End:" !undef Index !undef FontBase Pop $R2 Pop $R1 Pop $R0 Pop $0 !macroend
Changelog
[2008-07-24] first public release
Additional Resources
-t1tools is a collection of programs and batch files useful for
handling type 1 fonts on MSDOS and Unix systems.
-PostScript fonts at Wikipedia