2013/1/28 silvioprog <silviop...@gmail.com> > 2013/1/28 Graeme Geldenhuys <gra...@geldenhuys.co.uk> > >> On 01/28/13 23:32, silvioprog wrote: >> >> Not for lines. >> > >> > >> > Sniff. :'( >> > >> > I'm trying to generate charts in my CGI apps: >> >> Use AggPas. That is exactly why I incorporated it into fpGUI. I needed >> anti-aliased line drawing for graphs etc. >> >> >> Regards, >> - Graeme - >> > > Installing it now (http://imagebin.org/244603). Thank you Graeme! :) >
Fail. :( program noguidemo; {$mode objfpc}{$H+} uses Interfaces, Classes, FPCanvas, FPImage, TATools, TAGraph, TASeries, TADrawerFPCanvas, TADrawerCanvas, TADrawUtils, agg_fpimage; var chart: TChart; bs: TBarSeries; c: TAggFPCanvas; d: IChartDrawer; begin chart := TChart.Create(nil); chart.LeftAxis.Marks.LabelFont.Name := 'Arial'; 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); c := TAggFPCanvas.Create; c.Width := chart.Width; c.Height := chart.Height; d := TFPCanvasDrawer.Create(c); d.DoGetFontOrientation := @CanvasGetFontOrientationFunc; chart.Draw(d, Rect(0, 0, chart.Width, chart.Height)); c.Image.SaveToFile('test.png'); c.Free; bs.Free; chart.Free; end. The result is: http://imagebin.org/244608 I may be using the wrong way, but I did not find documentation to help me with this. :/ -- Silvio Clécio My public projects - github.com/silvioprog
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal