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

TAChart: Fix NoGuiDemo to find font in Linux.

Browse Source 
git-svn-id: branches/fixes_2_0@62933 -
This commit is contained in:
mattias 2020-04-11 07:24:35 +00:00
parent e622c77850
commit 34feabd2d1
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, FPCanvas, FPImage, FPImgCanv,
TAGraph, TASeries, TADrawerFPCanvas in '../../TADrawerFPCanvas.pas', TADrawerCanvas, TADrawUtils; 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 var
chart: TChart; chart: TChart;
bs: TBarSeries; bs: TBarSeries;
@ -16,7 +24,7 @@ var
d: IChartDrawer; d: IChartDrawer;
begin begin
chart := TChart.Create(nil); 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.Size := 10;
chart.LeftAxis.Marks.LabelFont.Orientation := 450; chart.LeftAxis.Marks.LabelFont.Orientation := 450;
chart.LeftAxis.Marks.Frame.Visible := true; chart.LeftAxis.Marks.Frame.Visible := true;