mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 10:18:17 +02:00
TAChart: Use TFPCanvasDrawer and nogui widgetset in nogui demo
git-svn-id: trunk@29966 -
This commit is contained in:
parent
2c5801acc5
commit
a40bfdfa55
@ -19,6 +19,9 @@
|
|||||||
<VersionInfo>
|
<VersionInfo>
|
||||||
<StringTable ProductVersion=""/>
|
<StringTable ProductVersion=""/>
|
||||||
</VersionInfo>
|
</VersionInfo>
|
||||||
|
<MacroValues Count="1">
|
||||||
|
<Macro1 Name="LCLWidgetType" Value="nogui"/>
|
||||||
|
</MacroValues>
|
||||||
<BuildModes Count="1">
|
<BuildModes Count="1">
|
||||||
<Item1 Name="Default" Default="True"/>
|
<Item1 Name="Default" Default="True"/>
|
||||||
</BuildModes>
|
</BuildModes>
|
||||||
|
@ -3,24 +3,38 @@ program noguidemo;
|
|||||||
{$mode objfpc}{$H+}
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
{$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF}
|
||||||
cthreads,
|
Interfaces, Classes, tachartlazaruspkg { you can add units after this },
|
||||||
{$ENDIF}{$ENDIF}
|
FPCanvas, FPImage, FPImgCanv,
|
||||||
Classes, tachartlazaruspkg
|
TAGraph, TASeries, TADrawerFPCanvas;
|
||||||
{ you can add units after this },
|
|
||||||
Interfaces, TAGraph, TASeries, Graphics;
|
|
||||||
|
|
||||||
var
|
var
|
||||||
chart: TChart;
|
chart: TChart;
|
||||||
bs: TBarSeries;
|
bs: TBarSeries;
|
||||||
|
img: TFPMemoryImage;
|
||||||
|
c: TFPImageCanvas;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
begin
|
begin
|
||||||
chart := TChart.Create(nil);
|
chart := TChart.Create(nil);
|
||||||
|
chart.LeftAxis.Marks.Visible := false;
|
||||||
|
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);
|
bs := TBarSeries.Create(nil);
|
||||||
chart.AddSeries(bs);
|
chart.AddSeries(bs);
|
||||||
bs.AddXY(1, 10);
|
bs.AddXY(1, 10);
|
||||||
bs.AddXY(2, 7);
|
bs.AddXY(2, 7);
|
||||||
bs.AddXY(3, 8);
|
bs.AddXY(3, 8);
|
||||||
chart.SaveToBitmapFile('test.bmp');
|
img := TFPMemoryImage.Create(chart.Width, chart.Height);
|
||||||
|
c := TFPImageCanvas.Create(img);
|
||||||
|
chart.Draw(TFPCanvasDrawer.Create(c), Rect(0, 0, chart.Width, chart.Height));
|
||||||
|
img.SaveToFile('test.png');
|
||||||
|
c.Free;
|
||||||
|
img.Free;
|
||||||
bs.Free;
|
bs.Free;
|
||||||
chart.Free;
|
chart.Free;
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user