6
{$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF}
7
Interfaces, Classes, tachartlazaruspkg { you can add units after this },
8
FPCanvas, FPImage, FPImgCanv,
9
TAGraph, TASeries, TADrawerFPCanvas in '../../TADrawerFPCanvas.pas', TADrawerCanvas, TADrawUtils;
18
chart := TChart.Create(nil);
19
chart.LeftAxis.Marks.LabelFont.Name := 'Arial';
20
chart.LeftAxis.Marks.LabelFont.Size := 10;
21
chart.LeftAxis.Marks.LabelFont.Orientation := 450;
22
chart.LeftAxis.Marks.Frame.Visible := true;
23
chart.LeftAxis.Marks.Frame.Style := psSolid;
24
chart.LeftAxis.Marks.Frame.FPColor := colBlack;
25
chart.LeftAxis.Grid.FPColor := colDkGray;
26
chart.BottomAxis.Marks.Visible := false;
27
chart.BottomAxis.Grid.FPColor := colDkGray;
28
chart.Color := $FFA0A0;
29
chart.BackColor := $FFFFFF;
30
bs := TBarSeries.Create(nil);
35
img := TFPMemoryImage.Create(chart.Width, chart.Height);
36
c := TFPImageCanvas.Create(img);
37
d := TFPCanvasDrawer.Create(c);
38
d.DoGetFontOrientation := @CanvasGetFontOrientationFunc;
39
chart.Draw(d, Rect(0, 0, chart.Width, chart.Height));
40
img.SaveToFile('test.png');