paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 07:19:18 +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> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <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> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">

6
components/tachart/taseries.pas
View File

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

4
components/tachart/tasources.pas
View File

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