paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 11:58:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

CairoCanvas: Improved example program. Issue #36753, patch from Percy Van Den bylaardt.

Browse Source 
git-svn-id: trunk@62744 -
This commit is contained in:
juha 2020-03-11 22:33:01 +00:00
parent c56c25c78a
commit 8c64953817
1 changed files with 146 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

175
components/cairocanvas/example/cairoprog.lpr
View File

@ -3,45 +3,162 @@ program cairoprog;
{$mode objfpc}{$H+}
uses
Classes, CairoCanvas;
Classes, Printers, Graphics, CairoCanvas;
var // This could also be TCairoSvgCanvas, TCairoPngCanvas or TCairoPsCanvas
PrinterCanvas: TCairoPdfCanvas;
PrinterPDFCanvas: TCairoPdfCanvas;
PrinterPSCanvas : TCairoPSCanvas;
ImgSVG : TCairoSvgCanvas;
ImgPNG : TCairoPngCanvas;
begin
PrinterCanvas := TCairoPdfCanvas.Create;
PrinterPDFCanvas := TCairoPdfCanvas.Create;
try
//PrinterCanvas.XDPI := 75; // These have valid default values.
//PrinterCanvas.YDPI := 75;
//PrinterCanvas.PaperWidth := 250;
//PrinterCanvas.PaperHeight := 500;
PrinterCanvas.BeginDoc;
PrinterCanvas.OutputFileName := 'CairoCanvas.pdf';
PrinterCanvas.Ellipse(10, 20, 160, 120);
PrinterPDFCanvas.OutputFileName := 'CairoCanvas.pdf'; // OutputFileName must set before BeginDoc; Otherwise use stream property
PrinterPDFCanvas.BeginDoc;
// Font properties must be set, does not work otherwise.
{$IFDEF MSWindows}
PrinterCanvas.Font.Name := 'Arial Unicode MS';
PrinterPDFCanvas.Font.Name := 'Arial Unicode MS';
{$ELSE}
PrinterCanvas.Font.Name := 'Arial'; // Font properties must be set, does not work otherwise.
PrinterPDFCanvas.Font.Name := 'Arial'; // Font properties must be set, does not work otherwise.
{$ENDIF}
PrinterCanvas.Font.Height := 24;
PrinterCanvas.TextOut(50, 60, 'Page 1');
PrinterCanvas.TextOut(50, 150, 'abcdefghijklmnopqrstuvwxyzåäö');
PrinterCanvas.TextOut(50, 220, 'ฉันหิวแล้ว');
PrinterCanvas.TextOut(50, 290, 'К нам в око́шко застучи́т');
PrinterCanvas.TextOut(50, 360, 'لا أتَكَلّمُ الْعَرَبيّة');
PrinterCanvas.NewPage;
PrinterCanvas.Ellipse(10, 20, 160, 120);
PrinterCanvas.TextOut(50, 60, '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);
PrinterCanvas.EndDoc;
PrinterPDFCanvas.Brush.Color:=clYellow;
PrinterPDFCanvas.Font.Height := 24;
PrinterPDFCanvas.Ellipse(10, 20, 260, 120);
PrinterPDFCanvas.TextOut(50, 60, 'Portrait');
PrinterPDFCanvas.TextOut(50, 150, 'abcdefghijklmnopqrstuvwxyzåäö');
PrinterPDFCanvas.TextOut(50, 220, 'ฉันหิวแล้ว');
PrinterPDFCanvas.TextOut(50, 290, 'К нам в око́шко застучи́т');
PrinterPDFCanvas.TextOut(50, 360, 'لا أتَكَلّمُ الْعَرَبيّة');
PrinterPDFCanvas.Orientation:=poLandscape; //Orientation must set before new page
PrinterPDFCanvas.NewPage;
PrinterPDFCanvas.Ellipse(10, 20, 260, 120);
PrinterPDFCanvas.Font.Color:=clnavy;
PrinterPDFCanvas.TextOut(50, 60, 'Landscape');
PrinterPDFCanvas.Font.Color:=clBlack;
PrinterPDFCanvas.TextOut(50, 150, 'Finnish: wxyzåäö1234567890');
PrinterPDFCanvas.TextOut(50, 220, 'Thai: ฉันหิวแล้ว');
PrinterPDFCanvas.TextOut(50, 290, 'Russian: К нам в око́шко застучи́т');
PrinterPDFCanvas.TextOut(50, 360, 'Arabic: لا أتَكَلّمُ الْعَرَبيّة');
WriteLn('Written file ' + PrinterPDFCanvas.OutputFileName);
PrinterPDFCanvas.EndDoc;
finally
PrinterCanvas.Free;
PrinterPDFCanvas.Free;
end;
PrinterPSCanvas := TCairoPSCanvas.Create;
try
PrinterPDFCanvas.OutputFileName := 'CairoCanvas.ps'; // OutputFileName must set before BeginDoc; Otherwise use stream property
PrinterPSCanvas.BeginDoc;
// Font properties must be set, does not work otherwise.
{$IFDEF MSWindows}
PrinterPSCanvas.Font.Name := 'Arial Unicode MS';
{$ELSE}
PrinterPSCanvas.Font.Name := 'Arial'; // Font properties must be set, does not work otherwise.
{$ENDIF}
PrinterPSCanvas.Brush.Color:=clYellow;
PrinterPSCanvas.Font.Height := 24;
PrinterPSCanvas.Ellipse(10, 20, 260, 120);
PrinterPSCanvas.TextOut(50, 60, 'Portrait');
PrinterPSCanvas.TextOut(50, 150, 'abcdefghijklmnopqrstuvwxyzåäö');
PrinterPSCanvas.TextOut(50, 220, 'ฉันหิวแล้ว');
PrinterPSCanvas.TextOut(50, 290, 'К нам в око́шко застучи́т');
PrinterPSCanvas.TextOut(50, 360, 'لا أتَكَلّمُ الْعَرَبيّة');
PrinterPSCanvas.Orientation:=poLandscape; //Orientation must set before new page
PrinterPSCanvas.NewPage;
PrinterPSCanvas.Orientation:=poLandscape; //Orientation must set before new page
PrinterPSCanvas.Ellipse(10, 20, 260, 120);
PrinterPSCanvas.Font.Color:=clnavy;
PrinterPSCanvas.TextOut(50, 60, 'Landscape');
PrinterPSCanvas.Font.Color:=clBlack;
PrinterPSCanvas.TextOut(50, 150, 'Finnish: wxyzåäö1234567890');
PrinterPSCanvas.TextOut(50, 220, 'Thai: ฉันหิวแล้ว');
PrinterPSCanvas.TextOut(50, 290, 'Russian: К нам в око́шко застучи́т');
PrinterPSCanvas.TextOut(50, 360, 'Arabic: لا أتَكَلّمُ الْعَرَبيّة');
WriteLn('Written file ' + PrinterPSCanvas.OutputFileName);
PrinterPSCanvas.EndDoc;
finally
PrinterPSCanvas.Free;
end;
ImgSVG := TCairoSvgCanvas.Create;
try
ImgSVG.OutputFileName := 'CairoCanvas.svg'; // OutputFileName must set before BeginDoc; Otherwise use stream property
ImgSVG.BeginDoc;
// Font properties must be set, does not work otherwise.
{$IFDEF MSWindows}
ImgSVG.Font.Name := 'Arial Unicode MS';
{$ELSE}
ImgSVG.Font.Name := 'Arial'; // Font properties must be set, does not work otherwise.
{$ENDIF}
ImgSVG.Brush.Color:=clYellow;
ImgSVG.Font.Height := 24;
ImgSVG.Orientation:=poLandscape; //Orientation must set before new page
ImgSVG.NewPage;
ImgSVG.Ellipse(10, 20, 260, 120);
ImgSVG.Font.Color:=clnavy;
ImgSVG.TextOut(50, 60, 'Landscape');
ImgSVG.Font.Color:=clBlack;
ImgSVG.TextOut(50, 150, 'Finnish: wxyzåäö1234567890');
ImgSVG.TextOut(50, 220, 'Thai: ฉันหิวแล้ว');
ImgSVG.TextOut(50, 290, 'Russian: К нам в око́шко застучи́т');
ImgSVG.TextOut(50, 360, 'Arabic: لا أتَكَلّمُ الْعَرَبيّة');
ImgSVG.Orientation:=poLandscape; //Orientation must set before new page
ImgSVG.NewPage;
ImgSVG.Orientation:=poLandscape; //Orientation must set before new page
ImgSVG.Ellipse(10, 20, 260, 120);
ImgSVG.Font.Color:=clnavy;
ImgSVG.TextOut(50, 60, 'Landscape');
ImgSVG.Font.Color:=clBlack;
ImgSVG.TextOut(50, 150, 'Finnish: wxyzåäö1234567890');
ImgSVG.TextOut(50, 220, 'Thai: ฉันหิวแล้ว');
ImgSVG.TextOut(50, 290, 'Russian: К нам в око́шко застучи́т');
ImgSVG.TextOut(50, 360, 'Arabic: لا أتَكَلّمُ الْعَرَبيّة');
WriteLn('Written file ' + ImgSVG.OutputFileName);
ImgSVG.EndDoc;
finally
ImgSVG.Free;
end;
ImgPNG := TCairoPNGCanvas.Create;
try
ImgPNG.OutputFileName := 'CairoCanvas.png'; // OutputFileName must set before BeginDoc; Otherwise use stream property
ImgPNG.BeginDoc;
// Font properties must be set, does not work otherwise.
{$IFDEF MSWindows}
ImgPNG.Font.Name := 'Arial Unicode MS';
{$ELSE}
ImgPNG.Font.Name := 'Arial'; // Font properties must be set, does not work otherwise.
{$ENDIF}
ImgPNG.Brush.Color:=clYellow;
ImgPNG.Font.Height := 24;
ImgPNG.Orientation:=poLandscape; //Orientation must set before new page
ImgPNG.NewPage;
ImgPNG.Ellipse(10, 20, 260, 120);
ImgPNG.Font.Color:=clnavy;
ImgPNG.TextOut(50, 60, 'Landscape');
ImgPNG.Font.Color:=clBlack;
ImgPNG.TextOut(50, 150, 'Finnish: wxyzåäö1234567890');
ImgPNG.TextOut(50, 220, 'Thai: ฉันหิวแล้ว');
ImgPNG.TextOut(50, 290, 'Russian: К нам в око́шко застучи́т');
ImgPNG.TextOut(50, 360, 'Arabic: لا أتَكَلّمُ الْعَرَبيّة');
WriteLn('Written file ' + ImgPNG.OutputFileName);
ImgPNG.EndDoc;
finally
ImgPNG.Free;
end;
end.