mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-03 01:58:14 +02:00
55 lines
1.5 KiB
ObjectPascal
55 lines
1.5 KiB
ObjectPascal
program noguidemo;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
{$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF}
|
|
Interfaces, Classes, tachartlazaruspkg { you can add units after this },
|
|
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;
|
|
img: TFPMemoryImage;
|
|
c: TFPImageCanvas;
|
|
d: IChartDrawer;
|
|
begin
|
|
chart := TChart.Create(nil);
|
|
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;
|
|
chart.LeftAxis.Marks.Frame.Style := psSolid;
|
|
chart.LeftAxis.Marks.Frame.FPColor := colBlack;
|
|
chart.LeftAxis.Grid.FPColor := colDkGray;
|
|
chart.BottomAxis.Marks.Visible := false;
|
|
chart.BottomAxis.Grid.FPColor := colDkGray;
|
|
chart.Color := $FFA0A0;
|
|
chart.BackColor := $FFFFFF;
|
|
bs := TBarSeries.Create(nil);
|
|
chart.AddSeries(bs);
|
|
bs.AddXY(1, 10);
|
|
bs.AddXY(2, 7);
|
|
bs.AddXY(3, 8);
|
|
img := TFPMemoryImage.Create(chart.Width, chart.Height);
|
|
c := TFPImageCanvas.Create(img);
|
|
d := TFPCanvasDrawer.Create(c);
|
|
d.DoGetFontOrientation := @CanvasGetFontOrientationFunc;
|
|
chart.Draw(d, Rect(0, 0, chart.Width, chart.Height));
|
|
img.SaveToFile('test.png');
|
|
c.Free;
|
|
img.Free;
|
|
bs.Free;
|
|
chart.Free;
|
|
end.
|
|
|