mORMot Open Source

procedure TPdfWrite.AddUnicodeHexTextNoUniScribe(PW: PWideChar;
  TTF: TPdfFontTrueType; NextLine: boolean; Canvas: TPdfCanvas);
var Ansi: integer; [color=blue]TTFsav: TPdfFontTrueType; (*** in case non-WinANSI ***)[/color]
begin
  Ansi := WideCharToWinAnsi(cardinal(PW^));
[color=blue]  TTFsav := TTF; (*** preserve it for AddGlyphFromChar ***)[/color]
  if TTF<>nil then
	TTF := TTF.WinAnsiFont else // we expect the WinAnsi font in the code below
	if Ansi<0 then
	  Ansi := ord('?'); // WinAnsi only font shows ? glyph for unicode chars
  while Ansi<>0 do begin
	if Ansi>0 then begin
	  // add WinAnsi-encoded chars as such
	  if (TTF<>nil) and (Canvas.FPage.Font<>TTF) then
		Canvas.SetPDFFont(TTF,Canvas.FPage.FontSize);
	  Add('(');
	  repeat
		case Ansi of
		  40,41,92: Add('\');   // see PDF 2nd ed. p. 290
		  160: Ansi := 32; // fixed space is written as normal space
		end;
		TTF.AddUsedWinAnsiChar(AnsiChar(Ansi));
		Add(AnsiChar(Ansi));
		Inc(PW);
		Ansi := WideCharToWinAnsi(cardinal(PW^));
		if (TTF=nil) and (Ansi<0) then
		  Ansi := ord('?'); // WinAnsi only font shows ? glyph for unicode chars
	  until Ansi<=0;
	  Add(')').Add(SHOWTEXTCMD[NextLine]);
	  NextLine := false; // MoveToNextLine only once
	end;
	if Ansi=0 then
	  break;
	// here we know that PW^ is not a Win-Ansi glyph, and that TTF exists
	repeat
	  AddGlyphFromChar(PW^,Canvas,TTFsav,@NextLine); [color=blue](*** TTFsav instead of TTF ***)[/color]
	  inc(PW);
	  Ansi := WideCharToWinAnsi(cardinal(PW^));
	  if Ansi=160 then
		Ansi := 32;
	  if Ansi=32 then
		if WideCharToWinAnsi(cardinal(PW[1]))<0 then
		  continue; // we allow one space inside Unicode text
	until Ansi>=0;
	AddGlyphFlush(Canvas,TTFsav,@NextLine); [color=blue](*** TTFsav instead of TTF ***)[/color]
  end;
end;

procedure TPdfWrite.AddGlyphFromChar(Char: WideChar; Canvas: TPdfCanvas;
  TTF: TPdfFontTrueType; NextLine: PBoolean);
var aChanged: boolean;
	aTTF: TPdfFontTrueType;
	Glyph: word;
begin
  assert((TTF<>nil)[color=blue](*** and (TTF=TTF.WinAnsiFont)***)[/color]);