paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-14 13:10:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use TFPCanvasDrawer and nogui widgetset in nogui demo

Browse Source 
git-svn-id: trunk@29966 -
This commit is contained in:
ask 2011-03-21 13:46:36 +00:00
parent 2c5801acc5
commit a40bfdfa55
2 changed files with 24 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/demo/nogui/noguidemo.lpi
View File

@ -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>

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

@ -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.