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

tachart: fixed method setters

Browse Source 
git-svn-id: trunk@22166 -
This commit is contained in:
mattias 2009-10-14 08:58:44 +00:00
parent f9bf52235e
commit 0b7468f33e
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/func/funcdemo.lpi
View File

@ -22,7 +22,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">

6
components/tachart/taseries.pas
View File

@ -29,7 +29,7 @@ unit TASeries;
interface
uses
Classes, Graphics,
Classes, Graphics, LCLProc,
TAChartUtils, TACustomSeries, TAGraph, TALegend, TATypes;
type
@ -1090,7 +1090,7 @@ end;
procedure TFuncSeries.SetOnCalculate(const AValue: TFuncCalculateEvent);
begin
if FOnCalculate = AValue then exit;
if CompareMethods(TMethod(FOnCalculate),TMethod(AValue)) then exit;
FOnCalculate := AValue;
UpdateParentChart;
end;
@ -1139,7 +1139,7 @@ end;
procedure TUserDrawnSeries.SetOnDraw(AValue: TSeriesDrawEvent);
begin
if FOnDraw = AValue then exit;
if CompareMethods(TMethod(FOnDraw),TMethod(AValue)) then exit;
FOnDraw := AValue;
UpdateParentChart;
end;

4
components/tachart/tasources.pas
View File

@ -22,7 +22,7 @@ unit TASources;
interface
uses
Classes, Graphics, SysUtils, TAChartUtils;
Classes, LCLProc, Graphics, SysUtils, TAChartUtils;
type
EEditableSourceRequired = class(EChartError);
@ -783,7 +783,7 @@ end;
procedure TUserDefinedChartSource.SetOnGetChartDataItem(
const AValue: TGetChartDataItemEvent);
begin
if FOnGetChartDataItem = AValue then exit;
if CompareMethods(TMethod(FOnGetChartDataItem),TMethod(AValue)) then exit;
FOnGetChartDataItem := AValue;
Reset;
end;