HotPDF Vertical Text Sample

This example demonstrates how the HotPDF component generates Unicode vertical text.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, HPDFDoc;

type
TForm1 = class(TForm)
Button1: TButton;
HotPDF: THotPDF;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.DFM}
// Delphi 7 cannot display Unicode characters correctly.Continue Reading …

HotPDF Text Out Sample

HotPDF component text out sample generates font and character set demonstration, as shown in the image above.

program TextOut;
{$APPTYPE CONSOLE}
uses
SysUtils, Graphics, Classes, Windows, HPDFDoc;

var
HotPDF: THotPDF;
OutlineRoot: THPDFDocOutlineObject;
CurrnetOutline: THPDFDocOutlineObject;

procedure ShowFontGroup ( FontGroup: AnsiString; Position: Integer );
begin
HotPDF.CurrentPage.SetFont( FontGroup, [], 12);
HotPDF.CurrentPage.TextOut( Position, 60, 0, FontGroup );Continue Reading …

HotPDF Hello World Sample

Hello world from Delphi HotPDF Component!

program HelloWorld;
{$APPTYPE CONSOLE}
uses
Windows, Messages, SysUtils, Vcl.Graphics, Classes, HPDFDoc;
var
HotPDF: THotPDF;
Titles: TStrings;
Title: String;
Window: HWND;
begin
// Close destination PDF file if opened in Adobe or Fixit PDF readers & editors.
Titles := TStringList.Create;
Titles.CommaText := ‘”HelloWorld.pdf”, “HelloWorld.pdf – Foxit Reader”,Continue Reading …