paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 11:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix formatting and svn properties of "getting_started" tutorial

Browse Source 
git-svn-id: trunk@39211 -
This commit is contained in:
ask 2012-10-31 17:25:47 +00:00
parent d293d45ec1
commit 593d20e3ce
4 changed files with 10 additions and 12 deletions
.gitattributes.gitignore
components/tachart/tutorials/getting_started
getting_started.lpimain.pas

2
.gitattributes vendored
View File

@ -3109,7 +3109,7 @@ components/tachart/test/UtilsTest.pas svneol=native#text/pascal
components/tachart/test/test.lpi svneol=native#text/plain
components/tachart/test/test.lpr svneol=native#text/pascal
components/tachart/tutorials/getting_started/getting_started.lpi svneol=native#text/plain
components/tachart/tutorials/getting_started/getting_started.lpr svneol=native#text/plain
components/tachart/tutorials/getting_started/getting_started.lpr svneol=native#text/pascal
components/tachart/tutorials/getting_started/main.lfm svneol=native#text/plain
components/tachart/tutorials/getting_started/main.pas svneol=native#text/pascal
components/tachart/tutorials/mandelbrot/main.lfm svneol=native#text/plain

4
.gitignore vendored
View File

@ -254,6 +254,10 @@ components/tachart/test/lib
components/tachart/tutorials/*.exe
components/tachart/tutorials/*.lps
components/tachart/tutorials/*.res
components/tachart/tutorials/getting_started/*.exe
components/tachart/tutorials/getting_started/*.lps
components/tachart/tutorials/getting_started/*.res
components/tachart/tutorials/getting_started/lib
components/tachart/tutorials/lib
components/tachart/tutorials/mandelbrot/*.exe
components/tachart/tutorials/mandelbrot/*.lps

3
components/tachart/tutorials/getting_started/getting_started.lpi
View File

@ -9,7 +9,6 @@
<Title Value="getting_started"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
@ -59,7 +58,7 @@
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="bin\$(TargetCPU)-$(TargetOS)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>

13
components/tachart/tutorials/getting_started/main.pas
View File

@ -18,10 +18,6 @@ type
CosSeries: TLineSeries;
SinCosSeries: TLineSeries;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
@ -42,13 +38,12 @@ var
i: Integer;
x: Double;
begin
for i:=0 to N - 1 do begin
for i := 0 to N - 1 do begin
x := MIN + (MAX - MIN) * i / (N - 1);
SinSeries.AddXY(x, sin(x));
CosSeries.AddXY(x, cos(x));
SinCosSeries.AddXY(x, sin(x)*cos(x));
SinSeries.AddXY(x, Sin(x));
CosSeries.AddXY(x, Cos(x));
SinCosSeries.AddXY(x, Sin(x) * Cos(x));
end;
end;
end.