paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 08:56:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Enable axis marks in nogui demo

Browse Source 
git-svn-id: trunk@29999 -
This commit is contained in:
ask 2011-03-23 10:46:34 +00:00
parent cb4b62a733
commit e9ca674759
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,7 +11,6 @@
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General> </General>
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>

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

@ -14,11 +14,13 @@ var
img: TFPMemoryImage; img: TFPMemoryImage;
c: TFPImageCanvas; c: TFPImageCanvas;
{$R *.res}
begin begin
chart := TChart.Create(nil); chart := TChart.Create(nil);
chart.LeftAxis.Marks.Visible := false; chart.LeftAxis.Marks.LabelFont.Name := 'Arial';
chart.LeftAxis.Marks.LabelFont.Size := 10;
chart.LeftAxis.Marks.Frame.Visible := true;
chart.LeftAxis.Marks.Frame.Style := psSolid;
chart.LeftAxis.Marks.Frame.FPColor := colBlack;
chart.LeftAxis.Grid.FPColor := colDkGray; chart.LeftAxis.Grid.FPColor := colDkGray;
chart.BottomAxis.Marks.Visible := false; chart.BottomAxis.Marks.Visible := false;
chart.BottomAxis.Grid.FPColor := colDkGray; chart.BottomAxis.Grid.FPColor := colDkGray;