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
|
program cairoprog;
{$mode objfpc}{$H+}
uses
Classes, CairoCanvas;
var // This could also be TCairoSvgCanvas, TCairoPngCanvas or TCairoPsCanvas
PrinterCanvas: TCairoPdfCanvas;
begin
PrinterCanvas := TCairoPdfCanvas.Create;
try
PrinterCanvas.OutputFileName := 'CairoCanvas.pdf';
PrinterCanvas.Ellipse(20, 20, 170, 120);
//PrinterCanvas.XDPI := 75; // These have valid default values.
//PrinterCanvas.YDPI := 75;
//PrinterCanvas.PaperWidth := 250;
//PrinterCanvas.PaperHeight := 500;
PrinterCanvas.Font.Name := 'Arial'; // Font properties must be set, does not work otherwise.
PrinterCanvas.Font.Height := 24;
PrinterCanvas.TextOut(50, 150, 'abcdefghijklmnopqrstuvwxyzåäö');
PrinterCanvas.TextOut(50, 220, 'ฉันหิวแล้ว');
PrinterCanvas.TextOut(50, 290, 'К нам в око́шко застучи́т');
PrinterCanvas.TextOut(50, 360, 'لا أتَكَلّمُ الْعَرَبيّة');
PrinterCanvas.NewPage;
PrinterCanvas.TextOut(50, 80, 'Page 2');
PrinterCanvas.TextOut(50, 150, 'Finnish: wxyzåäö1234567890');
PrinterCanvas.TextOut(50, 220, 'Thai: ฉันหิวแล้ว');
PrinterCanvas.TextOut(50, 290, 'Russian: К нам в око́шко застучи́т');
PrinterCanvas.TextOut(50, 360, 'Arabic: لا أتَكَلّمُ الْعَرَبيّة');
WriteLn('Written file ' + PrinterCanvas.OutputFileName);
finally
PrinterCanvas.Free;
end;
end.
|
