paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 23:20:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix NoGuiDemo to find font in Linux.

Browse Source 
git-svn-id: trunk@62906 -
This commit is contained in:
wp 2020-04-07 16:49:16 +00:00
parent 9e38dc5e85
commit 37c5baa6a6
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/demo/nogui/noguidemo.lpr
View File

@ -8,6 +8,14 @@ uses
FPCanvas, FPImage, FPImgCanv,
TAGraph, TASeries, TADrawerFPCanvas in '../../TADrawerFPCanvas.pas', TADrawerCanvas, TADrawUtils;
const
{$IFDEF MSWINDOWS}
FONT_NAME = 'Arial';
{$ENDIF}
{$IFDEF UNIX}
FONT_NAME = '/usr/share/fonts/truetype/liberation/LiberationSans-Regular.ttf';
{$ENDIF}
var
chart: TChart;
bs: TBarSeries;
@ -16,7 +24,7 @@ var
d: IChartDrawer;
begin
chart := TChart.Create(nil);
chart.LeftAxis.Marks.LabelFont.Name := 'Arial';
chart.LeftAxis.Marks.LabelFont.Name := FONT_NAME;
chart.LeftAxis.Marks.LabelFont.Size := 10;
chart.LeftAxis.Marks.LabelFont.Orientation := 450;
chart.LeftAxis.Marks.Frame.Visible := true;