mORMot Open Source

procedure TForm3.Button2Click(Sender: TObject);
begin
  with TPdfDocumentGDI.Create do
  try
    AddPage;
    UseUniScribe := true;
    with VCLCanvas do begin
      Font.Name := 'Courier New';
      Font.Size := 14;
      Font.Style := [fsBold,fsItalic];
      TextOut(100, 100,'áÁčČďĎéÉíÍňŇóÓřŘšŠťŤúÚůýÝžŽ');
      // all characters printed correctly
    end;
    SaveToFile('TestVcl.pdf');
  finally
    Free;
  end;

  with TPdfDocument.Create do
  try
    AddPage;
    UseUniScribe := true;
    Canvas.SetFont('Courier New',14,[fsItalic,fsBold]);
    Canvas.TextOut(100, 700,'áÁčČďĎéÉíÍňŇóÓřŘšŠťŤúÚůýÝžŽ');
    // ? only characters that exists in range 0..255 prints OK,
    // others with removed signs
    SaveToFile('TestDirect.pdf');
  finally
    Free;
  end;
end;

procedure TPdfDocument.SetOrientation(const Value: TPrinterOrientation);
var tmp: integer;
begin
  FOrientation := Value;
  if Value=poPortrait then begin
    if FDefaultPageWidth>FDefaultPageHeight then begin
      tmp:=FDefaultPageWidth;
      FDefaultPageWidth:=FDefaultPageHeight;
      FDefaultPageHeight:=tmp;
    end
  end
  else begin // landscape
    if FDefaultPageHeight>FDefaultPageWidth then begin
      tmp:=FDefaultPageWidth;
      FDefaultPageWidth:=FDefaultPageHeight;
      FDefaultPageHeight:=tmp;
    end
  end;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
  ch: char;
  PdfDocumentGDI: TPdfDocumentGDI;
begin
  PdfDocumentGDI:=TPdfDocumentGDI.Create;
  with PdfDocumentGDI do
  try
    AddPage;
    //UseUniScribe := true; {gives error during savetofile}
    with VCLCanvas do begin
      Font.Name := 'Courier New';
      Font.Size := 12;
      for i := 0 to 15 do begin
        s := '';
        for j := 0 to 31 do
          if i*32+j>=32 then begin
            ch := chr(i*32+j);
            s := s+ch;
            TextOut(10+j*20, i*50, ch);
          end;
          TextOut(10, i*50+25, s);
      end;
    end;
    SaveToFile('TestVcl.pdf');
  finally
    Free;
  end;
end;