losLab Software Development

PDF Software

HotPDF Canvas Draw

This HotPDF Component Sample draw plots with Delphi TCanvas.

<br />
program CanvasDraw;<br />
{$APPTYPE CONSOLE}<br />
uses<br />
{$IFDEF VER230} System.SysUtils, System.Classes, Vcl.Graphics, {$ELSE} SysUtils, Classes, Graphics, {$ENDIF} HPDFDoc;</p>
<p>var<br />
   I, Y: Integer;<br />
   HotPDF: THotPDF;</p>
<p>begin<br />
    HotPDF:= THotPDF.Create(nil);<br />
    try<br />
        Randomize;<br />
        HotPDF.AutoLaunch := true;<br />
        HotPDF.FileName := 'CanvasDraw.pdf';<br />
        HotPDF.BeginDoc;                                          // Create PDF file<br />
        HotPDF.Canvas.Font.Size := 14;                            // Set canvas font size<br />
        I :=20;<br />
        Y := 60;<br />
        HotPDF.Canvas.TextOut(10, 30, 'Canvas Rectangles');      //  Print text<br />
        while I <= 700 do<br />
        begin                                                   //  Draw colour<br />
            HotPDF.Canvas.Brush.Color := random($FFFFFF);         //  rectangles<br />
            HotPDF.Canvas.Rectangle(I, Y, I+90, Y + 160);<br />
            Inc(I, 30);<br />
            Inc( Y, 3 );<br />
        end;</p>
<p>        I :=20;<br />
        Y := 350;<br />
        HotPDF.Canvas.TextOut(10, 320, 'Canvas Ellipses');         // Print text<br />
        while I <= 700 do                                       //  Draw colour<br />
        begin                                                   //  ellipses<br />
            HotPDF.Canvas.Brush.Color := random($FFFFFF);<br />
            HotPDF.Canvas.Ellipse(I, Y, I+90, Y + 160);<br />
            Inc(I, 30);<br />
            Inc( Y, 3 );<br />
        end;</p>
<p>        I :=20;<br />
        Y := 680;<br />
        HotPDF.Canvas.TextOut(10, 650, 'Canvas RoundRects');      // Print text<br />
        while I <= 700 do<br />
        begin<br />
            HotPDF.Canvas.Brush.Color := random($FFFFFF);         //  Draw colour<br />
            HotPDF.Canvas.RoundRect(I, Y, I+90, Y + 160, 20, 20); //  roundrects<br />
            Inc(I, 30);<br />
            Inc( Y, 3 );<br />
        end;<br />
        HotPDF.EndDoc;                                            // Close PDF file<br />
    finally<br />
        HotPDF.Free;<br />
    end;<br />
end.

program CanvasDraw;

{$APPTYPE CONSOLE}

uses

{$IFDEF VER230} System.SysUtils, System.Classes, Vcl.Graphics, {$ELSE} SysUtils, Classes, Graphics, {$ENDIF} HPDFDoc;

var

I, Y: Integer;

HotPDF: THotPDF;

begin

HotPDF:= THotPDF.Create(nil);

try

Randomize;

HotPDF.AutoLaunch := true;

HotPDF.FileName := 'CanvasDraw.pdf';

HotPDF.BeginDoc; // Create PDF file

HotPDF.Canvas.Font.Size := 14; // Set canvas font size

I :=20;

Y := 60;

HotPDF.Canvas.TextOut(10, 30, 'Canvas Rectangles'); // Print text

while I <= 700 do

begin // Draw colour

HotPDF.Canvas.Brush.Color := random($FFFFFF); // rectangles

HotPDF.Canvas.Rectangle(I, Y, I+90, Y + 160);

Inc(I, 30);

Inc( Y, 3 );

end;

I :=20;

Y := 350;

HotPDF.Canvas.TextOut(10, 320, 'Canvas Ellipses'); // Print text

while I <= 700 do // Draw colour

begin // ellipses

HotPDF.Canvas.Brush.Color := random($FFFFFF);

HotPDF.Canvas.Ellipse(I, Y, I+90, Y + 160);

Inc(I, 30);

Inc( Y, 3 );

end;

I :=20;

Y := 680;

HotPDF.Canvas.TextOut(10, 650, 'Canvas RoundRects'); // Print text

while I <= 700 do

begin

HotPDF.Canvas.Brush.Color := random($FFFFFF); // Draw colour

HotPDF.Canvas.RoundRect(I, Y, I+90, Y + 160, 20, 20); // roundrects

Inc(I, 30);

Inc( Y, 3 );

end;

HotPDF.EndDoc; // Close PDF file

finally

HotPDF.Free;

end;

end.

losLab
February 21, 2019

PDF Software

HotPDF Table To PDF

HotPDF Component Database Table To PDF sample

<br />
program TableDemo;<br />
{$APPTYPE CONSOLE}<br />
{ Reduce EXE size by disabling as much of RTTI as possible }<br />
{$IFDEF VER210}<br />
{$WEAKLINKRTTI ON}<br />
{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}<br />
{$ENDIF}</p>
<p>uses<br />
  {$IFDEF VER230}System.Classes, System.SysUtils, Vcl.Graphics, DB, DBTables,<br />
  {$ELSE} Classes, SysUtils, Graphics, DB, DBTables,<br />
  {$ENDIF} HPDFDoc;</p>
<p>var<br />
  HotPDF: THotPDF;<br />
  PageNum, VertPos: Integer;<br />
  CustomerTable: TTable;<br />
  Back: boolean;</p>
<p>procedure PrintRow(Position: Integer; No, Company, Addr, City: AnsiString; ShowBackground: boolean);<br />
begin<br />
  if ShowBackground then<br />
  begin<br />
    HotPDF.CurrentPage.SetRGBColor($FFF3DD);<br />
    HotPDF.CurrentPage.Rectangle(50, Position, 520, 20);<br />
    HotPDF.CurrentPage.Fill;<br />
    HotPDF.CurrentPage.SetRGBColor(clBlack);<br />
  end;<br />
  HotPDF.CurrentPage.TextOut(70, Position, 0, No);<br />
  HotPDF.CurrentPage.TextOut(110, Position, 0, Company);<br />
  HotPDF.CurrentPage.TextOut(300, Position, 0, Addr);<br />
  HotPDF.CurrentPage.TextOut(480, Position, 0, City);<br />
end;</p>
<p>procedure PreparePage;<br />
begin<br />
  HotPDF.CurrentPage.SetFont('Arial', [fsItalic], 10);<br />
  HotPDF.CurrentPage.TextOut(50, VertPos, 0, 'customer.db' + '  Page' + AnsiString(IntToStr(PageNum)));<br />
  HotPDF.CurrentPage.TextOut(480, VertPos, 0, AnsiString(DateTimeToStr(Now)));<br />
  HotPDF.CurrentPage.MoveTo(50, VertPos + 15);<br />
  HotPDF.CurrentPage.LineTo(570, VertPos + 15);<br />
  HotPDF.CurrentPage.MoveTo(50, VertPos + 45);<br />
  HotPDF.CurrentPage.LineTo(570, VertPos + 45);<br />
  HotPDF.CurrentPage.Stroke;<br />
  HotPDF.CurrentPage.SetFont('Times New Roman', [fsItalic, fsBold], 12);<br />
  HotPDF.CurrentPage.SetRGBFillColor(clNavy);<br />
  PrintRow(VertPos + 25, 'No', 'Company', 'Addr', 'City', false);<br />
  HotPDF.CurrentPage.SetRGBFillColor(clBlack);<br />
  Inc(VertPos, 20);<br />
end;</p>
<p>begin<br />
  CustomerTable := TTable.Create(nil);<br />
  try<br />
    CustomerTable.DatabaseName := 'DBDEMOS';<br />
    CustomerTable.TableName := GetCurrentDir + '\customer.db';<br />
    CustomerTable.Active := true;<br />
    CustomerTable.First;<br />
    HotPDF := THotPDF.Create(nil);<br />
    try<br />
      HotPDF.AutoLaunch := true;<br />
      HotPDF.FileName := 'TableDemo.pdf';<br />
      HotPDF.PageLayout := plOneColumn;<br />
      HotPDF.BeginDoc;<br />
      HotPDF.CurrentPage.SetFont('Arial', [fsBold], 24);<br />
      HotPDF.CurrentPage.TextOut(200, 20, 0, 'Customer report'); // Print PDF header<br />
      PageNum := 1;<br />
      VertPos := 60;<br />
      PreparePage; // Table header<br />
      Back := true;<br />
      while (not(CustomerTable.Eof)) do<br />
      begin<br />
        Back := not(Back);<br />
        if (VertPos &gt; 700) then // If end of page then<br />
        begin<br />
          HotPDF.AddPage; // Add page, draw and print<br />
          Inc(PageNum);   // table header and set<br />
          VertPos := 60;  // new print position<br />
          PreparePage;<br />
        end;<br />
        PrintRow(VertPos + 25, // print row from the current position<br />
          AnsiString(CustomerTable.FieldValues['CustNo']), AnsiString(CustomerTable.FieldValues['Company']),<br />
          AnsiString(CustomerTable.FieldValues['Addr1']), AnsiString(CustomerTable.FieldValues['City']), Back);<br />
        Inc(VertPos, 20);<br />
        CustomerTable.Next;<br />
      end;<br />
      HotPDF.EndDoc;<br />
    finally<br />
      HotPDF.Free;<br />
    end;<br />
  finally<br />
    CustomerTable.Free;<br />
  end;</p>
<p>end.

program TableDemo;

{$APPTYPE CONSOLE}

{ Reduce EXE size by disabling as much of RTTI as possible }

{$IFDEF VER210}

{$WEAKLINKRTTI ON}

{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}

{$ENDIF}

uses

{$IFDEF VER230}System.Classes, System.SysUtils, Vcl.Graphics, DB, DBTables,

{$ELSE} Classes, SysUtils, Graphics, DB, DBTables,

{$ENDIF} HPDFDoc;

var

HotPDF: THotPDF;

PageNum, VertPos: Integer;

CustomerTable: TTable;

Back: boolean;

procedure PrintRow(Position: Integer; No, Company, Addr, City: AnsiString; ShowBackground: boolean);

begin

if ShowBackground then

begin

HotPDF.CurrentPage.SetRGBColor($FFF3DD);

HotPDF.CurrentPage.Rectangle(50, Position, 520, 20);

HotPDF.CurrentPage.Fill;

HotPDF.CurrentPage.SetRGBColor(clBlack);

end;

HotPDF.CurrentPage.TextOut(70, Position, 0, No);

HotPDF.CurrentPage.TextOut(110, Position, 0, Company);

HotPDF.CurrentPage.TextOut(300, Position, 0, Addr);

HotPDF.CurrentPage.TextOut(480, Position, 0, City);

end;

procedure PreparePage;

begin

HotPDF.CurrentPage.SetFont('Arial', [fsItalic], 10);

HotPDF.CurrentPage.TextOut(50, VertPos, 0, 'customer.db' + ' Page' + AnsiString(IntToStr(PageNum)));

HotPDF.CurrentPage.TextOut(480, VertPos, 0, AnsiString(DateTimeToStr(Now)));

HotPDF.CurrentPage.MoveTo(50, VertPos + 15);

HotPDF.CurrentPage.LineTo(570, VertPos + 15);

HotPDF.CurrentPage.MoveTo(50, VertPos + 45);

HotPDF.CurrentPage.LineTo(570, VertPos + 45);

HotPDF.CurrentPage.Stroke;

HotPDF.CurrentPage.SetFont('Times New Roman', [fsItalic, fsBold], 12);

HotPDF.CurrentPage.SetRGBFillColor(clNavy);

PrintRow(VertPos + 25, 'No', 'Company', 'Addr', 'City', false);

HotPDF.CurrentPage.SetRGBFillColor(clBlack);

Inc(VertPos, 20);

end;

begin

CustomerTable := TTable.Create(nil);

try

CustomerTable.DatabaseName := 'DBDEMOS';

CustomerTable.TableName := GetCurrentDir + '\customer.db';

CustomerTable.Active := true;

CustomerTable.First;

HotPDF := THotPDF.Create(nil);

try

HotPDF.AutoLaunch := true;

HotPDF.FileName := 'TableDemo.pdf';

HotPDF.PageLayout := plOneColumn;

HotPDF.BeginDoc;

HotPDF.CurrentPage.SetFont('Arial', [fsBold], 24);

HotPDF.CurrentPage.TextOut(200, 20, 0, 'Customer report'); // Print PDF header

PageNum := 1;

VertPos := 60;

PreparePage; // Table header

Back := true;

while (not(CustomerTable.Eof)) do

begin

Back := not(Back);

if (VertPos > 700) then // If end of page then

begin

HotPDF.AddPage; // Add page, draw and print

Inc(PageNum); // table header and set

VertPos := 60; // new print position

PreparePage;

end;

PrintRow(VertPos + 25, // print row from the current position

AnsiString(CustomerTable.FieldValues['CustNo']), AnsiString(CustomerTable.FieldValues['Company']),

AnsiString(CustomerTable.FieldValues['Addr1']), AnsiString(CustomerTable.FieldValues['City']), Back);

Inc(VertPos, 20);

CustomerTable.Next;

end;

HotPDF.EndDoc;

finally

HotPDF.Free;

end;

finally

CustomerTable.Free;

end;

end.

losLab
January 31, 2019

PDF Software

HotPDF Chart Sample

This HotPDF Component example show charts in PDF document using TeeChart.

<br />
unit ChartUnit;</p>
<p>interface</p>
<p>uses<br />
  {$IF CompilerVersion >= 16} Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, VclTee.TeeGDIPlus, VclTee.TeEngine, VclTee.Series, VclTee.TeeProcs, VclTee.Chart,<br />
  {$ELSE}Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart,<br />
  {$ENDIF} HPDFDoc;</p>
<p>type<br />
  TForm1 = class(TForm)<br />
    RadioGroup1: TRadioGroup;<br />
    DemoChart: TChart;<br />
    BarSeries1: TBarSeries;<br />
    BarSeries2: TBarSeries;<br />
    BarSeries3: TBarSeries;<br />
    Panel1: TPanel;<br />
    Label1: TLabel;<br />
    RadioGroup2: TRadioGroup;<br />
    ComboBox1: TComboBox;<br />
    Button1: TButton;<br />
    procedure RadioGroup1Click(Sender: TObject);<br />
    procedure FormCreate(Sender: TObject);<br />
    procedure RadioGroup2Click(Sender: TObject);<br />
    procedure Button1Click(Sender: TObject);<br />
  private<br />
    { Private declarations }<br />
  public<br />
    { Public declarations }<br />
  end;</p>
<p>var<br />
  Form1: TForm1;</p>
<p>implementation</p>
<p>{$R *.DFM}</p>
<p>procedure TForm1.RadioGroup1Click(Sender: TObject);<br />
begin<br />
  Case RadioGroup1.ItemIndex of<br />
    0: BarSeries1.MultiBar:=mbNone;<br />
    1: BarSeries1.MultiBar:=mbSide;<br />
    2: BarSeries1.MultiBar:=mbStacked;<br />
    3: BarSeries1.MultiBar:=mbStacked100;<br />
  end;<br />
end;</p>
<p>procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
  H: Integer;<br />
begin<br />
  DemoChart.View3D:=False;<br />
  Randomize;<br />
  {$IFDEF VER220}<br />
  with BarSeries1 do<br />
  	for H:=1 to 12 do Add( Random(100),FormatSettings.ShortMonthNames[H],clTeeColor);<br />
  with BarSeries2 do<br />
  	for H:=1 to 12 do Add( Random(100),FormatSettings.ShortMonthNames[H],clTeeColor);<br />
  with BarSeries3 do<br />
  for H:=1 to 12 do Add( Random(100),FormatSettings.ShortMonthNames[H],clTeeColor);<br />
  {$ELSE}<br />
  with BarSeries1 do<br />
  	for H:=1 to 12 do Add( Random(100),ShortMonthNames[H],clTeeColor);<br />
  with BarSeries2 do<br />
  	for H:=1 to 12 do Add( Random(100),ShortMonthNames[H],clTeeColor);<br />
  with BarSeries3 do<br />
  for H:=1 to 12 do Add( Random(100),ShortMonthNames[H],clTeeColor);<br />
  {$ENDIF}<br />
  ComboBox1.Items.Clear;<br />
  for H:=0 to DemoChart.SeriesCount-1 do<br />
    ComboBox1.Items.Add(DemoChart.Series[H].Name);<br />
  ComboBox1.ItemIndex:=0;<br />
end;</p>
<p>procedure TForm1.RadioGroup2Click(Sender: TObject);<br />
begin<br />
  With DemoChart.Series[ComboBox1.ItemIndex] as TBarSeries do<br />
    BarStyle:=TBarStyle(RadioGroup2.Itemindex);<br />
end;</p>
<p>procedure TForm1.Button1Click(Sender: TObject);<br />
var<br />
  HotPDF: THotPDF;<br />
  ChartRect: TRect;<br />
begin<br />
  HotPDF := THotPDF.Create(nil);<br />
  try<br />
    case RadioGroup1.ItemIndex of<br />
      0: HotPDF.FileName := 'PDFChart-Behind.pdf';<br />
      1: HotPDF.FileName := 'PDFChart-SideToSide.pdf';<br />
      2: HotPDF.FileName := 'PDFChart-Stacked.pdf';<br />
      3: HotPDF.FileName := 'PDFChart-Stacked100.pdf';<br />
    end;<br />
    HotPDF.BeginDoc;<br />
    ChartRect.Left := 0;<br />
    ChartRect.Right := 800;<br />
    ChartRect.Top := 0;<br />
    ChartRect.Bottom := 600;<br />
    DemoChart.PrintPartialCanvas( HotPDF.CurrentPage.Canvas, ChartRect );<br />
    HotPDF.EndDoc;<br />
  finally<br />
    HotPDF.Free;<br />
  end;<br />
end;</p>
<p>end.

100

101

102

103

104

105

106

107

unit ChartUnit;

interface

uses

{$IF CompilerVersion >= 16} Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, VclTee.TeeGDIPlus, VclTee.TeEngine, VclTee.Series, VclTee.TeeProcs, VclTee.Chart,

{$ELSE}Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart,

{$ENDIF} HPDFDoc;

type

TForm1 = class(TForm)

RadioGroup1: TRadioGroup;

DemoChart: TChart;

BarSeries1: TBarSeries;

BarSeries2: TBarSeries;

BarSeries3: TBarSeries;

Panel1: TPanel;

Label1: TLabel;

RadioGroup2: TRadioGroup;

ComboBox1: TComboBox;

Button1: TButton;

procedure RadioGroup1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

Case RadioGroup1.ItemIndex of

0: BarSeries1.MultiBar:=mbNone;

1: BarSeries1.MultiBar:=mbSide;

2: BarSeries1.MultiBar:=mbStacked;

3: BarSeries1.MultiBar:=mbStacked100;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

H: Integer;

begin

DemoChart.View3D:=False;

Randomize;

{$IFDEF VER220}

with BarSeries1 do

for H:=1 to 12 do Add( Random(100),FormatSettings.ShortMonthNames[H],clTeeColor);

with BarSeries2 do

for H:=1 to 12 do Add( Random(100),FormatSettings.ShortMonthNames[H],clTeeColor);

with BarSeries3 do

for H:=1 to 12 do Add( Random(100),FormatSettings.ShortMonthNames[H],clTeeColor);

{$ELSE}

with BarSeries1 do

for H:=1 to 12 do Add( Random(100),ShortMonthNames[H],clTeeColor);

with BarSeries2 do

for H:=1 to 12 do Add( Random(100),ShortMonthNames[H],clTeeColor);

with BarSeries3 do

for H:=1 to 12 do Add( Random(100),ShortMonthNames[H],clTeeColor);

{$ENDIF}

ComboBox1.Items.Clear;

for H:=0 to DemoChart.SeriesCount-1 do

ComboBox1.Items.Add(DemoChart.Series[H].Name);

ComboBox1.ItemIndex:=0;

end;

procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

With DemoChart.Series[ComboBox1.ItemIndex] as TBarSeries do

BarStyle:=TBarStyle(RadioGroup2.Itemindex);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

HotPDF: THotPDF;

ChartRect: TRect;

begin

HotPDF := THotPDF.Create(nil);

try

case RadioGroup1.ItemIndex of

0: HotPDF.FileName := 'PDFChart-Behind.pdf';

1: HotPDF.FileName := 'PDFChart-SideToSide.pdf';

2: HotPDF.FileName := 'PDFChart-Stacked.pdf';

3: HotPDF.FileName := 'PDFChart-Stacked100.pdf';

end;

HotPDF.BeginDoc;

ChartRect.Left := 0;

ChartRect.Right := 800;

ChartRect.Top := 0;

ChartRect.Bottom := 600;

DemoChart.PrintPartialCanvas( HotPDF.CurrentPage.Canvas, ChartRect );

HotPDF.EndDoc;

finally

HotPDF.Free;

end;

end.

losLab
January 31, 2019

PDF Programming

Comprehensive Guide to PDF Barcode Generation

Implementing 22 Barcode Types with HotPDF Delphi Component In today’s digital world, barcodes serve as the backbone of inventory management, retail operations, and data tracking systems. The ability to generate professional PDF documents containing various barcode types has become essential…

losLab
January 31, 2019

PDF Software

HotPDF Hyperlink Sample

This HotPDF Component Sample adds clickable hyperlinks into PDF document.

<br />
unit Main;</p>
<p>interface</p>
<p>uses<br />
  Windows, Messages, SysUtils, Classes, Graphics, Controls, StdCtrls, Forms, Dialogs, HPDFDoc;</p>
<p>type<br />
  TForm1 = class(TForm)<br />
    HotPDF: THotPDF;<br />
    HelloWorldButton: TButton;<br />
    edtWeb: TEdit;<br />
    edtProduct: TEdit;<br />
    edtOrder: TEdit;<br />
    edtContact: TEdit;<br />
    Label1: TLabel;<br />
    Label2: TLabel;<br />
    Label3: TLabel;<br />
    Label4: TLabel;<br />
    procedure HelloWorldButtonClick(Sender: TObject);<br />
  private<br />
    { Private declarations }<br />
  public<br />
    { Public declarations }<br />
  end;</p>
<p>var<br />
  Form1: TForm1;</p>
<p>implementation</p>
<p>{$R *.dfm}</p>
<p>procedure TForm1.HelloWorldButtonClick(Sender: TObject);<br />
begin<br />
    HotPDF.BeginDoc;<br />
    HotPDF.CurrentPage.SetFont( 'Microsoft Sans Serif', [], 13 );</p>
<p>    HotPDF.CurrentPage.TextOut(20,30,0,'Clickable links:');<br />
    HotPDF.CurrentPage.PrintHyperlink(20, 60, 'Company site: ' + edtWeb.Text, edtWeb.Text);<br />
    HotPDF.CurrentPage.PrintHyperlink(20, 80, 'Product page: ' + edtProduct.Text, edtProduct.Text);<br />
    HotPDF.CurrentPage.SetRGBHyperlinkColor(clRed);<br />
    HotPDF.CurrentPage.PrintHyperlink(20, 100, 'Purchase link: ' + edtOrder.Text, edtOrder.Text);<br />
    HotPDF.CurrentPage.SetRGBHyperlinkColor(clBlue);<br />
    HotPDF.CurrentPage.PrintHyperlink(20, 120, 'Contact form: ' + edtContact.Text, edtContact.Text);</p>
<p>    HotPDF.EndDoc;<br />
end;</p>
<p>end.

unit Main;

interface

uses

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

type

TForm1 = class(TForm)

HotPDF: THotPDF;

HelloWorldButton: TButton;

edtWeb: TEdit;

edtProduct: TEdit;

edtOrder: TEdit;

edtContact: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure HelloWorldButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.HelloWorldButtonClick(Sender: TObject);

begin

HotPDF.BeginDoc;

HotPDF.CurrentPage.SetFont( 'Microsoft Sans Serif', [], 13 );

HotPDF.CurrentPage.TextOut(20,30,0,'Clickable links:');

HotPDF.CurrentPage.PrintHyperlink(20, 60, 'Company site: ' + edtWeb.Text, edtWeb.Text);

HotPDF.CurrentPage.PrintHyperlink(20, 80, 'Product page: ' + edtProduct.Text, edtProduct.Text);

HotPDF.CurrentPage.SetRGBHyperlinkColor(clRed);

HotPDF.CurrentPage.PrintHyperlink(20, 100, 'Purchase link: ' + edtOrder.Text, edtOrder.Text);

HotPDF.CurrentPage.SetRGBHyperlinkColor(clBlue);

HotPDF.CurrentPage.PrintHyperlink(20, 120, 'Contact form: ' + edtContact.Text, edtContact.Text);

HotPDF.EndDoc;

end;

end.

losLab
January 31, 2019

PDF Programming

Mastering PDF Annotations with HotPDF Delphi Component

Mastering PDF Annotations with HotPDF Component PDF annotations are one of the most powerful features for creating interactive and collaborative documents. They allow users to add comments, highlights, stamps, and multimedia content directly to PDF files without modifying the original…

losLab
January 31, 2019

PDF Programming

HotPDF Component Vertical Text Sample Project

HotPDF Delphi Component: Creating Vertical Text Layouts in PDF Documents This comprehensive guide demonstrates how the HotPDF component enables developers to generate Unicode vertical text in PDF documents with ease. Understanding Vertical Typesetting (縦書き/세로쓰기/竖排) Vertical typesetting, also known as vertical…

losLab
January 29, 2019

PDF Programming

HotPDF Component Delphi TextOut Sample Project

HotPDF Component Delphi TextOut Sample – Font Styling and Charset This comprehensive HotPDF component TextOut sample demonstrates advanced font handling, character set support, text scaling, spacing adjustments, and rendering modes. The sample generates detailed font and character set demonstrations with…

losLab
January 28, 2019

PDF Programming

Delphi HotPDF Component Hello World Sample

Hello World from Delphi HotPDF Component Welcome to the comprehensive guide for the Delphi HotPDF Component HelloWorld demonstration program! About HotPDF Component HotPDF Component is a powerful and versatile PDF processing library designed specifically for Delphi and C++Builder developers. This…

losLab
January 27, 2019