|
p; WriteLn(Stream, ''''endobj'''');
// Add by MagicDog
Parent.XRefAdd(Stream); WriteLn(Stream, IntToStr(Index + 1 + Parent.FStartFonts) + '''' 0 obj'''');
WriteLn(Stream, ''''<<'''');
WriteLn(Stream, ''''/Type /Font'''');
WriteLn(Stream, ''''/Subtype'''');
WriteLn(Stream, ''''/CIDFontType2'''');
WriteLn(Stream, ''''/BaseFont /'''' + EncodeFontName(FontName));
WriteLn(Stream, ''''/WinCharSet 136'''');
Write(Stream, ''''/FontDescriptor '''');
WriteLn(Stream, ''''<<'''');
WriteLn(Stream, ''''/Type /FontDescriptor'''');
if Parent.FEmbedded then
WriteLn(Stream, ''''/FontFile2 '''' + IntToStr(Index + 2 + Parent.FStartFonts) + '''' 0 R'''');
WriteLn(Stream, ''''/FontName /'''' + EncodeFontName(FontName));
WriteLn(Stream, ''''/Flags 7'''');
WriteLn(Stream, ''''/FontBBox ['''' + IntToStr(pm^.otmrcFontBox.Left) + '''' '''' + IntToStr(pm^.otmrcFontBox.Bottom) + '''' '''' + IntToStr(pm^.otmrcFontBox.Right) + '''' '''' + IntToStr(pm^.otmrcFontBox.Top) + '''' ]'''');
WriteLn(Stream, ''''/Style << /Panose <010502020300000000000000> >>'''');
WriteLn(Stream, ''''/Ascent '''' + IntToStr(pm^.otmAscent));
WriteLn(Stream, ''''/Descent '''' + IntToStr(pm^.otmDescent));
WriteLn(Stream, ''''/CapHeight '''' + IntToStr(pm^.otmTextMetrics.tmHeight));
WriteLn(Stream, ''''/StemV '''' + IntToStr(50 + Round(sqr(pm^.otmTextMetrics.tmWeight / 65))));
WriteLn(Stream, ''''/ItalicAngle '''' + IntToStr(pm^.otmItalicAngle));
WriteLn(Stream, ''''>>'''');
WriteLn(Stream, ''''/CIDSystemInfo'''');
WriteLn(Stream, ''''<<'''');
WriteLn(Stream, ''''/Registry(Adobe)'''');
WriteLn(Stream, ''''/Ordering(CNS1)'''');
WriteLn(Stream, ''''/Supplement 0'''');
WriteLn(Stream, ''''>>'''');
WriteLn(Stream, ''''/DW 1000'''');
WriteLn(Stream, ''''/W [1 95 500]'''');
WriteLn(Stream, ''''>>'''');
WriteLn(Stream, ''''endobj'''');
end; // Add begin by ijia 2004.12.20
GB2312_CHARSET: {134}
begin
WriteLn(Stream, ''''/DescendantFonts ['''' + IntToStr(Index + 1 + Parent.FStartFonts) + '''' 0 R]'''');
WriteLn(Stream, ''''/Encoding /GB-EUC-H'''');
WriteLn(Stream, ''''>>'''');
WriteLn(Stream, ''''endobj''''); // Add by MagicDog
Parent.XRefAdd(Stream);
WriteLn(Stream, IntToStr(Index + 1 + Parent.FStartFonts) + '''' 0 obj'''');
WriteLn(Stream, ''''<<'''');
WriteLn(Stream, ''''/Type /Font'''');
WriteLn(Stream, ''''/Subtype'''');
WriteLn(Stream, ''''/CIDFontType2'''');
WriteLn(Stream, ''''/BaseFont /'''' + EncodeFontName(FontName));
WriteLn(Stream, ''''/WinCharSet 134''''); Write(Stream, ''''/FontDescriptor '''');
WriteLn(Stream, ''''<<'''');
WriteLn(Stream, ''''/Type /FontDescriptor'''');
if Parent.FEmbedded then
WriteLn(Stream, ''''/FontFile2 '''' + IntToStr(Index + 2 + Parent.FStartFonts) + '''' 0 R'''');
WriteLn(Stream, ''''/FontName /'''' + EncodeFontName(FontName));
WriteLn(Stream, ''''/Flags 6'''');
WriteLn(Stream, ''''/FontBBox ['''' + IntToStr(pm^.otmrcFontBox.Left) + '''' '''' + IntToStr(pm^.otmrcFontBox.Bottom) + '''' '''' + IntToStr(pm^.otmrcFontBox.Right) + '''' '''' + IntToStr(pm^.otmrcFontBox.Top) + '''' ]'''');
WriteLn(Stream, ''''/Style << /Panose <010502020400000000000000> >>'''');
WriteLn(Stream, ''''/Ascent '''' + IntToStr(pm^.otmAscent));
WriteLn(Stream, ''''/Descent '''' + IntToStr(pm^.otmDescent));
WriteLn(Stream, ''''/CapHeight '''' + IntToStr(pm^.otmTextMetrics.tmHeight));
WriteLn(Stream, ''''/StemV '''' + IntToStr(50 + Round(sqr(pm^.otmTextMetrics.tmWeight / 65))));
WriteLn(Stream, ''''/ItalicAngle '''' + IntToStr(pm^.otmItalicAngle));
WriteLn(Stream, ''''>>'''');
WriteLn(Stream, ''''/CIDSystemInfo'''');
WriteLn(Stream, ''''<<'''');
WriteLn(Stream, ''''/Registry(Adobe)'''');
WriteLn(Stream, ''''/Ordering(GB1)'''');
WriteLn(Stream, ''''/Supplement 2'''');
WriteLn(Stream, ''''>>'''');
WriteLn(Stream, ''''/DW 1000'''');
WriteLn(Stream, ''''/W [ 1 95 500 814 939 500 7712 [ 500 ] 7716 [ 500 ] ]'''');
WriteLn(Stream, ''''>>'''');
WriteLn(Stream, ''''endobj'''');
end;
// Add end end; // Add by ijia 2004.12.20
//if Charset <> CHINESEBIG5_CHARSET then
if not (Charset in [CHINESEBIG5_CHARSET, GB2312_CHARSET]) then
begin
WriteLn(Stream, ''''/FontDescriptor '''' + IntToStr(Index + 1 + Parent.FStartFonts) + '''' 0 R'''');
上一页 [1] [2] [3] [4] 下一页
[聊天工具]遭Adobe反对 Office 2007被迫放弃PDF支持 [常用软件]AdobePDF存在危急漏洞殃及IE浏览器
[常用软件]CHM转换为PDF文件好轻松 [常用软件]ABC Amber CHM Converter：CHM转换PDF
[JAVA开发]Java如何操作Word,Excel,PDF文档？ [JAVA开发]Java抽取Office、PDF的四件兵器
[电脑技术]简单小技巧教你把PDF文档看个清清楚楚 [电脑技术]编辑PDF文档得力工具Foxit PDF Editor
[Sql Server]T-SQL 存储过程创建 PDF 格式文件(报表)
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
