paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 06:59:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

CairoCanvas PDF example: add Thai, Russian and Arabic text. Set widgetset to NoGui, can be used in a server.

Browse Source 
git-svn-id: trunk@48685 -
This commit is contained in:
juha 2015-04-09 10:07:42 +00:00
parent 5b89a8d49e
commit 2e99d6ffe7
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/cairocanvas/example/cairoprog.lpi
View File

@ -19,8 +19,14 @@
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="nogui"/>
</MacroValues>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
<SharedMatrixOptions Count="1">
<Item1 ID="152671982290" Modes="Default" Type="IDEMacro" MacroName="LCLWidgetType" Value="nogui"/>
</SharedMatrixOptions>
</BuildModes>
<PublishOptions>
<Version Value="2"/>

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

@ -19,6 +19,9 @@ begin
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, 'لا أتَكَلّمُ الْعَرَبيّة');
WriteLn('Written file ' + PrinterCanvas.OutputFileName);
finally
PrinterCanvas.Free;