paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-03 04:20:03 +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); procedure TForm1.tbCopyClick(Sender: TObject);
begin begin
Chart1BarSeries1.ListSource.CopyForm(DbChartSource1); Chart1BarSeries1.ListSource.CopyFrom(DbChartSource1);
end; end;
end. end.

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

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

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

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

4
components/tachart/tasources.pas
View File

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