Hello World dal Componente Delphi HotPDF Benvenuti alla guida completa per il programma dimostrativo HelloWorld del Componente Delphi HotPDF! Informazioni sul Componente HotPDF Il Componente HotPDF è una libreria di elaborazione PDF potente e versatile progettata specificamente per sviluppatori Delphi…
Hola Mundo del Componente Delphi HotPDF ¡Bienvenido a la guía completa del programa de demostración HelloWorld del Componente Delphi HotPDF! Acerca del Componente HotPDF El Componente HotPDF es una biblioteca de procesamiento de PDF potente y versátil diseñada específicamente para…
This HotPDF Component Sample draw plots with Delphi TCanvas.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
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.
|
This HotPDF Component example show charts in PDF document using TeeChart.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
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;
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;
end.
|
This HotPDF Component Sample adds clickable hyperlinks into PDF document.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
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.
|
HotPDF Delphi Component: Creating Vertical Text Layouts in PDF Documents This comprehensive guide demonstrates how the H…
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…
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…