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

TAChart: Fix typo in the method name: CopyForm -> CopyFrom. Update demos

Browse Source 
git-svn-id: trunk@33132 -
This commit is contained in:
ask 2011-10-28 11:41:28 +00:00
parent 79353aa2a5
commit 41f098ceb6
4 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/db/main.pas
View File

@ -35,7 +35,7 @@ implementation
procedure TForm1.tbCopyClick(Sender: TObject);
begin
Chart1BarSeries1.ListSource.CopyForm(DbChartSource1);
Chart1BarSeries1.ListSource.CopyFrom(DbChartSource1);
end;
end.

2
components/tachart/demo/listbox/listboxdemo.lpi
View File

@ -66,6 +66,8 @@
</SearchPaths>
<Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
<StripSymbols Value="True"/>
</Debugging>
<Options>

4
components/tachart/demo/nan/Main.pas
View File

@ -56,7 +56,7 @@ begin
lcs1.Add(i, Random(100) / 50);
clbNans.Items.Add(IntToStr(i));
end;
lcs2.CopyForm(lcs1);
lcs2.CopyFrom(lcs1);
end;
procedure TForm1.rgSeriesTypeClick(Sender: TObject);
@ -71,7 +71,7 @@ procedure TForm1.rgXYClick(Sender: TObject);
var
i: Integer;
begin
lcs1.CopyForm(lcs2);
lcs1.CopyFrom(lcs2);
for i := 0 to lcs1.Count - 1 do
clbNansItemClick(nil, i);
end;

4
components/tachart/tasources.pas
View File

@ -52,7 +52,7 @@ type
AX, AY: Double; const ALabel: String = '';
AColor: TChartColor = clTAColor): Integer;
procedure Clear;
procedure CopyForm(ASource: TCustomChartSource);
procedure CopyFrom(ASource: TCustomChartSource);
procedure Delete(AIndex: Integer);
function IsSorted: Boolean; override;
function SetXValue(AIndex: Integer; AValue: Double): Integer;
@ -398,7 +398,7 @@ begin
FValuesTotalIsValid := true;
end;
procedure TListChartSource.CopyForm(ASource: TCustomChartSource);
procedure TListChartSource.CopyFrom(ASource: TCustomChartSource);
var
i: Integer;
begin